%!PS-Adobe-3.0 EPSF-3.0 KG281-5N.eps %%BoundingBox: 70 85 390 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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:2009080112000) /ModDate (D:2009080112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 % !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 %%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 eq {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 /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( KG281-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 (6 Elementary (e) colours) showen (6 Elementarfarben (e)) showde TBIM ( rgb*) show TK -150 -100 rmoveto (d) show 50 100 rmoveto TM TM (=) show TBIM (rgb*) show ( in CIELAB: ) showen ( in CIELAB: ) showde TBIM (RJGB) show TBM ( and ) showen ( und ) showde TBIM (NW) show TM 2700 3350 moveto TM (Hexagon\255triangle system based on device (d) colours: ) showen (Sechseck\255Dreieck\255System von Ger\344tefarben (d): )showde TBIM (rgb*) show TK -150 -100 rmoveto (d) show 50 100 rmoveto TM TM (=) show TBIM (olv*) show 2700 3000 moveto TM (with) showen (mit) showde TBM ( linear relations) showen ( lineare Beziehungen) showde TM TM ( between) showen ( zwischen) showde TBIM ( rgb*) show TK -150 -100 rmoveto (d) show 150 100 rmoveto TIM TM ( - ) show TBIM (LCH*) show TM TM (, and) show TBIM ( rgb*) show TK -150 -100 rmoveto (h) show 00 100 rmoveto TIM TM ( - ) show TBIM (LCH*) show TM 2700 2650 moveto TIM ( \050compare linear relations between) showen ( \050vergleiche lineare Beziehungen zwischen) showde TIM ( rgb) show TK 0 -100 rmoveto (sRGB) show 0 100 rmoveto TIM ( and ) showen ( und ) showde TIM (L*) show (\051) show 2700 2150 moveto TM (Equations) showen (Gleichungen) showde TIM ( rgb* ) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM TIM (- LCH* ) show TM (in both directions have been published, see:) showen (in beiden Richtungen sind publiziert: ) showde 2700 1800 moveto TIM (Richter, CIE\255Proceedings, Beijing, 2008, Volume 3 und DIN 33872\2551) showen (Richter, CIE\255Proceedings, Beijing, 2008, Volume 3 und DIN 33872\2551) showde 2700 1350 moveto TM (Three equations (tables) are needed for office applications:) showen (Drei Gleichungen (Tabellen) sind erforderlich f\374r B\374roanwendungen: ) showde 2700 950 moveto TBIM (rgb) show TK -00 -100 rmoveto (d) show 00 100 rmoveto TIM TBIM ( - LCH*') show 4700 950 moveto TM ( output a 9x9x9 grid of equally spaced) showen ( Ausgabe eines 9x9x9\255Gitters von) showde TIM ( rgb) show TK -00 -100 rmoveto (d) show 00 100 rmoveto TIM TM (\255input data) showen (\255Eingabefarben) showde 2700 550 moveto TBIM (rgb* ) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM TBIM (- LCH*) show 4700 550 moveto TM ( a 9x9x9 grid of equally spaced data) showen ( ein 9x9x9\255Gitter von Daten) showde TIM ( rgb*) show TK -70 -100 rmoveto (h) show 00 100 rmoveto TIM TM ( and ) showen ( und ) showde TIM (LCH*) show 2700 150 moveto TBIM (rgb'*) show TK -70 -100 rmoveto (h) show 70 100 rmoveto TIM TBIM (- LCH*) show 4700 150 moveto ( Device output linearisation by ) showen ( Ger\344te\255Linearisierung durch ) showde TBIM (rgb) show TK -00 -100 rmoveto (d) show 00 100 rmoveto TIM TBIM ( -> rgb'*) show TM TK -70 -100 rmoveto (h) show 70 100 rmoveto TIM newpath 1700 2600 moveto TBM (5 equal) showen (5 gleiche) showde 1700 2300 moveto TBM (steps) showen (Stufen) showde newpath TIM 1200 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 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.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.3 def 100 1500 moveto (t*) show /iangle 170 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 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 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant antx inr get def /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x 100 add b0x moveto newpath a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 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 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 a0 c0 moveto c d lineto stroke 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 100 add d moveto newpath c d 100 0 360 arc fill } for %iangle=30,60,330 1 1 1 setrgbcolor %W newpath a0 100 add b0 moveto a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N newpath a0 100 add b0 moveto a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 100 add b0 moveto newpath 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 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor newpath a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke a0x 100 add b0x moveto newpath a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant antx inr get def /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def /c0x a0x b0x 0.5 mul add def /d0x b0x 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0x b0x moveto c0x d0x lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %a0x c0x moveto c0x d0x lineto stroke /r*x 1 def /g*x 0 def /b*x 0.1 def /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def 1 0 0 setrgbcolor a0 b0 moveto c0x d0x lineto stroke 0 setgray /am a0 0.25 mul c0x 0.75 mul add def /bm b0 0.25 mul d0x 0.75 mul add def /r*x 1 def /g*x 0.25 def /b*x 0.25 0.9 mul def r*x g*x b*x setrgbcolor newpath am bm moveto am bm 100 0 360 arc fill /am a0 0.50 mul c0x 0.50 mul add def /bm b0 0.50 mul d0x 0.50 mul add def /r*x 1 def /g*x 0.50 def /b*x 0.50 0.9 mul def r*x g*x b*x setrgbcolor newpath am bm moveto am bm 100 0 360 arc fill /am a0 0.75 mul c0x 0.25 mul add def /bm b0 0.75 mul d0x 0.25 mul add def /r*x 1 def /g*x 0.75 def /b*x 0.75 0.9 mul def r*x g*x b*x setrgbcolor newpath am bm moveto am bm 100 0 360 arc fill } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash newpath a0x 100 add b0x moveto a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 -1200 -1300 translate grestore showpage %%Trailer