%!PS-Adobe-3.0 EPSF-3.0 SI201-5N.eps %%BoundingBox: 70 85 390 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://www.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /creator (klaus.richter@bam.de) /creationDate (D:2013030112000) /ModDate (D:2013030112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {350 /Times-BoldItalic FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /ibshown {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def /ibshow0 {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def /ishown {TK -50 -50 rmoveto show 0 50 rmoveto TM } bind def /ishow0 {TK -00 -50 rmoveto show 0 50 rmoveto TM } bind def %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 4 def /lanind2 4 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( SI201-5N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 11100 0 rlineto 0 4000 rlineto -11100 0 rlineto closepath fill 0.0 setgray 0 0 moveto 11100 0 rlineto 0 4000 rlineto -11100 0 rlineto closepath stroke 050 3700 moveto TBM (Drei Gr\344tekoordinaten (d)) showde (Three device (d) coordinates) showea TBIM ( rgb*) show (d) ibshown ( beschreiben 8 Ger\344tefarben ) showde ( describe 8 device colours ) showea TBIM (RGB) show (d) ibshow0 (, CMY) show (d) ibshow0 (, and ) showea ( und ) showde TBIM (NW.) show 2700 3350 moveto TM (Sechseck\255Dreieck\255System von Ger\344tefarben (d): ) showde (Hexagon\255triangle system based on device (d) colours: ) showea TBIM (rgb*) show (d) ibshown 2700 3000 moveto TM (with) showea (mit) showde TBM ( linear relations) showea ( lineare Beziehungen) showde TM ( between) showea ( zwischen) showde TBIM ( rgb*) show (d) ibshown TM ( - ) show TBIM (LCH*) show (d) ibshown 2700 2650 moveto TIM ( ) show (\050compare approximately linear relations between) showea (\050vergl. angen\344hert lineare Beziehungen zwischen) showde TIM ( rgb) show (sRGB) ishow0 TIM ( and ) showea ( und ) showde TIM (L*) show (\051) show 2700 2150 moveto TM (Equations) showea (Gleichungen) showde TIM ( rgb*) show (d) ishown TIM ( - LCH*) show (d) ishown TM ( in both directions have been published, see:) showea ( in beiden Richtungen sind publiziert:) showde 2700 1800 moveto TIM (Richter, CIE\255Proceedings, Beijing, 2008, Volume 3 und DIN 33872\2551) showea (Richter, CIE\255Proceedings, Beijing, 2008, Volume 3 und DIN 33872\2551) showde 2700 1350 moveto TM (Three equations (tables) are needed for office applications:) showea (Drei Gleichungen (Tabellen) sind erforderlich f\374r B\374roanwendungen: ) showde 2700 950 moveto TBIM (rgb) show (d) ibshow0 TBIM ( - LCH*') show (d) ibshown 4700 950 moveto TM ( for a 9x9x9 grid of equally spaced) showea ( f\374r ein 9x9x9\255Gitter von) showde TIM ( rgb) show (d) ishow0 TM ( input data) showea (\255Eingabefarben) showde 2700 550 moveto TBIM (rgb*) show (d) ibshown TBIM ( - LCH*) show (d) ibshown 4700 550 moveto TM ( a 9x9x9 grid of equally spaced data) showea ( ein 9x9x9\255Gitter von Daten) showde TIM ( rgb*) show (d) ishown TM ( and ) showea ( und ) showde TIM (LCH*) show (d) ishown 2700 150 moveto TBIM (rgb'*) show (d) ibshown TBIM ( - LCH'*) show (d) ibshown TBIM ( ~ LCH*) show (d) ibshown 6000 150 moveto TM (device linearization:) showea (Ger\344telinearisierung:) showde TBIM ( rgb) show (d) ibshow0 TBIM (->rgb'*) show (d) ibshown TBIM (=rgb) show (dd) ibshow0 1700 2600 moveto TBM (5 equal) showea (5 gleiche) showde 1700 2300 moveto TBM (steps) showea (Stufen) showde 1700 2600 moveto TBM (5 equal) showea (5 gleiche) showde 1700 2300 moveto TBM (steps) showea (Stufen) showde TIM 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1500 lineto stroke -700 -700 moveto 500 500 lineto stroke TIM 0900 -300 moveto (a*) show 0650 550 moveto (b*) show 100 1500 moveto (L*) show /rx 774 def %standard hexagon gamut 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def 0 0 1 setrgbcolor %a0 c0 moveto -800 -800 lineto stroke -1000 300 add -500 350 add moveto (b*) show -200 -100 rmoveto (d) show 100 100 rmoveto /rx 774 def %standard hexagon gamut /fakt 1.5 def /fakt0 1.2 def /iangle 30 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 1 0 0.1 setrgbcolor %a0 c0 moveto c a0 sub fakt0 mul d c0 sub fakt0 mul rlineto stroke c fakt mul 300 sub d fakt mul 250 add moveto (r*) show -100 -100 rmoveto (d) show 100 100 rmoveto /iangle 150 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 1 0.2 setrgbcolor %a0 c0 moveto c fakt mul d fakt mul lineto stroke c fakt mul 250 sub d fakt mul 200 add moveto (g*) show -100 -100 rmoveto (d) show 100 100 rmoveto 0 0 0 setrgbcolor 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def iangle 30 eq {1 0 0.1 setrgbcolor a0 c0 moveto c a0 sub 1.2 mul d c0 sub 1.2 mul rlineto stroke } if iangle 150 eq {0 1 0.2 setrgbcolor a0 c0 moveto c a0 sub 1.2 mul d c0 sub 1.2 mul rlineto stroke } if iangle 270 eq {0 0 1 setrgbcolor a0 c0 moveto c a0 sub 1.2 mul d c0 sub 1.2 mul rlineto stroke } if 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse iangle 090 eq iangle 210 eq or iangle 330 eq or {a0 c0 moveto c d lineto stroke} if iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill iangle 030 eq {/am a0 0.25 mul c 0.75 mul add def /bm b0 0.25 mul d 0.75 mul add def /r*x 1 def /g*x 0.25 def /b*x 0.25 def r*x g*x b*x setrgbcolor am bm 100 0 360 arc fill /am a0 0.50 mul c 0.50 mul add def /bm b0 0.50 mul d 0.50 mul add def /r*x 1 def /g*x 0.50 def /b*x 0.50 def r*x g*x b*x setrgbcolor am bm 100 0 360 arc fill /am a0 0.75 mul c 0.25 mul add def /bm b0 0.75 mul d 0.25 mul add def /r*x 1 def /g*x 0.75 def /b*x 0.75 def r*x g*x b*x setrgbcolor am bm 100 0 360 arc fill } if } for %iangle=30,60,330 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 -1200 -1300 translate grestore showpage %%Trailer