%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG16/DG160-2A 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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: farbe.li.tu-berlin.de/DG16/DG16.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %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 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /isV {TV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /esV {TV 0 110 rmoveto show 0 -110 rmoveto TL} bind def /ibV {TBV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ebV {TBV 0 110 rmoveto show 0 -110 rmoveto TL} bind def /ipV {TV 24 24 rmoveto (\267) show 24 -24 rmoveto TL} bind def /iyV {SV FS 0 -50 rmoveto show 0 50 rmoveto TL} bind def /cvicvs {cvi 6 string cvs} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /cvsshow4x {/nxx exch def %example nxx=99.1234/99.0123/99.0010/99.0001 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10000 mul cvi /nxi exch def %nxi=991234/990123/990010/990000 nxi 10000 idiv /nxa exch def %nxa=99 nxi nxa 10000 mul sub /nxb exch def %nxb=1234/0123/0010/0001 nxa cvishow (,) show %nxb=99, nxb 1000 ge {nxb cvishow} if %nxb=1234/0123/0010/0001 nxb 100 ge nxb 999 le and {(0) show nxb cvishow} if %nxb=012 nxb 10 ge nxb 99 le and {(00) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(000) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 0 def /lanind2 0 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 3 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 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /ishowG1 {0 -80 rmoveto TM (1) show 0 80 rmoveto} bind def /ishowG2 {0 -80 rmoveto TM (2) show 0 80 rmoveto} bind def /ishowGu {0 -80 rmoveto TM (u) show 0 80 rmoveto} bind def /ishowGw {0 -80 rmoveto TM (w) show 0 80 rmoveto} bind def /ishowM1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishowM2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowMu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishowMw {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def /ishowK1 {0 -60 rmoveto TS (1) show 0 60 rmoveto} bind def /ishowK2 {0 -60 rmoveto TS (2) show 0 60 rmoveto} bind def /ishowKu {0 -60 rmoveto TS (u) show 0 60 rmoveto} bind def /ishowKw {0 -60 rmoveto TS (w) show 0 60 rmoveto} bind def /ishowS1 {0 -50 rmoveto TL (1) show 0 50 rmoveto} bind def /ishowS2 {0 -50 rmoveto TL (2) show 0 50 rmoveto} bind def /ishowSu {0 -50 rmoveto TL (u) show 0 50 rmoveto} bind def /ishowSw {0 -50 rmoveto TL (w) show 0 50 rmoveto} bind def /ishowLi {0 -40 rmoveto TV (i) show 0 40 rmoveto TL} bind def /qshow- {-70 60 rmoveto TL (-) show -20 -60 rmoveto TL} bind def /eshow- {-60 90 rmoveto TL (-) show -20 -90 rmoveto TL} bind def /gshow- {-80 90 rmoveto TL (-) show -20 -90 rmoveto TL} bind def /ishowL01 {0 -40 rmoveto TV (1) show -20 40 rmoveto TL} bind def /ishowL02 {0 -40 rmoveto TV (2) show -20 40 rmoveto TL} bind def /ishowL03 {0 -40 rmoveto TV (3) show -20 40 rmoveto TL} bind def /ishowL11 {0 -40 rmoveto TV (11) show 0 40 rmoveto TL} bind def /ishowL12 {0 -40 rmoveto TV (12) show 0 40 rmoveto TL} bind def /ishowL13 {0 -40 rmoveto TV (13) show 0 40 rmoveto TL} bind def /ishowL21 {0 -40 rmoveto TV (21) show 0 40 rmoveto TL} bind def /ishowL22 {0 -40 rmoveto TV (22) show 0 40 rmoveto TL} bind def /ishowL23 {0 -40 rmoveto TV (23) show 0 40 rmoveto TL} bind def /ishowL31 {0 -40 rmoveto TV (31) show 0 40 rmoveto TL} bind def /ishowL32 {0 -40 rmoveto TV (32) show 0 40 rmoveto TL} bind def /ishowL33 {0 -40 rmoveto TV (33) show 0 40 rmoveto TL} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /ishowLB {0 -50 rmoveto TV (B) show 0 50 rmoveto} bind def /ishowLG {0 -50 rmoveto TV (G) show 0 50 rmoveto} bind def /ishowLY {0 -50 rmoveto TV (Y) show 0 50 rmoveto} bind def /ishowLR {0 -50 rmoveto TV (R) show 0 50 rmoveto} bind def /iblue {0 0 1 setrgbcolor} bind def /TlamdaL {TL (\050) show SL (l) show TL (\051) show} bind def /KLa {/yu exch def /xu exch def SL xu yu moveto (\346) show xu yu iyd 1 mul sub moveto (\347) show xu yu iyd 2 mul sub moveto (\350) show} bind def /KLz {/yu exch def /xu exch def SL xu yu moveto (\366) show xu yu iyd 1 mul sub moveto (\367) show xu yu iyd 2 mul sub moveto (\370) show} bind def /TE3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk3u {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show (u) isV TIL xu yu iyd 1 mul sub moveto T2 show (u) isV TIL xu yu iyd 2 mul sub moveto T3 show (u) isV TIL} bind def /TEk3n {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show (n) isV TIL xu yu iyd 1 mul sub moveto T2 show (n) isV TIL xu yu iyd 2 mul sub moveto T3 show (n) isV TIL} bind def /TEk3a {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show (a) isV TIL xu yu iyd 1 mul sub moveto T2 show (a) isV TIL xu yu iyd 2 mul sub moveto T3 show (a) isV TIL} bind def /TEk3da {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto TL (/) show T1 show (a) isV TIL xu yu iyd 1 mul sub moveto TL (/) show T2 show (a) isV TIL xu yu iyd 2 mul sub moveto TL (/) show T3 show (a) isV TIL} bind def /TEk3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk301 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show ishowL01 FONT xu yu iyd 1 mul sub moveto T2 show ishowL01 FONT xu yu iyd 2 mul sub moveto T3 show ishowL01 FONT} bind def /TEk30i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show ishowL01 FONT xu yu iyd 1 mul sub moveto T2 show ishowL02 FONT xu yu iyd 2 mul sub moveto T3 show ishowL03 FONT} bind def /TEk3xlamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL01 FONT TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show ishowL02 FONT TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show ishowL03 FONT TlamdaL} bind def /TEk3lamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show TlamdaL} bind def /TEk30ilamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show eshow- TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show qshow- TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show eshow- TlamdaL} bind def /TEk31i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL11 xu yu iyd 1 mul sub moveto FONT T2 show ishowL12 xu yu iyd 2 mul sub moveto FONT T3 show ishowL13} bind def /TEk32i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto FONT T1 show ishowL21 xu yu iyd 1 mul sub moveto FONT T2 show ishowL22 xu yu iyd 2 mul sub moveto FONT T3 show ishowL23} bind def /TEk33i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto FONT T1 show ishowL31 xu yu iyd 1 mul sub moveto FONT T2 show ishowL32 xu yu iyd 2 mul sub moveto FONT T3 show ishowL33} bind def %************************************************** /TEk3i1 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL11 xu yu iyd 1 mul sub moveto FONT T2 show ishowL21 xu yu iyd 2 mul sub moveto FONT T3 show ishowL31} bind def /TEk3i2 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL12 xu yu iyd 1 mul sub moveto FONT T2 show ishowL22 xu yu iyd 2 mul sub moveto FONT T3 show ishowL32} bind def /TEk3i3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL13 xu yu iyd 1 mul sub moveto FONT T2 show ishowL23 xu yu iyd 2 mul sub moveto FONT T3 show ishowL33} bind def %********************************* /A11 0.9093 def /A12 0.3338 def /A13 -0.0133 def /A21 1.0000 def /A22 0.0000 def /A23 0.0000 def /A31 0.4494 def /A32 -0.0574 def /A33 -0.4136 def %********************************* /B11 0.0000 def /B12 1.0000 def /B13 0.0000 def /B21 2.9797 def /B22 -2.6662 def /B23 -0.0960 def /B31 -0.4139 def /B32 1.4571 def /B33 -2.4046 def %********************************* /AL11 A11 def /AL12 A12 def /AL13 A13 def /AL21 A21 def /AL22 A22 def /AL23 A23 def /AL31 A11 A21 add A31 add def /AL32 A12 A22 add A32 add def /AL33 A13 A23 add A33 add def %********************************* /BE11 B11 B13 sub def /BE12 B12 B13 sub def /BE13 B13 def /BE21 B21 B23 sub def /BE22 B22 B23 sub def /BE23 B23 def /BE31 B31 B33 sub def /BE32 B32 B33 sub def /BE33 B33 def %********************************* /A51 BE21 def /A52 BE22 def /A53 BE23 def /B51 BE31 def /B52 BE32 def /B53 BE33 def %********************************* /na 2.8 def /nb 1.0 def /nax {TL (2,8) show} bind def /nbx {TL (1,0) show} bind def /aushow {TIL (a) show (u) isV} bind def /bushow {TIL (b) show (u) isV} bind def /anshow {TIL (a) show (n) isV} bind def /bnshow {TIL (b) show (n) isV} bind def /nashow {TIL (n) show (a) isV} bind def /nbshow {TIL (n) show (b) isV} bind def %not used gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 100 -200 moveto %(DG160-7) show xcolor 0 eq {(R, ) show} {(F, ) show} ifelse xchart 1 add cvishow } if %xbtex0=1 %/xchartl 3 def 1 1 1 {/xchartl exch def %xchartl=0,7 20 setlinewidth % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4300 -150 moveto (DG160-2A) show %xchartl 1 add cvishow %(A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** xchartl 0 eq {%xchartl=0 %STOP0 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( tristimulus and opponent values) showea (\252Spektral- und Gegenfarbenwerten) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 81.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 81.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (the coordinates ) showea (werden die Koordinaten ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3) ) show (are used instead of modern coordinates ) showea (benuzt anstelle von modernen Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL (.) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Lineare Modellgleichungen zwischen Farbspektralwerten in beiden Richtungen:) showde (Linear model equations between spectral colour values in both directions:) showea %****************************************** %left top /x00d 0060 def %space after KLa /x01d 0300 def %space before KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (x) (x) TEk3xlamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0750 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (b) (b) (b) TEk3i1 x103 y2 (b) (b) (b) TEk3i2 x104 y2 (b) (b) (b) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0050 def %space after KLa /x21d 0250 def %space before KLz /x200 1750 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,0000) ( 2,9797) (-0,4139) TE3 x103 y2 ( 1,0000) (-2,6662) ( 1,4571) TE3 x104 y2 ( 0,0000) (-0,0960) (-2,4046) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 250 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((1)) show %****************************************************************************** /y2 2100 def %****************************************** %left down /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0300 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right down %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 060 def %space after KLa /x21d 300 def %space before KLz /x200 4320 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %*********************************************** /y2 1500 def ix0 y2 iyd 0.3 mul add moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (X) show ishowL01 (, ) show TIL (X) show ishowL02 (, ) show TIL (X) show ishowL03 ( ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die unnormierten Farbartwerte ) showde (The unnormalized purity data ) showea aushow TL (and ) showea (und ) showde bushow TL (are defined in LabMUN 1969 as follows:) showea (sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto aushow TL (=) show TIL (X) show ishowL02 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (x) show ishowL02 TL (/) show TIL (x) show ishowL01 TL ( (3)) show ix0 1500 add y2 iyd 2 mul sub moveto bushow TL (=) show TIL (X) show ishowL03 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (x) show ishowL03 TL (/) show TIL (x) show ishowL01 TL ( (4)) show ix0 4000 add y2 iyd 2 mul sub moveto TIL (x) show ishowL03 TL (=1-) show TIL (x) show ishowL02 TL (-) show TIL (x) show ishowL01 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.3 mul sub moveto TL (Die unnormierten Farbartwerte ) showde (The unnormalized purity data ) showea aushow TL (and ) showea (und ) showde bushow TL (are defined in LabMUN 1969 as follows:) showea (sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 4.4 mul sub moveto aushow TL (=[\050) show TIL (b) show ishowL21 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL22 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL23 TL (]/) show TIL (y) show ix0 100 add y2 iyd 5.5 mul sub moveto TL (=\050) show TL B21 B23 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub cvsshow4x TIL (y) show TL B23 cvsshow4x TL (\051/) show TIL (y) show 5100 y2 iyd 5.5 mul sub moveto TL ((6)) show ix0 y2 iyd 7.0 mul sub moveto bushow TL (=[\050) show TIL (b) show ishowL31 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL32 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL33 TL (]/) show TIL (y) show ix0 100 add y2 iyd 8.1 mul sub moveto TL (=\050) show TL B31 B33 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B32 B33 sub cvsshow4x TIL (y) show TL B33 cvsshow4x (\051/) show TIL (y) show 5100 y2 iyd 8.1 mul sub moveto TL ((7)) show } if %xchartl=0 %***************************************************************** xchartl 1 eq {%xchartl=1 %STOP2 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( tristimulus and opponent values) showea (\252Spektral- und Gegenfarbenwerten) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 81.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 81.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (modern coordinates ) showea (werden hier moderne Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL ( ) show TL (are used instead of ) showea (benutzt anstelle von ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3). ) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Lineare Modellgleichungen zwischen Farbspektralwerten in beiden Richtungen:) showde (Linear model equations between spectral colour values in both directions:) showea %****************************************** %left top /x00d 0100 def %space after KLa /x01d 0300 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 (l) (a) (b) TEk30ilamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0750 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (b) (b) (b) TEk3i1 x103 y2 (b) (b) (b) TEk3i2 x104 y2 (b) (b) (b) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0050 def %space after KLa /x21d 0250 def %space before KLz /x200 1750 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,0000) ( 2,9797) (-0,4139) TE3 x103 y2 ( 1,0000) (-2,6662) ( 1,4571) TE3 x104 y2 ( 0,0000) (-0,0960) (-2,4046) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 250 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((1)) show %****************************************************************************** /y2 2100 def %****************************************** %left down /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right down %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %*********************************************** /y2 1500 def ix0 y2 iyd 0.3 mul add moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (L, A, B ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die unnormierten Farbartwerte ) showde (The unnormalized purity data ) showea aushow TL (and ) showea (und ) showde bushow TL (are defined in LabMUN 1969 as follows:) showea (sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto aushow TL (=) show TIL (X) show TL (/) show TIL (Y) show TL (=) show TIL (x) show TL (/) show TIL (y) show TL ( (3)) show ix0 1500 add y2 iyd 2 mul sub moveto bushow TL (=-) show TIL (Z) show TL (/) show TIL (Y) show TL (=-) show TIL (z) show TL (/) show TIL (y) show TL ( (4)) show ix0 4000 add y2 iyd 2 mul sub moveto TIL (z) show TL (=1-) show TIL (x) show TL (-) show TIL (y) show 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.3 mul sub moveto TL (Die Farbartwerte ) showde (The purity data ) showea aushow TL (and ) showea (und ) showde bushow TL (are defined in LabMUN 1969 as follows:) showea (sind in LabMUN wie folgt definiert:) showde ix0 y2 iyd 4.4 mul sub moveto anshow TL (=[\050) show TIL (b) show ishowL21 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL22 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL23 TL (]/) show TIL (y) show ix0 150 add y2 iyd 5.5 mul sub moveto TL (=\050) show TL B21 B23 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub cvsshow4x TIL (y) show TL B23 cvsshow4x TL (\051/) show TIL (y) show 5100 y2 iyd 5.5 mul sub moveto TL ((6)) show ix0 y2 iyd 6.7 mul sub moveto bnshow TL (=[\050) show TIL (b) show ishowL31 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL32 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL33 TL (]/) show TIL (y) show ix0 150 add y2 iyd 7.8 mul sub moveto TL (=\050) show TL B31 B33 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B32 B33 sub cvsshow4x TIL (y) show TL B33 cvsshow4x (\051/) show TIL (y) show 5100 y2 iyd 7.8 mul sub moveto TL ((7)) show } if %xchartl=1 %***************************************************************** xchartl 2 eq {%xchartl=2 %STOP1 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( tristimulus and opponent values) showea (\252Spektral- und Gegenfarbenwerten) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 81.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 81.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (the coordinates ) showea (werden die Koordinaten ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3) ) show (are used instead of modern coordinates ) showea (benuzt anstelle von modernen Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL (.) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Lineare Modellgleichungen zwischen Farbspektralwerten in beiden Richtungen:) showde (Linear model equations between spectral colour values in both directions:) showea %****************************************** %left top /x00d 0060 def %space after KLa /x01d 0300 def %space before KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (x) (x) TEk3xlamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0750 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (b) (b) (b) TEk3i1 x103 y2 (b) (b) (b) TEk3i2 x104 y2 (b) (b) (b) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0050 def %space after KLa /x21d 0250 def %space before KLz /x200 1750 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,0000) ( 2,9797) (-0,4139) TE3 x103 y2 ( 1,0000) (-2,6662) ( 1,4571) TE3 x104 y2 ( 0,0000) (-0,0960) (-2,4046) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 250 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((1)) show %****************************************************************************** /y2 2100 def %****************************************** %left down /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0300 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right down %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 060 def %space after KLa /x21d 300 def %space before KLz /x200 4320 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %*********************************************** /y2 1500 def ix0 y2 iyd 0.3 mul add moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (X) show ishowL01 (, ) show TIL (X) show ishowL02 (, ) show TIL (X) show ishowL03 ( ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die normierten Farbartwerte ) showde (The normalized purity data ) showea anshow TL ( and ) showea ( und ) showde bnshow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto anshow TL (=) show nashow aushow TL (=) show nashow TIL (X) show ishowL02 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (n) show (a) isV TIL (x) show ishowL02 TL (/) show TIL (x) show ishowL01 TIL (; ) show nashow TL (=) show nax TL ( (3)) show ix0 2500 add y2 iyd 2 mul sub moveto bnshow TL (=) show bushow TL (=) show TIL (X) show ishowL03 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (x) show ishowL03 TL (/) show TIL (x) show ishowL01 TL ( (4)) show ix0 4100 add y2 iyd 2 mul sub moveto TIL (x) show ishowL03 TL (=1-) show TIL (x) show ishowL02 TL (-) show TIL (x) show ishowL01 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.3 mul sub moveto TL (Die normierten Farbartwerte ) showde (The normalized purity data ) showea anshow TL ( and ) showea ( und ) showde bnshow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 4.4 mul sub moveto anshow TL (=) show nashow TL ([\050) show TIL (b) show ishowL21 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL22 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL23 TL (]/) show TIL (y) show ix0 150 add y2 iyd 5.5 mul sub moveto TL (=) show nax TL (\050) show TL B21 B23 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub cvsshow4x TIL (y) show TL B23 cvsshow4x TL (\051/) show TIL (y) show ix0 150 add y2 iyd 6.6 mul sub moveto TL (=\050) show TL B21 B23 sub na mul /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub na mul cvsshow4x TIL (y) show TL B23 na mul cvsshow4x TL (\051/) show TIL (y) show 5100 y2 iyd 6.6 mul sub moveto TL ((6)) show ix0 y2 iyd 7.9 mul sub moveto bnshow TL (=[\050) show TIL (b) show ishowL31 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL32 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL33 TL (]/) show TIL (y) show ix0 150 add y2 iyd 9.0 mul sub moveto TL (=\050) show TL B31 B33 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B32 B33 sub cvsshow4x TIL (y) show TL B33 cvsshow4x (\051/) show TIL (y) show 5100 y2 iyd 9.0 mul sub moveto TL ((7)) show } if %xchartl=2 %***************************************************************** xchartl 3 eq {%xchartl=3 %STOP3 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( tristimulus and opponent values) showea (\252Spektral- und Gegenfarbenwerten) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 81.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 81.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (modern coordinates ) showea (werden hier moderne Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL ( ) show TL (are used instead of ) showea (benutzt anstelle von ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3). ) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Lineare Modellgleichungen zwischen Farbspektralwerten in beiden Richtungen:) showde (Linear model equations between spectral colour values in both directions:) showea %****************************************** %left top /x00d 0100 def %space after KLa /x01d 0300 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 (l) (a) (b) TEk30ilamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0750 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (b) (b) (b) TEk3i1 x103 y2 (b) (b) (b) TEk3i2 x104 y2 (b) (b) (b) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0050 def %space after KLa /x21d 0250 def %space before KLz /x200 1750 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,0000) ( 2,9797) (-0,4139) TE3 x103 y2 ( 1,0000) (-2,6662) ( 1,4571) TE3 x104 y2 ( 0,0000) (-0,0960) (-2,4046) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 250 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (y) (z) TEk3lamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((1)) show %****************************************************************************** /y2 2100 def %****************************************** %left down /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right down %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %*********************************************** /y2 1500 def ix0 y2 iyd 0.3 mul add moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (L, A, B ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die normierten Farbartwerte ) showde (The normalized purity data ) showea anshow TL ( and ) showea ( und ) showde bnshow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto anshow TL (=) show nashow aushow TL (=) show nashow TIL (X) show TL (/) show TIL (Y) show TL (=) show nashow TIL (x) show TL (/) show TIL (y) show TIL (; ) show nashow TL (=2,8) show TL ( (3)) show ix0 2500 add y2 iyd 2 mul sub moveto bnshow TL (=) show bushow TL (=) show TIL (X) show TL (/) show TIL (Y) show TL (=) show TIL (x) show TL (/) show TIL (y) show TL ( (4)) show ix0 4100 add y2 iyd 2 mul sub moveto TIL (z) show TL (=1-) show TIL (x) show TL (-) show TIL (y) show 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.3 mul sub moveto TL (Die Farbartwerte ) showde (The normalized purity data ) showea anshow TL ( and ) showea ( und ) showde bnshow TL (are defined in LabMUN 1969 as follows:) showea (sind in LabMUN 1969 wie folgt definiert:) showde ix0 y2 iyd 4.4 mul sub moveto anshow TL (=) show nashow TL ([\050) show TIL (b) show ishowL21 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL22 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL23 TL (]/) show TIL (y) show ix0 150 add y2 iyd 5.5 mul sub moveto TL (=) show nax TL (\050) show TL B21 B23 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub cvsshow4x TIL (y) show TL B23 cvsshow4x TL (\051/) show TIL (y) show ix0 150 add y2 iyd 6.6 mul sub moveto TL (=\050) show TL B21 B23 sub na mul /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub na mul cvsshow4x TIL (y) show TL B23 na mul cvsshow4x TL (\051/) show TIL (y) show 5100 y2 iyd 6.6 mul sub moveto TL ((6)) show ix0 y2 iyd 7.9 mul sub moveto bnshow TL (=[\050) show TIL (b) show ishowL31 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL32 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL33 TL (]/) show TIL (y) show ix0 150 add y2 iyd 9.0 mul sub moveto TL (=\050) show TL B31 B33 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B32 B33 sub cvsshow4x TIL (y) show TL B33 cvsshow4x (\051/) show TIL (y) show 5100 y2 iyd 9.0 mul sub moveto TL ((7)) show } if %xchartl=3 %***************************************************************** xchartl 4 eq {%xchartl=4 %STOP4 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( purity and chromaticity) showea (\252Farbart- und Farbwertanteien) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 83.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 83.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (the coordinates ) showea (werden die Koordinaten ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3) ) show (are used instead of modern coordinates ) showea (benuzt anstelle von modernen Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL (.) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Beziehung zwischen Gegenfarben- und Farbspektralwerten:) showde (Relation between opponent and spectral colour values:) showea %****************************************** %left top /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0300 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 060 def %space after KLa /x21d 300 def %space before KLz /x200 4320 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %****************************************************************************** /y2 2150 def %****************************************** %left down ix0 y2 moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (X) show ishowL01 (, ) show TIL (X) show ishowL02 (, ) show TIL (X) show ishowL03 ( ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die unnormierten Farbartwerte ) showde (The unnormalized purity data ) showea aushow TL ( and ) showea ( und ) showde bushow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto aushow TL (=) show TIL (X) show ishowL02 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (x) show ishowL02 TL (/) show TIL (x) show ishowL01 TL ( (3)) show ix0 1700 add y2 iyd 2 mul sub moveto bushow TL (=) show TIL (X) show ishowL03 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (x) show ishowL03 TL (/) show TIL (x) show ishowL01 TL ( (4)) show ix0 4200 add y2 iyd 2 mul sub moveto TIL (x) show ishowL03 TL (=1-) show TIL (x) show ishowL02 TL (-) show TIL (x) show ishowL01 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.1 mul sub moveto (Use of equations (2) to (5) leads to:) showea (Benutzung von Gleichungen (2) bis (5) f\374hrt zu:) showde %****************************************************************************** /y2 1500 def %****************************************** %left down2 /x00d 0050 def %space after KLa /x01d 0100 def %space before KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 (X) (Y) (Z) TEk3 x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0500 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space 1 between numbers /x11a 0220 def %space before chromaticitiy a and b /x11b 0200 def %space 2 after chromaticitiy a and b /x12d 0130 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x103a x103 x11a add def /x104 x103a x11b add def /x104a x104 x11a add def /x105 x104a x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x103a y2 (a) (a) (a) TEk3u x104 y2 (a) (a) (a) TEk3i3 x104a y2 (b) (b) (b) TEk3u x105 y2 KLz %* x105 070 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0150 def %space before KLz /x200 1750 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (X) (X) (X) TEk301 x202 y2 KLz %= x202 150 add y2 iyd sub moveto TL ((6)) show ( and with ) showea ( und mit ) showde TIL (x) show (=) show TIL (X) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show TL ( and ) showea ( und ) showde TIL (y) show TL (=) show TIL (Y) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show 5100 y2 iyd sub moveto TL ((7)) show %****************************************************************************** /y2 1000 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL12 aushow TL (+) show TIL (a) show ishowL13 bushow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (+\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051) show aushow (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bushow TL (]) show %*********************************************** ix0 y2 iyd 1.1 mul sub moveto TIL (y) show TL (=[) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL22 aushow TL (+) show TIL (a) show ishowL23 bushow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (+\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051) show aushow (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bushow TL (]) show 5100 y2 iyd 0.55 mul sub moveto TL ((8)) show %****************************************************************************** /y2 0600 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=\050) show SL (a) show ishowL11 TL (+) show SL (a) show ishowL12 aushow TL (+) show SL (a) show ishowL13 bushow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 aushow TL (+) show SL (a) show ishowL33 bushow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A11 cvsshow4x /iplus 1 def TL A12 cvsshow4x aushow TL A13 cvsshow4x bushow TL (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add cvsshow4x aushow TL A13 A23 add A33 add cvsshow4x bushow TL(\051) show 5100 y2 iyd sub moveto TL ((9)) show %****************************************************************************** /y2 0250 def %****************************************** %left down4 %*********************************************** ix0 y2 moveto TIL (y) show TL (=\050) show SL (a) show ishowL21 TL (+) show SL (a) show ishowL22 aushow TL (+) show SL (a) show ishowL23 bushow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 aushow TL (+) show SL (a) show ishowL33 bushow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A21 cvsshow4x /iplus 1 def TL A22 cvsshow4x aushow TL A23 cvsshow4x bushow TL (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add cvsshow4x aushow TL A13 A23 add A33 add cvsshow4x bushow TL(\051) show 5100 y2 iyd sub moveto TL ((10)) show %****************************************** } if %xchartl=4 %***************************************************************** xchartl 5 eq {%xchartl=5 %STOP5 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( purity and chromaticity) showea (\252Farbart- und Farbwertanteien) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 83.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 83.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (modern coordinates ) showea (werden hier moderne Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL ( ) show TL (are used instead of ) showea (benutzt anstelle von ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3). ) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Beziehung zwischen Gegenfarben- und Farbspektralwerten:) showde (Relation between opponent and spectral colour values:) showea %****************************************** %left top /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %****************************************************************************** /y2 2150 def %****************************************** ix0 y2 moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (L, A, B ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die unnormierten Farbartwerte ) showde (The unnormalized purity data ) showea aushow TL ( and ) showea ( und ) showde bushow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto aushow TL (=) show TIL (X) show TL (/) show TIL (Y) show TL (=) show TIL (x) show TL (/) show TIL (z) show TL ( (3)) show ix0 1700 add y2 iyd 2 mul sub moveto bushow TL (=-) show TIL (Z) show TL (/) show TIL (Y) show TL (=-) show TIL (z) show TL (/) show TIL (y) show TL ( (4)) show ix0 4200 add y2 iyd 2 mul sub moveto TIL (z) show TL (=1-) show TIL (x) show TL (-) show TIL (y) show 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.1 mul sub moveto (Use of equations (2) to (5) leads to:) showea (Benutzung von Gleichungen (2) bis (5) f\374hrt zu:) showde %****************************************************************************** /y2 1500 def %****************************************** %left down2 /x00d 0050 def %space after KLa /x01d 0100 def %space before KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 (X) (Y) (Z) TEk3 x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0500 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space 1 between numbers /x11a 0220 def %space before chromaticitiy a and b /x11b 0200 def %space 2 after chromaticitiy a and b /x12d 0130 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x103a x103 x11a add def /x104 x103a x11b add def /x104a x104 x11a add def /x105 x104a x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x103a y2 (a) (a) (a) TEk3u x104 y2 (a) (a) (a) TEk3i3 x104a y2 (b) (b) (b) TEk3u x105 y2 KLz %* x105 070 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0080 def %space before KLz /x200 1750 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (L) (a) (b) TEk3 x202 y2 KLz %= x202 150 add y2 iyd sub moveto TL ((6)) show ( and with ) showea ( und mit ) showde TIL (x) show (=) show TIL (X) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show TL ( and ) showea ( und ) showde TIL (y) show TL (=) show TIL (Y) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show 5100 y2 iyd sub moveto TL ((7)) show %****************************************************************************** /y2 1000 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL12 aushow TL (+) show TIL (a) show ishowL13 bushow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (+\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051) show aushow (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bushow TL (]) show %*********************************************** ix0 y2 iyd 1.1 mul sub moveto TIL (y) show TL (=[) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL22 aushow TL (+) show TIL (a) show ishowL23 bushow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (+\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051) show aushow (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bushow TL (]) show 5100 y2 iyd 0.55 mul sub moveto TL ((8)) show %****************************************************************************** /y2 0600 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=\050) show SL (a) show ishowL11 TL (+) show SL (a) show ishowL12 aushow TL (+) show SL (a) show ishowL13 bushow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 aushow TL (+) show SL (a) show ishowL33 bushow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A11 cvsshow4x /iplus 1 def TL A12 cvsshow4x aushow TL A13 cvsshow4x bushow TL (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add cvsshow4x aushow TL A13 A23 add A33 add cvsshow4x bushow TL(\051) show 5100 y2 iyd sub moveto TL ((9)) show %****************************************************************************** /y2 0250 def %****************************************** %left down4 %*********************************************** ix0 y2 moveto TIL (y) show TL (=\050) show SL (a) show ishowL21 TL (+) show SL (a) show ishowL22 aushow TL (+) show SL (a) show ishowL23 bushow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 aushow TL (+) show SL (a) show ishowL33 bushow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A21 cvsshow4x /iplus 1 def TL A22 cvsshow4x aushow TL A23 cvsshow4x bushow TL (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add cvsshow4x aushow TL A13 A23 add A33 add cvsshow4x bushow TL(\051) show 5100 y2 iyd sub moveto TL ((10)) show %****************************************** } if %xchartl=5 %***************************************************************** xchartl 6 eq {%xchartl=6 %STOP6 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( purity and chromaticity) showea (\252Farbart- und Farbwertanteien) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 83.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 83.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (the coordinates ) showea (werden die Koordinaten ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3) ) show (are used instead of modern coordinates ) showea (benuzt anstelle von modernen Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL (.) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Beziehung zwischen Gegenfarben- und Farbspektralwerten:) showde (Relation between opponent and spectral colour values:) showea %****************************************** %left top /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0300 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 060 def %space after KLa /x21d 300 def %space before KLz /x200 4320 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 120 add (_) (_) (_) TEk3 x201 y2 (x) (x) (x) TEk3xlamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %****************************************************************************** /y2 2150 def %****************************************** %left down ix0 y2 moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (X) show ishowL01 (, ) show TIL (X) show ishowL02 (, ) show TIL (X) show ishowL03 ( ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die normierten Farbartwerte ) showde (The normalized purity data ) showea anshow TL ( and ) showea ( und ) showde bnshow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto anshow TL (=) show nashow aushow TL (=) show nashow TIL (X) show ishowL02 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (n) show (a) isV TIL (x) show ishowL02 TL (/) show TIL (x) show ishowL01 TIL (; ) show nashow TL (=2,8) show TL ( (3)) show ix0 2500 add y2 iyd 2 mul sub moveto bnshow TL (=) show bushow TL (=) show TIL (X) show ishowL03 TL (/) show TIL (X) show ishowL01 TL (=) show TIL (x) show ishowL03 TL (/) show TIL (x) show ishowL01 TL ( (4)) show ix0 4100 add y2 iyd 2 mul sub moveto TIL (x) show ishowL03 TL (=1-) show TIL (x) show ishowL02 TL (-) show TIL (x) show ishowL01 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.1 mul sub moveto (Use of equations (2) to (5) leads to:) showea (Benutzung von Gleichungen (2) bis (5) f\374hrt zu:) showde %****************************************************************************** /y2 1500 def %****************************************** %left down2 /x00d 0050 def %space after KLa /x01d 0100 def %space before KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 (X) (Y) (Z) TEk3 x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0500 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space 1 between numbers /x11a 0220 def %space before chromaticitiy a and b /x11b 0200 def %space 2 after chromaticitiy a and b /x12d 0130 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x103a x103 x11a add def /x104 x103a x11b add 100 add def /x104a x104 x11a add def /x105 x104a x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 050 sub y2 (a) (a) (a) TEk3i2 x103a 050 sub y2 (a) (a) (a) TEk3n x103a 100 add y2 (n) (n) (n) TEk3da x104 050 add y2 (a) (a) (a) TEk3i3 x104a 050 add y2 (b) (b) (b) TEk3n x105 050 add y2 KLz %* x105 120 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0150 def %space before KLz /x200 1870 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (X) (X) (X) TEk301 x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL ((6)) show ( with ) showea ( und mit ) showde TIL (x) show (=) show TIL (X) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show TL ( and ) showea ( und ) showde TIL (y) show TL (=) show TIL (Y) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show 5100 y2 iyd sub moveto TL ((7)) show %****************************************************************************** /y2 1000 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL12 anshow TL (/) show nashow TL (+) show TIL (a) show ishowL13 bnshow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (+\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051/) show nashow TL (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bnshow TL (]) show %*********************************************** ix0 y2 iyd 1.1 mul sub moveto TIL (y) show TL (=[) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL22 anshow TL (/) show nashow TL (+) show TIL (a) show ishowL23 bnshow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051/) show nashow TL (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bnshow TL (]) show 5100 y2 iyd 0.55 mul sub moveto TL ((8)) show %****************************************************************************** /y2 0600 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=\050) show SL (a) show ishowL11 TL (+) show SL (a) show ishowL12 anshow TL (+) show SL (a) show ishowL13 bnshow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 anshow TL (+) show SL (a) show ishowL33 bnshow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A11 cvsshow4x /iplus 1 def TL A12 na div cvsshow4x anshow TL A13 cvsshow4x bnshow (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add na div cvsshow4x anshow TL A13 A23 add A33 add cvsshow4x bnshow (\051) show 5100 y2 iyd sub moveto TL ((9)) show %****************************************************************************** /y2 0250 def %****************************************** %left down4 %*********************************************** ix0 y2 moveto TIL (y) show TL (=\050) show SL (a) show ishowL21 TL (+) show SL (a) show ishowL22 anshow TL (+) show SL (a) show ishowL23 bnshow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 anshow TL (+) show SL (a) show ishowL33 bnshow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A21 cvsshow4x /iplus 1 def TL A22 na div cvsshow4x anshow TL A23 cvsshow4x bnshow (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add na div cvsshow4x anshow TL A13 A23 add A33 add cvsshow4x bnshow (\051) show 5100 y2 iyd sub moveto TL ((10)) show %****************************************** } if %xchartl=6 %***************************************************************** xchartl 7 eq {%xchartl=7 %STOP7 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def 0 setgray ix0 yhoe 150 sub moveto TBL (Transformation zwischen den ) showde (Transformation between the ) showea TBIL (Judd) show TBL ( purity and chromaticity) showea (\252Farbart- und Farbwertanteien) showde ix0 yhoe 350 sub moveto TL (Daten siehe ) showde (Data see ) showea TIL (K. Richter, ) show TL (Dissertation, Universit\344t Basel (Schweiz), 1969, Seite 83.) showde (PhD thesis, University of Basel (Switzerland), 1969, page 83.) showea ix0 yhoe 400 sub iyd 1 mul sub moveto TL (F\374r die antagonistischen spektralen Elementarfarben) showde (For the antagonistic spectral elementary colours) showea ix0 yhoe 400 sub iyd 2 mul sub moveto SL (l) show ishowLB TL (= 475 nm, ) show SL (l) show ishowLG TL (= 502 nm, ) show SL (l) show ishowLY TL (= 574 nm, ) show SL (l) show ishowLR TL (= 494c nm ) show ix0 yhoe 400 sub iyd 3.1 mul sub moveto (modern coordinates ) showea (werden hier moderne Koordinaten ) showde TIL (l) show eshow- TL (, ) show TIL (a) show qshow- TL (, ) show TIL (b) show eshow- TL ( ) show TL (are used instead of ) showea (benutzt anstelle von ) showde TIL (x) show qshow- ishowLi TL ( (i=1 to 3). ) show %****************************************** /y2 2700 def %****************************************** ix0 y2 200 add moveto TL (Beziehung zwischen Gegenfarben- und Farbspektralwerten:) showde (Relation between opponent and spectral colour values:) showea %****************************************** %left top /x00d 0100 def %space after KLa /x01d 0250 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 120 add (_) (_) (_) TEk3 x001 y2 (x) (y) (z) TEk3lamda x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space between numbers /x12d 0200 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 y2 (a) (a) (a) TEk3i2 x104 y2 (a) (a) (a) TEk3i3 x105 y2 KLz %* x105 100 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 1700 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL (=) show %****************************************** %****************************************** %right top %************************************** /x100 2300 def %x-position for KLa /x10d 0040 def %special space after KLa /x11d 0650 def %space between numbers /x12d 0550 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,9093) ( 1,0000) ( 0,4494) TE3 x103 y2 ( 0,3338) ( 0,0000) (-0,0574) TE3 x104 y2 (-0,0133) ( 0,0000) (-0,4136) TE3 x105 y2 KLz %* x105 080 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 080 def %space after KLa /x21d 280 def %space before KLz /x200 4350 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (l) (a) (b) TEk30ilamda x202 y2 KLz 5100 y2 iyd sub moveto TL ((2)) show %****************************************************************************** /y2 2150 def %****************************************** ix0 y2 moveto TL (Die Farbwerte ) showde (The tristimulus values ) showea TIL (L, A, B ) show TL (und ) showde ( and ) showea TIL (X, Y, Z ) show TL (need the same transformations.) showea (erfordern die gleichen Transformationen.) showde ix0 y2 iyd 1 mul sub moveto TL (Die normierten Farbartwerte ) showde (The normalized purity data ) showea anshow TL ( and ) showea ( und ) showde bnshow TL ( are defined in LabMUN 1969 as follows:) showea ( sind wie folgt in LabMUN 1969 definiert:) showde ix0 y2 iyd 2 mul sub moveto anshow TL (=) show nashow aushow TL (=) show nashow TIL (X) show TL (/) show TIL (Y) show TL (=) show TIL (n) show (a) isV TIL (x) show TL (/) show TIL (y) show TIL (; ) show nashow TL (=2,8) show TL ( (3)) show ix0 2500 add y2 iyd 2 mul sub moveto bnshow TL (=) show bushow TL (=-) show TIL (Z) show TL (/) show TIL (Y) show TL (=) show TIL (z) show TL (/) show TIL (y) show TL ( (4)) show ix0 4100 add y2 iyd 2 mul sub moveto TIL (z) show TL (=1-) show TIL (x) show TL (-) show TIL (y) show 5100 y2 iyd 2 mul sub moveto TL ((5)) show ix0 y2 iyd 3.1 mul sub moveto (Use of equations (2) to (5) leads to:) showea (Benutzung von Gleichungen (2) bis (5) f\374hrt zu:) showde %****************************************************************************** /y2 1500 def %****************************************** %left down2 /x00d 0050 def %space after KLa /x01d 0100 def %space before KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for Phi(1-3) /x002 x001 x01d add def %x-pos for KLz /FONT {TIL} bind def x000 y2 KLa x001 y2 (X) (Y) (Z) TEk3 x002 y2 KLz %= x002 100 add y2 iyd sub moveto TL (=) show %************************************** /x100 0500 def %x-position for KLa /x10d 0050 def %special space after KLa /x11d 0300 def %space 1 between numbers /x11a 0220 def %space before chromaticitiy a and b /x11b 0200 def %space 2 after chromaticitiy a and b /x12d 0130 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x103a x103 x11a add def /x104 x103a x11b add 100 add def /x104a x104 x11a add def /x105 x104a x12d add def /FONT {TIL} bind def x101 y2 KLa x102 y2 (a) (a) (a) TEk3i1 x103 050 sub y2 (a) (a) (a) TEk3i2 x103a 050 sub y2 (a) (a) (a) TEk3n x103a 100 add y2 (n) (n) (n) TEk3da x104 050 add y2 (a) (a) (a) TEk3i3 x104a 050 add y2 (b) (b) (b) TEk3n x105 050 add y2 KLz %* x105 120 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0060 def %space after KLa /x21d 0150 def %space before KLz /x200 1870 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz /FONT {TIL} bind def x200 y2 KLa x201 y2 (L) (L) (L) TEk3 x202 y2 KLz %= x202 100 add y2 iyd sub moveto TL ((6)) show ( with ) showea ( und mit ) showde TIL (x) show (=) show TIL (X) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show TL ( and ) showea ( und ) showde TIL (y) show TL (=) show TIL (Y) show TL (/\050) show TIL (X) show TL (+) show TIL (Y) show TL (+) show TIL (Z) show TL (\051) show 5100 y2 iyd sub moveto TL ((7)) show %****************************************************************************** /y2 1000 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL12 anshow TL (/) show nashow TL (+) show TIL (a) show ishowL13 bnshow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (+\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051/) show nashow TL (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bnshow TL (]) show %*********************************************** ix0 y2 iyd 1.1 mul sub moveto TIL (y) show TL (=[) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL22 anshow TL (/) show nashow TL (+) show TIL (a) show ishowL23 bnshow TL (]/[) show TIL (a) show ishowL11 TL (+) show TIL (a) show ishowL21 TL (+) show TIL (a) show ishowL31 TL (\050) show TIL (a) show ishowL12 TL (+) show TIL (a) show ishowL22 TL (+) show TIL (a) show ishowL32 TL (\051/) show nashow TL (+\050) show TIL (a) show ishowL13 TL (+) show TIL (a) show ishowL23 TL (+) show TIL (a) show ishowL33 TL (\051) show bnshow TL (]) show 5100 y2 iyd 0.55 mul sub moveto TL ((8)) show %****************************************************************************** /y2 0600 def %****************************************** %left down3 %*********************************************** ix0 y2 moveto TIL (x) show TL (=\050) show SL (a) show ishowL11 TL (+) show SL (a) show ishowL12 anshow TL (+) show SL (a) show ishowL13 bnshow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 anshow TL (+) show SL (a) show ishowL33 bnshow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A11 cvsshow4x /iplus 1 def TL A12 na div cvsshow4x anshow TL A13 cvsshow4x bnshow (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add na div cvsshow4x anshow TL A13 A23 add A33 add cvsshow4x bnshow (\051) show 5100 y2 iyd sub moveto TL ((9)) show %****************************************************************************** /y2 0250 def %****************************************** %left down4 %*********************************************** ix0 y2 moveto TIL (y) show TL (=\050) show SL (a) show ishowL21 TL (+) show SL (a) show ishowL22 anshow TL (+) show SL (a) show ishowL23 bnshow TL (\051/\050) show SL (a) show ishowL31 TL (+) show SL (a) show ishowL32 anshow TL (+) show SL (a) show ishowL33 bnshow TL (\051) show ix0 100 add y2 iyd 1.1 mul sub moveto (=\050) show /iplus 0 def TL A21 cvsshow4x /iplus 1 def TL A22 na div cvsshow4x anshow TL A23 cvsshow4x bnshow (\051/\050) show /iplus 0 def TL A11 A21 add A31 add cvsshow4x /iplus 1 def TL A12 A22 add A32 add na div cvsshow4x anshow TL A13 A23 add A33 add cvsshow4x bnshow (\051) show 5100 y2 iyd sub moveto TL ((10)) show %****************************************** } if %xchartl=7 %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,7 showpage grestore %} for %output with langind end %%Trailer