%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG69/DG690-7R 20180801 %%BoundingBox: 70 82 226 330 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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/DG69/DG69.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:2018080112000) /ModDate (D:20180801112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 50 rmoveto show 0 -50 rmoveto TL} bind def /ibV {TBV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ebV {TBV 0 50 rmoveto show 0 -50 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 /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /sy {350 /Symbol FS show} bind def /is {280 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {280 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {280 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {280 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show TM} bind def /ks2 {280 /TimesI-ISOL1 FS show TM} bind def /bs2 {280 /TimesB-ISOL1 FS show TM} bind def /js2 {280 /TimesBI-ISOL1 FS show TM} bind def /sy2 {280 /Symbol FS show TM} bind def /is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {240 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {240 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {240 /Symbol FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /ss4 {240 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {200 /Symbol FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy6 {160 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def %80% kleiner /ns8 {160 /Times-ISOL1 FS show TS} bind def /ks8 {160 /TimesI-ISOL1 FS show TS} bind def /bs8 {160 /TimesB-ISOL1 FS show TS} bind def /js8 {160 /TimesBI-ISOL1 FS show TS} bind def /ss8 {160 /Symbol FS show TS} bind def /is8 {120 /Times-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /es8 {120 /Times-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ib8 {120 /TimesB-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /eb8 {120 /TimesB-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ip8 {120 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy8 {120 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} 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 %****************************************************************** /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 /ishowL1 {0 -40 rmoveto TV (1) show 0 40 rmoveto} bind def /ishowL2 {0 -40 rmoveto TV (2) show 0 40 rmoveto} 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 /ishowLi {0 -40 rmoveto TV (i) show 0 40 rmoveto TL} bind def /qshow- {-40 60 rmoveto TL (-) show -00 -60 rmoveto TL} bind def /eshow- {-40 90 rmoveto TL (-) show -00 -90 rmoveto TL} bind def /gshow- {-20 90 rmoveto TL (-) show -00 -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 /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 %********************************* /DOW 82 array def /DOWZ 17 array def /F02Z 51 array def /F10Z 51 array def /DOWZ %17 data [700 -495 -500 -505 -510 -515 -520 -525 -530 -535 -540 -545 -550 -555 -560 -565 400] def /F02Z %3x17 data 700 ... 400 [.01136 .01141 .01158 .01169 .01176 .01182 .01187 .01191 .01195 .01199 .01204 .01210 .01219 .01232 .01254 .01300 .01431 .00410 .00404 .00383 .00369 .00359 .00352 .00346 .00342 .00337 .00331 .00325 .00317 .00306 .00289 .00262 .00205 .00040 .00000 .00118 .00507 .00754 .00930 .01064 .01167 .01256 .01346 .01445 .01562 .01709 .01910 .02210 .02718 .03765 .06785] def /F10Z %3x17 data 700 ... 400 [.00958 .01015 .01037 .01053 .01065 .01075 .01085 .01096 .01108 .01122 .01139 .01163 .01201 .01268 .01416 .02078 .01911 .00372 .00361 .00357 .00355 .00352 .00351 .00349 .00347 .00345 .00342 .00339 .00335 .00328 .00316 .00289 .00170 .00200 .00000 .00517 .00718 .00858 .00972 .01063 .01150 .01245 .01354 .01478 .01635 .01856 .02194 .02795 .04136 .10106 .08601] 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 /bashow {TBIL (n) show (a) ibV} bind def /bbshow {TBIL (n) show (b) ibV} bind def /paushow {TIL (p) show (au) isV} bind def /pbushow {TIL (p) show (bu) isV} bind def /prushow {TIL (p) show (ru) isV} bind def /panshow {TIL (p) show (an) isV} bind def /pbnshow {TIL (p) show (bn) isV} bind def /prnshow {TIL (p) show (rn) isV} bind def /panushow {TIL (p) show (anu) isV} bind def /pbnushow {TIL (p) show (bnu) isV} bind def /prnushow {TIL (p) show (rnu) isV} bind def /paubshow {TBIL (p) show (au) ibV} bind def /pbubshow {TBIL (p) show (bu) ibV} bind def /prubshow {TBIL (p) show (ru) ibV} bind def /panbshow {TBIL (p) show (an) ibV} bind def /pbnbshow {TBIL (p) show (bn) ibV} bind def /prnbshow {TBIL (p) show (rn) ibV} bind def /panubshow {TBIL (p) show (anu) ibV} bind def /pbnubshow {TBIL (p) show (bnu) ibV} bind def /prnubshow {TBIL (p) show (rnu) ibV} bind def %Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconr [0 0 0 1 1 1 ] def /Icong [0 1 1 1 0 0 ] def /Iconb [1 1 0 0 0 1 ] def %CE700-7R_13_01_13_03_14_02.TXT 180814 with xchart15=1 %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, CIE02 %O5002xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O5002xyzq 800 array def /O5002xyzq [%BEG OS5002xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (561c) 396 31.24 12.19 76.70 0.260 0.101 0.638 %29 (561) 561 619 490 #37 (463) 463 13.25 06.34 78.11 0.135 0.064 0.799 %30 (568) 568 495c 495 #00 (466) 466 13.27 08.01 79.21 0.132 0.079 0.788 %31 (569) 569 500c 500 #01 (471) 471 13.39 12.66 80.68 0.125 0.118 0.755 %32 (571) 571 510c 510 #02 (475) 475 14.00 19.22 81.44 0.122 0.167 0.710 %33 (573) 573 520c 520 #03 Bm (479) 479 15.61 27.50 81.85 0.124 0.220 0.654 %34 (577) 577 530c 530 #04 (481) 481 18.42 36.66 82.05 0.134 0.267 0.598 %35 (581) 581 540c 540 #05 (483) 483 20.35 41.45 82.11 0.141 0.288 0.570 %36 (583) 583 545c 545 #06 (484) 484 22.64 46.29 82.14 0.149 0.306 0.543 %37 (585) 585 550c 550 #07 %(484) 484 22.64 46.29 82.14 0.149 0.306 0.543 %38 (585) 585 554c 555 # (485) 485 25.29 51.06 82.16 0.159 0.322 0.518 %39 (587) 587 559c 560 #08 (486) 486 29.62 57.81 81.63 0.175 0.341 0.482 %00 (592) 592 405 564 #09 Cm (490) 490 26.32 58.17 63.51 0.177 0.393 0.429 %01 (631) 631 435 565 #10 (497) 497 23.01 58.66 42.48 0.185 0.472 0.342 %02 (497c) 702 450 566 #11 (501) 501 22.62 59.57 35.19 0.192 0.507 0.299 %03 (501c) 706 460 567 #12 (506) 506 22.26 60.29 28.28 0.200 0.543 0.255 %04 (506c) 711 465 568 #13 (519) 519 21.83 61.02 17.06 0.218 0.610 0.170 %05 (519c) 724 470 570 #14 (522) 522 24.04 63.42 17.06 0.230 0.606 0.163 %06 (522c) 727 475 573 #15 Gm (535) 535 27.22 66.19 09.71 0.263 0.641 0.094 %07 (535c) 740 480 578 #16 (544) 544 35.20 72.16 07.33 0.306 0.629 0.063 %08 (544c) 749 485 587 #17 (561) 561 65.07 87.80 05.54 0.410 0.554 0.034 %09 (561c) 766 490 619 #18 (568) 568 83.05 93.65 04.13 0.459 0.517 0.022 %10 (463) 463 495 495c #19 (569) 569 83.03 91.98 03.02 0.466 0.516 0.017 %11 (466) 466 500 500c #20 (571) 571 82.92 87.33 01.55 0.482 0.508 0.009 %12 (471) 471 510 510c #21 (573) 573 82.30 80.77 00.80 0.502 0.492 0.004 %13 (475) 475 520 520c #22 Ym (577) 577 80.69 72.49 00.38 0.525 0.472 0.002 %14 (479) 479 530 530c #23 (581) 581 77.88 63.33 00.18 0.550 0.447 0.001 %15 (481) 481 540 540c #24 (583) 583 75.96 58.54 00.13 0.564 0.434 0.000 %16 (483) 483 545 545c #25 (585) 585 73.67 53.70 00.09 0.577 0.421 0.000 %17 (484) 484 550 550c #26 %(585) 585 73.67 53.70 00.09 0.577 0.421 0.000 %18 (484) 484 555 554c # (587) 587 71.02 48.93 00.07 0.591 0.407 0.000 %19 (485) 485 560 559c #27 (592) 592 66.69 42.18 00.61 0.609 0.385 0.005 %20 (486) 486 564 405 #28 Rm (631) 631 69.99 41.82 18.72 0.536 0.320 0.143 %21 (490) 490 565 435 #29 (497c) 702 73.30 41.33 39.75 0.474 0.267 0.257 %22 (497) 497 566 450 #30 (501c) 706 73.69 40.42 47.04 0.457 0.250 0.291 %23 (501) 501 567 460 #31 (506c) 711 74.05 39.70 53.95 0.441 0.236 0.321 %24 (506) 506 568 465 #32 (519c) 724 74.48 38.97 65.18 0.416 0.218 0.364 %25 (519) 519 570 470 #33 (522c) 727 72.27 36.57 65.17 0.415 0.210 0.374 %26 (522) 522 573 475 #34 Mm (535c) 740 69.09 33.80 72.53 0.393 0.192 0.413 %27 (535) 535 578 480 #35 (544c) 749 61.10 27.83 74.91 0.372 0.169 0.457 %28 (544) 544 587 485 #36 (561c) 766 31.24 12.19 76.70 0.260 0.101 0.638 %29 (561) 561 619 490 #37 (463) 463 13.25 06.34 78.11 0.135 0.064 0.799 %30 (568) 568 495c 495 #38 %380...780 96.31 99.99 82.24 0.345 0.358 0.295 % D50, CIE02 # ] def %END O5002xyzq /XuO5002 96.31 def /YuO5002 99.99 def /ZuO5002 82.24 def /IMO5002 39 def /I1O5002 30 def /I2O5002 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-001030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB,10 for D50, Yw,10=100, Ym=520_770, CIE10 %O5010xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE10 /O5010xyzq 800 array def /O5010xyzq [%BEG OS_D50_CIE10xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (541c) 376 55.24 26.06 71.09 0.362 0.171 0.466 %27 (541) 541 590 480 #37 (458) 458 13.22 07.40 75.88 0.137 0.076 0.786 %28 (563) 563 485c 485 #00 (460) 460 13.26 08.90 77.34 0.133 0.089 0.777 %29 (564) 564 490c 490 #01 (462) 462 13.28 10.68 78.42 0.129 0.104 0.765 %30 (565) 565 495c 495 #02 (462) 462 13.28 10.68 78.42 0.129 0.104 0.765 %31 (565) 565 499c 500 #03 (468) 468 13.66 17.92 80.20 0.122 0.160 0.717 %32 (568) 568 510c 510 #04 (471) 471 14.70 24.41 80.73 0.122 0.203 0.673 %33 (571) 571 520c 520 #05 (473) 473 15.60 28.17 80.89 0.125 0.226 0.648 %34 (573) 573 529c 530 #06 (475) 475 18.32 36.37 81.08 0.134 0.267 0.597 %35 (577) 577 539c 540 #07 (477) 477 22.35 45.10 81.16 0.150 0.303 0.546 %36 (581) 581 545c 545 #08 (477) 477 22.35 45.10 81.16 0.150 0.303 0.546 %37 (581) 581 549c 550 #09 (479) 479 27.82 53.94 81.17 0.170 0.331 0.498 %38 (587) 587 555c 555 #10 (480) 480 30.64 58.21 79.20 0.182 0.346 0.471 %39 (591) 591 411 560 #11 %(479) 479 29.03 55.95 80.23 0.175 0.338 0.485 %00 (589) 589 405 559 # (484) 484 25.67 56.42 59.80 0.180 0.397 0.421 %01 (692) 692 435 560 #12 (492) 492 22.50 56.65 38.03 0.192 0.483 0.324 %02 (492c) 697 450 562 #13 (503) 503 21.56 57.40 24.28 0.208 0.555 0.235 %03 (503c) 708 460 564 #14 (512) 512 22.19 58.45 18.53 0.223 0.589 0.186 %04 (512c) 717 465 566 #15 (521) 521 24.28 60.61 13.79 0.246 0.614 0.139 %05 (521c) 726 470 570 #16 (531) 531 29.00 64.47 10.07 0.280 0.622 0.097 %06 (531c) 736 475 576 #17 (541) 541 41.39 73.93 10.07 0.330 0.589 0.080 %07 (541c) 746 480 590 #18 (563) 563 83.41 92.59 05.28 0.460 0.510 0.029 %08 (458) 458 485 485c #19 (564) 564 83.37 91.09 03.82 0.467 0.510 0.021 %09 (460) 460 490 490c #20 (565) 565 83.35 89.31 02.74 0.475 0.509 0.015 %10 (462) 462 495 495c #21 (565) 565 83.35 89.31 02.74 0.475 0.509 0.015 %11 (462) 462 500 499c #22 (568) 568 82.96 82.07 00.96 0.499 0.494 0.005 %12 (468) 468 510 510c #23 (571) 571 81.93 75.58 00.44 0.518 0.478 0.002 %13 (471) 471 520 520c #24 (573) 573 81.03 71.82 00.27 0.529 0.469 0.001 %14 (473) 473 530 529c #25 (577) 577 78.31 63.62 00.08 0.551 0.447 0.000 %15 (475) 475 540 539c #26 (581) 581 74.28 54.89 00.01 0.574 0.424 0.000 %16 (477) 477 545 545c #27 (581) 581 74.28 54.89 00.01 0.574 0.424 0.000 %17 (477) 477 550 549c #28 (587) 587 68.81 46.05 00.00 0.599 0.400 0.000 %18 (479) 479 555 555c #29 %(591) 591 65.99 41.78 01.97 0.601 0.380 0.017 %19 (480) 480 560 411 # (589) 589 67.60 44.04 00.93 0.600 0.391 0.008 %20 (479) 479 559 405 #30 (692) 692 70.96 43.57 21.37 0.522 0.320 0.157 %21 (484) 484 560 435 #31 (492c) 697 74.12 43.34 43.14 0.461 0.269 0.268 %22 (492) 492 562 450 #32 (503c) 708 75.07 42.59 56.88 0.430 0.244 0.325 %23 (503) 503 564 460 #33 (512c) 717 74.44 41.54 62.63 0.416 0.232 0.350 %24 (512) 512 566 465 #34 (521c) 726 72.35 39.38 67.38 0.403 0.219 0.376 %25 (521) 521 570 470 #35 (531c) 736 67.63 35.52 71.09 0.388 0.203 0.408 %26 (531) 531 576 475 #36 (541c) 746 55.24 26.06 71.09 0.362 0.171 0.466 %27 (541) 541 590 480 #37 (458) 458 13.22 07.40 75.88 0.137 0.076 0.786 %28 (563) 563 485c 485 #38 %380...780 96.63 100.00 81.17 0.347 0.359 0.292 % D50, CIE10 # ] def %END O5010xyzq /XuO5010 96.63 def /YuO5010 100.00 def /ZuO5010 81.17 def /IMO5010 39 def /I1O5010 32 def /I2O5010 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-002030-L0 CE700-7R %O50F02xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIEF02 /O50F02xyzq 800 array def /O50F02xyzq [%BEG O50F02xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (551c) 386 51.50 23.94 74.68 0.343 0.159 0.497 %28 (551) 551 597 485 #37 (460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %29 (568) 568 490c 490 #00 %(460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %30 (568) 568 494c 495 # (465) 465 12.41 09.58 78.25 0.123 0.095 0.780 %31 (569) 569 500c 500 #01 (467) 467 12.45 11.64 78.88 0.120 0.113 0.765 %32 (570) 570 509c 510 #02 (473) 473 13.31 20.43 79.83 0.117 0.179 0.702 %33 (573) 573 520c 520 #03 (475) 475 14.02 24.19 79.97 0.118 0.204 0.676 %34 (575) 575 529c 530 #04 (479) 479 17.82 36.92 80.16 0.132 0.273 0.594 %35 (580) 580 540c 540 #05 (479) 479 17.82 36.92 80.16 0.132 0.273 0.594 %36 (580) 580 544c 545 #06 (481) 481 21.98 46.03 80.20 0.148 0.310 0.541 %37 (585) 585 550c 550 #07 (481) 481 21.98 46.03 80.20 0.148 0.310 0.541 %38 (585) 585 554c 555 #08 (483) 483 27.52 55.03 80.21 0.169 0.338 0.492 %39 (590) 590 560c 560 #09 (484) 484 28.85 57.21 79.07 0.174 0.346 0.478 %00 (592) 592 405 565 #10 (489) 489 25.36 57.41 57.70 0.180 0.408 0.410 %01 (489c) 694 435 565 #11 (497) 497 22.33 57.50 36.81 0.191 0.492 0.315 %02 (497c) 702 450 566 #12 (505) 505 21.31 58.03 24.30 0.205 0.559 0.234 %03 (505c) 710 460 568 #13 (512) 512 21.41 58.69 18.79 0.216 0.593 0.190 %04 (512c) 717 465 569 #14 (521) 521 22.42 59.91 14.10 0.232 0.621 0.146 %05 (521c) 726 470 571 #15 (524) 524 25.32 62.97 14.10 0.247 0.614 0.137 %06 (524c) 729 475 575 #16 (539) 539 30.29 66.55 07.57 0.290 0.637 0.072 %07 (539c) 744 480 581 #17 (551) 551 44.95 76.05 05.53 0.355 0.600 0.043 %08 (551c) 756 485 597 #18 (568) 568 84.08 93.45 04.02 0.463 0.514 0.022 %09 (460) 460 490 490c #19 (568) 568 84.08 93.45 04.02 0.463 0.514 0.022 %10 (460) 460 495 494c #20 (569) 569 84.05 90.41 01.96 0.476 0.512 0.011 %11 (465) 465 500 500c #21 (570) 570 84.00 88.35 01.33 0.483 0.508 0.007 %12 (467) 467 510 509c #22 (573) 573 83.15 79.56 00.38 0.509 0.487 0.002 %13 (473) 473 520 520c #23 (575) 575 82.44 75.80 00.24 0.520 0.478 0.001 %14 (475) 475 530 529c #24 (580) 580 78.64 63.07 00.05 0.554 0.444 0.000 %15 (479) 479 540 540c #25 (580) 580 78.64 63.07 00.05 0.554 0.444 0.000 %16 (479) 479 545 544c #26 %(585) 585 74.48 53.96 00.02 0.579 0.420 0.000 %17 (481) 481 550 550c # (585) 585 74.48 53.96 00.02 0.579 0.420 0.000 %18 (481) 481 555 554c #27 (590) 590 68.94 44.96 00.00 0.605 0.394 0.000 %19 (483) 483 560 560c #28 (592) 592 67.61 42.78 01.14 0.606 0.383 0.010 %20 (484) 484 565 405 #29 (489c) 694 71.10 42.58 22.52 0.521 0.312 0.165 %21 (489) 489 565 435 #30 (497c) 702 74.12 42.49 43.40 0.463 0.265 0.271 %22 (497) 497 566 450 #31 (505c) 710 75.15 41.96 55.91 0.434 0.242 0.323 %23 (505) 505 568 460 #32 (512c) 717 75.05 41.30 61.43 0.422 0.232 0.345 %24 (512) 512 569 465 #33 (521c) 726 74.04 40.08 66.11 0.410 0.222 0.366 %25 (521) 521 571 470 #34 (524c) 729 71.14 37.02 66.11 0.408 0.212 0.379 %26 (524) 524 575 475 #35 (539c) 744 66.16 33.44 72.64 0.384 0.194 0.421 %27 (539) 539 581 480 #36 (551c) 756 51.50 23.94 74.68 0.343 0.159 0.497 %28 (551) 551 597 485 #37 (460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %29 (568) 568 490c 490 #38 %380...780 96.46 100.00 80.22 0.348 0.361 0.289 % D50, CIEF02 # ] def %END O50F02xyzq /XuO50F02 96.46 def /YuO50F02 100.00 def /ZuO50F02 82.22 def /IMO50F02 39 def /I1O50F02 30 def /I2O50F02 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-003030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB,F10 for D50, Yw,F10=100, Ym=520_770, CIEF10 %O50F10xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50F10xyzq 800 array def /O50F10xyzq [%BEG O50F10xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (545c) 380 52.92 25.78 74.65 0.345 0.168 0.486 %27 (545) 545 592 480 #37 (455) 455 13.14 06.61 74.65 0.139 0.070 0.790 %28 (563) 563 484c 485 #00 (460) 460 13.28 09.49 77.95 0.131 0.094 0.773 %29 (564) 564 490c 490 #01 (462) 462 13.30 11.32 78.97 0.128 0.109 0.762 %30 (565) 565 495c 495 #02 (464) 464 13.34 13.45 79.69 0.125 0.126 0.748 %31 (566) 566 500c 500 #03 (468) 468 13.69 18.67 80.47 0.121 0.165 0.713 %32 (568) 568 510c 510 #04 (471) 471 14.73 25.21 80.80 0.122 0.208 0.669 %33 (571) 571 520c 520 #05 (472) 472 15.63 28.96 80.89 0.124 0.230 0.644 %34 (573) 573 529c 530 #06 (475) 475 18.33 37.06 80.98 0.134 0.271 0.593 %35 (577) 577 539c 540 #07 (477) 477 22.39 45.70 81.01 0.150 0.306 0.543 %36 (581) 581 545c 545 #08 %(477) 477 22.39 45.70 81.01 0.150 0.306 0.543 %37 (581) 581 549c 550 # (477) 477 24.94 50.08 81.02 0.159 0.320 0.519 %38 (584) 584 554c 555 #09 (479) 479 30.58 58.60 78.68 0.182 0.349 0.468 %39 (591) 591 412 560 #10 (479) 479 29.07 56.38 80.12 0.175 0.340 0.483 %00 (588) 588 405 559 #11 (484) 484 25.63 56.72 59.32 0.180 0.400 0.418 %01 (484c) 689 435 560 #12 (492) 492 22.37 56.85 36.73 0.192 0.490 0.316 %02 (492c) 697 450 562 #13 (503) 503 21.57 57.63 22.95 0.211 0.564 0.224 %03 (503c) 708 460 564 #14 (511) 511 22.30 58.68 17.25 0.227 0.597 0.175 %04 (511c) 716 465 566 #15 (521) 521 24.56 60.88 12.62 0.250 0.620 0.128 %05 (521c) 726 470 570 #16 (532) 532 29.89 65.13 09.04 0.287 0.625 0.086 %06 (532c) 737 475 577 #17 (545) 545 43.82 74.21 06.37 0.352 0.596 0.051 %07 (545c) 750 480 592 #18 (563) 563 83.59 93.38 06.37 0.455 0.509 0.034 %08 (455) 455 485 484c #19 (564) 564 83.45 90.50 03.08 0.471 0.511 0.017 %09 (460) 460 490 490c #20 (565) 565 83.43 88.67 02.06 0.479 0.509 0.011 %10 (462) 462 495 495c #21 (566) 566 83.39 86.54 01.34 0.486 0.505 0.007 %11 (464) 464 500 500c #22 (568) 568 83.04 81.32 00.56 0.503 0.493 0.003 %12 (468) 468 510 510c #23 (571) 571 82.00 74.78 00.23 0.522 0.476 0.001 %13 (471) 471 520 520c #24 (573) 573 81.10 71.03 00.14 0.532 0.466 0.000 %14 (472) 472 530 529c #25 (577) 577 78.40 62.93 00.05 0.554 0.445 0.000 %15 (475) 475 540 539c #26 (581) 581 74.34 54.29 00.02 0.577 0.421 0.000 %16 (477) 477 545 545c #27 %(581) 581 74.34 54.29 00.02 0.577 0.421 0.000 %17 (477) 477 550 549c # (584) 584 71.79 49.91 00.01 0.589 0.410 0.000 %18 (477) 477 555 554c #28 (591) 591 66.15 41.39 02.34 0.601 0.376 0.021 %19 (479) 479 560 412 #29 (588) 588 67.67 43.61 00.91 0.603 0.388 0.008 %20 (479) 479 559 405 #30 (484c) 689 71.10 43.27 21.71 0.522 0.317 0.159 %21 (484) 484 560 435 #31 (492c) 697 74.36 43.14 44.30 0.459 0.266 0.273 %22 (492) 492 562 450 #32 (503c) 708 75.16 42.36 58.08 0.428 0.241 0.330 %23 (503) 503 564 460 #33 (511c) 716 74.43 41.31 63.78 0.414 0.230 0.355 %24 (511) 511 566 465 #34 (521c) 726 72.17 39.11 68.41 0.401 0.217 0.380 %25 (521) 521 570 470 #35 (532c) 737 66.84 34.86 71.99 0.384 0.200 0.414 %26 (532) 532 577 475 #36 (545c) 750 52.92 25.78 74.65 0.345 0.168 0.486 %27 (545) 545 592 480 #37 (455) 455 13.14 06.61 74.65 0.139 0.070 0.790 %28 (563) 563 484c 485 #38 %380...780 96.74 100.00 81.03 0.348 0.359 0.291 % D50, CIEF10 # ] def %END O50F10xyzq /XuO50F10 96.74 def /YuO50F10 100.00 def /ZuO50F10 81.03 def /IMO50F10 39 def /I1O50F10 31 def /I2O50F10 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, R17M %O50R17Mxyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50R17Mxyzq 800 array def /O50R17Mxyzq [%BEG OR17Mxyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (538c) 373 50.84 23.58 64.46 0.366 0.169 0.464 %28 (538) 538 589 485 #32 (450) 450 26.22 10.37 70.14 0.245 0.097 0.657 %29 (553) 553 630 490 #00 (463) 463 19.81 09.03 72.38 0.195 0.089 0.715 %30 (557) 557 495c 495 #01 (465) 465 19.87 11.18 74.25 0.188 0.106 0.705 %31 (558) 558 500c 500 #02 (470) 470 20.04 16.47 77.00 0.176 0.145 0.678 %32 (561) 561 510c 510 #03 (474) 474 20.76 23.15 78.71 0.169 0.188 0.641 %33 (565) 565 520c 520 #04 (477) 477 22.69 31.32 79.75 0.169 0.234 0.596 %34 (570) 570 530c 530 #05 (479) 479 24.27 35.77 80.07 0.173 0.255 0.571 %35 (572) 572 539c 540 #06 (481) 481 28.86 45.22 80.48 0.186 0.292 0.520 %36 (578) 578 545c 545 #07 %(481) 481 28.86 45.22 80.48 0.186 0.292 0.520 %37 (578) 578 549c 550 # %(499) 499 18.37 49.10 38.38 0.173 0.463 0.362 %38 (499c) 704 457 555 # %(509) 509 18.84 52.92 27.66 0.189 0.532 0.278 %39 (509c) 714 468 560 # (482) 482 30.21 48.30 79.14 0.191 0.306 0.501 %00 (581) 581 405 550 #08 (487) 487 26.13 48.90 65.45 0.186 0.348 0.465 %01 (600) 600 435 551 #09 (496) 496 20.48 50.06 44.06 0.178 0.436 0.384 %02 (496c) 701 450 553 #10 (500) 500 20.60 52.31 38.55 0.184 0.469 0.345 %03 (500c) 705 460 555 #11 (509) 509 19.40 53.50 28.42 0.191 0.527 0.280 %04 (509c) 714 465 558 #12 (511) 511 21.83 56.54 28.46 0.204 0.529 0.266 %05 (511c) 716 470 561 #13 (518) 518 24.65 60.36 24.01 0.226 0.553 0.220 %06 (518c) 723 475 566 #14 (530) 530 29.99 65.40 16.35 0.268 0.585 0.146 %07 (530c) 735 480 574 #15 (538) 538 43.18 76.41 16.37 0.317 0.561 0.120 %08 (538c) 743 485 589 #16 (553) 553 67.80 89.62 10.69 0.403 0.533 0.063 %09 (450) 450 490 630 #17 (557) 557 74.22 90.96 08.45 0.427 0.523 0.048 %10 (463) 463 495 495c #18 (558) 558 74.15 88.81 06.58 0.437 0.523 0.038 %11 (465) 465 500 500c #19 (561) 561 73.98 83.52 03.84 0.458 0.517 0.023 %12 (470) 470 510 510c #20 (565) 565 73.27 76.84 02.12 0.481 0.504 0.013 %13 (474) 474 520 520c #21 (570) 570 71.33 68.67 01.09 0.505 0.486 0.007 %14 (477) 477 530 530c #22 (572) 572 69.75 64.22 00.76 0.517 0.476 0.005 %15 (479) 479 540 539c #23 (578) 578 65.16 54.77 00.35 0.541 0.455 0.002 %16 (481) 481 545 545c #24 %(578) 578 65.16 54.77 00.35 0.541 0.455 0.002 %17 (481) 481 550 549c # %(499c) 704 75.66 50.89 42.45 0.447 0.301 0.251 %18 (499) 499 555 457 # %(509c) 714 75.18 47.07 53.17 0.428 0.268 0.303 %19 (509) 509 560 468 # (581) 581 63.81 51.69 01.69 0.544 0.441 0.014 %20 (482) 482 550 405 #25 (600) 600 67.89 51.09 15.38 0.505 0.380 0.114 %21 (487) 487 551 435 #26 (500c) 705 73.42 47.68 42.28 0.449 0.291 0.258 %23 (500) 500 555 460 #27 (509c) 714 74.62 46.49 52.41 0.430 0.267 0.302 %24 (509) 509 558 465 #28 (511c) 716 72.19 43.45 52.37 0.429 0.258 0.311 %25 (511) 511 561 470 #29 (518c) 723 69.37 39.63 56.82 0.418 0.238 0.342 %26 (518) 518 566 475 #30 (530c) 735 64.03 34.59 64.49 0.392 0.212 0.395 %27 (530) 530 574 480 #31 (538c) 743 50.84 23.58 64.46 0.366 0.169 0.464 %28 (538) 538 589 485 #32 (450) 450 26.22 10.37 70.14 0.245 0.097 0.657 %29 (553) 553 630 490 #33 %380...780 94.03 100.00 80.84 0.342 0.363 0.294 % D50, R17M # ] def %END O50R17Mxyzq /XuO50R17M 94.03 def /YuO50R17M 100.00 def /ZuO50R17M 80.84 def /IMO50R17M 34 def /I1O50R17M 27 def /I2O50R17M 32 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 34] def /Icona [12 18 24 31 34 05] def %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, R17Ms %O50R17Msxyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50R17Msxyzq 800 array def /O50R17Msxyzq [%BEG O50R17Msxyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (540c) 375 52.09 25.14 67.63 0.359 0.173 0.466 %28 (540) 540 589 485 #35 (444) 444 27.16 09.33 67.62 0.260 0.089 0.649 %29 (552) 552 630 490 #00 (463) 463 21.19 09.55 72.48 0.205 0.092 0.702 %30 (557) 557 495c 495 #01 (465) 465 21.27 11.71 74.36 0.198 0.109 0.692 %31 (558) 558 500c 500 #02 (470) 470 21.43 17.01 77.11 0.185 0.147 0.667 %32 (561) 561 510c 510 #03 (474) 474 22.09 23.68 78.83 0.177 0.190 0.632 %33 (565) 565 520c 520 #04 (476) 476 22.83 27.59 79.42 0.175 0.212 0.611 %34 (567) 567 529c 530 #05 (479) 479 25.44 36.25 80.19 0.179 0.255 0.565 %35 (572) 572 539c 540 #06 (480) 480 27.41 40.88 80.43 0.184 0.274 0.540 %36 (575) 575 544c 545 #07 (481) 481 29.88 45.66 80.60 0.191 0.292 0.516 %37 (578) 578 549c 550 #08 %(501) 501 21.79 53.98 38.52 0.190 0.472 0.337 %38 (501c) 706 457 555 # %(512) 512 22.32 57.57 27.75 0.207 0.534 0.257 %39 (512c) 717 468 560 # (482) 482 31.14 48.71 79.26 0.195 0.306 0.498 %00 (581) 581 405 550 #09 (488) 488 25.13 49.09 60.78 0.186 0.363 0.450 %01 (614) 614 435 551 #10 (496) 496 20.67 50.20 44.12 0.179 0.436 0.383 %02 (496c) 701 450 553 #11 (500) 500 20.63 52.39 38.61 0.184 0.469 0.345 %03 (500c) 705 460 555 #12 (505) 505 20.59 54.04 33.36 0.190 0.500 0.308 %04 (505c) 710 465 558 #13 (515) 515 20.38 55.82 24.00 0.203 0.557 0.239 %05 (515c) 720 470 561 #14 (522) 522 23.24 59.39 19.95 0.226 0.578 0.194 %06 (522c) 727 475 566 #15 (530) 530 29.26 65.20 16.37 0.264 0.588 0.147 %07 (530c) 735 480 574 #16 (540) 540 41.69 74.85 13.32 0.321 0.576 0.102 %08 (540c) 745 485 589 #17 (552) 552 66.62 90.66 13.33 0.390 0.531 0.078 %09 (444) 444 490 630 #18 (557) 557 72.59 90.44 08.47 0.423 0.527 0.049 %10 (463) 463 495 495c #19 (558) 558 72.51 88.28 06.59 0.433 0.527 0.039 %11 (465) 465 500 500c #20 (561) 561 72.35 82.98 03.84 0.454 0.521 0.024 %12 (470) 470 510 510c #21 (565) 565 71.69 76.31 02.12 0.477 0.508 0.014 %13 (474) 474 520 520c #22 (567) 567 70.95 72.40 01.53 0.489 0.499 0.010 %14 (476) 476 530 529c #23 (572) 572 68.34 63.74 00.76 0.514 0.479 0.005 %15 (479) 479 540 539c #24 (575) 575 66.36 59.11 00.52 0.526 0.469 0.004 %16 (480) 480 545 544c #25 (578) 578 63.90 54.33 00.35 0.538 0.458 0.003 %17 (481) 481 550 549c #26 %(501c) 706 71.98 46.01 42.43 0.448 0.286 0.264 %18 (501) 501 555 457 # %(512c) 717 71.46 42.42 53.20 0.427 0.253 0.318 %19 (512) 512 560 468 # (581) 581 62.64 51.28 01.69 0.541 0.443 0.014 %20 (482) 482 550 405 #27 (614) 614 68.65 50.90 20.17 0.491 0.364 0.144 %21 (488) 488 551 435 #28 (496c) 701 73.11 49.79 36.82 0.457 0.311 0.230 %22 (496) 496 553 450 #29 (500c) 705 73.15 47.60 42.34 0.448 0.291 0.259 %23 (500) 500 555 460 #30 (505c) 710 73.19 45.95 47.59 0.438 0.275 0.285 %24 (505) 505 558 465 #31 (515c) 720 73.40 44.17 56.94 0.420 0.253 0.326 %25 (515) 515 561 470 #32 (522c) 727 70.53 40.60 61.00 0.409 0.235 0.354 %26 (522) 522 566 475 #33 (530c) 735 64.52 34.79 64.58 0.393 0.212 0.394 %27 (530) 530 574 480 #34 (540c) 745 52.09 25.14 67.63 0.359 0.173 0.466 %28 (540) 540 589 485 #35 (444) 444 27.16 09.33 67.62 0.260 0.089 0.649 %29 (552) 552 630 490 #36 %380...780 93.78 99.99 80.95 0.341 0.363 0.294 % D50, R17Ms # ] def %END O50R17Msxyzq /XuO50R17Ms 93.78 def /YuO50R17Ms 100.00 def /ZuO50R17Ms 80.95 def /IMO50R17Ms 37 def /I1O50R17Ms 29 def /I2O50R17Ms 35 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 23 32 36 05] def %for order according to dominant wavelength and plot /Xni 40 array def /Yni 40 array def /Zni 40 array def /xani 40 array def /yani 40 array def /zani 40 array def /downi 40 array def /Lani 40 array def /aani 40 array def /bani 40 array def /cabni 40 array def /pani 40 array def /pbni 40 array def /prni 40 array def /habni 40 array def %calculated from pani, pbni /panui 40 array def /pbnui 40 array def /prnui 40 array def /habnui 40 array def %calculated from panui, pbnui /Anui 40 array def /Bnui 40 array def /CABnui 40 array def /hABnui 40 array def %calculated from Anui, Bnui %for order according to hue angle and plot /Xnio 40 array def /Ynio 40 array def /Znio 40 array def /xanio 40 array def /yanio 40 array def /zanio 40 array def /downio 40 array def /Lanio 40 array def /aanio 40 array def /banio 40 array def /cabnio 40 array def /panio 40 array def /pbnio 40 array def /prnio 40 array def /habnio 40 array def %calculated from panio, pbnio /panuio 40 array def /pbnuio 40 array def /prnuio 40 array def /habnuio 40 array def %calculated from panuio, pbnuio /Anuio 40 array def /Bnuio 40 array def /CABnuio 40 array def /hABnuio 40 array def %calculated from Anuio, Bnuio %**************************************************************** /proc_formel_old {%BEG proc_formel_old ix0 300 moveto TIL (a) show TL (=) show panshow TL (=) show nashow 20 0 rmoveto TIL (p) show (a) isV 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 TL (=) show na0show 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 %5200 300 moveto TL ((1)) show ix0 100 moveto TIL (b) show TL (=) show pbnshow TL (=) show nbshow 20 0 rmoveto TIL (p) show (b) isV TL (=) show nbshow 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 TL (=) show nb0show 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 %5200 100 moveto TL ((2)) show } bind def %END proc_formel_old %**************************************************************** /proc_formel_new {%BEG proc_formel_new ix0 300 moveto TIL (a) show TL (=) show panshow TL (=) show nashow 20 0 rmoveto TIL (p) show (a) isV TL (=) show na0show TL ([\050) show AX1 cvsshow3x TIL (x) show /iplus 1 def TL AX2 cvsshow3x TL AX3 cvsshow3x /iplus 0 def TIL (z) show (\051/) show TIL (y) show TL (]) show ix0 100 moveto TIL (b) show TL (=) show pbnshow TL (=) show nbshow 20 0 rmoveto TIL (p) show (b) isV TL (=) show nb0show TL ([\050) show BX1 cvsshow3x TIL (x) show TL (+) show BX2 cvsshow3x /iplus 1 def TL BX3 cvsshow3x /iplus 0 def TIL (z) show (\051/) show TIL (y) show TL (]) show /ix1 ix0 3000 add def ix1 300 moveto TIL (A) show (nu) isV TL (=\050) show TIL (a) show TL (-) show TIL (a) show (u) isV TL (\051) show 20 0 rmoveto TIL (Y) show ix1 100 moveto TIL (B) show (nu) isV TL (=\050) show TIL (b) show TL (-) show TIL (b) show (u) isV TL (\051) show 20 0 rmoveto TIL (Y) show /ix2 ix0 4000 add def ix2 300 moveto TIL (C) show (ABnu) isV TL (=[) show TIL (A) show (2) esV -50 0 rmoveto (nu) isV TL (+) show TIL (B) show (2) esV -50 0 rmoveto (nu) isV TL (]) show (1/2) esV ix2 100 moveto TIL (h) show (ABnu) isV TL (=atan[) show TIL (B) show (nu) isV TL (/) show TIL (A) show (nu) isV TL (]) show } bind def %END proc_formel_new %%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 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 0 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 /FL 0.00001 def %/Y18 25.3 def %Munsell background /Y18 18.0 def %Ostwald background ? /idyT 250 def /iyT 1800 def /xyzq 800 array def /xyzn 800 array def %allready normalized /AnYi 80 array def %for plot of diagrams (a5,b5), (AX,BX), (A*X,B*X), /BnYi 80 array def 72 90 translate 0.01 MM dup scale gsave /pchartl pchart def 0 1 4 {/pchartl exch def %pchartl=0,4 %A51x+A52y+A53=(A51-A52)x+(A52+A53)-A52z=(AX1*x+AX2+AX3*z) %B51x+B52y+B53=(B51-B52)x+(B52+B53)-B52z=(BX1*x+BX2+BX3*z) %A41x+A42y+A43=(B21-B23)x+(B22-B23)y+B23 %B41x+B42y+B43=(B31-B33)x+(B32-B33)y+B33 %AX=an(AX1*x+AX2+AX3*z)/y %BX=bn(BX1*x+BX2+BX3*z)/y pchartl 0 eq {%pchartl=0 /AX1 1 def /AX2 0 def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.5 def /nb -1.0 def } if %pchartl=0 pchartl 1 eq {%pchartl=1 /AX1 1 def /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.5 def /nb -1.0 def } if %pchartl=1 pchartl 2 eq {%pchartl=2 /AX1 1 def /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.8 def /nb -1.0 def } if %pchartl=2 pchartl 3 eq {%pchartl=3 /A41 B21 B23 sub def /A42 B22 B23 sub def /A43 B23 def /B41 B31 B33 sub def /B42 B32 B33 sub def /B43 B33 def /na 1.4 def /nb 0.5 def } if %pchartl=3 pchartl 4 eq {%pchartl=4 /AX1 BE21 BE22 sub def /AX2 BE22 BE23 add def /AX3 BE22 neg def /BX1 BE31 BE32 sub def /BX2 BE32 BE33 add def /BX3 BE32 neg def /na 1.4 def /nb 0.5 def } if %pchartl=4 /xcolorl xcolor def 0 1 5 {/xcolorl exch def %xcolor= 0:CIE02, 1:CIE10, 2:CIEF02, 3:CIEF10, 4:R17M, 5:R17Ms gsave 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 TL 0 setgray 100 -150 moveto (DG690-7R_pchartl=) show pchartl cvishow (_xcolorl=) show xcolorl cvishow xcolorl 0 eq {((CIE02)) show} if xcolorl 1 eq {((CIE10)) show} if xcolorl 2 eq {((CIEF02)) show} if xcolorl 3 eq {((CIEF10)) show} if xcolorl 4 eq {((R17M)) show} if xcolorl 5 eq {((R17Ms)) show} if xcolorl 0 eq {%xcolor=0:CIE02 /IM IMO5002 def /IM1 I1O5002 def /IM2 I2O5002 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O5002xyzq i get put } for %i=0,40*8-1 /Xu XuO5002 def /Yu YuO5002 def /Zu ZuO5002 def /name (CIE02) def } if %xcolor=0:CIE02 xcolorl 1 eq {%xcolor=1:CIE10 /IM IMO5010 def /IM1 I1O5010 def /IM2 I2O5010 def /ix IM def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O5010xyzq i get put } for %i=0,40*8-1 /Xu XuO5010 def /Yu YuO5010 def /Zu ZuO5010 def /name (CIE10) def } if %xcolor=1:CIE10 xcolorl 2 eq {%xcolor=2:CIEF02 /IM IMO50F02 def /IM1 I1O50F02 def /IM2 I2O50F02 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50F02xyzq i get put } for %i=0,40*8-1 /Xu XuO50F02 def /Yu YuO50F02 def /Zu ZuO50F02 def /name (CIEF02) def } if %xcolor=2:CIEF02 xcolorl 3 eq {%xcolor=1:CIEF10 /IM IMO50F10 def /IM1 I1O50F10 def /IM2 I2O50F10 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50F10xyzq i get put } for %i=0,40*8-1 /Xu XuO50F10 def /Yu YuO50F10 def /Zu ZuO50F10 def /name (CIEF10) def } if %xcolor=3:CIEF10 xcolorl 4 eq {%xcolor=4:R17M /IM IMO50R17M def /IM1 I1O50R17M def /IM2 I2O50R17M def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50R17Mxyzq i get put } for %i=0,40*8-1 /Xu XuO50R17M def /Yu YuO50R17M def /Zu ZuO50R17M def /name (R17M) def } if %xcolor=4:R17M xcolorl 5 eq {%xcolor=5:R17Ms /IM IMO50R17Ms def /IM1 I1O50R17Ms def /IM2 I2O50R17Ms def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50R17Msxyzq i get put } for %i=0,40*8-1 /Xu XuO50R17Ms def /Yu YuO50R17Ms def /Zu ZuO50R17Ms def /name (R17Ms) def } if %xcolor=5:R17Ms /IMA IM2 IM1 sub 1 add def /IMD IM2 IM1 sub def /Xn Xu def /Yn Yu def /Zn Zu def /SUMu Xu Yu add Zu add 0.0001 add def /XANu Xu SUMu div def /YANu Yu SUMu div def /ZANu Zu SUMu div def %Xn,Yn,Zn may be different compared to Xu,Yu,Zu /Xn Xu def /Yn Yu def /Zn Zu def /SUMn Xn Yn add Zn add 0.0001 add def /XANn Xn SUMn div def /YANn Yn SUMn div def /ZANn Zn SUMn div def /na0show {na cvsshow1x} bind def /nb0show {nb cvsshow1x} bind def /na1show {na cvsshow4x} bind def /nb1show {nb cvsshow4x} bind def %************************************************************************ /xchartl xchart def 2 1 2 {/xchartl exch def %xchartl=2 /iplus 0 def 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 xchartl 2 eq {4500 -150 moveto (DG690-3A) show} if xchartl 3 eq {4500 -150 moveto (DG690-4N) show} if xchartl 6 eq {4500 -150 moveto (DG690-7N) show} if xchartl 7 eq {4500 -150 moveto (DG690-8N) show} if %xchartl 1 add cvishow %(A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 8300 def /xwidth 5400 def xchartl 2 eq xchartl 3 eq or xchartl 6 eq or xchartl 7 eq or { 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 } if %xchartl=2,3,7,8 /Ln Yn def pchartl 3 eq {%pchartl=3 /pan A41 XANn mul A42 YANn mul add A43 add YANn 0.0001 add div na mul def /pbn B41 XANn mul B42 YANn mul add B43 add YANn 0.0001 add div nb mul def }%pchartl=3 {%pchartl#3 /pan AX1 XANn mul AX2 add AX3 ZANn mul add YANn 0.0001 add div na mul def /pbn BX1 XANn mul BX2 add BX3 ZANn mul add YANn 0.0001 add div nb mul def } ifelse %pchartl=3,#3 /prn pan dup mul pbn dup mul add 0.0001 add sqrt def /habn pbn pan 0.0001 add atan def /Lu Yu def pchartl 3 eq {%pchartl=3 /pau A41 XANu mul A42 YANu mul add A43 add YANu 0.0001 add div na mul def /pbu B41 XANu mul B42 YANu mul add B43 add YANu 0.0001 add div nb mul def }%pchartl=3 {%pchartl#3 /pau AX1 XANu mul AX2 add AX3 ZANu mul add YANu 0.0001 add div na mul def /pbu BX1 XANu mul BX2 add BX3 ZANu mul add YANu 0.0001 add div nb mul def } ifelse %pchartl=3,#3 /pru pau dup mul pbu dup mul add 0.0001 add sqrt def /habu pbu pau 0.0001 add atan def /panu pan pau sub def /pbnu pbn pbu sub def /prnu panu dup mul pbnu dup mul add 0.0001 add sqrt def /habnu pbnu panu 0.0001 add atan def /Anu pan pau sub Lu mul def /Bnu pbn pbu sub Lu mul def /CABnu Anu dup mul Bnu dup mul add 0.0001 add sqrt def /hABnu Bnu Anu 0.0001 add atan def %***************************************************************** %data order according to dominant (nominal) wavelength /ix IM def 0 1 ix {/i exch def %i=0,ix /i8 i 8 mul def downi i xyzn i8 1 add get put %400, 410,...700,...400 Xni i xyzn i8 2 add get put Yni i xyzn i8 3 add get put Zni i xyzn i8 4 add get put /SUM Xni i get Yni i get add Zni i get add 0.0001 add def xani i xyzn i8 2 add get SUM div put yani i xyzn i8 3 add get SUM div put zani i xyzn i8 4 add get SUM div put Lani i Yni i get put pchartl 3 eq {%pchartl=3 pani i A41 xani i get mul A42 yani i get mul add A43 add yani i get div na mul put pbni i B41 xani i get mul B42 yani i get mul add B43 add yani i get div nb mul put }%pchartl=3 {%pchartl#3 pani i AX1 xani i get mul AX2 add AX3 zani i get mul add yani i get div na mul put pbni i BX1 xani i get mul BX2 add BX3 zani i get mul add yani i get div nb mul put } ifelse %pchartl=3,#3 prni i pani i get dup mul pbni i get dup mul add 0.0001 add sqrt put aani i pani i get Lani i get mul put bani i pbni i get Lani i get mul put cabni i aani i get dup mul bani i get dup mul add 0.0001 add sqrt put habni i pbni i get pani i get 0.0001 add atan put panui i pani i get pau sub put pbnui i pbni i get pbu sub put prnui i panui i get dup mul pbnui i get dup mul add 0.0001 add sqrt put habnui i pbnui i get panui i get 0.0001 add atan put Anui i panui i get Lani i get mul put Bnui i pbnui i get Lani i get mul put CABnui i prnui i get Lani i get mul put hABnui i Bnui i get Anui i get 0.0001 add atan put } for %i=0,ix /ix IM def %special if downi ix-1 get <700 instead of >700 downi ix 2 sub get 700 le {downi ix 2 sub 765 downi ix 2 sub get 400 sub add put} if downi ix 1 sub get 700 le {downi ix 1 sub 765 downi ix 1 sub get 400 sub add put} if downi ix 0 sub get 700 le {downi ix 0 sub 765 downi ix 0 sub get 400 sub add put} if %***************************************************************** %data order according to hue angle /ix IMD def 0 1 ix {/i exch def %i=0,ix, purple colours downio i downi IM1 i add get put Xnio i Xni IM1 i add get put Ynio i Yni IM1 i add get put Znio i Zni IM1 i add get put xanio i xani IM1 i add get put yanio i yani IM1 i add get put zanio i zani IM1 i add get put Lanio i Lani IM1 i add get put aanio i aani IM1 i add get put banio i bani IM1 i add get put cabnio i cabni IM1 i add get put panio i pani IM1 i add get put pbnio i pbni IM1 i add get put prnio i prni IM1 i add get put habnio i habni IM1 i add get put panuio i panui IM1 i add get put pbnuio i pbnui IM1 i add get put prnuio i prnui IM1 i add get put habnuio i habnui IM1 i add get put Anuio i panui IM1 i add get Lani IM1 i add get mul put Bnuio i pbnui IM1 i add get Lani IM1 i add get mul put CABnuio i prnui IM1 i add get Lani IM1 i add get mul put hABnuio i Bnuio i get Anuio i get 0.0001 add atan put } for %i=0,ix, purple colours /ix IM1 1 add def %including 2 purple colours at the end 0 1 ix {/i exch def %i=0,ix, regular data 400...700 downio IMD 1 add i add downi i get put Xnio IMD 1 add i add Xni i get put Ynio IMD 1 add i add Yni i get put Znio IMD 1 add i add Zni i get put xanio IMD 1 add i add xani i get put yanio IMD 1 add i add yani i get put zanio IMD 1 add i add zani i get put Lanio IMD 1 add i add Lani i get put aanio IMD 1 add i add aani i get put banio IMD 1 add i add bani i get put cabnio IMD 1 add i add cabni i get put panio IMD 1 add i add pani i get put pbnio IMD 1 add i add pbni i get put prnio IMD 1 add i add prni i get put habnio IMD 1 add i add habni i get put panuio IMD 1 add i add panui i get put pbnuio IMD 1 add i add pbnui i get put prnuio IMD 1 add i add prnui i get put habnuio IMD 1 add i add habnui i get put Anuio IMD 1 add i add panui i get Lani i get mul put Bnuio IMD 1 add i add pbnui i get Lani i get mul put CABnuio IMD 1 add i add prnui i get Lani i get mul put hABnuio IMD 1 add i add Bnuio IMD 1 add i add get Anuio IMD 1 add i add get 0.0001 add atan put } for %i=0,ix, regular data 400...700 %special if habnio or habnuio 0 get <100 instead of >360 habnio 0 get 100 le {habnio 0 habnio 0 get 360 add put} if habnuio 0 get 100 le {habnuio 0 habnuio 0 get 360 add put} if hABnuio 0 get 100 le {hABnuio 0 hABnuio 0 get 360 add put} if habnio 1 get 100 le {habnio 1 habnio 1 get 360 add put} if habnuio 1 get 100 le {habnuio 1 habnuio 1 get 360 add put} if hABnuio 1 get 100 le {hABnuio 1 hABnuio 1 get 360 add put} if /ix IM def %special if habnio ix-1 get >300 instead of -00x habnio ix 2 sub get 300 ge {habnio ix 2 sub habnio ix 2 sub get 360 sub put} if habnio ix 1 sub get 300 ge {habnio ix 1 sub habnio ix 1 sub get 360 sub put} if habnio ix get 300 ge {habnio ix habnio ix get 360 sub put} if %special if habnuio ix get >300 instead of -00x habnuio ix 2 sub get 300 ge {habnuio ix 2 sub habnuio ix 2 sub get 360 sub put} if habnuio ix 1 sub get 300 ge {habnuio ix 1 sub habnuio ix 1 sub get 360 sub put} if habnuio ix get 300 ge {habnuio ix habnuio ix get 360 sub put} if hABnuio ix 2 sub get 300 ge {hABnuio ix 2 sub hABnuio ix 2 sub get 360 sub put} if hABnuio ix 1 sub get 300 ge {hABnuio ix 1 sub hABnuio ix 1 sub get 360 sub put} if hABnuio ix get 300 ge {hABnuio ix hABnuio ix get 360 sub put} if %***************************************************************** xchartl 0 eq {%xchartl=0 %STOP0 } if %xchartl=0 %**************************************************************************** xchartl 1 eq {%xchartl=1 %STOP1 } if %xchartl=1 %**************************************************************************** xchartl 2 eq xchartl 6 eq or {%xchartl=2 or 6, %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP2 /ix0 0030 def /iy0 3200 def /ixd 0500 def /iyd 0160 def /yhoe 8300 def 0 setgray ix0 yhoe 150 sub moveto TBL name show TBL (\255Normfarbwerte) showde ( tristimulus values) showea (, Buntwerte und Farbarten ) showde (, chromatic values, and putities ) showea TBL (\050) show bashow TBL (=) show na0show (, ) show bbshow TBL (=) show nb0show (\051.) show /ixM 0100 def /iyM 7350 def /ixdM 580 def /iydM 170 def %table rectangle 15 setlinewidth ixM 50 sub iyM 550 add moveto 5300 0 rlineto 0 -7450 rlineto -5300 0 rlineto closepath stroke ixM 50 sub iyM iydM 0.77 mul add moveto 5300 0 rlineto stroke 20 setlinewidth % 0 1 2 3 4 5 6 7 8 9 10 /xposj [100 0750 1200 1750 2250 2700 3150 3650 4125 4550 5050 ] def /textposj [( l) (X) (Y) (Z) (x) (y) (z) (A) (B) (C) (h) ] def /textpoij [( n) ( ) ( ) ( ) ( ) ( ) ( ) (nu) (nu) (ABnu)(ABnu)] def /xpos1 ixM ixdM 01 mul add def /xpos2 ixM ixdM 06 mul add def /xpos3 ixM ixdM 10 mul add def xposj 1 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke xposj 7 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke ix0 yhoe 320 sub moveto TL (Normierte ) showde (Normalized ) showea TIL (Ostwald (O)) show TL (\255Farbwerte ) showde ( tristimulus values ) showea TL (\050) show TIL (Y) show ishowLw TL (=) show Yu 0.5 add cvishow (\051) show (, geordnet nach ) showde (, odered by ) showea xchartl 2 eq {(wavelength.) showea (Wellenl\344nge.) showde} if xchartl 6 eq {(hue angle.) showea (Bunttonwinkel.) showde} if TBIL xposj 0 get iyM iydM 2.20 mul add moveto (no. O C) showea xposj 1 get iyM iydM 2.20 mul add moveto TBL (tristimulus values and chromaticities) showea (Normfarbwerte und \255anteile) showde xposj 7 get iyM iydM 2.20 mul add moveto TBIL (nu) show TBL (\255chromatic values) showea (\255Buntwerte) showde /ix IM def 0 1 10 {/j exch def %j=0,10 xposj j get j 01 eq {000 add} if %Xi j 02 eq {000 add} if %Yi j 03 eq {000 add} if %Zi j 04 eq {000 add} if %xi j 05 eq {050 sub} if %yi j 06 eq {000 add} if %zi j 07 eq {000 add} if %Anui j 08 eq {000 add} if %Bnui j 09 eq {000 sub} if %CABnui j 10 eq {100 sub} if %hABnui iyM iydM 1.20 mul add moveto j 0 eq {SL}{TBIL} ifelse textposj j get show TBL xposj j get 080 add j 01 eq {000 add} if %Xi j 02 eq {000 add} if %Yi j 03 eq {000 add} if %Zi j 04 eq {000 add} if %xi j 05 eq {050 sub} if %yi j 06 eq {000 add} if %zi j 07 eq {000 add} if %Anui j 08 eq {000 add} if %Bnui j 09 eq {000 sub} if %CABnui j 10 eq {100 sub} if %hABnui iyM iydM 1.20 mul add moveto textpoij j get ibV } for %j=0,9 0 1 10 {/j exch def %j=0,10 /ix IM def 0 1 ix {/i exch def %i=0,ix xchartl 2 eq {%xchartl=2, order according to wavelength xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downi i get cvishow 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {Icotx k get show} if } for %k=0,5 } if j 01 eq {Xni i get cvsshow2x} if j 02 eq {Yni i get cvsshow2x} if j 03 eq {Zni i get cvsshow2x} if j 04 eq {xani i get cvsshow3x} if j 05 eq {yani i get cvsshow3x} if j 06 eq {zani i get cvsshow3x} if j 07 eq {Anui i get dup 0 ge {( ) show} if cvsshow1x} if j 08 eq {Bnui i get dup 0 ge {( ) show} if cvsshow1x} if j 09 eq {CABnui i get dup 0 ge {( ) show} if cvsshow1x} if j 10 eq {hABnui i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=2, order according to wavelength xchartl 6 eq {%xchartl=6, order according to hue angle xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downio i get cvishow 0 1 5 {/k exch def %k=0,5 i Icona k get eq {Icotx k get show} if } for %k=0,5 } if j 01 eq {Xnio i get cvsshow2x} if j 02 eq {Ynio i get cvsshow2x} if j 03 eq {Znio i get cvsshow2x} if j 04 eq {xanio i get cvsshow3x} if j 05 eq {yanio i get cvsshow3x} if j 06 eq {zanio i get cvsshow3x} if j 07 eq {Anuio i get dup 0 ge {( ) show} if cvsshow1x} if j 08 eq {Bnuio i get dup 0 ge {( ) show} if cvsshow1x} if j 09 eq {CABnuio i get dup 0 ge {( ) show} if cvsshow1x} if j 10 eq {hABnuio i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=6, order according to hue angle } for %i=0,ix } for %j=0,10 /i IM 1.3 add def TBL 0 1 10 {/j exch def %j=0,10 xposj j get iyM iydM i mul sub moveto j 00 eq {(U=D50) show} if j 01 eq {Xu cvsshow2x} if j 02 eq {Yu cvsshow2x} if j 03 eq {Zu cvsshow2x} if j 04 eq {XANu cvsshow3x} if j 05 eq {YANu cvsshow3x} if j 06 eq {YANu cvsshow3x} if j 07 eq {150 0 rmoveto Anu cvsshow1x} if j 08 eq {150 0 rmoveto Bnu cvsshow1x} if j 09 eq {150 0 rmoveto CABnu cvsshow1x} if j 10 eq {150 0 rmoveto hABnu cvishow} if } for %j=0,10 pchartl 3 eq {%pchartl=3 proc_formel_old }%pchartl=3 {%pchartl#3 proc_formel_new } ifelse %pchartl=3,#3 } if %xchartl=2 or 6, %(a5,b5) %**************************************************************************** xchartl 3 eq xchartl 7 eq or {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP3 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def /yhoe 8300 def 0 setgray ix0 yhoe 150 sub moveto TBL name show TBL (\255Normfarbwerte) showde ( tristimulus values) showea (, Buntwerte und Farbarten ) showde (, chromatic values, and putities ) showea TBL (\050) show bashow TBL (=) show na0show (, ) show bbshow TBL (=) show nb0show (\051.) show /ixM 0100 def /iyM 7350 def /ixdM 580 def /iydM 170 def %table rectangle 15 setlinewidth ixM 50 sub iyM 550 add moveto 5300 0 rlineto 0 -7450 rlineto -5300 0 rlineto closepath stroke ixM 50 sub iyM iydM 0.77 mul add moveto 5300 0 rlineto stroke 20 setlinewidth % 0 1 2 3 4 5 6 7 8 9 /xposj [100 0750 1200 1750 2300 2900 3350 3850 4350 4950] def /textposj [( l) (Y) (p) (p) (p) (h) (p) (p) (p) (h) ] def /textpoij [( n) ( ) (an) (bn) (rn) (abn)(anu)(bnu)(rnu)(abnu)] def /xpos1 ixM ixdM 01 mul add def /xpos2 ixM ixdM 06 mul add def /xpos3 ixM ixdM 10 mul add def xposj 1 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke xposj 6 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke ix0 yhoe 320 sub moveto TL (Normierte ) showde (Normalized ) showea TIL (Ostwald (O)) show TL (\255Farbwerte ) showde ( tristimulus values ) showea TL (\050) show TIL (Y) show ishowLw TL (=) show Yu 0.5 add cvishow (\051) show (, geordnet nach ) showde (, odered by ) showea xchartl 3 eq {(wavelength.) showea (Wellenl\344nge.) showde} if xchartl 7 eq {(hue angle.) showea (Bunttonwinkel.) showde} if TBIL xposj 0 get iyM iydM 2.20 mul add moveto (no. O C) showea xposj 2 get iyM iydM 2.20 mul add moveto TBIL (n) show TBL (\255purities) showea (\255Farbart) showde xposj 6 get iyM iydM 2.20 mul add moveto TBIL (nu) show TBL (\255purities) showea (\255Farbart) showde /ix IM def 0 1 9 {/j exch def %j=0,9 xposj j get j 2 eq {000 add} if %pani j 3 eq {000 add} if %pbni j 4 eq {000 add} if %prni j 5 eq {050 sub} if %habni j 6 eq {000 add} if %panui j 7 eq {000 add} if %pbnui j 8 eq {000 add} if %prnui j 9 eq {100 sub} if %habnui iyM iydM 1.20 mul add moveto j 0 eq {SL}{TBIL} ifelse textposj j get show TBL xposj j get 080 add j 2 eq {000 add} if %pani j 3 eq {000 add} if %pbni j 4 eq {000 add} if %prni j 5 eq {050 sub} if %habni j 6 eq {000 add} if %panui j 7 eq {000 add} if %pbnui j 8 eq {000 add} if %prnui j 9 eq {100 sub} if %habnui iyM iydM 1.20 mul add moveto textpoij j get ibV } for %j=0,9 0 1 9 {/j exch def %j=0,9 /ix IM def 0 1 ix {/i exch def %i=0,ix xchartl 3 eq {%xchartl=3, order according to wavelength xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downi i get cvishow 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {Icotx k get show} if } for %k=0,5 } if j 1 eq {Lani i get cvsshow2x} if j 2 eq {pani i get dup 0 ge {( ) show} if cvsshow2x} if j 3 eq {pbni i get dup 0 ge {( ) show} if cvsshow2x} if j 4 eq {prni i get dup 0 ge {( ) show} if cvsshow2x} if j 5 eq {habni i get dup 100 lt {( ) show} if cvishow} if j 6 eq {panui i get dup 0 ge {( ) show} if cvsshow2x} if j 7 eq {pbnui i get dup 0 ge {( ) show} if cvsshow2x} if j 8 eq {prnui i get dup 0 ge {( ) show} if cvsshow2x} if j 9 eq {habnui i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=2, order according to wavelength xchartl 7 eq {%xchartl=7, order according to hue angle xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downio i get cvishow 0 1 5 {/k exch def %k=0,5 i Icona k get eq {Icotx k get show} if } for %k=0,5 } if j 1 eq {Lanio i get cvsshow2x} if j 2 eq {panio i get dup 0 ge {( ) show} if cvsshow2x} if j 3 eq {pbnio i get dup 0 ge {( ) show} if cvsshow2x} if j 4 eq {prnio i get dup 0 ge {( ) show} if cvsshow2x} if j 5 eq {habnio i get dup 100 lt {( ) show} if cvishow} if j 6 eq {panuio i get dup 0 ge {( ) show} if cvsshow2x} if j 7 eq {pbnuio i get dup 0 ge {( ) show} if cvsshow2x} if j 8 eq {prnuio i get dup 0 ge {( ) show} if cvsshow2x} if j 9 eq {habnuio i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=6, order according to hue angle } for %i=0,ix } for %j=0,9 /i IM 1.3 add def TBL 0 1 9 {/j exch def %j=0,9 xposj j get iyM iydM i mul sub moveto j 0 eq {(U=D50) show} if j 1 eq {Lu cvsshow2x} if j 2 eq {100 0 rmoveto pau cvsshow3x} if j 3 eq {100 0 rmoveto pbu cvsshow3x} if j 4 eq {100 0 rmoveto pru cvsshow3x} if j 5 eq {100 0 rmoveto habu cvishow} if j 06 eq {150 0 rmoveto panu cvsshow1x} if j 07 eq {150 0 rmoveto pbnu cvsshow1x} if j 08 eq {150 0 rmoveto prnu cvsshow1x} if j 09 eq {150 0 rmoveto habnu cvishow} if } for %j=0,9 pchartl 3 eq {%pchartl=3 proc_formel_old }%pchartl=3 {%pchartl#3 proc_formel_new } ifelse %pchartl=3,#3 } if %xchartl=3 or 7 %(a5,b5) %**************************************************************************** xchartl 4 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP4 } if %xchartl=4 %(a5,b5) %**************************************************************************** xchartl 5 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP5 } if %xchartl=5 %(a5,b5) %**************************************************************************** %xchartl 6 eq {%xchartl=6 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP6 %} if %xchartl=6 %(a5,b5) %**************************************************************************** %xchartl 7 eq {%xchartl=7 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP7 %} if %xchartl=7 %(a5,b5) %***************************************************************** % 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=2 showpage grestore } for %xcolorl=0,5 } for %pchartl=0,4 %} for %output with langind end %%Trailer