%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEV5/DEV5L00XX.PS 20220301 %%BoundingBox: 07 04 414 292 /pdfmark where {pop} {userdict /pdfmark /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: http://farbe.li.tu-berlin.de/DEV5/DEV5.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:20220301112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %Y10E00NA.PS6.PS /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG DEV5/OUTLIN10.PS Emty 20210418 %END DEV5/OUTLIN10.PS Emty 20210418 %BEG DEV5/OUTLIN1X.PS 20210418 %EMPTY %END DEV5/OUTLIN1X.PS 20210418 %BEG DEV5/OUTLIN1Y2.PS Emty 20210418 %END DEV5/OUTLIN1Y2.PS Emty 20210418 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def %xcolorx=0 Illuminants Dxx /xchart1f 04 def /xchart2f 04 def /xchartdf 01 def %8 illuminants(0..7) /xchart3f 08 def /xchart4f 00 def /xchart5f 00 def %xchart4=0 CIE_1931_02 /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %17 %18 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 DEV50-1N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV50-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 DEV50-2N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV50-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 1 sub MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEV5/DEV50-3N 20211201 %%BoundingBox: 70 82 395 336 /pdfmark03 where {pop} {userdict /pdfmark03 /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: http://farbe.li.tu-berlin.de/DEV5/DEV5.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021120112000) /ModDate (D:20211201112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def %/languagelevel where {pop languagelevel} {1} ifelse % /PSL12 exch def %/dictende {counttomark 2 idiv dup dict begin {def} % repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SV {160 /Symbol FS} bind def /CV {160 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {240 /Courier-ISOL1 FS} bind def /CM {280 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBV {160 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {240 /CourierB-ISOL1 FS} bind def /CBM {280 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {TG show} bind def /ks {TIG show} bind def /bs {TBG show} bind def /js {TBIG show} bind def /sy {SG show} bind def /is {TM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /es {TM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ib {TBM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /eb {TBM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ip {TM 50 50 rmoveto (\267) show 50 -50 rmoveto TG} bind def %20% kleiner /ns2 {TM show TM} bind def /ks2 {TIM show TM} bind def /bs2 {TBM show TM} bind def /js2 {TBIM show TM} bind def /sy2 {SM show TM} bind def /is2 {TK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {TK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {TBK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {TBK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {TK 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {SK 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {TK show TK} bind def /ks4 {TIK show TK} bind def /bs4 {TBK show TK} bind def /js4 {TBIK show TK} bind def /ss4 {SK show TK} bind def /is4 {TS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {TS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {TBS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {TBS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {TS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {SS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /cvishow {cvi 6 string cvs show ( ) 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} if 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} if 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} if 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} if 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 /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %2-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l02Ii 77 array def /m02Ii 77 array def /s02Ii 77 array def /l02Mi 77 array def /m02Mi 77 array def /s02Mi 77 array def /X02Ii 77 array def /Y02Ii 77 array def /Z02Ii 77 array def /xan02Ii 77 array def /yan02Ii 77 array def /zan02Ii 77 array def /X02Mi 77 array def /Y02Mi 77 array def /Z02Mi 77 array def /xan02Mi 77 array def /yan02Mi 77 array def /zan02Mi 77 array def /ycuri 77 array def %10-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l10Ii 77 array def /m10Ii 77 array def /s10Ii 77 array def /l10Mi 77 array def /m10Mi 77 array def /s10Mi 77 array def /X10Ii 77 array def /Y10Ii 77 array def /Z10Ii 77 array def /xan10Ii 77 array def /yan10Ii 77 array def /zan10Ii 77 array def /X10Mi 77 array def /Y10Mi 77 array def /Z10Mi 77 array def /xan10Mi 77 array def /yan10Mi 77 array def /zan10Mi 77 array def /ycurj 80 array def %2-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l02Ij 80 array def /m02Ij 80 array def /s02Ij 80 array def /l02Mj 80 array def /m02Mj 80 array def /s02Mj 80 array def /X02Ij 80 array def /Y02Ij 80 array def /Z02Ij 80 array def /xan02Ij 80 array def /yan02Ij 80 array def /zan02Ij 80 array def /X02Mj 80 array def /Y02Mj 80 array def /Z02Mj 80 array def /xan02Mj 80 array def /yan02Mj 80 array def /zan02Mj 80 array def /ycurj 80 array def %10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l10Ij 80 array def /m10Ij 80 array def /s10Ij 80 array def /l10Mj 80 array def /m10Mj 80 array def /s10Mj 80 array def /X10Ij 80 array def /Y10Ij 80 array def /Z10Ij 80 array def /xan10Ij 80 array def /yan10Ij 80 array def /zan10Ij 80 array def /X10Mj 80 array def /Y10Mj 80 array def /Z10Mj 80 array def /xan10Mj 80 array def /yan10Mj 80 array def /zan10Mj 80 array def /ycurj 80 array def %actual 2 or 10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /lA1j 80 array def /mA1j 80 array def /sA1j 80 array def /lASj 80 array def /mASj 80 array def /sASj 80 array def /lANj 80 array def /mANj 80 array def /sANj 80 array def /XA1j 80 array def /YA1j 80 array def /ZA1j 80 array def /xanA1j 80 array def /yanA1j 80 array def /zanA1j 80 array def /XASj 80 array def /YASj 80 array def /ZASj 80 array def /xanASj 80 array def /yanASj 80 array def /zanASj 80 array def /XANj 80 array def /YANj 80 array def /ZANj 80 array def /xanANj 80 array def /yanANj 80 array def /zanANj 80 array def /ycurj 80 array def /l10Mi [ %LMS2.TXT %L2.DAT CIE Table 6.7, p. 34 380=390,385=390, 390, 395, ...760nm 4.150019e-4 4.150019e-4 4.150019e-4 1.051914e-3 2.408353e-3 %400 4.833371e-3 8.721273e-3 1.338382e-2 1.844803e-2 2.293190e-2 2.818772e-2 3.410515e-2 4.025595e-2 4.493761e-2 4.986433e-2 %450 5.534138e-2 6.471575e-2 8.069006e-2 9.947639e-2 1.188010e-1 1.401458e-1 1.639532e-1 1.915579e-1 2.329271e-1 2.889615e-1 %500 3.597162e-1 4.436801e-1 5.364880e-1 6.285647e-1 7.047255e-1 7.706373e-1 8.257146e-1 8.810083e-1 9.190730e-1 9.401995e-1 %550 9.657395e-1 9.814541e-1 9.944890e-1 1 9.923160e-1 9.694379e-1 9.556085e-1 9.276625e-1 8.859720e-1 8.339884e-1 %600 7.751040e-1 7.057161e-1 6.307685e-1 5.542300e-1 4.799434e-1 4.007098e-1 3.278612e-1 2.657847e-1 2.132849e-1 1.651391e-1 %650 1.247498e-1 9.300794e-2 6.850937e-2 4.986664e-2 3.582284e-2 2.537932e-2 1.772025e-2 1.216998e-2 8.471687e-3 5.897527e-3 %700 4.091288e-3 2.804465e-3 1.920570e-3 1.326875e-3 9.177829e-4 6.393665e-4 4.460361e-4 3.108708e-4 2.193310e-4 1.545503e-4 %750 1.095065e-4 7.799195e-5 ] def /m02Mi [ %M2.DAT 3.683495e-4 3.683495e-4 3.683495e-4 9.586496e-4 2.269917e-3 %400 4.700132e-3 8.793667e-3 1.452780e-2 2.166506e-2 2.957127e-2 3.945663e-2 5.182030e-2 6.477837e-2 7.588048e-2 8.705225e-2 %450 9.819288e-2 1.162733e-1 1.445407e-1 1.758936e-1 2.053998e-1 2.357545e-1 2.680649e-1 3.036267e-1 3.570590e-1 4.277598e-1 %500 5.155847e-1 6.155169e-1 7.191508e-1 8.166012e-1 8.855437e-1 9.356857e-1 9.688577e-1 9.952165e-1 9.971948e-1 9.771922e-1 %550 9.995->9.95? 9.565771e-1 9.177407e-1 8.732126e-1 8.135046e-1 7.402868e-1 6.532810e-1 5.725950e-1 4.925950e-1 4.112444e-1 3.344260e-1 %600 2.648744e-1 2.052721e-1 1.562428e-1 1.166407e-1 8.558743e-2 6.211264e-2 4.448770e-2 3.142624e-2 2.180369e-2 1.544792e-2 %650 1.071199e-2 7.302475e-3 4.971759e-3 3.436687e-3 2.376184e-3 1.637344e-3 1.121270e-3 7.610442e-4 5.254605e-4 3.653171e-4 %700 2.534195e-4 1.744014e-4 1.206090e-4 8.417245e-5 5.893455e-5 4.160449e-5 2.943542e-5 2.088575e-5 1.504562e-5 1.082007e-5 %750 7.822762e-6 5.690886e-6 ] def /s02Mi [ %S2.DAT CIE 171.1:2006 9.547289e-3 9.547289e-3 %380,385 9.547289e-3 2.382484e-2 5.665002e-2 1.224503e-1 2.330076e-1 %410 3.813643e-1 5.436132e-1 6.744815e-1 8.025461e-1 9.035662e-1 9.910145e-1 9.915166e-1 9.553885e-1 8.602408e-1 7.867016e-1 %460 7.382611e-1 6.463534e-1 5.164164e-1 3.903373e-1 2.903220e-1 2.118654e-1 1.605240e-1 1.228400e-1 8.889554e-2 6.082050e-2 %510 4.281244e-2 2.920317e-2 1.939099e-2 1.260114e-2 8.094500e-3 5.088971e-3 3.168911e-3 1.958935e-3 1.202763e-3 7.401673e-4 %560 4.559845e-4 2.817993e-4 1.750370e-4 1.094536e-4 6.899855e-5 4.390257e-5 2.822280e-5 1.834593e-5 1.206675e-5 8.034895e-6 %610 5.418387e-6 0 0 0 0 0 0 0 0 0 %650 0 0 0 0 0 0 0 0 0 0 %700 0 0 0 0 0 0 0 0 0 0 %750 0 0 ] def /CIEF_LMS_02 298 array def %77x4 /CIEF_LMS_02 [%BEG CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 385.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 390.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 395.0 1.05192281E-03 9.58658287E-04 2.38249757E-02 400.0 2.40836274E-03 2.26990665E-03 5.66497751E-02 405.0 4.83338951E-03 4.70010083E-03 1.22450936E-01 410.0 8.72126562E-03 8.79368990E-03 2.33008318E-01 415.0 1.33836930E-02 1.45277327E-02 3.81363350E-01 420.0 1.84480328E-02 2.16648593E-02 5.43618105E-01 425.0 2.29317499E-02 2.95714420E-02 6.74474074E-01 430.0 2.81877052E-02 3.94566147E-02 8.02554955E-01 435.0 3.41053893E-02 5.18198823E-02 9.03572547E-01 440.0 4.02562524E-02 6.47782187E-02 9.91020299E-01 445.0 4.49379920E-02 7.58812175E-02 9.91515250E-01 450.0 4.98639402E-02 8.70523965E-02 9.55393000E-01 455.0 5.53418498E-02 9.81933595E-02 8.60240453E-01 460.0 6.47164360E-02 1.16272079E-01 7.86703893E-01 465.0 8.06893625E-02 1.44540604E-01 7.38267621E-01 470.0 9.94755270E-02 1.75892769E-01 6.46359219E-01 475.0 1.18802152E-01 2.05398073E-01 5.16410649E-01 480.0 1.40145131E-01 2.35754060E-01 3.90333407E-01 485.0 1.63951537E-01 2.68063038E-01 2.90322411E-01 490.0 1.91556224E-01 3.03629653E-01 2.11866834E-01 495.0 2.32925516E-01 3.57060581E-01 1.60525792E-01 500.0 2.88959412E-01 4.27764487E-01 1.22838921E-01 505.0 3.59716421E-01 5.15586863E-01 8.88965361E-02 510.0 4.43682863E-01 6.15520174E-01 6.08209513E-02 515.0 5.36493787E-01 7.19154047E-01 4.28122756E-02 520.0 6.28561087E-01 8.16609632E-01 2.92032829E-02 525.0 7.04720332E-01 8.85549719E-01 1.93911943E-02 530.0 7.70629906E-01 9.35687022E-01 1.26012838E-02 535.0 8.25710771E-01 9.68858338E-01 8.09453368E-03 540.0 8.81010908E-01 9.95216550E-01 5.08900051E-03 545.0 9.19066658E-01 9.97192616E-01 3.16893322E-03 550.0 9.40197682E-01 9.77193335E-01 1.95895533E-03 555.0 9.65733133E-01 9.56583237E-01 1.20277126E-03 560.0 9.81444621E-01 9.17749837E-01 7.40173919E-04 565.0 9.94485919E-01 8.73204873E-01 4.55979308E-04 570.0 9.99993160E-01 8.13509255E-01 2.81799951E-04 575.0 9.92309909E-01 7.40291037E-01 1.75038547E-04 580.0 9.69429172E-01 6.53273547E-01 1.09453897E-04 585.0 9.55601819E-01 5.72596792E-01 6.89990581E-05 590.0 9.27672559E-01 4.92598798E-01 4.39023849E-05 595.0 8.85969334E-01 4.11245617E-01 2.82228417E-05 600.0 8.33982132E-01 3.34428550E-01 1.83458912E-05 605.0 7.75103324E-01 2.64872009E-01 1.20667447E-05 610.0 7.05713103E-01 2.05273346E-01 8.03487566E-06 615.0 6.30773388E-01 1.56242654E-01 5.41843079E-06 620.0 5.54224372E-01 1.16641491E-01 0.00000000E-00 625.0 4.79940995E-01 8.55871752E-02 0.00000000E-00 630.0 4.00710831E-01 6.21120321E-02 0.00000000E-00 635.0 3.27863707E-01 4.44878727E-02 0.00000000E-00 640.0 2.65784185E-01 3.14282295E-02 0.00000000E-00 645.0 2.13283643E-01 2.18037465E-02 0.00000000E-00 650.0 1.65140826E-01 1.54479552E-02 0.00000000E-00 655.0 1.24749078E-01 1.07119605E-02 0.00000000E-00 660.0 9.30084863E-02 7.30255150E-03 0.00000000E-00 665.0 6.85099590E-02 4.97179190E-03 0.00000000E-00 670.0 4.98660938E-02 3.43667061E-03 0.00000000E-00 675.0 3.58232509E-02 2.37617227E-03 0.00000000E-00 680.0 2.53790394E-02 1.63733769E-03 0.00000000E-00 685.0 1.77201275E-02 1.12127805E-03 0.00000000E-00 690.0 1.21701123E-02 7.61050801E-04 0.00000000E-00 695.0 8.47170037E-03 5.25456816E-04 0.00000000E-00 700.0 5.89748808E-03 3.65317316E-04 0.00000000E-00 705.0 4.09129197E-03 2.53417295E-04 0.00000000E-00 710.0 2.80446659E-03 1.74401753E-04 0.00000000E-00 715.0 1.92057783E-03 1.20607982E-04 0.00000000E-00 720.0 1.32686544E-03 8.41716373E-05 0.00000000E-00 725.0 9.17776773E-04 5.89349310E-05 0.00000000E-00 730.0 6.39372955E-04 4.16048509E-05 0.00000000E-00 735.0 4.46035067E-04 2.94354152E-05 0.00000000E-00 740.0 3.10869146E-04 2.08859570E-05 0.00000000E-00 745.0 2.19329240E-04 1.50457558E-05 0.00000000E-00 750.0 1.54549195E-04 1.08200177E-05 0.00000000E-00 755.0 1.09507604E-04 7.82271489E-06 0.00000000E-00 760.0 7.79912028E-05 5.69092610E-06 0.00000000E-00 %765.0 5.56263839E-05 4.13998115E-06 0.00000000E-00 %770.0 3.99294560E-05 3.02682745E-06 0.00000000E-00 %775.0 2.86162863E-05 2.21100363E-06 0.00000000E-00 %780.0 2.07321327E-05 1.63432668E-06 0.00000000E-00 %785.0 1.50432118E-05 1.21053851E-06 0.00000000E-00 %790.0 1.09446148E-05 8.99169870E-07 0.00000000E-00 %795.0 7.97750298E-06 6.69594072E-07 0.00000000E-00 %800.0 5.85057291E-06 5.03187359E-07 0.00000000E-00 %805.0 4.31101652E-06 3.80046377E-07 0.00000000E-00 %810.0 3.17008616E-06 2.86328659E-07 0.00000000E-00 %815.0 2.34468299E-06 2.16878259E-07 0.00000000E-00 %820.0 1.74666331E-06 1.65157769E-07 0.00000000E-00 %825.0 1.30240694E-06 1.25508416E-07 0.00000000E-00 %830.0 9.74306403E-07 9.53411481E-08 0.00000000E-00 ] def %END CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree /CIEF_LMS_10 298 array def %77x4 /CIEF_LMS_10 [%BEG CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 385 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 390 4.07619067E-04 3.58227395E-04 6.14264795E-03 395 1.06920754E-03 9.64828092E-04 1.59514687E-02 400 2.54073042E-03 2.37207532E-03 3.96307943E-02 405 5.31546236E-03 5.12316225E-03 8.97612227E-02 410 9.98835098E-03 9.98840819E-03 1.78529924E-01 415 1.60129841E-02 1.72595696E-02 3.05941113E-01 420 2.33957137E-02 2.73163327E-02 4.62692207E-01 425 3.09103789E-02 3.96928205E-02 6.09570091E-01 430 3.97809896E-02 5.55383864E-02 7.56884632E-01 435 4.94171973E-02 7.50298610E-02 8.69984288E-01 440 5.94618805E-02 9.57611568E-02 9.66959512E-01 445 6.86537572E-02 1.16220119E-01 9.93336464E-01 450 7.95647427E-02 1.39493318E-01 9.91328844E-01 455 9.07704422E-02 1.62006089E-01 9.06735013E-01 460 1.06663473E-01 1.93201620E-01 8.23725866E-01 465 1.28336042E-01 2.32275228E-01 7.37042702E-01 470 1.51650594E-01 2.71441153E-01 6.10456321E-01 475 1.77116190E-01 3.10372033E-01 4.70893608E-01 480 2.07940052E-01 3.55066420E-01 3.50107654E-01 485 2.44045655E-01 4.05688377E-01 2.58496996E-01 490 2.82751994E-01 4.56137225E-01 1.85297483E-01 495 3.34785930E-01 5.22969940E-01 1.35350675E-01 500 3.91705331E-01 5.91002878E-01 9.67990105E-02 505 4.56251511E-01 6.66404323E-01 6.49613925E-02 510 5.26538428E-01 7.43612020E-01 4.12337488E-02 515 5.99866880E-01 8.16807889E-01 2.71299980E-02 520 6.75313179E-01 8.89213535E-01 1.76298483E-02 525 7.37107602E-01 9.34976841E-01 1.13251604E-02 530 7.88899549E-01 9.61961662E-01 7.17089441E-03 535 8.37403142E-01 9.81480903E-01 4.54287284E-03 540 8.90871319E-01 9.98930730E-01 2.83351880E-03 545 9.26659723E-01 9.91382642E-01 1.75572783E-03 550 9.44527173E-01 9.61875524E-01 1.08230483E-03 555 9.70702545E-01 9.35829058E-01 6.64512043E-04 560 9.85635735E-01 8.90949073E-01 4.08931409E-04 565 9.96979206E-01 8.40968769E-01 2.51918429E-04 570 9.99542570E-01 7.76525624E-01 1.55687802E-04 575 9.87057062E-01 7.00013057E-01 9.67045032E-05 580 9.57840611E-01 6.11727998E-01 6.04705364E-05 585 9.39781455E-01 5.31825085E-01 3.81202298E-05 590 9.06693013E-01 4.54142113E-01 2.42549460E-05 595 8.59605469E-01 3.76527354E-01 1.55923957E-05 600 8.03173191E-01 3.04377894E-01 1.01356328E-05 605 7.40679903E-01 2.39837365E-01 6.66656535E-06 610 6.68991113E-01 1.85103689E-01 4.43906145E-06 615 5.93247836E-01 1.40431078E-01 2.99354308E-06 620 5.17448826E-01 1.04572924E-01 0.00000000E-00 625 4.45124577E-01 7.65841125E-02 0.00000000E-00 630 3.69167951E-01 5.54989859E-02 0.00000000E-00 635 3.00316199E-01 3.97096689E-02 0.00000000E-00 640 2.42316360E-01 2.80314193E-02 0.00000000E-00 645 1.93730034E-01 1.94366360E-02 0.00000000E-00 650 1.49509341E-01 1.37659889E-02 0.00000000E-00 655 1.12637747E-01 9.54315350E-03 0.00000000E-00 660 8.38077035E-02 6.50455441E-03 0.00000000E-00 665 6.16383685E-02 4.42794317E-03 0.00000000E-00 670 4.48131819E-02 3.06049600E-03 0.00000000E-00 675 3.21659546E-02 2.11596127E-03 0.00000000E-00 680 2.27738100E-02 1.45797939E-03 0.00000000E-00 685 1.58939173E-02 9.98423741E-04 0.00000000E-00 690 1.09123394E-02 6.77652785E-04 0.00000000E-00 695 7.59452818E-03 4.67870233E-04 0.00000000E-00 700 5.28607164E-03 3.25278334E-04 0.00000000E-00 705 3.66675373E-03 2.25641354E-04 0.00000000E-00 710 2.51327467E-03 1.55285744E-04 0.00000000E-00 715 1.72107607E-03 1.07387972E-04 0.00000000E-00 720 1.18899676E-03 7.49453321E-05 0.00000000E-00 725 8.22396074E-04 5.24748323E-05 0.00000000E-00 730 5.72916838E-04 3.70443421E-05 0.00000000E-00 735 3.99670182E-04 2.62088417E-05 0.00000000E-00 740 2.78552580E-04 1.85965278E-05 0.00000000E-00 745 1.96527784E-04 1.33965008E-05 0.00000000E-00 750 1.38481790E-04 9.63396916E-06 0.00000000E-00 755 9.81226253E-05 6.96521810E-06 0.00000000E-00 760 6.98827164E-05 5.06710754E-06 0.00000000E-00 %765 4.98430350E-05 3.68617125E-06 0.00000000E-00 %770 3.57780519E-05 2.69503733E-06 0.00000000E-00 %775 2.56410800E-05 1.96864116E-06 0.00000000E-00 %780 1.85766264E-05 1.45517748E-06 0.00000000E-00 %785 1.34791749E-05 1.07784347E-06 0.00000000E-00 %790 9.80670540E-06 8.00605973E-07 0.00000000E-00 %795 7.14808254E-06 5.96195475E-07 0.00000000E-00 %800 5.24228869E-06 4.48029690E-07 0.00000000E-00 %805 3.86279972E-06 3.38386998E-07 0.00000000E-00 %810 2.84049184E-06 2.54942293E-07 0.00000000E-00 %815 2.10090587E-06 1.93104807E-07 0.00000000E-00 %820 1.56506236E-06 1.47053740E-07 0.00000000E-00 %825 1.16699539E-06 1.11750613E-07 0.00000000E-00 %830 8.73007530E-07 8.48901776E-08 0.00000000E-00 ] def %END CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree /CIEF_XYZ_02 298 array def %77x4 /CIEF_XYZ_02 [%BEG CIEF_XYZ_02 Colour matching functions 5nm 02-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 3.769647E-03 4.146161E-04 1.847260E-02 %=390 385 3.769647E-03 4.146161E-04 1.847260E-02 %=390 390 3.769647E-03 4.146161E-04 1.847260E-02 395 9.382967E-03 1.059646E-03 4.609784E-02 400 2.214302E-02 2.452194E-03 1.096090E-01 405 4.742986E-02 4.971717E-03 2.369246E-01 410 8.953803E-02 9.079860E-03 4.508369E-01 415 1.446214E-01 1.429377E-02 7.378822E-01 420 2.035729E-01 2.027369E-02 1.051821E+00 425 2.488523E-01 2.612106E-02 1.305008E+00 430 2.918246E-01 3.319038E-02 1.552826E+00 435 3.227087E-01 4.157940E-02 1.748280E+00 440 3.482554E-01 5.033657E-02 1.917479E+00 445 3.418483E-01 5.743393E-02 1.918437E+00 450 3.224637E-01 6.472352E-02 1.848545E+00 455 2.826646E-01 7.238339E-02 1.664439E+00 460 2.485254E-01 8.514816E-02 1.522157E+00 465 2.219781E-01 1.060145E-01 1.428440E+00 470 1.806905E-01 1.298957E-01 1.250610E+00 475 1.291920E-01 1.535066E-01 9.991789E-01 480 8.182895E-02 1.788048E-01 7.552379E-01 485 4.600865E-02 2.064828E-01 5.617313E-01 490 2.083981E-02 2.379160E-01 4.099313E-01 495 7.097731E-03 2.850680E-01 3.105939E-01 500 2.461588E-03 3.483536E-01 2.376753E-01 505 3.649178E-03 4.277595E-01 1.720018E-01 510 1.556989E-02 5.204972E-01 1.176796E-01 515 4.315171E-02 6.206256E-01 8.283548E-02 520 7.962917E-02 7.180890E-01 5.650407E-02 525 1.268468E-01 7.946448E-01 3.751912E-02 530 1.818026E-01 8.575799E-01 2.438164E-02 535 2.405015E-01 9.071347E-01 1.566174E-02 540 3.098117E-01 9.544675E-01 9.846470E-03 545 3.804244E-01 9.814106E-01 6.131421E-03 550 4.494206E-01 9.890228E-01 3.790291E-03 555 5.280233E-01 9.994608E-01 2.327186E-03 560 6.133784E-01 9.967737E-01 1.432128E-03 565 7.016774E-01 9.902549E-01 8.822531E-04 570 7.967750E-01 9.732611E-01 5.452416E-04 575 8.853376E-01 9.424569E-01 3.386739E-04 580 9.638388E-01 8.963613E-01 2.117772E-04 585 1.051011E+00 8.587203E-01 1.335031E-04 590 1.109767E+00 8.115868E-01 8.494468E-05 595 1.143620E+00 7.544785E-01 5.460706E-05 600 1.151033E+00 6.918553E-01 3.549661E-05 605 1.134757E+00 6.270066E-01 2.334738E-05 610 1.083928E+00 5.583746E-01 1.554631E-05 615 1.007344E+00 4.895950E-01 1.048387E-05 620 9.142877E-01 4.229897E-01 0.000000E+00 625 8.135565E-01 3.609245E-01 0.000000E+00 630 6.924717E-01 2.980865E-01 0.000000E+00 635 5.755410E-01 2.416902E-01 0.000000E+00 640 4.731224E-01 1.943124E-01 0.000000E+00 645 3.844986E-01 1.547397E-01 0.000000E+00 650 2.997374E-01 1.193120E-01 0.000000E+00 655 2.277792E-01 8.979594E-02 0.000000E+00 660 1.707914E-01 6.671045E-02 0.000000E+00 665 1.263808E-01 4.899699E-02 0.000000E+00 670 9.224597E-02 3.559982E-02 0.000000E+00 675 6.639960E-02 2.554223E-02 0.000000E+00 680 4.710606E-02 1.807939E-02 0.000000E+00 685 3.292138E-02 1.261573E-02 0.000000E+00 690 2.262306E-02 8.661284E-03 0.000000E+00 695 1.575417E-02 6.027677E-03 0.000000E+00 700 1.096778E-02 4.195941E-03 0.000000E+00 705 7.608750E-03 2.910864E-03 0.000000E+00 710 5.214608E-03 1.995557E-03 0.000000E+00 715 3.569452E-03 1.367022E-03 0.000000E+00 720 2.464821E-03 9.447269E-04 0.000000E+00 725 1.703876E-03 6.537050E-04 0.000000E+00 730 1.186238E-03 4.555970E-04 0.000000E+00 735 8.269535E-04 3.179738E-04 0.000000E+00 740 5.758303E-04 2.217445E-04 0.000000E+00 745 4.058303E-04 1.565566E-04 0.000000E+00 750 2.856577E-04 1.103928E-04 0.000000E+00 755 2.021853E-04 7.827442E-05 0.000000E+00 760 1.438270E-04 5.578862E-05 0.000000E+00 %765 1.024685E-04 3.981884E-05 0.000000E+00 %770 7.347551E-05 2.860175E-05 0.000000E+00 %775 5.259870E-05 2.051259E-05 0.000000E+00 %780 3.806114E-05 1.487243E-05 0.000000E+00 %785 2.758222E-05 1.080001E-05 0.000000E+00 %790 2.004122E-05 7.863920E-06 0.000000E+00 %795 1.458792E-05 5.736935E-06 0.000000E+00 %800 1.068141E-05 4.211597E-06 0.000000E+00 %805 7.857521E-06 3.106561E-06 0.000000E+00 %810 5.768284E-06 2.286786E-06 0.000000E+00 %815 4.259166E-06 1.693147E-06 0.000000E+00 %820 3.167765E-06 1.262556E-06 0.000000E+00 %825 2.358723E-06 9.422514E-07 0.000000E+00 %830 1.762465E-06 7.053860E-07 0.000000E+00 ] def %END CIEF_XYZ_02 Colour matching functions 5nm 02-degree /CIEF_XYZ_10 298 array def %77x4 /CIEF_XYZ_10 [%BEG CIEF_XYZ_10 Colour matching functions 5nm 10-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 2.952420E-03 4.076779E-04 1.318752E-02 %=390 385 2.952420E-03 4.076779E-04 1.318752E-02 %=390 390 2.952420E-03 4.076779E-04 1.318752E-02 395 7.641137E-03 1.078166E-03 3.424588E-02 400 1.879338E-02 2.589775E-03 8.508254E-02 405 4.204986E-02 5.474207E-03 1.927065E-01 410 8.277331E-02 1.041303E-02 3.832822E-01 415 1.395127E-01 1.712968E-02 6.568187E-01 420 2.077647E-01 2.576133E-02 9.933444E-01 425 2.688989E-01 3.529554E-02 1.308674E+00 430 3.281798E-01 4.698226E-02 1.624940E+00 435 3.693084E-01 6.047429E-02 1.867751E+00 440 4.026189E-01 7.468288E-02 2.075946E+00 445 4.042529E-01 8.820537E-02 2.132574E+00 450 3.932139E-01 1.039030E-01 2.128264E+00 455 3.482214E-01 1.195389E-01 1.946651E+00 460 3.013112E-01 1.414586E-01 1.768440E+00 465 2.534221E-01 1.701373E-01 1.582342E+00 470 1.914176E-01 1.999859E-01 1.310576E+00 475 1.283167E-01 2.312426E-01 1.010952E+00 480 7.593120E-02 2.682271E-01 7.516389E-01 485 3.836770E-02 3.109438E-01 5.549619E-01 490 1.400745E-02 3.554018E-01 3.978114E-01 495 3.446810E-03 4.148227E-01 2.905816E-01 500 5.652072E-03 4.780482E-01 2.078158E-01 505 1.561956E-02 5.491344E-01 1.394643E-01 510 3.778185E-02 6.248296E-01 8.852389E-02 515 7.538941E-02 7.012292E-01 5.824484E-02 520 1.201511E-01 7.788199E-01 3.784916E-02 525 1.756832E-01 8.376358E-01 2.431375E-02 530 2.380254E-01 8.829552E-01 1.539505E-02 535 3.046991E-01 9.233858E-01 9.753000E-03 540 3.841856E-01 9.665325E-01 6.083223E-03 545 4.633109E-01 9.886887E-01 3.769336E-03 550 5.374170E-01 9.907500E-01 2.323578E-03 555 6.230892E-01 9.997775E-01 1.426627E-03 560 7.123849E-01 9.944304E-01 8.779264E-04 565 8.016277E-01 9.848127E-01 5.408385E-04 570 8.933408E-01 9.640545E-01 3.342429E-04 575 9.721304E-01 9.286495E-01 2.076129E-04 580 1.034327E+00 8.775360E-01 1.298230E-04 585 1.106886E+00 8.370838E-01 8.183954E-05 590 1.147304E+00 7.869950E-01 5.207245E-05 595 1.160477E+00 7.272309E-01 3.347499E-05 600 1.148163E+00 6.629035E-01 2.175998E-05 605 1.113846E+00 5.970375E-01 1.431231E-05 610 1.048485E+00 5.282296E-01 9.530130E-06 615 9.617111E-01 4.601308E-01 6.426776E-06 620 8.629581E-01 3.950755E-01 0.000000E+00 625 7.603498E-01 3.351794E-01 0.000000E+00 630 6.413984E-01 2.751807E-01 0.000000E+00 635 5.290979E-01 2.219564E-01 0.000000E+00 640 4.323126E-01 1.776882E-01 0.000000E+00 645 3.496358E-01 1.410203E-01 0.000000E+00 650 2.714900E-01 1.083996E-01 0.000000E+00 655 2.056507E-01 8.137687E-02 0.000000E+00 660 1.538163E-01 6.033976E-02 0.000000E+00 665 1.136072E-01 4.425383E-02 0.000000E+00 670 8.281010E-02 3.211852E-02 0.000000E+00 675 5.954815E-02 2.302574E-02 0.000000E+00 680 4.221473E-02 1.628841E-02 0.000000E+00 685 2.948752E-02 1.136106E-02 0.000000E+00 690 2.025590E-02 7.797457E-03 0.000000E+00 695 1.410230E-02 5.425391E-03 0.000000E+00 700 9.816228E-03 3.776140E-03 0.000000E+00 705 6.809147E-03 2.619372E-03 0.000000E+00 710 4.666298E-03 1.795595E-03 0.000000E+00 715 3.194041E-03 1.229980E-03 0.000000E+00 720 2.205568E-03 8.499903E-04 0.000000E+00 725 1.524672E-03 5.881375E-04 0.000000E+00 730 1.061495E-03 4.098928E-04 0.000000E+00 735 7.400120E-04 2.860718E-04 0.000000E+00 740 5.153113E-04 1.994949E-04 0.000000E+00 745 3.631969E-04 1.408466E-04 0.000000E+00 750 2.556624E-04 9.931439E-05 0.000000E+00 755 1.809649E-04 7.041878E-05 0.000000E+00 760 1.287394E-04 5.018934E-05 0.000000E+00 %765 9.172477E-05 3.582218E-05 0.000000E+00 %770 6.577532E-05 2.573083E-05 0.000000E+00 %775 4.708916E-05 1.845353E-05 0.000000E+00 %780 3.407653E-05 1.337946E-05 0.000000E+00 %785 2.469630E-05 9.715798E-06 0.000000E+00 %790 1.794555E-05 7.074424E-06 0.000000E+00 %795 1.306345E-05 5.160948E-06 0.000000E+00 %800 9.565993E-06 3.788729E-06 0.000000E+00 %805 7.037621E-06 2.794625E-06 0.000000E+00 %810 5.166853E-06 2.057152E-06 0.000000E+00 %815 3.815429E-06 1.523114E-06 0.000000E+00 %820 2.837980E-06 1.135758E-06 0.000000E+00 %825 2.113325E-06 8.476168E-07 0.000000E+00 %830 1.579199E-06 6.345380E-07 0.000000E+00 ] def %END CIEF_XYZ_10 Colour matching functions 5nm 10-degree %/ixi [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 % .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 % .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 % .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 % .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 % .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 % .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 % .004109 .002899 .002049 .001440 .0009999 .0006901 % .000476 .0003323 .0002348 .0001662 ] def %/iyi [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .39E-04 .000064 .00012 .000217 .000396 .00064 .00121 .00218 % .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 % .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 % .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 % .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 % .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 % .01192 .00821 .005723 .004102 .002929 .002091 .001484 % .001047 .00074 .00052 .0003611 .0002492 .0001719 % .00012 .0000848 .00006 ] def %/izi [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 % 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 % 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 % .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 % .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 % .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 ] def %for xchart5=0 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 %for xchart5=1 /SP60 80 array def %380 bis 775 mit deltalambda=05 /SP55 80 array def %380 bis 775 mit deltalambda=05 /SP50 80 array def %380 bis 775 mit deltalambda=05 /SP45 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SP35 80 array def %380 bis 775 mit deltalambda=05 /SP30 80 array def %380 bis 775 mit deltalambda=05 /SP25 80 array def %380 bis 775 mit deltalambda=05 /ilDtxt [(D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00)] def /ilPtxt [(P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25)] def %for combined /SX00 80 array def %380 bis 775 mit deltalambda=05 /SX01 80 array def %380 bis 775 mit deltalambda=05 /SX02 80 array def %380 bis 775 mit deltalambda=05 /SX03 80 array def %380 bis 775 mit deltalambda=05 /SX04 80 array def %380 bis 775 mit deltalambda=05 /SX05 80 array def %380 bis 775 mit deltalambda=05 /SX06 80 array def %380 bis 775 mit deltalambda=05 /SX07 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def /TNCj 8 array def /TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 76 {/i exch def %i=0,76 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 560 lamda div mul put } for %i=0,76 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [ %x(380-775) .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 %y(380-775) .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 %z(380-775) .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def /proc_Cij_Eij {%BEG proc_Cij_Eij %procedure inverse matrix according to Ohta, Cook Wiley, page 278 %DCij=|C11 C12 C13| % |C21 C22 C23| % |C31 C32 C33| /DC C11 C22 mul C33 mul C12 C23 mul C31 mul add C13 C21 mul C32 mul add C11 C23 mul C32 mul sub C12 C21 mul C33 mul sub C13 C22 mul C31 mul sub def %delete collum and row for DCij %aus transponierter Matrix zu Cerechnen DCij->DCji %see Wikipedia "Adjunkte"% %DC11= |C22 C23| % |C32 C33| %DC21=-|C21 C23| % |C31 C33| %DC31= |C21 C22| % |C31 C32| %DC12=-|C12 C13| % |C32 C33| %DC22= |C11 C13| % |C31 C33| %DC32=-|C11 C12| % |C31 C32| %DC13= |C12 C13| % |C22 C23| %DC23=-|C11 C13| % |C21 C23| %DC33= |C11 C12| % |C21 C22| /DC11 C22 C33 mul C32 C23 mul sub def /DC21 C21 C33 mul C31 C23 mul sub neg def /DC31 C21 C32 mul C31 C22 mul sub def % /DC12 C12 C33 mul C32 C13 mul sub neg def /DC22 C11 C33 mul C31 C13 mul sub def /DC32 C11 C32 mul C31 C12 mul sub neg def % /DC13 C12 C23 mul C22 C13 mul sub def /DC23 C11 C23 mul C21 C13 mul sub neg def /DC33 C11 C22 mul C21 C12 mul sub def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Cij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /E11 DC11 DC div def /E12 DC12 DC div def /E13 DC13 DC div def % /E21 DC21 DC div def /E22 DC22 DC div def /E23 DC23 DC div def % /E31 DC31 DC div def /E32 DC32 DC div def /E33 DC33 DC div def } bind def %END proc_Cij_Eij /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 00 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 00 def /xchartm 01 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 00 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 00 def} ifelse %00/01 CIE 02/10, 02,03: CIE F02/10 /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 00 def} ifelse %5=0 illD /xchart xchart1 def xchart5 0 eq { %xchart5=0 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } if %xchart5=0 xchart5 1 eq {%xchart5=1 0 1 7 {/j exch def %j=0,7 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNCj j get 560 mul div def /E5 C2 TNCj j get lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def j 0 eq {SP60 i} if j 1 eq {SP55 i} if j 2 eq {SP50 i} if j 3 eq {SP45 i} if j 4 eq {SP40 i} if j 5 eq {SP35 i} if j 6 eq {SP30 i} if j 7 eq {SP25 i} if E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } for %j=0,7 } if %xchart5=1 /xcolor xcolor1 def %2,10 degree observer %0 1 1 {/xcolor exch def %xcolor=0,1 %2,10 degree observer /xchartx xchart1 def %ill. D65, xchart1 def %8 illuminants 0 1 0 {/xchartx exch def %xchartx=0,7 %8 illuminants %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 76 {/i exch def %i=0,76 xchart5 0 eq {%xchart5=0 xchartx 0 eq {SX00 i SD65 i get put} if xchartx 1 eq {SX01 i SD50 i get put} if xchartx 2 eq {SX02 i SP40 i get put} if xchartx 3 eq {SX03 i SA00 i get put} if xchartx 4 eq {SX04 i SE00 i get put} if xchartx 5 eq {SX05 i SC00 i get put} if xchartx 6 eq {SX06 i SP00 i get put} if xchartx 7 eq {SX07 i SQ00 i get put} if } %xchart5=0 {%xchart5=1 xchartx 0 eq {SX00 i SP60 i get put} if xchartx 1 eq {SX01 i SP55 i get put} if xchartx 2 eq {SX02 i SP50 i get put} if xchartx 3 eq {SX03 i SP45 i get put} if xchartx 4 eq {SX04 i SP40 i get put} if xchartx 5 eq {SX05 i SP35 i get put} if xchartx 6 eq {SX06 i SP30 i get put} if xchartx 7 eq {SX07 i SP25 i get put} if } ifelse %xchart5=1 } for %i=0,76 0 1 76 {/i exch def %i=0,76 SDAK i xchartx 0 eq {SX00 i get} if xchartx 1 eq {SX01 i get} if xchartx 2 eq {SX02 i get} if xchartx 3 eq {SX03 i get} if xchartx 4 eq {SX04 i get} if xchartx 5 eq {SX05 i get} if xchartx 6 eq {SX06 i get} if xchartx 7 eq {SX07 i get} if put } for %i=0,76 0 1 76 {/i exch def %i=0,76 xchart4 0 eq {%xchart4=0 02 degree XASj i F2 000 i add get SDAK i get mul 100. div put YASj i F2 080 i add get SDAK i get mul 100. div put ZASj i F2 160 i add get SDAK i get mul 100. div put } if %xchart4=0 xchart4 1 eq {%xchart4=1 10 degree XASj i F10 000 i add get SDAK i get mul 100. div put YASj i F10 080 i add get SDAK i get mul 100. div put ZASj i F10 160 i add get SDAK i get mul 100. div put } if %xchart4=1 xchart4 2 eq xchart4 4 eq or {%xchart4=2,4 CIEF_02 degree /i40 i 4 mul def XASj i CIEF_XYZ_02 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_02 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_02 i40 3 add get SDAK i get mul 100. div put } if %xchart4=2,4 xchart4 3 eq xchart4 5 eq or {%xchart4=3,5 CIEF_10 degree /i40 i 4 mul def XASj i CIEF_XYZ_10 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_10 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_10 i40 3 add get SDAK i get mul 100. div put } if %xchart4=3,5 } for %i=0,76 /fsYAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsYAS fsYAS YASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XASj i XASj i get fsYAS div 100. mul put YASj i YASj i get fsYAS div 100. mul put ZASj i ZASj i get fsYAS div 100. mul put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXAS fsXAS XASj i get add def /fsYAS fsYAS YASj i get add def /fsZAS fsZAS ZASj i get add def } for %i=0,76 /i555 555 380 sub 5 idiv def /fakY 1. YASj i555 get div def 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XA1j i XASj i get fakY mul put YA1j i YASj i get fakY mul put ZA1j i ZASj i get fakY mul put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXA1 fsXA1 XA1j i get add def /fsYA1 fsYA1 YA1j i get add def /fsZA1 fsZA1 ZA1j i get add def } for %i=0,76 /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 67 Wellenlaengen ohne Purpur, 380_710/5:0_66 [00 00 00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %ED TC1-36 CIE 171-2, 2015, page 16, line 20-23, eq. (8.18) %transforms lmsF (2 degree) to xyzF (2 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F02 1.94735469 def /A12_F02 -1.41445123 def /A13_F02 0.36476327 def /A21_F02 0.68990272 def /A22_F02 0.34832189 def /A23_F02 0.00000000 def /A31_F02 0.00000000 def /A32_F02 0.00000000 def /A33_F02 1.93485343 def %ED TC1-36 CIE 171-2, 2015, page 20, line 14. eq. (8.21) %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F10 1.93986443 def /A12_F10 -1.34664359 def /A13_F10 0.43044935 def /A21_F10 0.69283932 def /A22_F10 0.34967567 def /A23_F10 0.00000000 def /A31_F10 0.00000000 def /A32_F10 0.00000000 def /A33_F10 2.14687945 def %R17_M1 %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M1 1.93986443 def /A12_R17_M1 -1.34664359 def /A13_R17_M1 0.43044935 def /A21_R17_M1 0.69283932 def /A22_R17_M1 0.34967567 def /A23_R17_M1 0.00000000 def /A31_R17_M1 0.00000000 def /A32_R17_M1 0.00000000 def /A33_R17_M1 2.14687945 def %R17_M2 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M2 1.40000000 def /A12_R17_M2 -0.70000000 def /A13_R17_M2 0.30000000 def /A21_R17_M2 0.50000000 def /A22_R17_M2 0.50000000 def /A23_R17_M2 0.00000000 def /A31_R17_M2 0.00000000 def /A32_R17_M2 0.00000000 def /A33_R17_M2 1.00000000 def %R17_M3 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M3 1.32000000 def /A12_R17_M3 -0.66000000 def /A13_R17_M3 0.34000000 def /A21_R17_M3 0.50000000 def /A22_R17_M3 0.50000000 def /A23_R17_M3 0.00000000 def /A31_R17_M3 0.00000000 def /A32_R17_M3 0.00000000 def /A33_R17_M3 1.00000000 def %R17_M4 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M4 1.30000000 def /A12_R17_M4 -0.65000000 def /A13_R17_M4 0.35000000 def /A21_R17_M4 0.50000000 def /A22_R17_M4 0.50000000 def /A23_R17_M4 0.00000000 def /A31_R17_M4 0.00000000 def /A32_R17_M4 0.00000000 def /A33_R17_M4 1.00000000 def %R17_M5 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M5 2.64000000 def /A12_R17_M5 -1.32000000 def /A13_R17_M5 0.68000000 def /A21_R17_M5 0.50000000 def /A22_R17_M5 0.50000000 def /A23_R17_M5 0.00000000 def /A31_R17_M5 0.00000000 def /A32_R17_M5 0.00000000 def /A33_R17_M5 1.00000000 def %R17_M6 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M6 2.60000000 def /A12_R17_M6 -1.30000000 def /A13_R17_M6 0.70000000 def /A21_R17_M6 0.50000000 def /A22_R17_M6 0.50000000 def /A23_R17_M6 0.00000000 def /A31_R17_M6 0.00000000 def /A32_R17_M6 0.00000000 def /A33_R17_M6 1.00000000 def %Convert Xc,Yc,Zc to cone responses L, M, S (R',G',B') %using the Hunt-Pointer_Estevez (HPE) matrix %see CIE 214:2077 colour fidelity-Index %see Ohta/Robertson, book Wiley, p. 202 %see Fairchild, book Wiley, p. 211 %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /B11_HPE 0.38971 def /B12_HPE 0.68898 def /B13_HPE -0.07868 def /B21_HPE -0.22981 def /B22_HPE 1.18340 def /B23_HPE 0.04641 def /B31_HPE 0.00000 def /B32_HPE 0.00000 def /B33_HPE 1.00000 def %Nayatani in Ohta S. 195-196, similar data not for CIE illuminant E %/B11_NAY 0.40024 def %/B12_NAY 0.70760 def %/B13_NAY -0.08081 def %/B21_NAY -0.22630 def %/B22_NAY 1.16532 def %/B23_NAY 0.04570 def %/B31_NAY 0.00000 def %/B32_NAY 0.00000 def %/B33_NAY 0.91822 def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E xchart4 0 eq xchart4 1 eq or {%XYZ_02, XYZ_10 /B11 B11_HPE def /B12 B12_HPE def /B13 B13_HPE def /B21 B21_HPE def /B22 B22_HPE def /B23 B23_HPE def /B31 B31_HPE def /B32 B32_HPE def /B33 B33_HPE def } if xchart4 2 eq xchart4 4 eq or {%LMS_F02 /A11 A11_F02 def /A12 A12_F02 def /A13 A13_F02 def /A21 A21_F02 def /A22 A22_F02 def /A23 A23_F02 def /A31 A31_F02 def /A32 A32_F02 def /A33 A33_F02 def } if xchart4 3 eq xchart4 5 eq or {%LMS_F10 /A11 A11_F10 def /A12 A12_F10 def /A13 A13_F10 def /A21 A21_F10 def /A22 A22_F10 def /A23 A23_F10 def /A31 A31_F10 def /A32 A32_F10 def /A33 A33_F10 def } if xchart4 6 eq {%LMS_R17_M1 /A11 A11_R17_M1 def /A12 A12_R17_M1 def /A13 A13_R17_M1 def /A21 A21_R17_M1 def /A22 A22_R17_M1 def /A23 A23_R17_M1 def /A31 A31_R17_M1 def /A32 A32_R17_M1 def /A33 A33_R17_M1 def } if xchart4 7 eq {%LMS_R17_M2 /A11 A11_R17_M2 def /A12 A12_R17_M2 def /A13 A13_R17_M2 def /A21 A21_R17_M2 def /A22 A22_R17_M2 def /A23 A23_R17_M2 def /A31 A31_R17_M2 def /A32 A32_R17_M2 def /A33 A33_R17_M2 def } if xchart4 8 eq {%LMS_R17_M3 /A11 A11_R17_M3 def /A12 A12_R17_M3 def /A13 A13_R17_M3 def /A21 A21_R17_M3 def /A22 A22_R17_M3 def /A23 A23_R17_M3 def /A31 A31_R17_M3 def /A32 A32_R17_M3 def /A33 A33_R17_M3 def } if xchart4 9 eq {%LMS_R17_M4 /A11 A11_R17_M4 def /A12 A12_R17_M4 def /A13 A13_R17_M4 def /A21 A21_R17_M4 def /A22 A22_R17_M4 def /A23 A23_R17_M4 def /A31 A31_R17_M4 def /A32 A32_R17_M4 def /A33 A33_R17_M4 def } if xchart4 0 eq xchart4 1 eq or {%xchart4=0,1 /C11 B11 def /C12 B12 def /C13 B13 def /C21 B21 def /C22 B22 def /C23 B23 def /C31 B31 def /C32 B32 def /C33 B33 def proc_Cij_Eij /A11 E11 def /A12 E12 def /A13 E13 def /A21 E21 def /A22 E22 def /A23 E23 def /A31 E31 def /A32 E32 def /A33 E33 def } if %xchart4=0,1 xchart4 2 eq xchart4 3 eq or xchart4 4 eq or xchart4 5 eq or xchart4 6 eq or xchart4 7 eq or xchart4 8 eq or xchart4 9 eq or {%xchart4=2,9,1 /C11 A11 def /C12 A12 def /C13 A13 def /C21 A21 def /C22 A22 def /C23 A23 def /C31 A31 def /C32 A32 def /C33 A33 def proc_Cij_Eij /B11 E11 def /B12 E12 def /B13 E13 def /B21 E21 def /B22 E22 def /B23 E23 def /B31 E31 def /B32 E32 def /B33 E33 def } if %xchart4=2,9,1 % R G B C M Y /tf370 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %X=370=620 /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf420 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %T=420 /tf445 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %S=445 /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B=Mc=570c /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B' new /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %B" new /tf495 {0.00 0.80 1.00 setrgbcolor} bind def %g75b 1.00 0.20 0.00 %C=Rc=620c /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %C' new /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %C" new /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %C"' new /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G=520 /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G' new /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %G" new /tf545 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %M=545 /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %M' /tf557 {0.60 1.00 0.00 setrgbcolor} bind def %j33g 0.40 0.00 1.00 %V /tf563 {0.80 1.00 0.00 setrgbcolor} bind def %j17g 0.20 0.00 1.00 %V' new /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M=570 /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M' /tf595 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O=595 /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O' new /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %O" new /tf620 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %R=620 /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R' new /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 %R" /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 %Gc=520c new /tf670 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %U=670=420 /tf720 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %W=720=470 /tfRe {1.00 0.00 0.20 setrgbcolor} bind def %Re 0.00 1.00 0.80 %Re /tfYe {1.00 1.00 0.00 setrgbcolor} bind def %Ye 0.00 0.00 1.00 %Ye /tfGe {0.00 1.00 0.20 setrgbcolor} bind def %Ge 1.00 0.00 0.80 %Ge /tfBe {0.00 0.20 1.00 setrgbcolor} bind def %Be 1.00 0.80 0.00 %Be %output allways text italic /Xt370 {tf370 (X) bishowM} def /Xt420 {tf420 (T) bishowM} def /Xt445 {tf445 (S) bishowM} def /Xt470 {tf470 (B) bishowM} def /Xt520 {tf520 (G) bishowM} def /Xt545 {tf545 (M) bishowM} def /Xt557 {tfw (V) bishowM} def /Xt570 {tf570 (L) bishowM} def /Xt570e {tf570 (Y) bishowM} def /Xt595 {tf595 (O) bishowM} def /Xt620 {tf620 (R) bishowM} def /Xt670 {tf670 (U) bishowM} def /Xt720 {tf720 (W) bishowM} def %output allways number normal /Xn370 {tf370 (370) bshowM} def /Xn420 {tf420 (420) bshowM} def /Xn445 {tf445 (445) bshowM} def /Xn470 {tf470 (470) bshowM} def /Xn520 {tf520 (520) bshowM} def /Xn545 {tf545 (545) bshowM} def /Xn557 {tfw (557) bshowM} def /Xn570 {tf570 (570) bshowM} def /Xn595 {tf595 (595) bshowM} def /Xn620 {tf620 (620) bshowM} def /Xn670 {tf670 (670) bshowM} def /Xn720 {tf720 (720) bshowM} def %output allways text index /Xt370i {tf370 (X) ishowK} def /Xt420i {tf420 (T) ishowK} def /Xt445i {tf445 (S) ishowK} def /Xt470i {tf470 (B) ishowK} def /Xt520i {tf520 (G) ishowK} def /Xt545i {tf545 (M) ishowK} def /Xt557i {tfw (V) ishowK} def /Xt570i {tf570 (L) ishowK} def /Xt595i {tf595 (O) ishowK} def /Xt620i {tf620 (R) ishowK} def /Xt670i {tf670 (U) ishowK} def /Xt720i {tf720 (W) ishowK} def %output allways number index /Xn370i {tf370 (370) ishowK} def /Xn420i {tf420 (420) ishowK} def /Xn445i {tf445 (445) ishowK} def /Xn470i {tf470 (470) ishowK} def /Xn520i {tf520 (520) ishowK} def /Xn545i {tf545 (545) ishowK} def /Xn557i {tfw (557) ishowK} def /Xn570i {tf570 (570) ishowK} def /Xn595i {tf595 (595) ishowK} def /Xn620i {tf620 (620) ishowK} def /Xn670i {tf670 (670) ishowK} def /Xn720i {tf720 (720) ishowK} def %wavelength for calculation /W370 370 def /W420 420 def /W445 445 def /W470 470 def /W520 520 def /W545 545 def /W557 557.5 def /W570 570 def /W595 595 def /W620 620 def /W670 670 def /W720 720 def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 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 /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 % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth 0 0 11200 08600 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11200 08600 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 150 /Times-ISOL1 FS 100 -150 moveto (DEV50-3N) show %xchart 1 add cvishow } if %xbtex0=1 % 'DNV5'YLOOPBEG5.EPS /xchartl xchart def 4 1 7 {/xchartl2 exch def %xchartl2=4,7 gsave xchartl2 4 eq {/xchartl 9 def} if xchartl2 5 eq {/xchartl 3 def} if xchartl2 6 eq {/xchartl 4 def} if xchartl2 7 eq {/xchartl 5 def} if % space essential for files Y*A.EPS xchartl2 4 eq { 100 4500 translate} if xchartl2 5 eq {5700 4500 translate} if xchartl2 6 eq { 100 0250 translate} if xchartl2 7 eq {5700 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 100 -140 moveto xchartl 7 le {(DEV50-) show} {(DEV50-) show} ifelse xchartl2 03 sub cvishow %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse /xwidth 5400 def /ywidth 4000 def 1 setgray %frame white, only grey for xchartl=14,15 %xchartl 14 ge %xchartl 15 le and {0.0 0.0 0.0 0.5 setcmykcolor} if 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black /xpos 6 array def /xpos [100 1000 1900 2800 3700 4600] def /ymax 3000 def /ydel 0500 def 200 /Times-ISOL1 FS 0 setgray TBK %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmykcolor %font black 1800 100 moveto (Wellenl\344nge ) showde %08141-1 1 (wavelength ) showen %18141-1 1 (Ancho de banda ) showes %28141-1 1 (wavelength ) showfr %38141-1 1 (wavelength ) showit %48141-1 1 (wavelength ) showjp %58141-1 1 SK (l) show TBK 30 0 rmoveto (/nm) show %scale x 3*1200=3600 %scale y 4*600=2400 /xd 70 def /xd2 140 def /ix0 450 def /iy0 650 def /ixd0 240 def %x-start at 380 nm /ixd 1200 def /iyd 600 def /tx [ (400) (500) (600) (700)] def /ty1 [(0,0) ( ) (1,0) ( ) (2,0) ( ) ] def /tys [(0,0) (2,5) (5,0) (7,5) (10) ( ) ] def /ty20 [( 0) (10) (20) (30) (40) (50) ] def /tyo [(0,0) ( ) (0,5) ( ) (1,0) ( ) ] def /typ [(-1) ( ) ( 0) ( ) ( 1) ( ) ] def 40 setlinewidth ix0 iy0 moveto 4300 0 rlineto stroke %x ix0 iy0 moveto 0 2700 rlineto stroke %y 30 setlinewidth ix0 4300 add iy0 moveto -100 050 rlineto stroke %x_arrow ix0 4300 add iy0 moveto -100 -050 rlineto stroke %x_arrow ix0 iy0 2700 add moveto -050 -100 rlineto stroke %y_arrow ix0 iy0 2700 add moveto 050 -100 rlineto stroke %y_arrow %cero line 20 setlinewidth [100 ] 0 setdash xchartl 00 ge xchartl 02 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 03 ge xchartl 05 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 06 ge xchartl 07 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 08 ge xchartl 10 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 11 ge xchartl 13 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 14 ge xchartl 15 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if [ ] 0 setdash 40 setlinewidth 0 1 3 {/i exch def %x ix0 ixd0 add i ixd mul add iy0 50 sub moveto 0 100 rlineto stroke } for xchartl 00 ge xchartl 15 le and {/iydo iyd def} if 0 1 4 {/i exch def %y ix0 050 sub iy0 i iydo mul add moveto 100 0 rlineto stroke } for TBS 0 1 3 {/i exch def %xtex ix0 ixd0 add i ixd mul add 150 sub iy0 250 sub moveto tx i get show } for /i 3 def ix0 ixd0 add i ixd mul add 150 add iy0 300 add moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse 0 1 4 {/i exch def %ytex ix0 300 sub iy0 i iydo mul add 100 sub moveto xchartl 00 ge xchartl 02 le and {ty1 i get show} if xchartl 03 ge xchartl 05 le and {tys i get show} if xchartl 06 ge xchartl 07 le and {ty1 i get show} if xchartl 08 ge xchartl 10 le and {ty1 i get show} if xchartl 11 ge xchartl 13 le and {tys i get show} if xchartl 14 eq {ty1 i get show} if xchartl 15 eq {ty1 i get show} if } for 0 1 76 {/i exch def %i=0,76 lASj i B11 XASj i get mul B12 YASj i get mul add B13 ZASj i get mul add put mASj i B21 XASj i get mul B22 YASj i get mul add B23 ZASj i get mul add put sASj i B31 XASj i get mul B32 YASj i get mul add B33 ZASj i get mul add put } for %i=0,76 0 1 76 {/i exch def %i=0,76 lA1j i B11 XA1j i get mul B12 YA1j i get mul add B13 ZA1j i get mul add put mA1j i B21 XA1j i get mul B22 YA1j i get mul add B23 ZA1j i get mul add put sA1j i B31 XA1j i get mul B32 YA1j i get mul add B33 ZA1j i get mul add put } for %i=0,76 /fslA1 0 def /fsmA1 0 def /fssA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslA1 fslA1 lA1j i get add def /fsmA1 fsmA1 mA1j i get add def /fssA1 fssA1 sA1j i get add def } for %i=0,76 /fslAS 0 def /fsmAS 0 def /fssAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslAS fslAS lASj i get add def /fsmAS fsmAS mASj i get add def /fssAS fssAS sASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 xyzan /sumXYZ XASj i get YASj i get add ZASj i get add def xanASj i XASj i get sumXYZ 0.01 add div put yanASj i YASj i get sumXYZ 0.01 add div put zanASj i ZASj i get sumXYZ 0.01 add div put } for %i=0,76 /inx4 10 array def %index for xchart4 and number BLxx (xx=40 to 65) %0,40 1,42 2,44 3,46 /inx4 [(02) (10) (F02) (F10) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17M3) (R17M4)] def /xposj 3000 def /yposj 3200 def /yposjP yposj 300 add def %3500 /yposjT yposj 600 add def %3800 /yposjM yposj 300 sub def %2900 /yposjK yposj 600 sub def %2600 /xposj0 30 def /yposj0 yposjT 300 sub def %part1 equation /xposj1 0500 def /yposj1 yposj0 0300 sub def %table A/Bij /xposj20 500 def /xposj21 3300 def %sum /yposj2 yposj0 0600 sub def %lamda1,m,2 & illuminant & sum /xposj3 2400 def /xposj31 2700 def %x,y /yposj3 yposj0 0900 sub def %sum lms(lamda1,m,2) or (x) /xposj4 3900 def /yposj4 yposj0 0900 sub def %(lms max=1) /xposj5 3700 def /yposj5 1900 def %lms(max)=1 /W0 570 def %default lambda /W1 545 def /W2 445 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamda0ss {inx4 xchart4 get ib4 (,s) ib4} def /lamdakss {lamda0ss lamdak} def /lamda0ns {inx4 xchart4 get ib4 (,n) ib4} def /lamdakns {lamda0ns lamdak} def /lamdakmax {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdakall {TBK (\050) show SK (l) show (1,m,2) is4 TBK (\051) show} bind def /lamda01smax {lamda01s lamdakmax} def /lamda0ssmax {lamda0ss lamdakmax} def /lamda0nsmax {lamda0ns lamdakmax} def /lamda01sall {lamda01s lamdakall} def /lamda0ssall {lamda0ss lamdakall} def /lamda0nsall {lamda0ns lamdakall} def 100 yposjT moveto /TBK1 {230 /TimesB-ISOL1 FS} bind def lanind 0 eq {TBK1} {TBK} ifelse (HPE_CIE) show inx4 xchart4 get show xchartl 00 ge xchartl 07 le and {(\255Zapfenempfindlichkeit) showde (\255cone sensitivity) showen } if xchartl 00 ge xchartl 02 le and {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 03 ge xchartl 05 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if xchartl 06 eq {TBIK ( l) show -100 120 rmoveto (-) show 0 -120 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 07 eq {TBIK ( m) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if %maximum lAsj, mASj, sASj /lASjm 0 def /mASjm 0 def /sASjm 0 def /lASj_lamda 380 def /mASj_lamda 380 def /sASj_lamda 380 def 0 1 76 {/i exch def %i=0,76 lASj i get lASjm ge {/lASjm lASj i get def /lASjm_lamda 380 i 5 mul add def} if mASj i get mASjm ge {/mASjm mASj i get def /mASjm_lamda 380 i 5 mul add def} if sASj i get sASjm ge {/sASjm sASj i get def /sASjm_lamda 380 i 5 mul add def} if } for %i=0,76 %normalized to max 0 1 76 {/i exch def %i=0,76 lANj i lASj i get lASjm div put mANj i mASj i get mASjm div put sANj i sASj i get sASjm div put } for %i=0,76 /lASj1 0 def /mASj1 0 def /sASj1 0 def /lASj1_lamda 380 def /mASj1_lamda 380 def /sASj1_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 lt lANj i 1 add get 0.5 ge and {/lASj10 lASj i get def /lASj10_lamda 380 i 5 mul add def /lASj11 lASj i 1 add get def /lASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj10 sub lASj11 lASj10 sub 0.01 add div def /lASj1 lASj10 lASj11 lASj10 sub fact mul add def /lASj1_lamda lASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 lt mANj i 1 add get 0.5 ge and {/mASj10 mASj i get def /mASj10_lamda 380 i 5 mul add def /mASj11 mASj i 1 add get def /mASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj10 sub mASj11 mASj10 sub 0.01 add div def /mASj1 mASj10 mASj11 mASj10 sub fact mul add def /mASj1_lamda mASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 lt sANj i 1 add get 0.5 ge and {/sASj10 sASj i get def /sASj10_lamda 380 i 5 mul add def /sASj11 sASj i 1 add get def /sASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj10 sub sASj11 sASj10 sub 0.01 add div def /sASj1 sASj10 sASj11 sASj10 sub fact mul add def /sASj1_lamda sASj10_lamda 5 fact mul add def } if } for %i=0,75 /lASj2 0 def /mASj2 0 def /sASj2 0 def /lASj2_lamda 380 def /mASj2_lamda 380 def /sASj2_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 gt lANj i 1 add get 0.5 le and {/lASj20 lASj i get def /lASj20_lamda 380 i 5 mul add def /lASj21 lASj i 1 add get def /lASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj20 sub lASj21 lASj20 sub 0.01 add div def /lASj2 lASj20 lASj21 lASj20 sub fact mul add def /lASj2_lamda lASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 gt mANj i 1 add get 0.5 le and {/mASj20 mASj i get def /mASj20_lamda 380 i 5 mul add def /mASj21 mASj i 1 add get def /mASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj20 sub mASj21 mASj20 sub 0.01 add div def /mASj2 mASj20 mASj21 mASj20 sub fact mul add def /mASj2_lamda mASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 gt sANj i 1 add get 0.5 le and {/sASj20 sASj i get def /sASj20_lamda 380 i 5 mul add def /sASj21 sASj i 1 add get def /sASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj20 sub sASj21 sASj20 sub 0.01 add div def /sASj2 sASj20 sASj21 sASj20 sub fact mul add def /sASj2_lamda sASj20_lamda 5 fact mul add def } if } for %i=0,75 100 yposjP moveto TBIK xchartl 0 eq {(l) show} if xchartl 1 eq {(m) show} if xchartl 2 eq {(s) show} if xchartl 3 eq {(l) show} if xchartl 4 eq {(m) show} if xchartl 5 eq {(s) show} if xchartl 6 eq {(l) show} if xchartl 7 eq {(m) show} if xchartl 0 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 2 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 3 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 5 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 6 eq {-100 120 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 05 le and {lamdakss} if xchartl 06 eq xchartl 07 eq or {lamdakns} if xchartl 00 ge xchartl 02 le and {/lamdakas {lamdak1s} def} if xchartl 03 ge xchartl 05 le and {/lamdakas {lamdakss} def} if xchartl 06 eq xchartl 07 eq or {/lamdakas {lamdakns} def} if xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {%xchartl=00,03,06 TBK (=) show xchartl 06 eq xchartl 14 eq or {([) show } if TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 06 eq {(]/) show lASjm cvsshow2x} if } if %xchartl=00,03,06 xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {%xchartl=01,04,07 TBK (=) show xchartl 07 eq {([) show } if TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 07 eq {(]/) show mASjm cvsshow2x} if } if %xchartl=01,04,07 xchartl 02 eq xchartl 05 eq or {%xchartl=02,05 TBK (=) show TBK (B) show (31) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas } if %xchartl=02,05 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {xpos 0 get yposj1 moveto (B) show (1j) is4 xpos 1 get yposj1 moveto B11 cvsshow4x xpos 2 get yposj1 moveto B12 cvsshow4x xpos 3 get yposj1 moveto B13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show } if xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {xpos 0 get yposj1 moveto (B) show (2j) is4 xpos 1 get yposj1 moveto B21 cvsshow4x xpos 2 get yposj1 moveto B22 cvsshow4x xpos 3 get yposj1 moveto B23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show } if xchartl 02 eq xchartl 05 eq or {xpos 0 get yposj1 moveto (B) show (3j) is4 xpos 1 get yposj1 moveto B31 cvsshow4x xpos 2 get yposj1 moveto B32 cvsshow4x xpos 3 get yposj1 moveto B33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show } if 0 1 76 {/i exch def %i=0,76 xchartl 0 eq {ycuri i lA1j i get 1 mul put} if xchartl 1 eq {ycuri i mA1j i get 1 mul put} if xchartl 2 eq {ycuri i sA1j i get 1 mul put} if xchartl 3 eq {ycuri i lASj i get 0.2 mul put} if xchartl 4 eq {ycuri i mASj i get 0.2 mul put} if xchartl 5 eq {ycuri i sASj i get 0.2 mul put} if xchartl 06 eq {ycuri i lASj i get lASjm div put} if xchartl 07 eq {ycuri i mASj i get mASjm div put} if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units xchartl 00 ge xchartl 07 le and {%0<=xchartl<=7, 14,15 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm xchartl 13 le {/iy01 iy0 def} {/iy01 iy0 1200 add def} ifelse /y10 iy01 def /y11 iy01 ycuri i get 1200 mul add def /y21 iy01 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 } if %0<=xchartl<=7 [] 0 setdash 0 setgray 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 0 eq {SK (S) show TBIK (l) show} if xchartl 1 eq {SK (S) show TBIK (m) show} if xchartl 2 eq {SK (S) show TBIK (s) show} if xchartl 3 eq {SK (S) show TBIK (l) show} if xchartl 4 eq {SK (S) show TBIK (m) show} if xchartl 5 eq {SK (S) show TBIK (s) show} if xchartl 6 eq {SK (S) show TBIK (l) show} if xchartl 7 eq {SK (S) show TBIK (m) show} if xchartl 0 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 2 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 3 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 5 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 6 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 07 le and {lamdakss} if xchartl 00 ge xchartl 07 le and {TK (=) show} if TK xchartl 0 eq {fslA1 cvsshow2x} if xchartl 1 eq {fsmA1 cvsshow2x} if xchartl 2 eq {fssA1 cvsshow2x} if xchartl 3 eq {fslAS cvsshow2x} if xchartl 4 eq {fsmAS cvsshow2x} if xchartl 5 eq {fssAS cvsshow2x} if xchartl 6 eq {fslAS cvsshow2x} if xchartl 7 eq {fsmAS cvsshow2x} if /lamdakm {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdak1nm {lamda0ns lamdakm} def xchartl 03 eq xchartl 06 eq or {/iymax lASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamda0ssall TK (=) show lASj1 cvsshow2x TK (, ) show lASjm cvsshow2x TK (, ) show lASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show lASj1_lamda cvishow (, ) show lASjm_lamda cvishow (, ) show lASj2_lamda cvishow } if xchartl 04 eq xchartl 07 eq or {/iymax mASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show mASj1 cvsshow2x TK (, ) show mASjm cvsshow2x TK (, ) show mASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show mASj1_lamda cvishow (, ) show mASjm_lamda cvishow (, ) show mASj2_lamda cvishow } if xchartl 5 eq {/iymax sASjm 0.2 mul 1200 mul def ix0 iy0 iymax add moveto 0900 0 rlineto stroke xposj3 yposj3 moveto TBIK (s) show -100 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show sASj1 cvsshow2x TK (, ) show sASjm cvsshow2x TK (, ) show sASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show sASj1_lamda cvishow (, ) show sASjm_lamda cvishow (, ) show sASj2_lamda cvishow } if xchartl 00 ge xchartl 02 le and {%00<=xchartl<=02, 03<=xchartl<=07 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%00<=xchartl<=02 {%03<=xchartl<=07 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %00<=xchartl<=02, 03<=xchartl<=07 xchartl 00 ge xchartl 02 le and {%0<=xchartl<=2 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } if %0<=xchartl<=2 } bind def %END proc_LMS1_02, xchartl=0,7 %***************************************************************** /proc_XYZI_02 {%BEG proc_XYZI_02, xchartl=8,15 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 13 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (CIE) show inx4 xchart4 get show xchartl 08 ge xchartl 15 le and { (\255Normspektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 11 ge xchartl 13 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if 100 yposjP moveto TBIK xchartl 8 eq {(x) show} if xchartl 9 eq {(y) show} if xchartl 10 eq {(z) show} if xchartl 11 eq {(x) show} if xchartl 12 eq {(y) show} if xchartl 13 eq {(z) show} if xchartl 14 eq {(y) show} if xchartl 15 eq {(y) show} if xchartl 8 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 9 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 10 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 11 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 12 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 13 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 14 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 15 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 08 eq xchartl 11 eq or {%xchartl=8 or 11 TBK (=) show TBK (A) show (11) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (12) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=8 or 11 xchartl 09 eq xchartl 12 eq or xchartl 14 eq or xchartl 15 eq or {%xchartl=9,12,14,15 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12,14,15 xchartl 10 eq xchartl 13 eq or {%xchartl=10 or 13 TBK (=) show TBK (A) show (31) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (32) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (33) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10 or 13 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 08 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 09 eq xchartl 14 eq or xchartl 15 eq or {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if 0 1 76 {/i exch def %i=0,76 xchartl 08 eq {ycuri i XA1j i get 1 mul put} if xchartl 09 eq {ycuri i YA1j i get 1 mul put} if xchartl 10 eq {ycuri i ZA1j i get 1 mul put} if xchartl 11 eq {ycuri i XASj i get 0.2 mul put} if xchartl 12 eq {ycuri i YASj i get 0.2 mul put} if xchartl 13 eq {ycuri i ZASj i get 0.2 mul put} if xchartl 14 eq {ycuri i YA1j i get 1 mul put} if xchartl 15 eq {ycuri i YA1j i get 1 mul put} if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm /y10 iy0 def /y11 iy0 ycuri i get 1200 mul add def /y21 iy0 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 %only for 8<=xchartl<=15 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 8 eq {SK (S) show TIK (x) show} if xchartl 9 eq {SK (S) show TIK (y) show} if xchartl 10 eq {SK (S) show TIK (z) show} if xchartl 11 eq {SK (S) show TIK (x) show} if xchartl 12 eq {SK (S) show TIK (y) show} if xchartl 13 eq {SK (S) show TIK (z) show} if xchartl 14 eq {SK (S) show TIK (y) show} if xchartl 15 eq {SK (S) show TIK (y) show} if xchartl 8 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 9 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 10 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 11 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 12 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 13 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 14 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 15 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s xchartl 08 ge xchartl 15 le and {TK (=) show} if TK xchartl 8 eq {fsXA1 cvsshow2x} if xchartl 9 eq {fsYA1 cvsshow2x} if xchartl 10 eq {fsZA1 cvsshow2x} if xchartl 11 eq {fsXAS cvsshow2x} if xchartl 12 eq {fsYAS cvsshow2x} if xchartl 13 eq {fsZAS cvsshow2x} if xchartl 14 eq {fsYA1 cvsshow2x} if xchartl 15 eq {fsYA1 cvsshow2x} if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {%08<=xchartl<=10, 14,15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def } if %08<=xchartl<=10, 14,15 xchartl 11 ge xchartl 13 le and {%11<=xchartl<=13 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } if %11<=xchartl<13 %xchartl 15 ne {%xchartl#15 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x % } if %xchartl#15 } bind def %END proc_XYZI_02, xchartl=8,15 %********************************************************************* /proc_LMS1_14 {%BEG proc_LMS1_14 xchartl=14 only plot of a*l(lamda)+b*m(lamda) /Yiy 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves 0 1 2 {/icurv exch def %icurv=0,2 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiy i lA1j i get 0.6899 mul put} if icurv 1 eq {Yiy i mA1j i get 0.3483 mul put} if icurv 2 eq {Yiy i lA1j i get 0.6899 mul mA1j i get 0.3483 mul add put} if } for %i=0,76 %three curves %570 = 380 + i*5, i=(570-380)/5=38 /ila 38 def %capital Y! /mA1a mA1j ila get 0.6899 mul def /lA1a lA1j ila get 0.3483 mul def /yA1a mA1a lA1a add def /YA1a YA1j ila get def %0050 0250 moveto TV (lmyY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %yA1a cvsshow4x (, ) show %YA1a cvsshow4x /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiy 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiy i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,2 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def 0600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 0600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 0600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } bind def %END proc_LMS1_14, xchartl=14 %************************************************************** /proc_LMS1_15 {%BEG proc_LMS1_15 xchartl=15 only plot of a*l(lamda)+b*m(lamda) /Yiz 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves %570 = 380 + i*5, i=(570-380)/5=38 %lA1_38=1,0000=lA1j 38 get %mA1_38=0,8135=MA1j 38 get %yA1_38=0,8964=yA1j 38 get /ila 38 def %capital Y! /lA1a lA1j ila get def /mA1a mA1j ila get def /YA1a YA1j ila get def /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show %five curves 0 1 4 {/icurv exch def %icurv=0,4 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiz i lA1j i get YA1a lA1a div mul put} if icurv 1 eq {Yiz i mA1j i get YA1a mA1a div mul put} if icurv 2 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul add 0.5 mul put} if icurv 3 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub put} if icurv 4 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub neg put} if } for %i=0,76 %0050 0250 moveto TV (lmY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %YA1a cvsshow4x 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if icurv 3 eq {tf620} if icurv 4 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiz 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiz i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,4 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamdaka {TBK (\050) show SK (l) show (a) ib4 TBK (\051) show} bind def /lamdak1sa {lamda01s lamdaka} def 600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 1600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (3) is4 TBK (=a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 (-b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 600 1300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (4) is4 TBK (=b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 (-a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 2600 2300 moveto TBK (a=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (m) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa 2600 2000 moveto TBK (b=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (l) show TBK -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1sa 4000 1600 moveto TK (Adaptation:) show 4000 1300 moveto SK (l) show (a) is4 TK (=570nm) show } bind def %END proc_LMS1_15, xchartl=15 %************************************************************** /proc_LMSM14_15 {%BEG proc_LMSM_14_15, xchartl=14,15 %BEG NEW FROM BL65 211218 06,07->14,15 /MULXS 0060 def /MULYS 1200 1.0 mul def 0 1200 neg translate /CY 0.35 def /CX 50 def /W1 620 def /W0 520 def /WM 570 def /tsa 0.00 def 40 setlinewidth /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put /YEXP Xi i get W0 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi0 i EYEXP put /YEXP Xi i get W1 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi1 i EYEXP put /YEXP Xi i get WM sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put } for %i=0,1,76 /Yix 88 array def xchartl 14 ge xchartl 15 le and {/MULYS 1200 0.5 mul def 0 1200 translate} if 40 setlinewidth 0 1 2 {/jc exch def %jc=0,2 0 1 76 {/i exch def %i=0,76 Yix i jc 0 eq {Yi0 i get 2 mul} if jc 1 eq {Yi1 i get 2 mul} if jc 2 eq {Yi2 i get 2 mul} if put } for %i=0,76 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash jc 0 eq {tf620} if jc 1 eq {tf570} if jc 2 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /xst ix0 0 MULXS mul add def /yst iy0 Yix 0 get MULYS mul add def xst yst moveto 1 3 71 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yix i get MULYS mul add def /x20 ix0 i 1 add MULXS mul add def /y20 iy0 Yix i 1 add get MULYS mul add def /x21 ix0 i 2 add MULXS mul add def /y21 iy0 Yix i 2 add get MULYS mul add def /x22 ix0 i 3 add MULXS mul add def /y22 iy0 Yix i 3 add get MULYS mul add def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } for %n=0,1 } for %j=0,2 0 1200 translate } bind def %END proc_LMSM_14_15, xchartl=14,15 %************************************************************** xchartl 00 ge xchartl 07 le and {proc_LMS1_02} if %09 repeat in 14 and 15 xchartl 08 ge xchartl 15 le and {proc_XYZI_02} if %14 and 15 with functions of LMS1 xchartl 14 eq {proc_LMS1_14} if xchartl 15 eq {proc_LMS1_15} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % 'DNV5'YLOOPEND5.EPS % space essential for files Y*A.EPS xchartl2 4 eq { 100 neg 4500 neg translate} if xchartl2 5 eq {5700 neg 4500 neg translate} if xchartl2 6 eq { 100 neg 0250 neg translate} if xchartl2 7 eq {5700 neg 0250 neg translate} if %} if %iout=1 grestore } for %xchartl=0,15 showpage grestore } for %xchartx=0,0 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 DEV50-4N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV50-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 DEV50-5N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV50-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 DEV50-6N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV50-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 20 1 sub MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEV5/DEV50-7N 20211201 %%BoundingBox: 70 82 395 336 /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: http://farbe.li.tu-berlin.de/DEV5/DEV5.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021120112000) /ModDate (D:20211201112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def %/languagelevel where {pop languagelevel} {1} ifelse % /PSL12 exch def %/dictende {counttomark 2 idiv dup dict begin {def} % repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SV {160 /Symbol FS} bind def /CV {160 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {240 /Courier-ISOL1 FS} bind def /CM {280 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBV {160 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {240 /CourierB-ISOL1 FS} bind def /CBM {280 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {TG show} bind def /ks {TIG show} bind def /bs {TBG show} bind def /js {TBIG show} bind def /sy {SG show} bind def /is {TM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /es {TM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ib {TBM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /eb {TBM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ip {TM 50 50 rmoveto (\267) show 50 -50 rmoveto TG} bind def %20% kleiner /ns2 {TM show TM} bind def /ks2 {TIM show TM} bind def /bs2 {TBM show TM} bind def /js2 {TBIM show TM} bind def /sy2 {SM show TM} bind def /is2 {TK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {TK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {TBK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {TBK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {TK 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {SK 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {TK show TK} bind def /ks4 {TIK show TK} bind def /bs4 {TBK show TK} bind def /js4 {TBIK show TK} bind def /ss4 {SK show TK} bind def /is4 {TS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {TS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {TBS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {TBS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {TS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {SS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /cvishow {cvi 6 string cvs show ( ) 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} if 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} if 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} if 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} if 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 /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %2-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l02Ii 77 array def /m02Ii 77 array def /s02Ii 77 array def /l02Mi 77 array def /m02Mi 77 array def /s02Mi 77 array def /X02Ii 77 array def /Y02Ii 77 array def /Z02Ii 77 array def /xan02Ii 77 array def /yan02Ii 77 array def /zan02Ii 77 array def /X02Mi 77 array def /Y02Mi 77 array def /Z02Mi 77 array def /xan02Mi 77 array def /yan02Mi 77 array def /zan02Mi 77 array def /ycuri 77 array def %10-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l10Ii 77 array def /m10Ii 77 array def /s10Ii 77 array def /l10Mi 77 array def /m10Mi 77 array def /s10Mi 77 array def /X10Ii 77 array def /Y10Ii 77 array def /Z10Ii 77 array def /xan10Ii 77 array def /yan10Ii 77 array def /zan10Ii 77 array def /X10Mi 77 array def /Y10Mi 77 array def /Z10Mi 77 array def /xan10Mi 77 array def /yan10Mi 77 array def /zan10Mi 77 array def /ycurj 80 array def %2-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l02Ij 80 array def /m02Ij 80 array def /s02Ij 80 array def /l02Mj 80 array def /m02Mj 80 array def /s02Mj 80 array def /X02Ij 80 array def /Y02Ij 80 array def /Z02Ij 80 array def /xan02Ij 80 array def /yan02Ij 80 array def /zan02Ij 80 array def /X02Mj 80 array def /Y02Mj 80 array def /Z02Mj 80 array def /xan02Mj 80 array def /yan02Mj 80 array def /zan02Mj 80 array def /ycurj 80 array def %10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l10Ij 80 array def /m10Ij 80 array def /s10Ij 80 array def /l10Mj 80 array def /m10Mj 80 array def /s10Mj 80 array def /X10Ij 80 array def /Y10Ij 80 array def /Z10Ij 80 array def /xan10Ij 80 array def /yan10Ij 80 array def /zan10Ij 80 array def /X10Mj 80 array def /Y10Mj 80 array def /Z10Mj 80 array def /xan10Mj 80 array def /yan10Mj 80 array def /zan10Mj 80 array def /ycurj 80 array def %actual 2 or 10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /lA1j 80 array def /mA1j 80 array def /sA1j 80 array def /lASj 80 array def /mASj 80 array def /sASj 80 array def /lANj 80 array def /mANj 80 array def /sANj 80 array def /XA1j 80 array def /YA1j 80 array def /ZA1j 80 array def /xanA1j 80 array def /yanA1j 80 array def /zanA1j 80 array def /XASj 80 array def /YASj 80 array def /ZASj 80 array def /xanASj 80 array def /yanASj 80 array def /zanASj 80 array def /XANj 80 array def /YANj 80 array def /ZANj 80 array def /xanANj 80 array def /yanANj 80 array def /zanANj 80 array def /ycurj 80 array def /l10Mi [ %LMS2.TXT %L2.DAT CIE Table 6.7, p. 34 380=390,385=390, 390, 395, ...760nm 4.150019e-4 4.150019e-4 4.150019e-4 1.051914e-3 2.408353e-3 %400 4.833371e-3 8.721273e-3 1.338382e-2 1.844803e-2 2.293190e-2 2.818772e-2 3.410515e-2 4.025595e-2 4.493761e-2 4.986433e-2 %450 5.534138e-2 6.471575e-2 8.069006e-2 9.947639e-2 1.188010e-1 1.401458e-1 1.639532e-1 1.915579e-1 2.329271e-1 2.889615e-1 %500 3.597162e-1 4.436801e-1 5.364880e-1 6.285647e-1 7.047255e-1 7.706373e-1 8.257146e-1 8.810083e-1 9.190730e-1 9.401995e-1 %550 9.657395e-1 9.814541e-1 9.944890e-1 1 9.923160e-1 9.694379e-1 9.556085e-1 9.276625e-1 8.859720e-1 8.339884e-1 %600 7.751040e-1 7.057161e-1 6.307685e-1 5.542300e-1 4.799434e-1 4.007098e-1 3.278612e-1 2.657847e-1 2.132849e-1 1.651391e-1 %650 1.247498e-1 9.300794e-2 6.850937e-2 4.986664e-2 3.582284e-2 2.537932e-2 1.772025e-2 1.216998e-2 8.471687e-3 5.897527e-3 %700 4.091288e-3 2.804465e-3 1.920570e-3 1.326875e-3 9.177829e-4 6.393665e-4 4.460361e-4 3.108708e-4 2.193310e-4 1.545503e-4 %750 1.095065e-4 7.799195e-5 ] def /m02Mi [ %M2.DAT 3.683495e-4 3.683495e-4 3.683495e-4 9.586496e-4 2.269917e-3 %400 4.700132e-3 8.793667e-3 1.452780e-2 2.166506e-2 2.957127e-2 3.945663e-2 5.182030e-2 6.477837e-2 7.588048e-2 8.705225e-2 %450 9.819288e-2 1.162733e-1 1.445407e-1 1.758936e-1 2.053998e-1 2.357545e-1 2.680649e-1 3.036267e-1 3.570590e-1 4.277598e-1 %500 5.155847e-1 6.155169e-1 7.191508e-1 8.166012e-1 8.855437e-1 9.356857e-1 9.688577e-1 9.952165e-1 9.971948e-1 9.771922e-1 %550 9.995->9.95? 9.565771e-1 9.177407e-1 8.732126e-1 8.135046e-1 7.402868e-1 6.532810e-1 5.725950e-1 4.925950e-1 4.112444e-1 3.344260e-1 %600 2.648744e-1 2.052721e-1 1.562428e-1 1.166407e-1 8.558743e-2 6.211264e-2 4.448770e-2 3.142624e-2 2.180369e-2 1.544792e-2 %650 1.071199e-2 7.302475e-3 4.971759e-3 3.436687e-3 2.376184e-3 1.637344e-3 1.121270e-3 7.610442e-4 5.254605e-4 3.653171e-4 %700 2.534195e-4 1.744014e-4 1.206090e-4 8.417245e-5 5.893455e-5 4.160449e-5 2.943542e-5 2.088575e-5 1.504562e-5 1.082007e-5 %750 7.822762e-6 5.690886e-6 ] def /s02Mi [ %S2.DAT CIE 171.1:2006 9.547289e-3 9.547289e-3 %380,385 9.547289e-3 2.382484e-2 5.665002e-2 1.224503e-1 2.330076e-1 %410 3.813643e-1 5.436132e-1 6.744815e-1 8.025461e-1 9.035662e-1 9.910145e-1 9.915166e-1 9.553885e-1 8.602408e-1 7.867016e-1 %460 7.382611e-1 6.463534e-1 5.164164e-1 3.903373e-1 2.903220e-1 2.118654e-1 1.605240e-1 1.228400e-1 8.889554e-2 6.082050e-2 %510 4.281244e-2 2.920317e-2 1.939099e-2 1.260114e-2 8.094500e-3 5.088971e-3 3.168911e-3 1.958935e-3 1.202763e-3 7.401673e-4 %560 4.559845e-4 2.817993e-4 1.750370e-4 1.094536e-4 6.899855e-5 4.390257e-5 2.822280e-5 1.834593e-5 1.206675e-5 8.034895e-6 %610 5.418387e-6 0 0 0 0 0 0 0 0 0 %650 0 0 0 0 0 0 0 0 0 0 %700 0 0 0 0 0 0 0 0 0 0 %750 0 0 ] def /CIEF_LMS_02 298 array def %77x4 /CIEF_LMS_02 [%BEG CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 385.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 390.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 395.0 1.05192281E-03 9.58658287E-04 2.38249757E-02 400.0 2.40836274E-03 2.26990665E-03 5.66497751E-02 405.0 4.83338951E-03 4.70010083E-03 1.22450936E-01 410.0 8.72126562E-03 8.79368990E-03 2.33008318E-01 415.0 1.33836930E-02 1.45277327E-02 3.81363350E-01 420.0 1.84480328E-02 2.16648593E-02 5.43618105E-01 425.0 2.29317499E-02 2.95714420E-02 6.74474074E-01 430.0 2.81877052E-02 3.94566147E-02 8.02554955E-01 435.0 3.41053893E-02 5.18198823E-02 9.03572547E-01 440.0 4.02562524E-02 6.47782187E-02 9.91020299E-01 445.0 4.49379920E-02 7.58812175E-02 9.91515250E-01 450.0 4.98639402E-02 8.70523965E-02 9.55393000E-01 455.0 5.53418498E-02 9.81933595E-02 8.60240453E-01 460.0 6.47164360E-02 1.16272079E-01 7.86703893E-01 465.0 8.06893625E-02 1.44540604E-01 7.38267621E-01 470.0 9.94755270E-02 1.75892769E-01 6.46359219E-01 475.0 1.18802152E-01 2.05398073E-01 5.16410649E-01 480.0 1.40145131E-01 2.35754060E-01 3.90333407E-01 485.0 1.63951537E-01 2.68063038E-01 2.90322411E-01 490.0 1.91556224E-01 3.03629653E-01 2.11866834E-01 495.0 2.32925516E-01 3.57060581E-01 1.60525792E-01 500.0 2.88959412E-01 4.27764487E-01 1.22838921E-01 505.0 3.59716421E-01 5.15586863E-01 8.88965361E-02 510.0 4.43682863E-01 6.15520174E-01 6.08209513E-02 515.0 5.36493787E-01 7.19154047E-01 4.28122756E-02 520.0 6.28561087E-01 8.16609632E-01 2.92032829E-02 525.0 7.04720332E-01 8.85549719E-01 1.93911943E-02 530.0 7.70629906E-01 9.35687022E-01 1.26012838E-02 535.0 8.25710771E-01 9.68858338E-01 8.09453368E-03 540.0 8.81010908E-01 9.95216550E-01 5.08900051E-03 545.0 9.19066658E-01 9.97192616E-01 3.16893322E-03 550.0 9.40197682E-01 9.77193335E-01 1.95895533E-03 555.0 9.65733133E-01 9.56583237E-01 1.20277126E-03 560.0 9.81444621E-01 9.17749837E-01 7.40173919E-04 565.0 9.94485919E-01 8.73204873E-01 4.55979308E-04 570.0 9.99993160E-01 8.13509255E-01 2.81799951E-04 575.0 9.92309909E-01 7.40291037E-01 1.75038547E-04 580.0 9.69429172E-01 6.53273547E-01 1.09453897E-04 585.0 9.55601819E-01 5.72596792E-01 6.89990581E-05 590.0 9.27672559E-01 4.92598798E-01 4.39023849E-05 595.0 8.85969334E-01 4.11245617E-01 2.82228417E-05 600.0 8.33982132E-01 3.34428550E-01 1.83458912E-05 605.0 7.75103324E-01 2.64872009E-01 1.20667447E-05 610.0 7.05713103E-01 2.05273346E-01 8.03487566E-06 615.0 6.30773388E-01 1.56242654E-01 5.41843079E-06 620.0 5.54224372E-01 1.16641491E-01 0.00000000E-00 625.0 4.79940995E-01 8.55871752E-02 0.00000000E-00 630.0 4.00710831E-01 6.21120321E-02 0.00000000E-00 635.0 3.27863707E-01 4.44878727E-02 0.00000000E-00 640.0 2.65784185E-01 3.14282295E-02 0.00000000E-00 645.0 2.13283643E-01 2.18037465E-02 0.00000000E-00 650.0 1.65140826E-01 1.54479552E-02 0.00000000E-00 655.0 1.24749078E-01 1.07119605E-02 0.00000000E-00 660.0 9.30084863E-02 7.30255150E-03 0.00000000E-00 665.0 6.85099590E-02 4.97179190E-03 0.00000000E-00 670.0 4.98660938E-02 3.43667061E-03 0.00000000E-00 675.0 3.58232509E-02 2.37617227E-03 0.00000000E-00 680.0 2.53790394E-02 1.63733769E-03 0.00000000E-00 685.0 1.77201275E-02 1.12127805E-03 0.00000000E-00 690.0 1.21701123E-02 7.61050801E-04 0.00000000E-00 695.0 8.47170037E-03 5.25456816E-04 0.00000000E-00 700.0 5.89748808E-03 3.65317316E-04 0.00000000E-00 705.0 4.09129197E-03 2.53417295E-04 0.00000000E-00 710.0 2.80446659E-03 1.74401753E-04 0.00000000E-00 715.0 1.92057783E-03 1.20607982E-04 0.00000000E-00 720.0 1.32686544E-03 8.41716373E-05 0.00000000E-00 725.0 9.17776773E-04 5.89349310E-05 0.00000000E-00 730.0 6.39372955E-04 4.16048509E-05 0.00000000E-00 735.0 4.46035067E-04 2.94354152E-05 0.00000000E-00 740.0 3.10869146E-04 2.08859570E-05 0.00000000E-00 745.0 2.19329240E-04 1.50457558E-05 0.00000000E-00 750.0 1.54549195E-04 1.08200177E-05 0.00000000E-00 755.0 1.09507604E-04 7.82271489E-06 0.00000000E-00 760.0 7.79912028E-05 5.69092610E-06 0.00000000E-00 %765.0 5.56263839E-05 4.13998115E-06 0.00000000E-00 %770.0 3.99294560E-05 3.02682745E-06 0.00000000E-00 %775.0 2.86162863E-05 2.21100363E-06 0.00000000E-00 %780.0 2.07321327E-05 1.63432668E-06 0.00000000E-00 %785.0 1.50432118E-05 1.21053851E-06 0.00000000E-00 %790.0 1.09446148E-05 8.99169870E-07 0.00000000E-00 %795.0 7.97750298E-06 6.69594072E-07 0.00000000E-00 %800.0 5.85057291E-06 5.03187359E-07 0.00000000E-00 %805.0 4.31101652E-06 3.80046377E-07 0.00000000E-00 %810.0 3.17008616E-06 2.86328659E-07 0.00000000E-00 %815.0 2.34468299E-06 2.16878259E-07 0.00000000E-00 %820.0 1.74666331E-06 1.65157769E-07 0.00000000E-00 %825.0 1.30240694E-06 1.25508416E-07 0.00000000E-00 %830.0 9.74306403E-07 9.53411481E-08 0.00000000E-00 ] def %END CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree /CIEF_LMS_10 298 array def %77x4 /CIEF_LMS_10 [%BEG CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 385 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 390 4.07619067E-04 3.58227395E-04 6.14264795E-03 395 1.06920754E-03 9.64828092E-04 1.59514687E-02 400 2.54073042E-03 2.37207532E-03 3.96307943E-02 405 5.31546236E-03 5.12316225E-03 8.97612227E-02 410 9.98835098E-03 9.98840819E-03 1.78529924E-01 415 1.60129841E-02 1.72595696E-02 3.05941113E-01 420 2.33957137E-02 2.73163327E-02 4.62692207E-01 425 3.09103789E-02 3.96928205E-02 6.09570091E-01 430 3.97809896E-02 5.55383864E-02 7.56884632E-01 435 4.94171973E-02 7.50298610E-02 8.69984288E-01 440 5.94618805E-02 9.57611568E-02 9.66959512E-01 445 6.86537572E-02 1.16220119E-01 9.93336464E-01 450 7.95647427E-02 1.39493318E-01 9.91328844E-01 455 9.07704422E-02 1.62006089E-01 9.06735013E-01 460 1.06663473E-01 1.93201620E-01 8.23725866E-01 465 1.28336042E-01 2.32275228E-01 7.37042702E-01 470 1.51650594E-01 2.71441153E-01 6.10456321E-01 475 1.77116190E-01 3.10372033E-01 4.70893608E-01 480 2.07940052E-01 3.55066420E-01 3.50107654E-01 485 2.44045655E-01 4.05688377E-01 2.58496996E-01 490 2.82751994E-01 4.56137225E-01 1.85297483E-01 495 3.34785930E-01 5.22969940E-01 1.35350675E-01 500 3.91705331E-01 5.91002878E-01 9.67990105E-02 505 4.56251511E-01 6.66404323E-01 6.49613925E-02 510 5.26538428E-01 7.43612020E-01 4.12337488E-02 515 5.99866880E-01 8.16807889E-01 2.71299980E-02 520 6.75313179E-01 8.89213535E-01 1.76298483E-02 525 7.37107602E-01 9.34976841E-01 1.13251604E-02 530 7.88899549E-01 9.61961662E-01 7.17089441E-03 535 8.37403142E-01 9.81480903E-01 4.54287284E-03 540 8.90871319E-01 9.98930730E-01 2.83351880E-03 545 9.26659723E-01 9.91382642E-01 1.75572783E-03 550 9.44527173E-01 9.61875524E-01 1.08230483E-03 555 9.70702545E-01 9.35829058E-01 6.64512043E-04 560 9.85635735E-01 8.90949073E-01 4.08931409E-04 565 9.96979206E-01 8.40968769E-01 2.51918429E-04 570 9.99542570E-01 7.76525624E-01 1.55687802E-04 575 9.87057062E-01 7.00013057E-01 9.67045032E-05 580 9.57840611E-01 6.11727998E-01 6.04705364E-05 585 9.39781455E-01 5.31825085E-01 3.81202298E-05 590 9.06693013E-01 4.54142113E-01 2.42549460E-05 595 8.59605469E-01 3.76527354E-01 1.55923957E-05 600 8.03173191E-01 3.04377894E-01 1.01356328E-05 605 7.40679903E-01 2.39837365E-01 6.66656535E-06 610 6.68991113E-01 1.85103689E-01 4.43906145E-06 615 5.93247836E-01 1.40431078E-01 2.99354308E-06 620 5.17448826E-01 1.04572924E-01 0.00000000E-00 625 4.45124577E-01 7.65841125E-02 0.00000000E-00 630 3.69167951E-01 5.54989859E-02 0.00000000E-00 635 3.00316199E-01 3.97096689E-02 0.00000000E-00 640 2.42316360E-01 2.80314193E-02 0.00000000E-00 645 1.93730034E-01 1.94366360E-02 0.00000000E-00 650 1.49509341E-01 1.37659889E-02 0.00000000E-00 655 1.12637747E-01 9.54315350E-03 0.00000000E-00 660 8.38077035E-02 6.50455441E-03 0.00000000E-00 665 6.16383685E-02 4.42794317E-03 0.00000000E-00 670 4.48131819E-02 3.06049600E-03 0.00000000E-00 675 3.21659546E-02 2.11596127E-03 0.00000000E-00 680 2.27738100E-02 1.45797939E-03 0.00000000E-00 685 1.58939173E-02 9.98423741E-04 0.00000000E-00 690 1.09123394E-02 6.77652785E-04 0.00000000E-00 695 7.59452818E-03 4.67870233E-04 0.00000000E-00 700 5.28607164E-03 3.25278334E-04 0.00000000E-00 705 3.66675373E-03 2.25641354E-04 0.00000000E-00 710 2.51327467E-03 1.55285744E-04 0.00000000E-00 715 1.72107607E-03 1.07387972E-04 0.00000000E-00 720 1.18899676E-03 7.49453321E-05 0.00000000E-00 725 8.22396074E-04 5.24748323E-05 0.00000000E-00 730 5.72916838E-04 3.70443421E-05 0.00000000E-00 735 3.99670182E-04 2.62088417E-05 0.00000000E-00 740 2.78552580E-04 1.85965278E-05 0.00000000E-00 745 1.96527784E-04 1.33965008E-05 0.00000000E-00 750 1.38481790E-04 9.63396916E-06 0.00000000E-00 755 9.81226253E-05 6.96521810E-06 0.00000000E-00 760 6.98827164E-05 5.06710754E-06 0.00000000E-00 %765 4.98430350E-05 3.68617125E-06 0.00000000E-00 %770 3.57780519E-05 2.69503733E-06 0.00000000E-00 %775 2.56410800E-05 1.96864116E-06 0.00000000E-00 %780 1.85766264E-05 1.45517748E-06 0.00000000E-00 %785 1.34791749E-05 1.07784347E-06 0.00000000E-00 %790 9.80670540E-06 8.00605973E-07 0.00000000E-00 %795 7.14808254E-06 5.96195475E-07 0.00000000E-00 %800 5.24228869E-06 4.48029690E-07 0.00000000E-00 %805 3.86279972E-06 3.38386998E-07 0.00000000E-00 %810 2.84049184E-06 2.54942293E-07 0.00000000E-00 %815 2.10090587E-06 1.93104807E-07 0.00000000E-00 %820 1.56506236E-06 1.47053740E-07 0.00000000E-00 %825 1.16699539E-06 1.11750613E-07 0.00000000E-00 %830 8.73007530E-07 8.48901776E-08 0.00000000E-00 ] def %END CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree /CIEF_XYZ_02 298 array def %77x4 /CIEF_XYZ_02 [%BEG CIEF_XYZ_02 Colour matching functions 5nm 02-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 3.769647E-03 4.146161E-04 1.847260E-02 %=390 385 3.769647E-03 4.146161E-04 1.847260E-02 %=390 390 3.769647E-03 4.146161E-04 1.847260E-02 395 9.382967E-03 1.059646E-03 4.609784E-02 400 2.214302E-02 2.452194E-03 1.096090E-01 405 4.742986E-02 4.971717E-03 2.369246E-01 410 8.953803E-02 9.079860E-03 4.508369E-01 415 1.446214E-01 1.429377E-02 7.378822E-01 420 2.035729E-01 2.027369E-02 1.051821E+00 425 2.488523E-01 2.612106E-02 1.305008E+00 430 2.918246E-01 3.319038E-02 1.552826E+00 435 3.227087E-01 4.157940E-02 1.748280E+00 440 3.482554E-01 5.033657E-02 1.917479E+00 445 3.418483E-01 5.743393E-02 1.918437E+00 450 3.224637E-01 6.472352E-02 1.848545E+00 455 2.826646E-01 7.238339E-02 1.664439E+00 460 2.485254E-01 8.514816E-02 1.522157E+00 465 2.219781E-01 1.060145E-01 1.428440E+00 470 1.806905E-01 1.298957E-01 1.250610E+00 475 1.291920E-01 1.535066E-01 9.991789E-01 480 8.182895E-02 1.788048E-01 7.552379E-01 485 4.600865E-02 2.064828E-01 5.617313E-01 490 2.083981E-02 2.379160E-01 4.099313E-01 495 7.097731E-03 2.850680E-01 3.105939E-01 500 2.461588E-03 3.483536E-01 2.376753E-01 505 3.649178E-03 4.277595E-01 1.720018E-01 510 1.556989E-02 5.204972E-01 1.176796E-01 515 4.315171E-02 6.206256E-01 8.283548E-02 520 7.962917E-02 7.180890E-01 5.650407E-02 525 1.268468E-01 7.946448E-01 3.751912E-02 530 1.818026E-01 8.575799E-01 2.438164E-02 535 2.405015E-01 9.071347E-01 1.566174E-02 540 3.098117E-01 9.544675E-01 9.846470E-03 545 3.804244E-01 9.814106E-01 6.131421E-03 550 4.494206E-01 9.890228E-01 3.790291E-03 555 5.280233E-01 9.994608E-01 2.327186E-03 560 6.133784E-01 9.967737E-01 1.432128E-03 565 7.016774E-01 9.902549E-01 8.822531E-04 570 7.967750E-01 9.732611E-01 5.452416E-04 575 8.853376E-01 9.424569E-01 3.386739E-04 580 9.638388E-01 8.963613E-01 2.117772E-04 585 1.051011E+00 8.587203E-01 1.335031E-04 590 1.109767E+00 8.115868E-01 8.494468E-05 595 1.143620E+00 7.544785E-01 5.460706E-05 600 1.151033E+00 6.918553E-01 3.549661E-05 605 1.134757E+00 6.270066E-01 2.334738E-05 610 1.083928E+00 5.583746E-01 1.554631E-05 615 1.007344E+00 4.895950E-01 1.048387E-05 620 9.142877E-01 4.229897E-01 0.000000E+00 625 8.135565E-01 3.609245E-01 0.000000E+00 630 6.924717E-01 2.980865E-01 0.000000E+00 635 5.755410E-01 2.416902E-01 0.000000E+00 640 4.731224E-01 1.943124E-01 0.000000E+00 645 3.844986E-01 1.547397E-01 0.000000E+00 650 2.997374E-01 1.193120E-01 0.000000E+00 655 2.277792E-01 8.979594E-02 0.000000E+00 660 1.707914E-01 6.671045E-02 0.000000E+00 665 1.263808E-01 4.899699E-02 0.000000E+00 670 9.224597E-02 3.559982E-02 0.000000E+00 675 6.639960E-02 2.554223E-02 0.000000E+00 680 4.710606E-02 1.807939E-02 0.000000E+00 685 3.292138E-02 1.261573E-02 0.000000E+00 690 2.262306E-02 8.661284E-03 0.000000E+00 695 1.575417E-02 6.027677E-03 0.000000E+00 700 1.096778E-02 4.195941E-03 0.000000E+00 705 7.608750E-03 2.910864E-03 0.000000E+00 710 5.214608E-03 1.995557E-03 0.000000E+00 715 3.569452E-03 1.367022E-03 0.000000E+00 720 2.464821E-03 9.447269E-04 0.000000E+00 725 1.703876E-03 6.537050E-04 0.000000E+00 730 1.186238E-03 4.555970E-04 0.000000E+00 735 8.269535E-04 3.179738E-04 0.000000E+00 740 5.758303E-04 2.217445E-04 0.000000E+00 745 4.058303E-04 1.565566E-04 0.000000E+00 750 2.856577E-04 1.103928E-04 0.000000E+00 755 2.021853E-04 7.827442E-05 0.000000E+00 760 1.438270E-04 5.578862E-05 0.000000E+00 %765 1.024685E-04 3.981884E-05 0.000000E+00 %770 7.347551E-05 2.860175E-05 0.000000E+00 %775 5.259870E-05 2.051259E-05 0.000000E+00 %780 3.806114E-05 1.487243E-05 0.000000E+00 %785 2.758222E-05 1.080001E-05 0.000000E+00 %790 2.004122E-05 7.863920E-06 0.000000E+00 %795 1.458792E-05 5.736935E-06 0.000000E+00 %800 1.068141E-05 4.211597E-06 0.000000E+00 %805 7.857521E-06 3.106561E-06 0.000000E+00 %810 5.768284E-06 2.286786E-06 0.000000E+00 %815 4.259166E-06 1.693147E-06 0.000000E+00 %820 3.167765E-06 1.262556E-06 0.000000E+00 %825 2.358723E-06 9.422514E-07 0.000000E+00 %830 1.762465E-06 7.053860E-07 0.000000E+00 ] def %END CIEF_XYZ_02 Colour matching functions 5nm 02-degree /CIEF_XYZ_10 298 array def %77x4 /CIEF_XYZ_10 [%BEG CIEF_XYZ_10 Colour matching functions 5nm 10-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 2.952420E-03 4.076779E-04 1.318752E-02 %=390 385 2.952420E-03 4.076779E-04 1.318752E-02 %=390 390 2.952420E-03 4.076779E-04 1.318752E-02 395 7.641137E-03 1.078166E-03 3.424588E-02 400 1.879338E-02 2.589775E-03 8.508254E-02 405 4.204986E-02 5.474207E-03 1.927065E-01 410 8.277331E-02 1.041303E-02 3.832822E-01 415 1.395127E-01 1.712968E-02 6.568187E-01 420 2.077647E-01 2.576133E-02 9.933444E-01 425 2.688989E-01 3.529554E-02 1.308674E+00 430 3.281798E-01 4.698226E-02 1.624940E+00 435 3.693084E-01 6.047429E-02 1.867751E+00 440 4.026189E-01 7.468288E-02 2.075946E+00 445 4.042529E-01 8.820537E-02 2.132574E+00 450 3.932139E-01 1.039030E-01 2.128264E+00 455 3.482214E-01 1.195389E-01 1.946651E+00 460 3.013112E-01 1.414586E-01 1.768440E+00 465 2.534221E-01 1.701373E-01 1.582342E+00 470 1.914176E-01 1.999859E-01 1.310576E+00 475 1.283167E-01 2.312426E-01 1.010952E+00 480 7.593120E-02 2.682271E-01 7.516389E-01 485 3.836770E-02 3.109438E-01 5.549619E-01 490 1.400745E-02 3.554018E-01 3.978114E-01 495 3.446810E-03 4.148227E-01 2.905816E-01 500 5.652072E-03 4.780482E-01 2.078158E-01 505 1.561956E-02 5.491344E-01 1.394643E-01 510 3.778185E-02 6.248296E-01 8.852389E-02 515 7.538941E-02 7.012292E-01 5.824484E-02 520 1.201511E-01 7.788199E-01 3.784916E-02 525 1.756832E-01 8.376358E-01 2.431375E-02 530 2.380254E-01 8.829552E-01 1.539505E-02 535 3.046991E-01 9.233858E-01 9.753000E-03 540 3.841856E-01 9.665325E-01 6.083223E-03 545 4.633109E-01 9.886887E-01 3.769336E-03 550 5.374170E-01 9.907500E-01 2.323578E-03 555 6.230892E-01 9.997775E-01 1.426627E-03 560 7.123849E-01 9.944304E-01 8.779264E-04 565 8.016277E-01 9.848127E-01 5.408385E-04 570 8.933408E-01 9.640545E-01 3.342429E-04 575 9.721304E-01 9.286495E-01 2.076129E-04 580 1.034327E+00 8.775360E-01 1.298230E-04 585 1.106886E+00 8.370838E-01 8.183954E-05 590 1.147304E+00 7.869950E-01 5.207245E-05 595 1.160477E+00 7.272309E-01 3.347499E-05 600 1.148163E+00 6.629035E-01 2.175998E-05 605 1.113846E+00 5.970375E-01 1.431231E-05 610 1.048485E+00 5.282296E-01 9.530130E-06 615 9.617111E-01 4.601308E-01 6.426776E-06 620 8.629581E-01 3.950755E-01 0.000000E+00 625 7.603498E-01 3.351794E-01 0.000000E+00 630 6.413984E-01 2.751807E-01 0.000000E+00 635 5.290979E-01 2.219564E-01 0.000000E+00 640 4.323126E-01 1.776882E-01 0.000000E+00 645 3.496358E-01 1.410203E-01 0.000000E+00 650 2.714900E-01 1.083996E-01 0.000000E+00 655 2.056507E-01 8.137687E-02 0.000000E+00 660 1.538163E-01 6.033976E-02 0.000000E+00 665 1.136072E-01 4.425383E-02 0.000000E+00 670 8.281010E-02 3.211852E-02 0.000000E+00 675 5.954815E-02 2.302574E-02 0.000000E+00 680 4.221473E-02 1.628841E-02 0.000000E+00 685 2.948752E-02 1.136106E-02 0.000000E+00 690 2.025590E-02 7.797457E-03 0.000000E+00 695 1.410230E-02 5.425391E-03 0.000000E+00 700 9.816228E-03 3.776140E-03 0.000000E+00 705 6.809147E-03 2.619372E-03 0.000000E+00 710 4.666298E-03 1.795595E-03 0.000000E+00 715 3.194041E-03 1.229980E-03 0.000000E+00 720 2.205568E-03 8.499903E-04 0.000000E+00 725 1.524672E-03 5.881375E-04 0.000000E+00 730 1.061495E-03 4.098928E-04 0.000000E+00 735 7.400120E-04 2.860718E-04 0.000000E+00 740 5.153113E-04 1.994949E-04 0.000000E+00 745 3.631969E-04 1.408466E-04 0.000000E+00 750 2.556624E-04 9.931439E-05 0.000000E+00 755 1.809649E-04 7.041878E-05 0.000000E+00 760 1.287394E-04 5.018934E-05 0.000000E+00 %765 9.172477E-05 3.582218E-05 0.000000E+00 %770 6.577532E-05 2.573083E-05 0.000000E+00 %775 4.708916E-05 1.845353E-05 0.000000E+00 %780 3.407653E-05 1.337946E-05 0.000000E+00 %785 2.469630E-05 9.715798E-06 0.000000E+00 %790 1.794555E-05 7.074424E-06 0.000000E+00 %795 1.306345E-05 5.160948E-06 0.000000E+00 %800 9.565993E-06 3.788729E-06 0.000000E+00 %805 7.037621E-06 2.794625E-06 0.000000E+00 %810 5.166853E-06 2.057152E-06 0.000000E+00 %815 3.815429E-06 1.523114E-06 0.000000E+00 %820 2.837980E-06 1.135758E-06 0.000000E+00 %825 2.113325E-06 8.476168E-07 0.000000E+00 %830 1.579199E-06 6.345380E-07 0.000000E+00 ] def %END CIEF_XYZ_10 Colour matching functions 5nm 10-degree %/ixi [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 % .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 % .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 % .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 % .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 % .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 % .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 % .004109 .002899 .002049 .001440 .0009999 .0006901 % .000476 .0003323 .0002348 .0001662 ] def %/iyi [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .39E-04 .000064 .00012 .000217 .000396 .00064 .00121 .00218 % .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 % .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 % .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 % .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 % .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 % .01192 .00821 .005723 .004102 .002929 .002091 .001484 % .001047 .00074 .00052 .0003611 .0002492 .0001719 % .00012 .0000848 .00006 ] def %/izi [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 % 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 % 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 % .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 % .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 % .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 ] def %for xchart5=0 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 %for xchart5=1 /SP60 80 array def %380 bis 775 mit deltalambda=05 /SP55 80 array def %380 bis 775 mit deltalambda=05 /SP50 80 array def %380 bis 775 mit deltalambda=05 /SP45 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SP35 80 array def %380 bis 775 mit deltalambda=05 /SP30 80 array def %380 bis 775 mit deltalambda=05 /SP25 80 array def %380 bis 775 mit deltalambda=05 /ilDtxt [(D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00)] def /ilPtxt [(P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25)] def %for combined /SX00 80 array def %380 bis 775 mit deltalambda=05 /SX01 80 array def %380 bis 775 mit deltalambda=05 /SX02 80 array def %380 bis 775 mit deltalambda=05 /SX03 80 array def %380 bis 775 mit deltalambda=05 /SX04 80 array def %380 bis 775 mit deltalambda=05 /SX05 80 array def %380 bis 775 mit deltalambda=05 /SX06 80 array def %380 bis 775 mit deltalambda=05 /SX07 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def /TNCj 8 array def /TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 76 {/i exch def %i=0,76 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 560 lamda div mul put } for %i=0,76 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [ %x(380-775) .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 %y(380-775) .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 %z(380-775) .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def /proc_Cij_Eij {%BEG proc_Cij_Eij %procedure inverse matrix according to Ohta, Cook Wiley, page 278 %DCij=|C11 C12 C13| % |C21 C22 C23| % |C31 C32 C33| /DC C11 C22 mul C33 mul C12 C23 mul C31 mul add C13 C21 mul C32 mul add C11 C23 mul C32 mul sub C12 C21 mul C33 mul sub C13 C22 mul C31 mul sub def %delete collum and row for DCij %aus transponierter Matrix zu Cerechnen DCij->DCji %see Wikipedia "Adjunkte"% %DC11= |C22 C23| % |C32 C33| %DC21=-|C21 C23| % |C31 C33| %DC31= |C21 C22| % |C31 C32| %DC12=-|C12 C13| % |C32 C33| %DC22= |C11 C13| % |C31 C33| %DC32=-|C11 C12| % |C31 C32| %DC13= |C12 C13| % |C22 C23| %DC23=-|C11 C13| % |C21 C23| %DC33= |C11 C12| % |C21 C22| /DC11 C22 C33 mul C32 C23 mul sub def /DC21 C21 C33 mul C31 C23 mul sub neg def /DC31 C21 C32 mul C31 C22 mul sub def % /DC12 C12 C33 mul C32 C13 mul sub neg def /DC22 C11 C33 mul C31 C13 mul sub def /DC32 C11 C32 mul C31 C12 mul sub neg def % /DC13 C12 C23 mul C22 C13 mul sub def /DC23 C11 C23 mul C21 C13 mul sub neg def /DC33 C11 C22 mul C21 C12 mul sub def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Cij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /E11 DC11 DC div def /E12 DC12 DC div def /E13 DC13 DC div def % /E21 DC21 DC div def /E22 DC22 DC div def /E23 DC23 DC div def % /E31 DC31 DC div def /E32 DC32 DC div def /E33 DC33 DC div def } bind def %END proc_Cij_Eij /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 00 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 00 def /xchartm 01 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 00 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 00 def} ifelse %00/01 CIE 02/10, 02,03: CIE F02/10 /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 00 def} ifelse %5=0 illD /xchart xchart1 def xchart5 0 eq { %xchart5=0 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } if %xchart5=0 xchart5 1 eq {%xchart5=1 0 1 7 {/j exch def %j=0,7 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNCj j get 560 mul div def /E5 C2 TNCj j get lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def j 0 eq {SP60 i} if j 1 eq {SP55 i} if j 2 eq {SP50 i} if j 3 eq {SP45 i} if j 4 eq {SP40 i} if j 5 eq {SP35 i} if j 6 eq {SP30 i} if j 7 eq {SP25 i} if E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } for %j=0,7 } if %xchart5=1 /xcolor xcolor1 def %2,10 degree observer %0 1 1 {/xcolor exch def %xcolor=0,1 %2,10 degree observer /xchartx xchart1 def %ill. D65, xchart1 def %8 illuminants 1 1 1 {/xchartx exch def %xchartx=0,7 %8 illuminants %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 76 {/i exch def %i=0,76 xchart5 0 eq {%xchart5=0 xchartx 0 eq {SX00 i SD65 i get put} if xchartx 1 eq {SX01 i SD50 i get put} if xchartx 2 eq {SX02 i SP40 i get put} if xchartx 3 eq {SX03 i SA00 i get put} if xchartx 4 eq {SX04 i SE00 i get put} if xchartx 5 eq {SX05 i SC00 i get put} if xchartx 6 eq {SX06 i SP00 i get put} if xchartx 7 eq {SX07 i SQ00 i get put} if } %xchart5=0 {%xchart5=1 xchartx 0 eq {SX00 i SP60 i get put} if xchartx 1 eq {SX01 i SP55 i get put} if xchartx 2 eq {SX02 i SP50 i get put} if xchartx 3 eq {SX03 i SP45 i get put} if xchartx 4 eq {SX04 i SP40 i get put} if xchartx 5 eq {SX05 i SP35 i get put} if xchartx 6 eq {SX06 i SP30 i get put} if xchartx 7 eq {SX07 i SP25 i get put} if } ifelse %xchart5=1 } for %i=0,76 0 1 76 {/i exch def %i=0,76 SDAK i xchartx 0 eq {SX00 i get} if xchartx 1 eq {SX01 i get} if xchartx 2 eq {SX02 i get} if xchartx 3 eq {SX03 i get} if xchartx 4 eq {SX04 i get} if xchartx 5 eq {SX05 i get} if xchartx 6 eq {SX06 i get} if xchartx 7 eq {SX07 i get} if put } for %i=0,76 0 1 76 {/i exch def %i=0,76 xchart4 0 eq {%xchart4=0 02 degree XASj i F2 000 i add get SDAK i get mul 100. div put YASj i F2 080 i add get SDAK i get mul 100. div put ZASj i F2 160 i add get SDAK i get mul 100. div put } if %xchart4=0 xchart4 1 eq {%xchart4=1 10 degree XASj i F10 000 i add get SDAK i get mul 100. div put YASj i F10 080 i add get SDAK i get mul 100. div put ZASj i F10 160 i add get SDAK i get mul 100. div put } if %xchart4=1 xchart4 2 eq xchart4 4 eq or {%xchart4=2,4 CIEF_02 degree /i40 i 4 mul def XASj i CIEF_XYZ_02 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_02 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_02 i40 3 add get SDAK i get mul 100. div put } if %xchart4=2,4 xchart4 3 eq xchart4 5 eq or {%xchart4=3,5 CIEF_10 degree /i40 i 4 mul def XASj i CIEF_XYZ_10 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_10 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_10 i40 3 add get SDAK i get mul 100. div put } if %xchart4=3,5 } for %i=0,76 /fsYAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsYAS fsYAS YASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XASj i XASj i get fsYAS div 100. mul put YASj i YASj i get fsYAS div 100. mul put ZASj i ZASj i get fsYAS div 100. mul put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXAS fsXAS XASj i get add def /fsYAS fsYAS YASj i get add def /fsZAS fsZAS ZASj i get add def } for %i=0,76 /i555 555 380 sub 5 idiv def /fakY 1. YASj i555 get div def 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XA1j i XASj i get fakY mul put YA1j i YASj i get fakY mul put ZA1j i ZASj i get fakY mul put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXA1 fsXA1 XA1j i get add def /fsYA1 fsYA1 YA1j i get add def /fsZA1 fsZA1 ZA1j i get add def } for %i=0,76 /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 67 Wellenlaengen ohne Purpur, 380_710/5:0_66 [00 00 00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %ED TC1-36 CIE 171-2, 2015, page 16, line 20-23, eq. (8.18) %transforms lmsF (2 degree) to xyzF (2 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F02 1.94735469 def /A12_F02 -1.41445123 def /A13_F02 0.36476327 def /A21_F02 0.68990272 def /A22_F02 0.34832189 def /A23_F02 0.00000000 def /A31_F02 0.00000000 def /A32_F02 0.00000000 def /A33_F02 1.93485343 def %ED TC1-36 CIE 171-2, 2015, page 20, line 14. eq. (8.21) %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F10 1.93986443 def /A12_F10 -1.34664359 def /A13_F10 0.43044935 def /A21_F10 0.69283932 def /A22_F10 0.34967567 def /A23_F10 0.00000000 def /A31_F10 0.00000000 def /A32_F10 0.00000000 def /A33_F10 2.14687945 def %R17_M1 %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M1 1.93986443 def /A12_R17_M1 -1.34664359 def /A13_R17_M1 0.43044935 def /A21_R17_M1 0.69283932 def /A22_R17_M1 0.34967567 def /A23_R17_M1 0.00000000 def /A31_R17_M1 0.00000000 def /A32_R17_M1 0.00000000 def /A33_R17_M1 2.14687945 def %R17_M2 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M2 1.40000000 def /A12_R17_M2 -0.70000000 def /A13_R17_M2 0.30000000 def /A21_R17_M2 0.50000000 def /A22_R17_M2 0.50000000 def /A23_R17_M2 0.00000000 def /A31_R17_M2 0.00000000 def /A32_R17_M2 0.00000000 def /A33_R17_M2 1.00000000 def %R17_M3 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M3 1.32000000 def /A12_R17_M3 -0.66000000 def /A13_R17_M3 0.34000000 def /A21_R17_M3 0.50000000 def /A22_R17_M3 0.50000000 def /A23_R17_M3 0.00000000 def /A31_R17_M3 0.00000000 def /A32_R17_M3 0.00000000 def /A33_R17_M3 1.00000000 def %R17_M4 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M4 1.30000000 def /A12_R17_M4 -0.65000000 def /A13_R17_M4 0.35000000 def /A21_R17_M4 0.50000000 def /A22_R17_M4 0.50000000 def /A23_R17_M4 0.00000000 def /A31_R17_M4 0.00000000 def /A32_R17_M4 0.00000000 def /A33_R17_M4 1.00000000 def %R17_M5 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M5 2.64000000 def /A12_R17_M5 -1.32000000 def /A13_R17_M5 0.68000000 def /A21_R17_M5 0.50000000 def /A22_R17_M5 0.50000000 def /A23_R17_M5 0.00000000 def /A31_R17_M5 0.00000000 def /A32_R17_M5 0.00000000 def /A33_R17_M5 1.00000000 def %R17_M6 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M6 2.60000000 def /A12_R17_M6 -1.30000000 def /A13_R17_M6 0.70000000 def /A21_R17_M6 0.50000000 def /A22_R17_M6 0.50000000 def /A23_R17_M6 0.00000000 def /A31_R17_M6 0.00000000 def /A32_R17_M6 0.00000000 def /A33_R17_M6 1.00000000 def %Convert Xc,Yc,Zc to cone responses L, M, S (R',G',B') %using the Hunt-Pointer_Estevez (HPE) matrix %see CIE 214:2077 colour fidelity-Index %see Ohta/Robertson, book Wiley, p. 202 %see Fairchild, book Wiley, p. 211 %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /B11_HPE 0.38971 def /B12_HPE 0.68898 def /B13_HPE -0.07868 def /B21_HPE -0.22981 def /B22_HPE 1.18340 def /B23_HPE 0.04641 def /B31_HPE 0.00000 def /B32_HPE 0.00000 def /B33_HPE 1.00000 def %Nayatani in Ohta S. 195-196, similar data not for CIE illuminant E %/B11_NAY 0.40024 def %/B12_NAY 0.70760 def %/B13_NAY -0.08081 def %/B21_NAY -0.22630 def %/B22_NAY 1.16532 def %/B23_NAY 0.04570 def %/B31_NAY 0.00000 def %/B32_NAY 0.00000 def %/B33_NAY 0.91822 def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E xchart4 0 eq xchart4 1 eq or {%XYZ_02, XYZ_10 /B11 B11_HPE def /B12 B12_HPE def /B13 B13_HPE def /B21 B21_HPE def /B22 B22_HPE def /B23 B23_HPE def /B31 B31_HPE def /B32 B32_HPE def /B33 B33_HPE def } if xchart4 2 eq xchart4 4 eq or {%LMS_F02 /A11 A11_F02 def /A12 A12_F02 def /A13 A13_F02 def /A21 A21_F02 def /A22 A22_F02 def /A23 A23_F02 def /A31 A31_F02 def /A32 A32_F02 def /A33 A33_F02 def } if xchart4 3 eq xchart4 5 eq or {%LMS_F10 /A11 A11_F10 def /A12 A12_F10 def /A13 A13_F10 def /A21 A21_F10 def /A22 A22_F10 def /A23 A23_F10 def /A31 A31_F10 def /A32 A32_F10 def /A33 A33_F10 def } if xchart4 6 eq {%LMS_R17_M1 /A11 A11_R17_M1 def /A12 A12_R17_M1 def /A13 A13_R17_M1 def /A21 A21_R17_M1 def /A22 A22_R17_M1 def /A23 A23_R17_M1 def /A31 A31_R17_M1 def /A32 A32_R17_M1 def /A33 A33_R17_M1 def } if xchart4 7 eq {%LMS_R17_M2 /A11 A11_R17_M2 def /A12 A12_R17_M2 def /A13 A13_R17_M2 def /A21 A21_R17_M2 def /A22 A22_R17_M2 def /A23 A23_R17_M2 def /A31 A31_R17_M2 def /A32 A32_R17_M2 def /A33 A33_R17_M2 def } if xchart4 8 eq {%LMS_R17_M3 /A11 A11_R17_M3 def /A12 A12_R17_M3 def /A13 A13_R17_M3 def /A21 A21_R17_M3 def /A22 A22_R17_M3 def /A23 A23_R17_M3 def /A31 A31_R17_M3 def /A32 A32_R17_M3 def /A33 A33_R17_M3 def } if xchart4 9 eq {%LMS_R17_M4 /A11 A11_R17_M4 def /A12 A12_R17_M4 def /A13 A13_R17_M4 def /A21 A21_R17_M4 def /A22 A22_R17_M4 def /A23 A23_R17_M4 def /A31 A31_R17_M4 def /A32 A32_R17_M4 def /A33 A33_R17_M4 def } if xchart4 0 eq xchart4 1 eq or {%xchart4=0,1 /C11 B11 def /C12 B12 def /C13 B13 def /C21 B21 def /C22 B22 def /C23 B23 def /C31 B31 def /C32 B32 def /C33 B33 def proc_Cij_Eij /A11 E11 def /A12 E12 def /A13 E13 def /A21 E21 def /A22 E22 def /A23 E23 def /A31 E31 def /A32 E32 def /A33 E33 def } if %xchart4=0,1 xchart4 2 eq xchart4 3 eq or xchart4 4 eq or xchart4 5 eq or xchart4 6 eq or xchart4 7 eq or xchart4 8 eq or xchart4 9 eq or {%xchart4=2,9,1 /C11 A11 def /C12 A12 def /C13 A13 def /C21 A21 def /C22 A22 def /C23 A23 def /C31 A31 def /C32 A32 def /C33 A33 def proc_Cij_Eij /B11 E11 def /B12 E12 def /B13 E13 def /B21 E21 def /B22 E22 def /B23 E23 def /B31 E31 def /B32 E32 def /B33 E33 def } if %xchart4=2,9,1 % R G B C M Y /tf370 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %X=370=620 /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf420 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %T=420 /tf445 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %S=445 /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B=Mc=570c /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B' new /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %B" new /tf495 {0.00 0.80 1.00 setrgbcolor} bind def %g75b 1.00 0.20 0.00 %C=Rc=620c /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %C' new /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %C" new /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %C"' new /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G=520 /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G' new /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %G" new /tf545 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %M=545 /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %M' /tf557 {0.60 1.00 0.00 setrgbcolor} bind def %j33g 0.40 0.00 1.00 %V /tf563 {0.80 1.00 0.00 setrgbcolor} bind def %j17g 0.20 0.00 1.00 %V' new /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M=570 /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M' /tf595 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O=595 /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O' new /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %O" new /tf620 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %R=620 /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R' new /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 %R" /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 %Gc=520c new /tf670 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %U=670=420 /tf720 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %W=720=470 /tfRe {1.00 0.00 0.20 setrgbcolor} bind def %Re 0.00 1.00 0.80 %Re /tfYe {1.00 1.00 0.00 setrgbcolor} bind def %Ye 0.00 0.00 1.00 %Ye /tfGe {0.00 1.00 0.20 setrgbcolor} bind def %Ge 1.00 0.00 0.80 %Ge /tfBe {0.00 0.20 1.00 setrgbcolor} bind def %Be 1.00 0.80 0.00 %Be %output allways text italic /Xt370 {tf370 (X) bishowM} def /Xt420 {tf420 (T) bishowM} def /Xt445 {tf445 (S) bishowM} def /Xt470 {tf470 (B) bishowM} def /Xt520 {tf520 (G) bishowM} def /Xt545 {tf545 (M) bishowM} def /Xt557 {tfw (V) bishowM} def /Xt570 {tf570 (L) bishowM} def /Xt570e {tf570 (Y) bishowM} def /Xt595 {tf595 (O) bishowM} def /Xt620 {tf620 (R) bishowM} def /Xt670 {tf670 (U) bishowM} def /Xt720 {tf720 (W) bishowM} def %output allways number normal /Xn370 {tf370 (370) bshowM} def /Xn420 {tf420 (420) bshowM} def /Xn445 {tf445 (445) bshowM} def /Xn470 {tf470 (470) bshowM} def /Xn520 {tf520 (520) bshowM} def /Xn545 {tf545 (545) bshowM} def /Xn557 {tfw (557) bshowM} def /Xn570 {tf570 (570) bshowM} def /Xn595 {tf595 (595) bshowM} def /Xn620 {tf620 (620) bshowM} def /Xn670 {tf670 (670) bshowM} def /Xn720 {tf720 (720) bshowM} def %output allways text index /Xt370i {tf370 (X) ishowK} def /Xt420i {tf420 (T) ishowK} def /Xt445i {tf445 (S) ishowK} def /Xt470i {tf470 (B) ishowK} def /Xt520i {tf520 (G) ishowK} def /Xt545i {tf545 (M) ishowK} def /Xt557i {tfw (V) ishowK} def /Xt570i {tf570 (L) ishowK} def /Xt595i {tf595 (O) ishowK} def /Xt620i {tf620 (R) ishowK} def /Xt670i {tf670 (U) ishowK} def /Xt720i {tf720 (W) ishowK} def %output allways number index /Xn370i {tf370 (370) ishowK} def /Xn420i {tf420 (420) ishowK} def /Xn445i {tf445 (445) ishowK} def /Xn470i {tf470 (470) ishowK} def /Xn520i {tf520 (520) ishowK} def /Xn545i {tf545 (545) ishowK} def /Xn557i {tfw (557) ishowK} def /Xn570i {tf570 (570) ishowK} def /Xn595i {tf595 (595) ishowK} def /Xn620i {tf620 (620) ishowK} def /Xn670i {tf670 (670) ishowK} def /Xn720i {tf720 (720) ishowK} def %wavelength for calculation /W370 370 def /W420 420 def /W445 445 def /W470 470 def /W520 520 def /W545 545 def /W557 557.5 def /W570 570 def /W595 595 def /W620 620 def /W670 670 def /W720 720 def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 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 /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 % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth 0 0 11200 08600 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11200 08600 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 150 /Times-ISOL1 FS 100 -150 moveto (DEV50-7N) show %xchart 1 add cvishow } if %xbtex0=1 % 'DNV5'YLOOPBEG5.EPS /xchartl xchart def 4 1 7 {/xchartl2 exch def %xchartl2=4,7 gsave xchartl2 4 eq {/xchartl 9 def} if xchartl2 5 eq {/xchartl 3 def} if xchartl2 6 eq {/xchartl 4 def} if xchartl2 7 eq {/xchartl 5 def} if % space essential for files Y*A.EPS xchartl2 4 eq { 100 4500 translate} if xchartl2 5 eq {5700 4500 translate} if xchartl2 6 eq { 100 0250 translate} if xchartl2 7 eq {5700 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 100 -140 moveto xchartl 7 le {(DEV50-) show} {(DEV50-) show} ifelse xchartl2 01 add cvishow %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse /xwidth 5400 def /ywidth 4000 def 1 setgray %frame white, only grey for xchartl=14,15 %xchartl 14 ge %xchartl 15 le and {0.0 0.0 0.0 0.5 setcmykcolor} if 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black /xpos 6 array def /xpos [100 1000 1900 2800 3700 4600] def /ymax 3000 def /ydel 0500 def 200 /Times-ISOL1 FS 0 setgray TBK %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmykcolor %font black 1800 100 moveto (Wellenl\344nge ) showde %08141-1 1 (wavelength ) showen %18141-1 1 (Ancho de banda ) showes %28141-1 1 (wavelength ) showfr %38141-1 1 (wavelength ) showit %48141-1 1 (wavelength ) showjp %58141-1 1 SK (l) show TBK 30 0 rmoveto (/nm) show %scale x 3*1200=3600 %scale y 4*600=2400 /xd 70 def /xd2 140 def /ix0 450 def /iy0 650 def /ixd0 240 def %x-start at 380 nm /ixd 1200 def /iyd 600 def /tx [ (400) (500) (600) (700)] def /ty1 [(0,0) ( ) (1,0) ( ) (2,0) ( ) ] def /tys [(0,0) (2,5) (5,0) (7,5) (10) ( ) ] def /ty20 [( 0) (10) (20) (30) (40) (50) ] def /tyo [(0,0) ( ) (0,5) ( ) (1,0) ( ) ] def /typ [(-1) ( ) ( 0) ( ) ( 1) ( ) ] def 40 setlinewidth ix0 iy0 moveto 4300 0 rlineto stroke %x ix0 iy0 moveto 0 2700 rlineto stroke %y 30 setlinewidth ix0 4300 add iy0 moveto -100 050 rlineto stroke %x_arrow ix0 4300 add iy0 moveto -100 -050 rlineto stroke %x_arrow ix0 iy0 2700 add moveto -050 -100 rlineto stroke %y_arrow ix0 iy0 2700 add moveto 050 -100 rlineto stroke %y_arrow %cero line 20 setlinewidth [100 ] 0 setdash xchartl 00 ge xchartl 02 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 03 ge xchartl 05 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 06 ge xchartl 07 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 08 ge xchartl 10 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 11 ge xchartl 13 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 14 ge xchartl 15 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if [ ] 0 setdash 40 setlinewidth 0 1 3 {/i exch def %x ix0 ixd0 add i ixd mul add iy0 50 sub moveto 0 100 rlineto stroke } for xchartl 00 ge xchartl 15 le and {/iydo iyd def} if 0 1 4 {/i exch def %y ix0 050 sub iy0 i iydo mul add moveto 100 0 rlineto stroke } for TBS 0 1 3 {/i exch def %xtex ix0 ixd0 add i ixd mul add 150 sub iy0 250 sub moveto tx i get show } for /i 3 def ix0 ixd0 add i ixd mul add 150 add iy0 300 add moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse 0 1 4 {/i exch def %ytex ix0 300 sub iy0 i iydo mul add 100 sub moveto xchartl 00 ge xchartl 02 le and {ty1 i get show} if xchartl 03 ge xchartl 05 le and {tys i get show} if xchartl 06 ge xchartl 07 le and {ty1 i get show} if xchartl 08 ge xchartl 10 le and {ty1 i get show} if xchartl 11 ge xchartl 13 le and {tys i get show} if xchartl 14 eq {ty1 i get show} if xchartl 15 eq {ty1 i get show} if } for 0 1 76 {/i exch def %i=0,76 lASj i B11 XASj i get mul B12 YASj i get mul add B13 ZASj i get mul add put mASj i B21 XASj i get mul B22 YASj i get mul add B23 ZASj i get mul add put sASj i B31 XASj i get mul B32 YASj i get mul add B33 ZASj i get mul add put } for %i=0,76 0 1 76 {/i exch def %i=0,76 lA1j i B11 XA1j i get mul B12 YA1j i get mul add B13 ZA1j i get mul add put mA1j i B21 XA1j i get mul B22 YA1j i get mul add B23 ZA1j i get mul add put sA1j i B31 XA1j i get mul B32 YA1j i get mul add B33 ZA1j i get mul add put } for %i=0,76 /fslA1 0 def /fsmA1 0 def /fssA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslA1 fslA1 lA1j i get add def /fsmA1 fsmA1 mA1j i get add def /fssA1 fssA1 sA1j i get add def } for %i=0,76 /fslAS 0 def /fsmAS 0 def /fssAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslAS fslAS lASj i get add def /fsmAS fsmAS mASj i get add def /fssAS fssAS sASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 xyzan /sumXYZ XASj i get YASj i get add ZASj i get add def xanASj i XASj i get sumXYZ 0.01 add div put yanASj i YASj i get sumXYZ 0.01 add div put zanASj i ZASj i get sumXYZ 0.01 add div put } for %i=0,76 /inx4 10 array def %index for xchart4 and number BLxx (xx=40 to 65) %0,40 1,42 2,44 3,46 /inx4 [(02) (10) (F02) (F10) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17M3) (R17M4)] def /xposj 3000 def /yposj 3200 def /yposjP yposj 300 add def %3500 /yposjT yposj 600 add def %3800 /yposjM yposj 300 sub def %2900 /yposjK yposj 600 sub def %2600 /xposj0 30 def /yposj0 yposjT 300 sub def %part1 equation /xposj1 0500 def /yposj1 yposj0 0300 sub def %table A/Bij /xposj20 500 def /xposj21 3300 def %sum /yposj2 yposj0 0600 sub def %lamda1,m,2 & illuminant & sum /xposj3 2400 def /xposj31 2700 def %x,y /yposj3 yposj0 0900 sub def %sum lms(lamda1,m,2) or (x) /xposj4 3900 def /yposj4 yposj0 0900 sub def %(lms max=1) /xposj5 3700 def /yposj5 1900 def %lms(max)=1 /W0 570 def %default lambda /W1 545 def /W2 445 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamda0ss {inx4 xchart4 get ib4 (,s) ib4} def /lamdakss {lamda0ss lamdak} def /lamda0ns {inx4 xchart4 get ib4 (,n) ib4} def /lamdakns {lamda0ns lamdak} def /lamdakmax {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdakall {TBK (\050) show SK (l) show (1,m,2) is4 TBK (\051) show} bind def /lamda01smax {lamda01s lamdakmax} def /lamda0ssmax {lamda0ss lamdakmax} def /lamda0nsmax {lamda0ns lamdakmax} def /lamda01sall {lamda01s lamdakall} def /lamda0ssall {lamda0ss lamdakall} def /lamda0nsall {lamda0ns lamdakall} def 100 yposjT moveto /TBK1 {230 /TimesB-ISOL1 FS} bind def lanind 0 eq {TBK1} {TBK} ifelse (HPE_CIE) show inx4 xchart4 get show xchartl 00 ge xchartl 07 le and {(\255Zapfenempfindlichkeit) showde (\255cone sensitivity) showen } if xchartl 00 ge xchartl 02 le and {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 03 ge xchartl 05 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if xchartl 06 eq {TBIK ( l) show -100 120 rmoveto (-) show 0 -120 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 07 eq {TBIK ( m) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if %maximum lAsj, mASj, sASj /lASjm 0 def /mASjm 0 def /sASjm 0 def /lASj_lamda 380 def /mASj_lamda 380 def /sASj_lamda 380 def 0 1 76 {/i exch def %i=0,76 lASj i get lASjm ge {/lASjm lASj i get def /lASjm_lamda 380 i 5 mul add def} if mASj i get mASjm ge {/mASjm mASj i get def /mASjm_lamda 380 i 5 mul add def} if sASj i get sASjm ge {/sASjm sASj i get def /sASjm_lamda 380 i 5 mul add def} if } for %i=0,76 %normalized to max 0 1 76 {/i exch def %i=0,76 lANj i lASj i get lASjm div put mANj i mASj i get mASjm div put sANj i sASj i get sASjm div put } for %i=0,76 /lASj1 0 def /mASj1 0 def /sASj1 0 def /lASj1_lamda 380 def /mASj1_lamda 380 def /sASj1_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 lt lANj i 1 add get 0.5 ge and {/lASj10 lASj i get def /lASj10_lamda 380 i 5 mul add def /lASj11 lASj i 1 add get def /lASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj10 sub lASj11 lASj10 sub 0.01 add div def /lASj1 lASj10 lASj11 lASj10 sub fact mul add def /lASj1_lamda lASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 lt mANj i 1 add get 0.5 ge and {/mASj10 mASj i get def /mASj10_lamda 380 i 5 mul add def /mASj11 mASj i 1 add get def /mASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj10 sub mASj11 mASj10 sub 0.01 add div def /mASj1 mASj10 mASj11 mASj10 sub fact mul add def /mASj1_lamda mASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 lt sANj i 1 add get 0.5 ge and {/sASj10 sASj i get def /sASj10_lamda 380 i 5 mul add def /sASj11 sASj i 1 add get def /sASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj10 sub sASj11 sASj10 sub 0.01 add div def /sASj1 sASj10 sASj11 sASj10 sub fact mul add def /sASj1_lamda sASj10_lamda 5 fact mul add def } if } for %i=0,75 /lASj2 0 def /mASj2 0 def /sASj2 0 def /lASj2_lamda 380 def /mASj2_lamda 380 def /sASj2_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 gt lANj i 1 add get 0.5 le and {/lASj20 lASj i get def /lASj20_lamda 380 i 5 mul add def /lASj21 lASj i 1 add get def /lASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj20 sub lASj21 lASj20 sub 0.01 add div def /lASj2 lASj20 lASj21 lASj20 sub fact mul add def /lASj2_lamda lASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 gt mANj i 1 add get 0.5 le and {/mASj20 mASj i get def /mASj20_lamda 380 i 5 mul add def /mASj21 mASj i 1 add get def /mASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj20 sub mASj21 mASj20 sub 0.01 add div def /mASj2 mASj20 mASj21 mASj20 sub fact mul add def /mASj2_lamda mASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 gt sANj i 1 add get 0.5 le and {/sASj20 sASj i get def /sASj20_lamda 380 i 5 mul add def /sASj21 sASj i 1 add get def /sASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj20 sub sASj21 sASj20 sub 0.01 add div def /sASj2 sASj20 sASj21 sASj20 sub fact mul add def /sASj2_lamda sASj20_lamda 5 fact mul add def } if } for %i=0,75 100 yposjP moveto TBIK xchartl 0 eq {(l) show} if xchartl 1 eq {(m) show} if xchartl 2 eq {(s) show} if xchartl 3 eq {(l) show} if xchartl 4 eq {(m) show} if xchartl 5 eq {(s) show} if xchartl 6 eq {(l) show} if xchartl 7 eq {(m) show} if xchartl 0 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 2 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 3 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 5 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 6 eq {-100 120 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 05 le and {lamdakss} if xchartl 06 eq xchartl 07 eq or {lamdakns} if xchartl 00 ge xchartl 02 le and {/lamdakas {lamdak1s} def} if xchartl 03 ge xchartl 05 le and {/lamdakas {lamdakss} def} if xchartl 06 eq xchartl 07 eq or {/lamdakas {lamdakns} def} if xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {%xchartl=00,03,06 TBK (=) show xchartl 06 eq xchartl 14 eq or {([) show } if TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 06 eq {(]/) show lASjm cvsshow2x} if } if %xchartl=00,03,06 xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {%xchartl=01,04,07 TBK (=) show xchartl 07 eq {([) show } if TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 07 eq {(]/) show mASjm cvsshow2x} if } if %xchartl=01,04,07 xchartl 02 eq xchartl 05 eq or {%xchartl=02,05 TBK (=) show TBK (B) show (31) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas } if %xchartl=02,05 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {xpos 0 get yposj1 moveto (B) show (1j) is4 xpos 1 get yposj1 moveto B11 cvsshow4x xpos 2 get yposj1 moveto B12 cvsshow4x xpos 3 get yposj1 moveto B13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show } if xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {xpos 0 get yposj1 moveto (B) show (2j) is4 xpos 1 get yposj1 moveto B21 cvsshow4x xpos 2 get yposj1 moveto B22 cvsshow4x xpos 3 get yposj1 moveto B23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show } if xchartl 02 eq xchartl 05 eq or {xpos 0 get yposj1 moveto (B) show (3j) is4 xpos 1 get yposj1 moveto B31 cvsshow4x xpos 2 get yposj1 moveto B32 cvsshow4x xpos 3 get yposj1 moveto B33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show } if 0 1 76 {/i exch def %i=0,76 xchartl 0 eq {ycuri i lA1j i get 1 mul put} if xchartl 1 eq {ycuri i mA1j i get 1 mul put} if xchartl 2 eq {ycuri i sA1j i get 1 mul put} if xchartl 3 eq {ycuri i lASj i get 0.2 mul put} if xchartl 4 eq {ycuri i mASj i get 0.2 mul put} if xchartl 5 eq {ycuri i sASj i get 0.2 mul put} if xchartl 06 eq {ycuri i lASj i get lASjm div put} if xchartl 07 eq {ycuri i mASj i get mASjm div put} if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units xchartl 00 ge xchartl 07 le and {%0<=xchartl<=7, 14,15 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm xchartl 13 le {/iy01 iy0 def} {/iy01 iy0 1200 add def} ifelse /y10 iy01 def /y11 iy01 ycuri i get 1200 mul add def /y21 iy01 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 } if %0<=xchartl<=7 [] 0 setdash 0 setgray 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 0 eq {SK (S) show TBIK (l) show} if xchartl 1 eq {SK (S) show TBIK (m) show} if xchartl 2 eq {SK (S) show TBIK (s) show} if xchartl 3 eq {SK (S) show TBIK (l) show} if xchartl 4 eq {SK (S) show TBIK (m) show} if xchartl 5 eq {SK (S) show TBIK (s) show} if xchartl 6 eq {SK (S) show TBIK (l) show} if xchartl 7 eq {SK (S) show TBIK (m) show} if xchartl 0 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 2 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 3 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 5 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 6 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 07 le and {lamdakss} if xchartl 00 ge xchartl 07 le and {TK (=) show} if TK xchartl 0 eq {fslA1 cvsshow2x} if xchartl 1 eq {fsmA1 cvsshow2x} if xchartl 2 eq {fssA1 cvsshow2x} if xchartl 3 eq {fslAS cvsshow2x} if xchartl 4 eq {fsmAS cvsshow2x} if xchartl 5 eq {fssAS cvsshow2x} if xchartl 6 eq {fslAS cvsshow2x} if xchartl 7 eq {fsmAS cvsshow2x} if /lamdakm {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdak1nm {lamda0ns lamdakm} def xchartl 03 eq xchartl 06 eq or {/iymax lASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamda0ssall TK (=) show lASj1 cvsshow2x TK (, ) show lASjm cvsshow2x TK (, ) show lASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show lASj1_lamda cvishow (, ) show lASjm_lamda cvishow (, ) show lASj2_lamda cvishow } if xchartl 04 eq xchartl 07 eq or {/iymax mASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show mASj1 cvsshow2x TK (, ) show mASjm cvsshow2x TK (, ) show mASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show mASj1_lamda cvishow (, ) show mASjm_lamda cvishow (, ) show mASj2_lamda cvishow } if xchartl 5 eq {/iymax sASjm 0.2 mul 1200 mul def ix0 iy0 iymax add moveto 0900 0 rlineto stroke xposj3 yposj3 moveto TBIK (s) show -100 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show sASj1 cvsshow2x TK (, ) show sASjm cvsshow2x TK (, ) show sASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show sASj1_lamda cvishow (, ) show sASjm_lamda cvishow (, ) show sASj2_lamda cvishow } if xchartl 00 ge xchartl 02 le and {%00<=xchartl<=02, 03<=xchartl<=07 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%00<=xchartl<=02 {%03<=xchartl<=07 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %00<=xchartl<=02, 03<=xchartl<=07 xchartl 00 ge xchartl 02 le and {%0<=xchartl<=2 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } if %0<=xchartl<=2 } bind def %END proc_LMS1_02, xchartl=0,7 %***************************************************************** /proc_XYZI_02 {%BEG proc_XYZI_02, xchartl=8,15 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 13 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (CIE) show inx4 xchart4 get show xchartl 08 ge xchartl 15 le and { (\255Normspektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 11 ge xchartl 13 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if 100 yposjP moveto TBIK xchartl 8 eq {(x) show} if xchartl 9 eq {(y) show} if xchartl 10 eq {(z) show} if xchartl 11 eq {(x) show} if xchartl 12 eq {(y) show} if xchartl 13 eq {(z) show} if xchartl 14 eq {(y) show} if xchartl 15 eq {(y) show} if xchartl 8 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 9 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 10 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 11 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 12 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 13 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 14 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 15 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 08 eq xchartl 11 eq or {%xchartl=8 or 11 TBK (=) show TBK (A) show (11) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (12) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=8 or 11 xchartl 09 eq xchartl 12 eq or xchartl 14 eq or xchartl 15 eq or {%xchartl=9,12,14,15 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12,14,15 xchartl 10 eq xchartl 13 eq or {%xchartl=10 or 13 TBK (=) show TBK (A) show (31) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (32) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (33) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10 or 13 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 08 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 09 eq xchartl 14 eq or xchartl 15 eq or {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if 0 1 76 {/i exch def %i=0,76 xchartl 08 eq {ycuri i XA1j i get 1 mul put} if xchartl 09 eq {ycuri i YA1j i get 1 mul put} if xchartl 10 eq {ycuri i ZA1j i get 1 mul put} if xchartl 11 eq {ycuri i XASj i get 0.2 mul put} if xchartl 12 eq {ycuri i YASj i get 0.2 mul put} if xchartl 13 eq {ycuri i ZASj i get 0.2 mul put} if xchartl 14 eq {ycuri i YA1j i get 1 mul put} if xchartl 15 eq {ycuri i YA1j i get 1 mul put} if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm /y10 iy0 def /y11 iy0 ycuri i get 1200 mul add def /y21 iy0 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 %only for 8<=xchartl<=15 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 8 eq {SK (S) show TIK (x) show} if xchartl 9 eq {SK (S) show TIK (y) show} if xchartl 10 eq {SK (S) show TIK (z) show} if xchartl 11 eq {SK (S) show TIK (x) show} if xchartl 12 eq {SK (S) show TIK (y) show} if xchartl 13 eq {SK (S) show TIK (z) show} if xchartl 14 eq {SK (S) show TIK (y) show} if xchartl 15 eq {SK (S) show TIK (y) show} if xchartl 8 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 9 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 10 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 11 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 12 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 13 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 14 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 15 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s xchartl 08 ge xchartl 15 le and {TK (=) show} if TK xchartl 8 eq {fsXA1 cvsshow2x} if xchartl 9 eq {fsYA1 cvsshow2x} if xchartl 10 eq {fsZA1 cvsshow2x} if xchartl 11 eq {fsXAS cvsshow2x} if xchartl 12 eq {fsYAS cvsshow2x} if xchartl 13 eq {fsZAS cvsshow2x} if xchartl 14 eq {fsYA1 cvsshow2x} if xchartl 15 eq {fsYA1 cvsshow2x} if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {%08<=xchartl<=10, 14,15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def } if %08<=xchartl<=10, 14,15 xchartl 11 ge xchartl 13 le and {%11<=xchartl<=13 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } if %11<=xchartl<13 %xchartl 15 ne {%xchartl#15 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x % } if %xchartl#15 } bind def %END proc_XYZI_02, xchartl=8,15 %********************************************************************* /proc_LMS1_14 {%BEG proc_LMS1_14 xchartl=14 only plot of a*l(lamda)+b*m(lamda) /Yiy 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves 0 1 2 {/icurv exch def %icurv=0,2 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiy i lA1j i get 0.6899 mul put} if icurv 1 eq {Yiy i mA1j i get 0.3483 mul put} if icurv 2 eq {Yiy i lA1j i get 0.6899 mul mA1j i get 0.3483 mul add put} if } for %i=0,76 %three curves %570 = 380 + i*5, i=(570-380)/5=38 /ila 38 def %capital Y! /mA1a mA1j ila get 0.6899 mul def /lA1a lA1j ila get 0.3483 mul def /yA1a mA1a lA1a add def /YA1a YA1j ila get def %0050 0250 moveto TV (lmyY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %yA1a cvsshow4x (, ) show %YA1a cvsshow4x /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiy 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiy i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,2 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def 0600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 0600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 0600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } bind def %END proc_LMS1_14, xchartl=14 %************************************************************** /proc_LMS1_15 {%BEG proc_LMS1_15 xchartl=15 only plot of a*l(lamda)+b*m(lamda) /Yiz 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves %570 = 380 + i*5, i=(570-380)/5=38 %lA1_38=1,0000=lA1j 38 get %mA1_38=0,8135=MA1j 38 get %yA1_38=0,8964=yA1j 38 get /ila 38 def %capital Y! /lA1a lA1j ila get def /mA1a mA1j ila get def /YA1a YA1j ila get def /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show %five curves 0 1 4 {/icurv exch def %icurv=0,4 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiz i lA1j i get YA1a lA1a div mul put} if icurv 1 eq {Yiz i mA1j i get YA1a mA1a div mul put} if icurv 2 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul add 0.5 mul put} if icurv 3 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub put} if icurv 4 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub neg put} if } for %i=0,76 %0050 0250 moveto TV (lmY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %YA1a cvsshow4x 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if icurv 3 eq {tf620} if icurv 4 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiz 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiz i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,4 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamdaka {TBK (\050) show SK (l) show (a) ib4 TBK (\051) show} bind def /lamdak1sa {lamda01s lamdaka} def 600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 1600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (3) is4 TBK (=a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 (-b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 600 1300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (4) is4 TBK (=b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 (-a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 2600 2300 moveto TBK (a=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (m) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa 2600 2000 moveto TBK (b=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (l) show TBK -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1sa 4000 1600 moveto TK (Adaptation:) show 4000 1300 moveto SK (l) show (a) is4 TK (=570nm) show } bind def %END proc_LMS1_15, xchartl=15 %************************************************************** /proc_LMSM14_15 {%BEG proc_LMSM_14_15, xchartl=14,15 %BEG NEW FROM BL65 211218 06,07->14,15 /MULXS 0060 def /MULYS 1200 1.0 mul def 0 1200 neg translate /CY 0.35 def /CX 50 def /W1 620 def /W0 520 def /WM 570 def /tsa 0.00 def 40 setlinewidth /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put /YEXP Xi i get W0 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi0 i EYEXP put /YEXP Xi i get W1 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi1 i EYEXP put /YEXP Xi i get WM sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put } for %i=0,1,76 /Yix 88 array def xchartl 14 ge xchartl 15 le and {/MULYS 1200 0.5 mul def 0 1200 translate} if 40 setlinewidth 0 1 2 {/jc exch def %jc=0,2 0 1 76 {/i exch def %i=0,76 Yix i jc 0 eq {Yi0 i get 2 mul} if jc 1 eq {Yi1 i get 2 mul} if jc 2 eq {Yi2 i get 2 mul} if put } for %i=0,76 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash jc 0 eq {tf620} if jc 1 eq {tf570} if jc 2 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /xst ix0 0 MULXS mul add def /yst iy0 Yix 0 get MULYS mul add def xst yst moveto 1 3 71 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yix i get MULYS mul add def /x20 ix0 i 1 add MULXS mul add def /y20 iy0 Yix i 1 add get MULYS mul add def /x21 ix0 i 2 add MULXS mul add def /y21 iy0 Yix i 2 add get MULYS mul add def /x22 ix0 i 3 add MULXS mul add def /y22 iy0 Yix i 3 add get MULYS mul add def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } for %n=0,1 } for %j=0,2 0 1200 translate } bind def %END proc_LMSM_14_15, xchartl=14,15 %************************************************************** xchartl 00 ge xchartl 07 le and {proc_LMS1_02} if %09 repeat in 14 and 15 xchartl 08 ge xchartl 15 le and {proc_XYZI_02} if %14 and 15 with functions of LMS1 xchartl 14 eq {proc_LMS1_14} if xchartl 15 eq {proc_LMS1_15} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % 'DNV5'YLOOPEND5.EPS % space essential for files Y*A.EPS xchartl2 4 eq { 100 neg 4500 neg translate} if xchartl2 5 eq {5700 neg 4500 neg translate} if xchartl2 6 eq { 100 neg 0250 neg translate} if xchartl2 7 eq {5700 neg 0250 neg translate} if %} if %iout=1 grestore } for %xchartl=0,15 showpage grestore } for %xchartx=1,1 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 DEV50-8N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV50-8N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 DEV51-1N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV51-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 DEV51-2N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV51-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 108 1 sub MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEV5/DEV51-3N 20211201 %%BoundingBox: 70 82 395 336 /pdfmark13 where {pop} {userdict /pdfmark13 /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: http://farbe.li.tu-berlin.de/DEV5/DEV5.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021120112000) /ModDate (D:20211201112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def %/languagelevel where {pop languagelevel} {1} ifelse % /PSL12 exch def %/dictende {counttomark 2 idiv dup dict begin {def} % repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SV {160 /Symbol FS} bind def /CV {160 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {240 /Courier-ISOL1 FS} bind def /CM {280 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBV {160 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {240 /CourierB-ISOL1 FS} bind def /CBM {280 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {TG show} bind def /ks {TIG show} bind def /bs {TBG show} bind def /js {TBIG show} bind def /sy {SG show} bind def /is {TM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /es {TM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ib {TBM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /eb {TBM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ip {TM 50 50 rmoveto (\267) show 50 -50 rmoveto TG} bind def %20% kleiner /ns2 {TM show TM} bind def /ks2 {TIM show TM} bind def /bs2 {TBM show TM} bind def /js2 {TBIM show TM} bind def /sy2 {SM show TM} bind def /is2 {TK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {TK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {TBK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {TBK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {TK 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {SK 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {TK show TK} bind def /ks4 {TIK show TK} bind def /bs4 {TBK show TK} bind def /js4 {TBIK show TK} bind def /ss4 {SK show TK} bind def /is4 {TS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {TS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {TBS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {TBS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {TS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {SS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /cvishow {cvi 6 string cvs show ( ) 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} if 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} if 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} if 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} if 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 /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %2-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l02Ii 77 array def /m02Ii 77 array def /s02Ii 77 array def /l02Mi 77 array def /m02Mi 77 array def /s02Mi 77 array def /X02Ii 77 array def /Y02Ii 77 array def /Z02Ii 77 array def /xan02Ii 77 array def /yan02Ii 77 array def /zan02Ii 77 array def /X02Mi 77 array def /Y02Mi 77 array def /Z02Mi 77 array def /xan02Mi 77 array def /yan02Mi 77 array def /zan02Mi 77 array def /ycuri 77 array def %10-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l10Ii 77 array def /m10Ii 77 array def /s10Ii 77 array def /l10Mi 77 array def /m10Mi 77 array def /s10Mi 77 array def /X10Ii 77 array def /Y10Ii 77 array def /Z10Ii 77 array def /xan10Ii 77 array def /yan10Ii 77 array def /zan10Ii 77 array def /X10Mi 77 array def /Y10Mi 77 array def /Z10Mi 77 array def /xan10Mi 77 array def /yan10Mi 77 array def /zan10Mi 77 array def /ycurj 80 array def %2-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l02Ij 80 array def /m02Ij 80 array def /s02Ij 80 array def /l02Mj 80 array def /m02Mj 80 array def /s02Mj 80 array def /X02Ij 80 array def /Y02Ij 80 array def /Z02Ij 80 array def /xan02Ij 80 array def /yan02Ij 80 array def /zan02Ij 80 array def /X02Mj 80 array def /Y02Mj 80 array def /Z02Mj 80 array def /xan02Mj 80 array def /yan02Mj 80 array def /zan02Mj 80 array def /ycurj 80 array def %10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l10Ij 80 array def /m10Ij 80 array def /s10Ij 80 array def /l10Mj 80 array def /m10Mj 80 array def /s10Mj 80 array def /X10Ij 80 array def /Y10Ij 80 array def /Z10Ij 80 array def /xan10Ij 80 array def /yan10Ij 80 array def /zan10Ij 80 array def /X10Mj 80 array def /Y10Mj 80 array def /Z10Mj 80 array def /xan10Mj 80 array def /yan10Mj 80 array def /zan10Mj 80 array def /ycurj 80 array def %actual 2 or 10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /lA1j 80 array def /mA1j 80 array def /sA1j 80 array def /lASj 80 array def /mASj 80 array def /sASj 80 array def /lANj 80 array def /mANj 80 array def /sANj 80 array def /XA1j 80 array def /YA1j 80 array def /ZA1j 80 array def /xanA1j 80 array def /yanA1j 80 array def /zanA1j 80 array def /XASj 80 array def /YASj 80 array def /ZASj 80 array def /xanASj 80 array def /yanASj 80 array def /zanASj 80 array def /XANj 80 array def /YANj 80 array def /ZANj 80 array def /xanANj 80 array def /yanANj 80 array def /zanANj 80 array def /ycurj 80 array def /l10Mi [ %LMS2.TXT %L2.DAT CIE Table 6.7, p. 34 380=390,385=390, 390, 395, ...760nm 4.150019e-4 4.150019e-4 4.150019e-4 1.051914e-3 2.408353e-3 %400 4.833371e-3 8.721273e-3 1.338382e-2 1.844803e-2 2.293190e-2 2.818772e-2 3.410515e-2 4.025595e-2 4.493761e-2 4.986433e-2 %450 5.534138e-2 6.471575e-2 8.069006e-2 9.947639e-2 1.188010e-1 1.401458e-1 1.639532e-1 1.915579e-1 2.329271e-1 2.889615e-1 %500 3.597162e-1 4.436801e-1 5.364880e-1 6.285647e-1 7.047255e-1 7.706373e-1 8.257146e-1 8.810083e-1 9.190730e-1 9.401995e-1 %550 9.657395e-1 9.814541e-1 9.944890e-1 1 9.923160e-1 9.694379e-1 9.556085e-1 9.276625e-1 8.859720e-1 8.339884e-1 %600 7.751040e-1 7.057161e-1 6.307685e-1 5.542300e-1 4.799434e-1 4.007098e-1 3.278612e-1 2.657847e-1 2.132849e-1 1.651391e-1 %650 1.247498e-1 9.300794e-2 6.850937e-2 4.986664e-2 3.582284e-2 2.537932e-2 1.772025e-2 1.216998e-2 8.471687e-3 5.897527e-3 %700 4.091288e-3 2.804465e-3 1.920570e-3 1.326875e-3 9.177829e-4 6.393665e-4 4.460361e-4 3.108708e-4 2.193310e-4 1.545503e-4 %750 1.095065e-4 7.799195e-5 ] def /m02Mi [ %M2.DAT 3.683495e-4 3.683495e-4 3.683495e-4 9.586496e-4 2.269917e-3 %400 4.700132e-3 8.793667e-3 1.452780e-2 2.166506e-2 2.957127e-2 3.945663e-2 5.182030e-2 6.477837e-2 7.588048e-2 8.705225e-2 %450 9.819288e-2 1.162733e-1 1.445407e-1 1.758936e-1 2.053998e-1 2.357545e-1 2.680649e-1 3.036267e-1 3.570590e-1 4.277598e-1 %500 5.155847e-1 6.155169e-1 7.191508e-1 8.166012e-1 8.855437e-1 9.356857e-1 9.688577e-1 9.952165e-1 9.971948e-1 9.771922e-1 %550 9.995->9.95? 9.565771e-1 9.177407e-1 8.732126e-1 8.135046e-1 7.402868e-1 6.532810e-1 5.725950e-1 4.925950e-1 4.112444e-1 3.344260e-1 %600 2.648744e-1 2.052721e-1 1.562428e-1 1.166407e-1 8.558743e-2 6.211264e-2 4.448770e-2 3.142624e-2 2.180369e-2 1.544792e-2 %650 1.071199e-2 7.302475e-3 4.971759e-3 3.436687e-3 2.376184e-3 1.637344e-3 1.121270e-3 7.610442e-4 5.254605e-4 3.653171e-4 %700 2.534195e-4 1.744014e-4 1.206090e-4 8.417245e-5 5.893455e-5 4.160449e-5 2.943542e-5 2.088575e-5 1.504562e-5 1.082007e-5 %750 7.822762e-6 5.690886e-6 ] def /s02Mi [ %S2.DAT CIE 171.1:2006 9.547289e-3 9.547289e-3 %380,385 9.547289e-3 2.382484e-2 5.665002e-2 1.224503e-1 2.330076e-1 %410 3.813643e-1 5.436132e-1 6.744815e-1 8.025461e-1 9.035662e-1 9.910145e-1 9.915166e-1 9.553885e-1 8.602408e-1 7.867016e-1 %460 7.382611e-1 6.463534e-1 5.164164e-1 3.903373e-1 2.903220e-1 2.118654e-1 1.605240e-1 1.228400e-1 8.889554e-2 6.082050e-2 %510 4.281244e-2 2.920317e-2 1.939099e-2 1.260114e-2 8.094500e-3 5.088971e-3 3.168911e-3 1.958935e-3 1.202763e-3 7.401673e-4 %560 4.559845e-4 2.817993e-4 1.750370e-4 1.094536e-4 6.899855e-5 4.390257e-5 2.822280e-5 1.834593e-5 1.206675e-5 8.034895e-6 %610 5.418387e-6 0 0 0 0 0 0 0 0 0 %650 0 0 0 0 0 0 0 0 0 0 %700 0 0 0 0 0 0 0 0 0 0 %750 0 0 ] def /CIEF_LMS_02 298 array def %77x4 /CIEF_LMS_02 [%BEG CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 385.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 390.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 395.0 1.05192281E-03 9.58658287E-04 2.38249757E-02 400.0 2.40836274E-03 2.26990665E-03 5.66497751E-02 405.0 4.83338951E-03 4.70010083E-03 1.22450936E-01 410.0 8.72126562E-03 8.79368990E-03 2.33008318E-01 415.0 1.33836930E-02 1.45277327E-02 3.81363350E-01 420.0 1.84480328E-02 2.16648593E-02 5.43618105E-01 425.0 2.29317499E-02 2.95714420E-02 6.74474074E-01 430.0 2.81877052E-02 3.94566147E-02 8.02554955E-01 435.0 3.41053893E-02 5.18198823E-02 9.03572547E-01 440.0 4.02562524E-02 6.47782187E-02 9.91020299E-01 445.0 4.49379920E-02 7.58812175E-02 9.91515250E-01 450.0 4.98639402E-02 8.70523965E-02 9.55393000E-01 455.0 5.53418498E-02 9.81933595E-02 8.60240453E-01 460.0 6.47164360E-02 1.16272079E-01 7.86703893E-01 465.0 8.06893625E-02 1.44540604E-01 7.38267621E-01 470.0 9.94755270E-02 1.75892769E-01 6.46359219E-01 475.0 1.18802152E-01 2.05398073E-01 5.16410649E-01 480.0 1.40145131E-01 2.35754060E-01 3.90333407E-01 485.0 1.63951537E-01 2.68063038E-01 2.90322411E-01 490.0 1.91556224E-01 3.03629653E-01 2.11866834E-01 495.0 2.32925516E-01 3.57060581E-01 1.60525792E-01 500.0 2.88959412E-01 4.27764487E-01 1.22838921E-01 505.0 3.59716421E-01 5.15586863E-01 8.88965361E-02 510.0 4.43682863E-01 6.15520174E-01 6.08209513E-02 515.0 5.36493787E-01 7.19154047E-01 4.28122756E-02 520.0 6.28561087E-01 8.16609632E-01 2.92032829E-02 525.0 7.04720332E-01 8.85549719E-01 1.93911943E-02 530.0 7.70629906E-01 9.35687022E-01 1.26012838E-02 535.0 8.25710771E-01 9.68858338E-01 8.09453368E-03 540.0 8.81010908E-01 9.95216550E-01 5.08900051E-03 545.0 9.19066658E-01 9.97192616E-01 3.16893322E-03 550.0 9.40197682E-01 9.77193335E-01 1.95895533E-03 555.0 9.65733133E-01 9.56583237E-01 1.20277126E-03 560.0 9.81444621E-01 9.17749837E-01 7.40173919E-04 565.0 9.94485919E-01 8.73204873E-01 4.55979308E-04 570.0 9.99993160E-01 8.13509255E-01 2.81799951E-04 575.0 9.92309909E-01 7.40291037E-01 1.75038547E-04 580.0 9.69429172E-01 6.53273547E-01 1.09453897E-04 585.0 9.55601819E-01 5.72596792E-01 6.89990581E-05 590.0 9.27672559E-01 4.92598798E-01 4.39023849E-05 595.0 8.85969334E-01 4.11245617E-01 2.82228417E-05 600.0 8.33982132E-01 3.34428550E-01 1.83458912E-05 605.0 7.75103324E-01 2.64872009E-01 1.20667447E-05 610.0 7.05713103E-01 2.05273346E-01 8.03487566E-06 615.0 6.30773388E-01 1.56242654E-01 5.41843079E-06 620.0 5.54224372E-01 1.16641491E-01 0.00000000E-00 625.0 4.79940995E-01 8.55871752E-02 0.00000000E-00 630.0 4.00710831E-01 6.21120321E-02 0.00000000E-00 635.0 3.27863707E-01 4.44878727E-02 0.00000000E-00 640.0 2.65784185E-01 3.14282295E-02 0.00000000E-00 645.0 2.13283643E-01 2.18037465E-02 0.00000000E-00 650.0 1.65140826E-01 1.54479552E-02 0.00000000E-00 655.0 1.24749078E-01 1.07119605E-02 0.00000000E-00 660.0 9.30084863E-02 7.30255150E-03 0.00000000E-00 665.0 6.85099590E-02 4.97179190E-03 0.00000000E-00 670.0 4.98660938E-02 3.43667061E-03 0.00000000E-00 675.0 3.58232509E-02 2.37617227E-03 0.00000000E-00 680.0 2.53790394E-02 1.63733769E-03 0.00000000E-00 685.0 1.77201275E-02 1.12127805E-03 0.00000000E-00 690.0 1.21701123E-02 7.61050801E-04 0.00000000E-00 695.0 8.47170037E-03 5.25456816E-04 0.00000000E-00 700.0 5.89748808E-03 3.65317316E-04 0.00000000E-00 705.0 4.09129197E-03 2.53417295E-04 0.00000000E-00 710.0 2.80446659E-03 1.74401753E-04 0.00000000E-00 715.0 1.92057783E-03 1.20607982E-04 0.00000000E-00 720.0 1.32686544E-03 8.41716373E-05 0.00000000E-00 725.0 9.17776773E-04 5.89349310E-05 0.00000000E-00 730.0 6.39372955E-04 4.16048509E-05 0.00000000E-00 735.0 4.46035067E-04 2.94354152E-05 0.00000000E-00 740.0 3.10869146E-04 2.08859570E-05 0.00000000E-00 745.0 2.19329240E-04 1.50457558E-05 0.00000000E-00 750.0 1.54549195E-04 1.08200177E-05 0.00000000E-00 755.0 1.09507604E-04 7.82271489E-06 0.00000000E-00 760.0 7.79912028E-05 5.69092610E-06 0.00000000E-00 %765.0 5.56263839E-05 4.13998115E-06 0.00000000E-00 %770.0 3.99294560E-05 3.02682745E-06 0.00000000E-00 %775.0 2.86162863E-05 2.21100363E-06 0.00000000E-00 %780.0 2.07321327E-05 1.63432668E-06 0.00000000E-00 %785.0 1.50432118E-05 1.21053851E-06 0.00000000E-00 %790.0 1.09446148E-05 8.99169870E-07 0.00000000E-00 %795.0 7.97750298E-06 6.69594072E-07 0.00000000E-00 %800.0 5.85057291E-06 5.03187359E-07 0.00000000E-00 %805.0 4.31101652E-06 3.80046377E-07 0.00000000E-00 %810.0 3.17008616E-06 2.86328659E-07 0.00000000E-00 %815.0 2.34468299E-06 2.16878259E-07 0.00000000E-00 %820.0 1.74666331E-06 1.65157769E-07 0.00000000E-00 %825.0 1.30240694E-06 1.25508416E-07 0.00000000E-00 %830.0 9.74306403E-07 9.53411481E-08 0.00000000E-00 ] def %END CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree /CIEF_LMS_10 298 array def %77x4 /CIEF_LMS_10 [%BEG CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 385 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 390 4.07619067E-04 3.58227395E-04 6.14264795E-03 395 1.06920754E-03 9.64828092E-04 1.59514687E-02 400 2.54073042E-03 2.37207532E-03 3.96307943E-02 405 5.31546236E-03 5.12316225E-03 8.97612227E-02 410 9.98835098E-03 9.98840819E-03 1.78529924E-01 415 1.60129841E-02 1.72595696E-02 3.05941113E-01 420 2.33957137E-02 2.73163327E-02 4.62692207E-01 425 3.09103789E-02 3.96928205E-02 6.09570091E-01 430 3.97809896E-02 5.55383864E-02 7.56884632E-01 435 4.94171973E-02 7.50298610E-02 8.69984288E-01 440 5.94618805E-02 9.57611568E-02 9.66959512E-01 445 6.86537572E-02 1.16220119E-01 9.93336464E-01 450 7.95647427E-02 1.39493318E-01 9.91328844E-01 455 9.07704422E-02 1.62006089E-01 9.06735013E-01 460 1.06663473E-01 1.93201620E-01 8.23725866E-01 465 1.28336042E-01 2.32275228E-01 7.37042702E-01 470 1.51650594E-01 2.71441153E-01 6.10456321E-01 475 1.77116190E-01 3.10372033E-01 4.70893608E-01 480 2.07940052E-01 3.55066420E-01 3.50107654E-01 485 2.44045655E-01 4.05688377E-01 2.58496996E-01 490 2.82751994E-01 4.56137225E-01 1.85297483E-01 495 3.34785930E-01 5.22969940E-01 1.35350675E-01 500 3.91705331E-01 5.91002878E-01 9.67990105E-02 505 4.56251511E-01 6.66404323E-01 6.49613925E-02 510 5.26538428E-01 7.43612020E-01 4.12337488E-02 515 5.99866880E-01 8.16807889E-01 2.71299980E-02 520 6.75313179E-01 8.89213535E-01 1.76298483E-02 525 7.37107602E-01 9.34976841E-01 1.13251604E-02 530 7.88899549E-01 9.61961662E-01 7.17089441E-03 535 8.37403142E-01 9.81480903E-01 4.54287284E-03 540 8.90871319E-01 9.98930730E-01 2.83351880E-03 545 9.26659723E-01 9.91382642E-01 1.75572783E-03 550 9.44527173E-01 9.61875524E-01 1.08230483E-03 555 9.70702545E-01 9.35829058E-01 6.64512043E-04 560 9.85635735E-01 8.90949073E-01 4.08931409E-04 565 9.96979206E-01 8.40968769E-01 2.51918429E-04 570 9.99542570E-01 7.76525624E-01 1.55687802E-04 575 9.87057062E-01 7.00013057E-01 9.67045032E-05 580 9.57840611E-01 6.11727998E-01 6.04705364E-05 585 9.39781455E-01 5.31825085E-01 3.81202298E-05 590 9.06693013E-01 4.54142113E-01 2.42549460E-05 595 8.59605469E-01 3.76527354E-01 1.55923957E-05 600 8.03173191E-01 3.04377894E-01 1.01356328E-05 605 7.40679903E-01 2.39837365E-01 6.66656535E-06 610 6.68991113E-01 1.85103689E-01 4.43906145E-06 615 5.93247836E-01 1.40431078E-01 2.99354308E-06 620 5.17448826E-01 1.04572924E-01 0.00000000E-00 625 4.45124577E-01 7.65841125E-02 0.00000000E-00 630 3.69167951E-01 5.54989859E-02 0.00000000E-00 635 3.00316199E-01 3.97096689E-02 0.00000000E-00 640 2.42316360E-01 2.80314193E-02 0.00000000E-00 645 1.93730034E-01 1.94366360E-02 0.00000000E-00 650 1.49509341E-01 1.37659889E-02 0.00000000E-00 655 1.12637747E-01 9.54315350E-03 0.00000000E-00 660 8.38077035E-02 6.50455441E-03 0.00000000E-00 665 6.16383685E-02 4.42794317E-03 0.00000000E-00 670 4.48131819E-02 3.06049600E-03 0.00000000E-00 675 3.21659546E-02 2.11596127E-03 0.00000000E-00 680 2.27738100E-02 1.45797939E-03 0.00000000E-00 685 1.58939173E-02 9.98423741E-04 0.00000000E-00 690 1.09123394E-02 6.77652785E-04 0.00000000E-00 695 7.59452818E-03 4.67870233E-04 0.00000000E-00 700 5.28607164E-03 3.25278334E-04 0.00000000E-00 705 3.66675373E-03 2.25641354E-04 0.00000000E-00 710 2.51327467E-03 1.55285744E-04 0.00000000E-00 715 1.72107607E-03 1.07387972E-04 0.00000000E-00 720 1.18899676E-03 7.49453321E-05 0.00000000E-00 725 8.22396074E-04 5.24748323E-05 0.00000000E-00 730 5.72916838E-04 3.70443421E-05 0.00000000E-00 735 3.99670182E-04 2.62088417E-05 0.00000000E-00 740 2.78552580E-04 1.85965278E-05 0.00000000E-00 745 1.96527784E-04 1.33965008E-05 0.00000000E-00 750 1.38481790E-04 9.63396916E-06 0.00000000E-00 755 9.81226253E-05 6.96521810E-06 0.00000000E-00 760 6.98827164E-05 5.06710754E-06 0.00000000E-00 %765 4.98430350E-05 3.68617125E-06 0.00000000E-00 %770 3.57780519E-05 2.69503733E-06 0.00000000E-00 %775 2.56410800E-05 1.96864116E-06 0.00000000E-00 %780 1.85766264E-05 1.45517748E-06 0.00000000E-00 %785 1.34791749E-05 1.07784347E-06 0.00000000E-00 %790 9.80670540E-06 8.00605973E-07 0.00000000E-00 %795 7.14808254E-06 5.96195475E-07 0.00000000E-00 %800 5.24228869E-06 4.48029690E-07 0.00000000E-00 %805 3.86279972E-06 3.38386998E-07 0.00000000E-00 %810 2.84049184E-06 2.54942293E-07 0.00000000E-00 %815 2.10090587E-06 1.93104807E-07 0.00000000E-00 %820 1.56506236E-06 1.47053740E-07 0.00000000E-00 %825 1.16699539E-06 1.11750613E-07 0.00000000E-00 %830 8.73007530E-07 8.48901776E-08 0.00000000E-00 ] def %END CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree /CIEF_XYZ_02 298 array def %77x4 /CIEF_XYZ_02 [%BEG CIEF_XYZ_02 Colour matching functions 5nm 02-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 3.769647E-03 4.146161E-04 1.847260E-02 %=390 385 3.769647E-03 4.146161E-04 1.847260E-02 %=390 390 3.769647E-03 4.146161E-04 1.847260E-02 395 9.382967E-03 1.059646E-03 4.609784E-02 400 2.214302E-02 2.452194E-03 1.096090E-01 405 4.742986E-02 4.971717E-03 2.369246E-01 410 8.953803E-02 9.079860E-03 4.508369E-01 415 1.446214E-01 1.429377E-02 7.378822E-01 420 2.035729E-01 2.027369E-02 1.051821E+00 425 2.488523E-01 2.612106E-02 1.305008E+00 430 2.918246E-01 3.319038E-02 1.552826E+00 435 3.227087E-01 4.157940E-02 1.748280E+00 440 3.482554E-01 5.033657E-02 1.917479E+00 445 3.418483E-01 5.743393E-02 1.918437E+00 450 3.224637E-01 6.472352E-02 1.848545E+00 455 2.826646E-01 7.238339E-02 1.664439E+00 460 2.485254E-01 8.514816E-02 1.522157E+00 465 2.219781E-01 1.060145E-01 1.428440E+00 470 1.806905E-01 1.298957E-01 1.250610E+00 475 1.291920E-01 1.535066E-01 9.991789E-01 480 8.182895E-02 1.788048E-01 7.552379E-01 485 4.600865E-02 2.064828E-01 5.617313E-01 490 2.083981E-02 2.379160E-01 4.099313E-01 495 7.097731E-03 2.850680E-01 3.105939E-01 500 2.461588E-03 3.483536E-01 2.376753E-01 505 3.649178E-03 4.277595E-01 1.720018E-01 510 1.556989E-02 5.204972E-01 1.176796E-01 515 4.315171E-02 6.206256E-01 8.283548E-02 520 7.962917E-02 7.180890E-01 5.650407E-02 525 1.268468E-01 7.946448E-01 3.751912E-02 530 1.818026E-01 8.575799E-01 2.438164E-02 535 2.405015E-01 9.071347E-01 1.566174E-02 540 3.098117E-01 9.544675E-01 9.846470E-03 545 3.804244E-01 9.814106E-01 6.131421E-03 550 4.494206E-01 9.890228E-01 3.790291E-03 555 5.280233E-01 9.994608E-01 2.327186E-03 560 6.133784E-01 9.967737E-01 1.432128E-03 565 7.016774E-01 9.902549E-01 8.822531E-04 570 7.967750E-01 9.732611E-01 5.452416E-04 575 8.853376E-01 9.424569E-01 3.386739E-04 580 9.638388E-01 8.963613E-01 2.117772E-04 585 1.051011E+00 8.587203E-01 1.335031E-04 590 1.109767E+00 8.115868E-01 8.494468E-05 595 1.143620E+00 7.544785E-01 5.460706E-05 600 1.151033E+00 6.918553E-01 3.549661E-05 605 1.134757E+00 6.270066E-01 2.334738E-05 610 1.083928E+00 5.583746E-01 1.554631E-05 615 1.007344E+00 4.895950E-01 1.048387E-05 620 9.142877E-01 4.229897E-01 0.000000E+00 625 8.135565E-01 3.609245E-01 0.000000E+00 630 6.924717E-01 2.980865E-01 0.000000E+00 635 5.755410E-01 2.416902E-01 0.000000E+00 640 4.731224E-01 1.943124E-01 0.000000E+00 645 3.844986E-01 1.547397E-01 0.000000E+00 650 2.997374E-01 1.193120E-01 0.000000E+00 655 2.277792E-01 8.979594E-02 0.000000E+00 660 1.707914E-01 6.671045E-02 0.000000E+00 665 1.263808E-01 4.899699E-02 0.000000E+00 670 9.224597E-02 3.559982E-02 0.000000E+00 675 6.639960E-02 2.554223E-02 0.000000E+00 680 4.710606E-02 1.807939E-02 0.000000E+00 685 3.292138E-02 1.261573E-02 0.000000E+00 690 2.262306E-02 8.661284E-03 0.000000E+00 695 1.575417E-02 6.027677E-03 0.000000E+00 700 1.096778E-02 4.195941E-03 0.000000E+00 705 7.608750E-03 2.910864E-03 0.000000E+00 710 5.214608E-03 1.995557E-03 0.000000E+00 715 3.569452E-03 1.367022E-03 0.000000E+00 720 2.464821E-03 9.447269E-04 0.000000E+00 725 1.703876E-03 6.537050E-04 0.000000E+00 730 1.186238E-03 4.555970E-04 0.000000E+00 735 8.269535E-04 3.179738E-04 0.000000E+00 740 5.758303E-04 2.217445E-04 0.000000E+00 745 4.058303E-04 1.565566E-04 0.000000E+00 750 2.856577E-04 1.103928E-04 0.000000E+00 755 2.021853E-04 7.827442E-05 0.000000E+00 760 1.438270E-04 5.578862E-05 0.000000E+00 %765 1.024685E-04 3.981884E-05 0.000000E+00 %770 7.347551E-05 2.860175E-05 0.000000E+00 %775 5.259870E-05 2.051259E-05 0.000000E+00 %780 3.806114E-05 1.487243E-05 0.000000E+00 %785 2.758222E-05 1.080001E-05 0.000000E+00 %790 2.004122E-05 7.863920E-06 0.000000E+00 %795 1.458792E-05 5.736935E-06 0.000000E+00 %800 1.068141E-05 4.211597E-06 0.000000E+00 %805 7.857521E-06 3.106561E-06 0.000000E+00 %810 5.768284E-06 2.286786E-06 0.000000E+00 %815 4.259166E-06 1.693147E-06 0.000000E+00 %820 3.167765E-06 1.262556E-06 0.000000E+00 %825 2.358723E-06 9.422514E-07 0.000000E+00 %830 1.762465E-06 7.053860E-07 0.000000E+00 ] def %END CIEF_XYZ_02 Colour matching functions 5nm 02-degree /CIEF_XYZ_10 298 array def %77x4 /CIEF_XYZ_10 [%BEG CIEF_XYZ_10 Colour matching functions 5nm 10-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 2.952420E-03 4.076779E-04 1.318752E-02 %=390 385 2.952420E-03 4.076779E-04 1.318752E-02 %=390 390 2.952420E-03 4.076779E-04 1.318752E-02 395 7.641137E-03 1.078166E-03 3.424588E-02 400 1.879338E-02 2.589775E-03 8.508254E-02 405 4.204986E-02 5.474207E-03 1.927065E-01 410 8.277331E-02 1.041303E-02 3.832822E-01 415 1.395127E-01 1.712968E-02 6.568187E-01 420 2.077647E-01 2.576133E-02 9.933444E-01 425 2.688989E-01 3.529554E-02 1.308674E+00 430 3.281798E-01 4.698226E-02 1.624940E+00 435 3.693084E-01 6.047429E-02 1.867751E+00 440 4.026189E-01 7.468288E-02 2.075946E+00 445 4.042529E-01 8.820537E-02 2.132574E+00 450 3.932139E-01 1.039030E-01 2.128264E+00 455 3.482214E-01 1.195389E-01 1.946651E+00 460 3.013112E-01 1.414586E-01 1.768440E+00 465 2.534221E-01 1.701373E-01 1.582342E+00 470 1.914176E-01 1.999859E-01 1.310576E+00 475 1.283167E-01 2.312426E-01 1.010952E+00 480 7.593120E-02 2.682271E-01 7.516389E-01 485 3.836770E-02 3.109438E-01 5.549619E-01 490 1.400745E-02 3.554018E-01 3.978114E-01 495 3.446810E-03 4.148227E-01 2.905816E-01 500 5.652072E-03 4.780482E-01 2.078158E-01 505 1.561956E-02 5.491344E-01 1.394643E-01 510 3.778185E-02 6.248296E-01 8.852389E-02 515 7.538941E-02 7.012292E-01 5.824484E-02 520 1.201511E-01 7.788199E-01 3.784916E-02 525 1.756832E-01 8.376358E-01 2.431375E-02 530 2.380254E-01 8.829552E-01 1.539505E-02 535 3.046991E-01 9.233858E-01 9.753000E-03 540 3.841856E-01 9.665325E-01 6.083223E-03 545 4.633109E-01 9.886887E-01 3.769336E-03 550 5.374170E-01 9.907500E-01 2.323578E-03 555 6.230892E-01 9.997775E-01 1.426627E-03 560 7.123849E-01 9.944304E-01 8.779264E-04 565 8.016277E-01 9.848127E-01 5.408385E-04 570 8.933408E-01 9.640545E-01 3.342429E-04 575 9.721304E-01 9.286495E-01 2.076129E-04 580 1.034327E+00 8.775360E-01 1.298230E-04 585 1.106886E+00 8.370838E-01 8.183954E-05 590 1.147304E+00 7.869950E-01 5.207245E-05 595 1.160477E+00 7.272309E-01 3.347499E-05 600 1.148163E+00 6.629035E-01 2.175998E-05 605 1.113846E+00 5.970375E-01 1.431231E-05 610 1.048485E+00 5.282296E-01 9.530130E-06 615 9.617111E-01 4.601308E-01 6.426776E-06 620 8.629581E-01 3.950755E-01 0.000000E+00 625 7.603498E-01 3.351794E-01 0.000000E+00 630 6.413984E-01 2.751807E-01 0.000000E+00 635 5.290979E-01 2.219564E-01 0.000000E+00 640 4.323126E-01 1.776882E-01 0.000000E+00 645 3.496358E-01 1.410203E-01 0.000000E+00 650 2.714900E-01 1.083996E-01 0.000000E+00 655 2.056507E-01 8.137687E-02 0.000000E+00 660 1.538163E-01 6.033976E-02 0.000000E+00 665 1.136072E-01 4.425383E-02 0.000000E+00 670 8.281010E-02 3.211852E-02 0.000000E+00 675 5.954815E-02 2.302574E-02 0.000000E+00 680 4.221473E-02 1.628841E-02 0.000000E+00 685 2.948752E-02 1.136106E-02 0.000000E+00 690 2.025590E-02 7.797457E-03 0.000000E+00 695 1.410230E-02 5.425391E-03 0.000000E+00 700 9.816228E-03 3.776140E-03 0.000000E+00 705 6.809147E-03 2.619372E-03 0.000000E+00 710 4.666298E-03 1.795595E-03 0.000000E+00 715 3.194041E-03 1.229980E-03 0.000000E+00 720 2.205568E-03 8.499903E-04 0.000000E+00 725 1.524672E-03 5.881375E-04 0.000000E+00 730 1.061495E-03 4.098928E-04 0.000000E+00 735 7.400120E-04 2.860718E-04 0.000000E+00 740 5.153113E-04 1.994949E-04 0.000000E+00 745 3.631969E-04 1.408466E-04 0.000000E+00 750 2.556624E-04 9.931439E-05 0.000000E+00 755 1.809649E-04 7.041878E-05 0.000000E+00 760 1.287394E-04 5.018934E-05 0.000000E+00 %765 9.172477E-05 3.582218E-05 0.000000E+00 %770 6.577532E-05 2.573083E-05 0.000000E+00 %775 4.708916E-05 1.845353E-05 0.000000E+00 %780 3.407653E-05 1.337946E-05 0.000000E+00 %785 2.469630E-05 9.715798E-06 0.000000E+00 %790 1.794555E-05 7.074424E-06 0.000000E+00 %795 1.306345E-05 5.160948E-06 0.000000E+00 %800 9.565993E-06 3.788729E-06 0.000000E+00 %805 7.037621E-06 2.794625E-06 0.000000E+00 %810 5.166853E-06 2.057152E-06 0.000000E+00 %815 3.815429E-06 1.523114E-06 0.000000E+00 %820 2.837980E-06 1.135758E-06 0.000000E+00 %825 2.113325E-06 8.476168E-07 0.000000E+00 %830 1.579199E-06 6.345380E-07 0.000000E+00 ] def %END CIEF_XYZ_10 Colour matching functions 5nm 10-degree %/ixi [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 % .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 % .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 % .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 % .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 % .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 % .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 % .004109 .002899 .002049 .001440 .0009999 .0006901 % .000476 .0003323 .0002348 .0001662 ] def %/iyi [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .39E-04 .000064 .00012 .000217 .000396 .00064 .00121 .00218 % .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 % .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 % .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 % .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 % .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 % .01192 .00821 .005723 .004102 .002929 .002091 .001484 % .001047 .00074 .00052 .0003611 .0002492 .0001719 % .00012 .0000848 .00006 ] def %/izi [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 % 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 % 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 % .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 % .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 % .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 ] def %for xchart5=0 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 %for xchart5=1 /SP60 80 array def %380 bis 775 mit deltalambda=05 /SP55 80 array def %380 bis 775 mit deltalambda=05 /SP50 80 array def %380 bis 775 mit deltalambda=05 /SP45 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SP35 80 array def %380 bis 775 mit deltalambda=05 /SP30 80 array def %380 bis 775 mit deltalambda=05 /SP25 80 array def %380 bis 775 mit deltalambda=05 /ilDtxt [(D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00)] def /ilPtxt [(P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25)] def %for combined /SX00 80 array def %380 bis 775 mit deltalambda=05 /SX01 80 array def %380 bis 775 mit deltalambda=05 /SX02 80 array def %380 bis 775 mit deltalambda=05 /SX03 80 array def %380 bis 775 mit deltalambda=05 /SX04 80 array def %380 bis 775 mit deltalambda=05 /SX05 80 array def %380 bis 775 mit deltalambda=05 /SX06 80 array def %380 bis 775 mit deltalambda=05 /SX07 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def /TNCj 8 array def /TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 76 {/i exch def %i=0,76 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 560 lamda div mul put } for %i=0,76 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [ %x(380-775) .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 %y(380-775) .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 %z(380-775) .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def /proc_Cij_Eij {%BEG proc_Cij_Eij %procedure inverse matrix according to Ohta, Cook Wiley, page 278 %DCij=|C11 C12 C13| % |C21 C22 C23| % |C31 C32 C33| /DC C11 C22 mul C33 mul C12 C23 mul C31 mul add C13 C21 mul C32 mul add C11 C23 mul C32 mul sub C12 C21 mul C33 mul sub C13 C22 mul C31 mul sub def %delete collum and row for DCij %aus transponierter Matrix zu Cerechnen DCij->DCji %see Wikipedia "Adjunkte"% %DC11= |C22 C23| % |C32 C33| %DC21=-|C21 C23| % |C31 C33| %DC31= |C21 C22| % |C31 C32| %DC12=-|C12 C13| % |C32 C33| %DC22= |C11 C13| % |C31 C33| %DC32=-|C11 C12| % |C31 C32| %DC13= |C12 C13| % |C22 C23| %DC23=-|C11 C13| % |C21 C23| %DC33= |C11 C12| % |C21 C22| /DC11 C22 C33 mul C32 C23 mul sub def /DC21 C21 C33 mul C31 C23 mul sub neg def /DC31 C21 C32 mul C31 C22 mul sub def % /DC12 C12 C33 mul C32 C13 mul sub neg def /DC22 C11 C33 mul C31 C13 mul sub def /DC32 C11 C32 mul C31 C12 mul sub neg def % /DC13 C12 C23 mul C22 C13 mul sub def /DC23 C11 C23 mul C21 C13 mul sub neg def /DC33 C11 C22 mul C21 C12 mul sub def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Cij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /E11 DC11 DC div def /E12 DC12 DC div def /E13 DC13 DC div def % /E21 DC21 DC div def /E22 DC22 DC div def /E23 DC23 DC div def % /E31 DC31 DC div def /E32 DC32 DC div def /E33 DC33 DC div def } bind def %END proc_Cij_Eij /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 00 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 00 def /xchartm 01 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 00 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 00 def} ifelse %00/01 CIE 02/10, 02,03: CIE F02/10 /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 00 def} ifelse %5=0 illD /xchart xchart1 def xchart5 0 eq { %xchart5=0 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } if %xchart5=0 xchart5 1 eq {%xchart5=1 0 1 7 {/j exch def %j=0,7 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNCj j get 560 mul div def /E5 C2 TNCj j get lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def j 0 eq {SP60 i} if j 1 eq {SP55 i} if j 2 eq {SP50 i} if j 3 eq {SP45 i} if j 4 eq {SP40 i} if j 5 eq {SP35 i} if j 6 eq {SP30 i} if j 7 eq {SP25 i} if E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } for %j=0,7 } if %xchart5=1 /xcolor xcolor1 def %2,10 degree observer %0 1 1 {/xcolor exch def %xcolor=0,1 %2,10 degree observer /xchartx xchart1 def %ill. D65, xchart1 def %8 illuminants 3 1 3 {/xchartx exch def %xchartx=0,7 %8 illuminants %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 76 {/i exch def %i=0,76 xchart5 0 eq {%xchart5=0 xchartx 0 eq {SX00 i SD65 i get put} if xchartx 1 eq {SX01 i SD50 i get put} if xchartx 2 eq {SX02 i SP40 i get put} if xchartx 3 eq {SX03 i SA00 i get put} if xchartx 4 eq {SX04 i SE00 i get put} if xchartx 5 eq {SX05 i SC00 i get put} if xchartx 6 eq {SX06 i SP00 i get put} if xchartx 7 eq {SX07 i SQ00 i get put} if } %xchart5=0 {%xchart5=1 xchartx 0 eq {SX00 i SP60 i get put} if xchartx 1 eq {SX01 i SP55 i get put} if xchartx 2 eq {SX02 i SP50 i get put} if xchartx 3 eq {SX03 i SP45 i get put} if xchartx 4 eq {SX04 i SP40 i get put} if xchartx 5 eq {SX05 i SP35 i get put} if xchartx 6 eq {SX06 i SP30 i get put} if xchartx 7 eq {SX07 i SP25 i get put} if } ifelse %xchart5=1 } for %i=0,76 0 1 76 {/i exch def %i=0,76 SDAK i xchartx 0 eq {SX00 i get} if xchartx 1 eq {SX01 i get} if xchartx 2 eq {SX02 i get} if xchartx 3 eq {SX03 i get} if xchartx 4 eq {SX04 i get} if xchartx 5 eq {SX05 i get} if xchartx 6 eq {SX06 i get} if xchartx 7 eq {SX07 i get} if put } for %i=0,76 0 1 76 {/i exch def %i=0,76 xchart4 0 eq {%xchart4=0 02 degree XASj i F2 000 i add get SDAK i get mul 100. div put YASj i F2 080 i add get SDAK i get mul 100. div put ZASj i F2 160 i add get SDAK i get mul 100. div put } if %xchart4=0 xchart4 1 eq {%xchart4=1 10 degree XASj i F10 000 i add get SDAK i get mul 100. div put YASj i F10 080 i add get SDAK i get mul 100. div put ZASj i F10 160 i add get SDAK i get mul 100. div put } if %xchart4=1 xchart4 2 eq xchart4 4 eq or {%xchart4=2,4 CIEF_02 degree /i40 i 4 mul def XASj i CIEF_XYZ_02 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_02 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_02 i40 3 add get SDAK i get mul 100. div put } if %xchart4=2,4 xchart4 3 eq xchart4 5 eq or {%xchart4=3,5 CIEF_10 degree /i40 i 4 mul def XASj i CIEF_XYZ_10 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_10 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_10 i40 3 add get SDAK i get mul 100. div put } if %xchart4=3,5 } for %i=0,76 /fsYAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsYAS fsYAS YASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XASj i XASj i get fsYAS div 100. mul put YASj i YASj i get fsYAS div 100. mul put ZASj i ZASj i get fsYAS div 100. mul put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXAS fsXAS XASj i get add def /fsYAS fsYAS YASj i get add def /fsZAS fsZAS ZASj i get add def } for %i=0,76 /i555 555 380 sub 5 idiv def /fakY 1. YASj i555 get div def 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XA1j i XASj i get fakY mul put YA1j i YASj i get fakY mul put ZA1j i ZASj i get fakY mul put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXA1 fsXA1 XA1j i get add def /fsYA1 fsYA1 YA1j i get add def /fsZA1 fsZA1 ZA1j i get add def } for %i=0,76 /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 67 Wellenlaengen ohne Purpur, 380_710/5:0_66 [00 00 00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %ED TC1-36 CIE 171-2, 2015, page 16, line 20-23, eq. (8.18) %transforms lmsF (2 degree) to xyzF (2 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F02 1.94735469 def /A12_F02 -1.41445123 def /A13_F02 0.36476327 def /A21_F02 0.68990272 def /A22_F02 0.34832189 def /A23_F02 0.00000000 def /A31_F02 0.00000000 def /A32_F02 0.00000000 def /A33_F02 1.93485343 def %ED TC1-36 CIE 171-2, 2015, page 20, line 14. eq. (8.21) %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F10 1.93986443 def /A12_F10 -1.34664359 def /A13_F10 0.43044935 def /A21_F10 0.69283932 def /A22_F10 0.34967567 def /A23_F10 0.00000000 def /A31_F10 0.00000000 def /A32_F10 0.00000000 def /A33_F10 2.14687945 def %R17_M1 %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M1 1.93986443 def /A12_R17_M1 -1.34664359 def /A13_R17_M1 0.43044935 def /A21_R17_M1 0.69283932 def /A22_R17_M1 0.34967567 def /A23_R17_M1 0.00000000 def /A31_R17_M1 0.00000000 def /A32_R17_M1 0.00000000 def /A33_R17_M1 2.14687945 def %R17_M2 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M2 1.40000000 def /A12_R17_M2 -0.70000000 def /A13_R17_M2 0.30000000 def /A21_R17_M2 0.50000000 def /A22_R17_M2 0.50000000 def /A23_R17_M2 0.00000000 def /A31_R17_M2 0.00000000 def /A32_R17_M2 0.00000000 def /A33_R17_M2 1.00000000 def %R17_M3 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M3 1.32000000 def /A12_R17_M3 -0.66000000 def /A13_R17_M3 0.34000000 def /A21_R17_M3 0.50000000 def /A22_R17_M3 0.50000000 def /A23_R17_M3 0.00000000 def /A31_R17_M3 0.00000000 def /A32_R17_M3 0.00000000 def /A33_R17_M3 1.00000000 def %R17_M4 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M4 1.30000000 def /A12_R17_M4 -0.65000000 def /A13_R17_M4 0.35000000 def /A21_R17_M4 0.50000000 def /A22_R17_M4 0.50000000 def /A23_R17_M4 0.00000000 def /A31_R17_M4 0.00000000 def /A32_R17_M4 0.00000000 def /A33_R17_M4 1.00000000 def %R17_M5 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M5 2.64000000 def /A12_R17_M5 -1.32000000 def /A13_R17_M5 0.68000000 def /A21_R17_M5 0.50000000 def /A22_R17_M5 0.50000000 def /A23_R17_M5 0.00000000 def /A31_R17_M5 0.00000000 def /A32_R17_M5 0.00000000 def /A33_R17_M5 1.00000000 def %R17_M6 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M6 2.60000000 def /A12_R17_M6 -1.30000000 def /A13_R17_M6 0.70000000 def /A21_R17_M6 0.50000000 def /A22_R17_M6 0.50000000 def /A23_R17_M6 0.00000000 def /A31_R17_M6 0.00000000 def /A32_R17_M6 0.00000000 def /A33_R17_M6 1.00000000 def %Convert Xc,Yc,Zc to cone responses L, M, S (R',G',B') %using the Hunt-Pointer_Estevez (HPE) matrix %see CIE 214:2077 colour fidelity-Index %see Ohta/Robertson, book Wiley, p. 202 %see Fairchild, book Wiley, p. 211 %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /B11_HPE 0.38971 def /B12_HPE 0.68898 def /B13_HPE -0.07868 def /B21_HPE -0.22981 def /B22_HPE 1.18340 def /B23_HPE 0.04641 def /B31_HPE 0.00000 def /B32_HPE 0.00000 def /B33_HPE 1.00000 def %Nayatani in Ohta S. 195-196, similar data not for CIE illuminant E %/B11_NAY 0.40024 def %/B12_NAY 0.70760 def %/B13_NAY -0.08081 def %/B21_NAY -0.22630 def %/B22_NAY 1.16532 def %/B23_NAY 0.04570 def %/B31_NAY 0.00000 def %/B32_NAY 0.00000 def %/B33_NAY 0.91822 def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E xchart4 0 eq xchart4 1 eq or {%XYZ_02, XYZ_10 /B11 B11_HPE def /B12 B12_HPE def /B13 B13_HPE def /B21 B21_HPE def /B22 B22_HPE def /B23 B23_HPE def /B31 B31_HPE def /B32 B32_HPE def /B33 B33_HPE def } if xchart4 2 eq xchart4 4 eq or {%LMS_F02 /A11 A11_F02 def /A12 A12_F02 def /A13 A13_F02 def /A21 A21_F02 def /A22 A22_F02 def /A23 A23_F02 def /A31 A31_F02 def /A32 A32_F02 def /A33 A33_F02 def } if xchart4 3 eq xchart4 5 eq or {%LMS_F10 /A11 A11_F10 def /A12 A12_F10 def /A13 A13_F10 def /A21 A21_F10 def /A22 A22_F10 def /A23 A23_F10 def /A31 A31_F10 def /A32 A32_F10 def /A33 A33_F10 def } if xchart4 6 eq {%LMS_R17_M1 /A11 A11_R17_M1 def /A12 A12_R17_M1 def /A13 A13_R17_M1 def /A21 A21_R17_M1 def /A22 A22_R17_M1 def /A23 A23_R17_M1 def /A31 A31_R17_M1 def /A32 A32_R17_M1 def /A33 A33_R17_M1 def } if xchart4 7 eq {%LMS_R17_M2 /A11 A11_R17_M2 def /A12 A12_R17_M2 def /A13 A13_R17_M2 def /A21 A21_R17_M2 def /A22 A22_R17_M2 def /A23 A23_R17_M2 def /A31 A31_R17_M2 def /A32 A32_R17_M2 def /A33 A33_R17_M2 def } if xchart4 8 eq {%LMS_R17_M3 /A11 A11_R17_M3 def /A12 A12_R17_M3 def /A13 A13_R17_M3 def /A21 A21_R17_M3 def /A22 A22_R17_M3 def /A23 A23_R17_M3 def /A31 A31_R17_M3 def /A32 A32_R17_M3 def /A33 A33_R17_M3 def } if xchart4 9 eq {%LMS_R17_M4 /A11 A11_R17_M4 def /A12 A12_R17_M4 def /A13 A13_R17_M4 def /A21 A21_R17_M4 def /A22 A22_R17_M4 def /A23 A23_R17_M4 def /A31 A31_R17_M4 def /A32 A32_R17_M4 def /A33 A33_R17_M4 def } if xchart4 0 eq xchart4 1 eq or {%xchart4=0,1 /C11 B11 def /C12 B12 def /C13 B13 def /C21 B21 def /C22 B22 def /C23 B23 def /C31 B31 def /C32 B32 def /C33 B33 def proc_Cij_Eij /A11 E11 def /A12 E12 def /A13 E13 def /A21 E21 def /A22 E22 def /A23 E23 def /A31 E31 def /A32 E32 def /A33 E33 def } if %xchart4=0,1 xchart4 2 eq xchart4 3 eq or xchart4 4 eq or xchart4 5 eq or xchart4 6 eq or xchart4 7 eq or xchart4 8 eq or xchart4 9 eq or {%xchart4=2,9,1 /C11 A11 def /C12 A12 def /C13 A13 def /C21 A21 def /C22 A22 def /C23 A23 def /C31 A31 def /C32 A32 def /C33 A33 def proc_Cij_Eij /B11 E11 def /B12 E12 def /B13 E13 def /B21 E21 def /B22 E22 def /B23 E23 def /B31 E31 def /B32 E32 def /B33 E33 def } if %xchart4=2,9,1 % R G B C M Y /tf370 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %X=370=620 /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf420 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %T=420 /tf445 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %S=445 /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B=Mc=570c /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B' new /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %B" new /tf495 {0.00 0.80 1.00 setrgbcolor} bind def %g75b 1.00 0.20 0.00 %C=Rc=620c /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %C' new /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %C" new /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %C"' new /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G=520 /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G' new /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %G" new /tf545 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %M=545 /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %M' /tf557 {0.60 1.00 0.00 setrgbcolor} bind def %j33g 0.40 0.00 1.00 %V /tf563 {0.80 1.00 0.00 setrgbcolor} bind def %j17g 0.20 0.00 1.00 %V' new /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M=570 /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M' /tf595 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O=595 /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O' new /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %O" new /tf620 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %R=620 /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R' new /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 %R" /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 %Gc=520c new /tf670 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %U=670=420 /tf720 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %W=720=470 /tfRe {1.00 0.00 0.20 setrgbcolor} bind def %Re 0.00 1.00 0.80 %Re /tfYe {1.00 1.00 0.00 setrgbcolor} bind def %Ye 0.00 0.00 1.00 %Ye /tfGe {0.00 1.00 0.20 setrgbcolor} bind def %Ge 1.00 0.00 0.80 %Ge /tfBe {0.00 0.20 1.00 setrgbcolor} bind def %Be 1.00 0.80 0.00 %Be %output allways text italic /Xt370 {tf370 (X) bishowM} def /Xt420 {tf420 (T) bishowM} def /Xt445 {tf445 (S) bishowM} def /Xt470 {tf470 (B) bishowM} def /Xt520 {tf520 (G) bishowM} def /Xt545 {tf545 (M) bishowM} def /Xt557 {tfw (V) bishowM} def /Xt570 {tf570 (L) bishowM} def /Xt570e {tf570 (Y) bishowM} def /Xt595 {tf595 (O) bishowM} def /Xt620 {tf620 (R) bishowM} def /Xt670 {tf670 (U) bishowM} def /Xt720 {tf720 (W) bishowM} def %output allways number normal /Xn370 {tf370 (370) bshowM} def /Xn420 {tf420 (420) bshowM} def /Xn445 {tf445 (445) bshowM} def /Xn470 {tf470 (470) bshowM} def /Xn520 {tf520 (520) bshowM} def /Xn545 {tf545 (545) bshowM} def /Xn557 {tfw (557) bshowM} def /Xn570 {tf570 (570) bshowM} def /Xn595 {tf595 (595) bshowM} def /Xn620 {tf620 (620) bshowM} def /Xn670 {tf670 (670) bshowM} def /Xn720 {tf720 (720) bshowM} def %output allways text index /Xt370i {tf370 (X) ishowK} def /Xt420i {tf420 (T) ishowK} def /Xt445i {tf445 (S) ishowK} def /Xt470i {tf470 (B) ishowK} def /Xt520i {tf520 (G) ishowK} def /Xt545i {tf545 (M) ishowK} def /Xt557i {tfw (V) ishowK} def /Xt570i {tf570 (L) ishowK} def /Xt595i {tf595 (O) ishowK} def /Xt620i {tf620 (R) ishowK} def /Xt670i {tf670 (U) ishowK} def /Xt720i {tf720 (W) ishowK} def %output allways number index /Xn370i {tf370 (370) ishowK} def /Xn420i {tf420 (420) ishowK} def /Xn445i {tf445 (445) ishowK} def /Xn470i {tf470 (470) ishowK} def /Xn520i {tf520 (520) ishowK} def /Xn545i {tf545 (545) ishowK} def /Xn557i {tfw (557) ishowK} def /Xn570i {tf570 (570) ishowK} def /Xn595i {tf595 (595) ishowK} def /Xn620i {tf620 (620) ishowK} def /Xn670i {tf670 (670) ishowK} def /Xn720i {tf720 (720) ishowK} def %wavelength for calculation /W370 370 def /W420 420 def /W445 445 def /W470 470 def /W520 520 def /W545 545 def /W557 557.5 def /W570 570 def /W595 595 def /W620 620 def /W670 670 def /W720 720 def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 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 /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 % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth 0 0 11200 08600 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11200 08600 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 150 /Times-ISOL1 FS 100 -150 moveto (DEV51-3N) show %xchart 1 add cvishow } if %xbtex0=1 % 'DNV5'YLOOPBEG5.EPS /xchartl xchart def 4 1 7 {/xchartl2 exch def %xchartl2=4,7 gsave xchartl2 4 eq {/xchartl 9 def} if xchartl2 5 eq {/xchartl 3 def} if xchartl2 6 eq {/xchartl 4 def} if xchartl2 7 eq {/xchartl 5 def} if % space essential for files Y*A.EPS xchartl2 4 eq { 100 4500 translate} if xchartl2 5 eq {5700 4500 translate} if xchartl2 6 eq { 100 0250 translate} if xchartl2 7 eq {5700 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 100 -140 moveto xchartl 7 le {(DEV50-) show} {(DEV51-) show} ifelse xchartl2 03 sub cvishow %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse /xwidth 5400 def /ywidth 4000 def 1 setgray %frame white, only grey for xchartl=14,15 %xchartl 14 ge %xchartl 15 le and {0.0 0.0 0.0 0.5 setcmykcolor} if 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black /xpos 6 array def /xpos [100 1000 1900 2800 3700 4600] def /ymax 3000 def /ydel 0500 def 200 /Times-ISOL1 FS 0 setgray TBK %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmykcolor %font black 1800 100 moveto (Wellenl\344nge ) showde %08141-1 1 (wavelength ) showen %18141-1 1 (Ancho de banda ) showes %28141-1 1 (wavelength ) showfr %38141-1 1 (wavelength ) showit %48141-1 1 (wavelength ) showjp %58141-1 1 SK (l) show TBK 30 0 rmoveto (/nm) show %scale x 3*1200=3600 %scale y 4*600=2400 /xd 70 def /xd2 140 def /ix0 450 def /iy0 650 def /ixd0 240 def %x-start at 380 nm /ixd 1200 def /iyd 600 def /tx [ (400) (500) (600) (700)] def /ty1 [(0,0) ( ) (1,0) ( ) (2,0) ( ) ] def /tys [(0,0) (2,5) (5,0) (7,5) (10) ( ) ] def /ty20 [( 0) (10) (20) (30) (40) (50) ] def /tyo [(0,0) ( ) (0,5) ( ) (1,0) ( ) ] def /typ [(-1) ( ) ( 0) ( ) ( 1) ( ) ] def 40 setlinewidth ix0 iy0 moveto 4300 0 rlineto stroke %x ix0 iy0 moveto 0 2700 rlineto stroke %y 30 setlinewidth ix0 4300 add iy0 moveto -100 050 rlineto stroke %x_arrow ix0 4300 add iy0 moveto -100 -050 rlineto stroke %x_arrow ix0 iy0 2700 add moveto -050 -100 rlineto stroke %y_arrow ix0 iy0 2700 add moveto 050 -100 rlineto stroke %y_arrow %cero line 20 setlinewidth [100 ] 0 setdash xchartl 00 ge xchartl 02 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 03 ge xchartl 05 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 06 ge xchartl 07 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 08 ge xchartl 10 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 11 ge xchartl 13 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 14 ge xchartl 15 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if [ ] 0 setdash 40 setlinewidth 0 1 3 {/i exch def %x ix0 ixd0 add i ixd mul add iy0 50 sub moveto 0 100 rlineto stroke } for xchartl 00 ge xchartl 15 le and {/iydo iyd def} if 0 1 4 {/i exch def %y ix0 050 sub iy0 i iydo mul add moveto 100 0 rlineto stroke } for TBS 0 1 3 {/i exch def %xtex ix0 ixd0 add i ixd mul add 150 sub iy0 250 sub moveto tx i get show } for /i 3 def ix0 ixd0 add i ixd mul add 150 add iy0 300 add moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse 0 1 4 {/i exch def %ytex ix0 300 sub iy0 i iydo mul add 100 sub moveto xchartl 00 ge xchartl 02 le and {ty1 i get show} if xchartl 03 ge xchartl 05 le and {tys i get show} if xchartl 06 ge xchartl 07 le and {ty1 i get show} if xchartl 08 ge xchartl 10 le and {ty1 i get show} if xchartl 11 ge xchartl 13 le and {tys i get show} if xchartl 14 eq {ty1 i get show} if xchartl 15 eq {ty1 i get show} if } for 0 1 76 {/i exch def %i=0,76 lASj i B11 XASj i get mul B12 YASj i get mul add B13 ZASj i get mul add put mASj i B21 XASj i get mul B22 YASj i get mul add B23 ZASj i get mul add put sASj i B31 XASj i get mul B32 YASj i get mul add B33 ZASj i get mul add put } for %i=0,76 0 1 76 {/i exch def %i=0,76 lA1j i B11 XA1j i get mul B12 YA1j i get mul add B13 ZA1j i get mul add put mA1j i B21 XA1j i get mul B22 YA1j i get mul add B23 ZA1j i get mul add put sA1j i B31 XA1j i get mul B32 YA1j i get mul add B33 ZA1j i get mul add put } for %i=0,76 /fslA1 0 def /fsmA1 0 def /fssA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslA1 fslA1 lA1j i get add def /fsmA1 fsmA1 mA1j i get add def /fssA1 fssA1 sA1j i get add def } for %i=0,76 /fslAS 0 def /fsmAS 0 def /fssAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslAS fslAS lASj i get add def /fsmAS fsmAS mASj i get add def /fssAS fssAS sASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 xyzan /sumXYZ XASj i get YASj i get add ZASj i get add def xanASj i XASj i get sumXYZ 0.01 add div put yanASj i YASj i get sumXYZ 0.01 add div put zanASj i ZASj i get sumXYZ 0.01 add div put } for %i=0,76 /inx4 10 array def %index for xchart4 and number BLxx (xx=40 to 65) %0,40 1,42 2,44 3,46 /inx4 [(02) (10) (F02) (F10) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17M3) (R17M4)] def /xposj 3000 def /yposj 3200 def /yposjP yposj 300 add def %3500 /yposjT yposj 600 add def %3800 /yposjM yposj 300 sub def %2900 /yposjK yposj 600 sub def %2600 /xposj0 30 def /yposj0 yposjT 300 sub def %part1 equation /xposj1 0500 def /yposj1 yposj0 0300 sub def %table A/Bij /xposj20 500 def /xposj21 3300 def %sum /yposj2 yposj0 0600 sub def %lamda1,m,2 & illuminant & sum /xposj3 2400 def /xposj31 2700 def %x,y /yposj3 yposj0 0900 sub def %sum lms(lamda1,m,2) or (x) /xposj4 3900 def /yposj4 yposj0 0900 sub def %(lms max=1) /xposj5 3700 def /yposj5 1900 def %lms(max)=1 /W0 570 def %default lambda /W1 545 def /W2 445 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamda0ss {inx4 xchart4 get ib4 (,s) ib4} def /lamdakss {lamda0ss lamdak} def /lamda0ns {inx4 xchart4 get ib4 (,n) ib4} def /lamdakns {lamda0ns lamdak} def /lamdakmax {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdakall {TBK (\050) show SK (l) show (1,m,2) is4 TBK (\051) show} bind def /lamda01smax {lamda01s lamdakmax} def /lamda0ssmax {lamda0ss lamdakmax} def /lamda0nsmax {lamda0ns lamdakmax} def /lamda01sall {lamda01s lamdakall} def /lamda0ssall {lamda0ss lamdakall} def /lamda0nsall {lamda0ns lamdakall} def 100 yposjT moveto /TBK1 {230 /TimesB-ISOL1 FS} bind def lanind 0 eq {TBK1} {TBK} ifelse (HPE_CIE) show inx4 xchart4 get show xchartl 00 ge xchartl 07 le and {(\255Zapfenempfindlichkeit) showde (\255cone sensitivity) showen } if xchartl 00 ge xchartl 02 le and {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 03 ge xchartl 05 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if xchartl 06 eq {TBIK ( l) show -100 120 rmoveto (-) show 0 -120 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 07 eq {TBIK ( m) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if %maximum lAsj, mASj, sASj /lASjm 0 def /mASjm 0 def /sASjm 0 def /lASj_lamda 380 def /mASj_lamda 380 def /sASj_lamda 380 def 0 1 76 {/i exch def %i=0,76 lASj i get lASjm ge {/lASjm lASj i get def /lASjm_lamda 380 i 5 mul add def} if mASj i get mASjm ge {/mASjm mASj i get def /mASjm_lamda 380 i 5 mul add def} if sASj i get sASjm ge {/sASjm sASj i get def /sASjm_lamda 380 i 5 mul add def} if } for %i=0,76 %normalized to max 0 1 76 {/i exch def %i=0,76 lANj i lASj i get lASjm div put mANj i mASj i get mASjm div put sANj i sASj i get sASjm div put } for %i=0,76 /lASj1 0 def /mASj1 0 def /sASj1 0 def /lASj1_lamda 380 def /mASj1_lamda 380 def /sASj1_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 lt lANj i 1 add get 0.5 ge and {/lASj10 lASj i get def /lASj10_lamda 380 i 5 mul add def /lASj11 lASj i 1 add get def /lASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj10 sub lASj11 lASj10 sub 0.01 add div def /lASj1 lASj10 lASj11 lASj10 sub fact mul add def /lASj1_lamda lASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 lt mANj i 1 add get 0.5 ge and {/mASj10 mASj i get def /mASj10_lamda 380 i 5 mul add def /mASj11 mASj i 1 add get def /mASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj10 sub mASj11 mASj10 sub 0.01 add div def /mASj1 mASj10 mASj11 mASj10 sub fact mul add def /mASj1_lamda mASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 lt sANj i 1 add get 0.5 ge and {/sASj10 sASj i get def /sASj10_lamda 380 i 5 mul add def /sASj11 sASj i 1 add get def /sASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj10 sub sASj11 sASj10 sub 0.01 add div def /sASj1 sASj10 sASj11 sASj10 sub fact mul add def /sASj1_lamda sASj10_lamda 5 fact mul add def } if } for %i=0,75 /lASj2 0 def /mASj2 0 def /sASj2 0 def /lASj2_lamda 380 def /mASj2_lamda 380 def /sASj2_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 gt lANj i 1 add get 0.5 le and {/lASj20 lASj i get def /lASj20_lamda 380 i 5 mul add def /lASj21 lASj i 1 add get def /lASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj20 sub lASj21 lASj20 sub 0.01 add div def /lASj2 lASj20 lASj21 lASj20 sub fact mul add def /lASj2_lamda lASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 gt mANj i 1 add get 0.5 le and {/mASj20 mASj i get def /mASj20_lamda 380 i 5 mul add def /mASj21 mASj i 1 add get def /mASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj20 sub mASj21 mASj20 sub 0.01 add div def /mASj2 mASj20 mASj21 mASj20 sub fact mul add def /mASj2_lamda mASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 gt sANj i 1 add get 0.5 le and {/sASj20 sASj i get def /sASj20_lamda 380 i 5 mul add def /sASj21 sASj i 1 add get def /sASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj20 sub sASj21 sASj20 sub 0.01 add div def /sASj2 sASj20 sASj21 sASj20 sub fact mul add def /sASj2_lamda sASj20_lamda 5 fact mul add def } if } for %i=0,75 100 yposjP moveto TBIK xchartl 0 eq {(l) show} if xchartl 1 eq {(m) show} if xchartl 2 eq {(s) show} if xchartl 3 eq {(l) show} if xchartl 4 eq {(m) show} if xchartl 5 eq {(s) show} if xchartl 6 eq {(l) show} if xchartl 7 eq {(m) show} if xchartl 0 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 2 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 3 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 5 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 6 eq {-100 120 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 05 le and {lamdakss} if xchartl 06 eq xchartl 07 eq or {lamdakns} if xchartl 00 ge xchartl 02 le and {/lamdakas {lamdak1s} def} if xchartl 03 ge xchartl 05 le and {/lamdakas {lamdakss} def} if xchartl 06 eq xchartl 07 eq or {/lamdakas {lamdakns} def} if xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {%xchartl=00,03,06 TBK (=) show xchartl 06 eq xchartl 14 eq or {([) show } if TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 06 eq {(]/) show lASjm cvsshow2x} if } if %xchartl=00,03,06 xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {%xchartl=01,04,07 TBK (=) show xchartl 07 eq {([) show } if TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 07 eq {(]/) show mASjm cvsshow2x} if } if %xchartl=01,04,07 xchartl 02 eq xchartl 05 eq or {%xchartl=02,05 TBK (=) show TBK (B) show (31) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas } if %xchartl=02,05 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {xpos 0 get yposj1 moveto (B) show (1j) is4 xpos 1 get yposj1 moveto B11 cvsshow4x xpos 2 get yposj1 moveto B12 cvsshow4x xpos 3 get yposj1 moveto B13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show } if xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {xpos 0 get yposj1 moveto (B) show (2j) is4 xpos 1 get yposj1 moveto B21 cvsshow4x xpos 2 get yposj1 moveto B22 cvsshow4x xpos 3 get yposj1 moveto B23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show } if xchartl 02 eq xchartl 05 eq or {xpos 0 get yposj1 moveto (B) show (3j) is4 xpos 1 get yposj1 moveto B31 cvsshow4x xpos 2 get yposj1 moveto B32 cvsshow4x xpos 3 get yposj1 moveto B33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show } if 0 1 76 {/i exch def %i=0,76 xchartl 0 eq {ycuri i lA1j i get 1 mul put} if xchartl 1 eq {ycuri i mA1j i get 1 mul put} if xchartl 2 eq {ycuri i sA1j i get 1 mul put} if xchartl 3 eq {ycuri i lASj i get 0.2 mul put} if xchartl 4 eq {ycuri i mASj i get 0.2 mul put} if xchartl 5 eq {ycuri i sASj i get 0.2 mul put} if xchartl 06 eq {ycuri i lASj i get lASjm div put} if xchartl 07 eq {ycuri i mASj i get mASjm div put} if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units xchartl 00 ge xchartl 07 le and {%0<=xchartl<=7, 14,15 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm xchartl 13 le {/iy01 iy0 def} {/iy01 iy0 1200 add def} ifelse /y10 iy01 def /y11 iy01 ycuri i get 1200 mul add def /y21 iy01 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 } if %0<=xchartl<=7 [] 0 setdash 0 setgray 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 0 eq {SK (S) show TBIK (l) show} if xchartl 1 eq {SK (S) show TBIK (m) show} if xchartl 2 eq {SK (S) show TBIK (s) show} if xchartl 3 eq {SK (S) show TBIK (l) show} if xchartl 4 eq {SK (S) show TBIK (m) show} if xchartl 5 eq {SK (S) show TBIK (s) show} if xchartl 6 eq {SK (S) show TBIK (l) show} if xchartl 7 eq {SK (S) show TBIK (m) show} if xchartl 0 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 2 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 3 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 5 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 6 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 07 le and {lamdakss} if xchartl 00 ge xchartl 07 le and {TK (=) show} if TK xchartl 0 eq {fslA1 cvsshow2x} if xchartl 1 eq {fsmA1 cvsshow2x} if xchartl 2 eq {fssA1 cvsshow2x} if xchartl 3 eq {fslAS cvsshow2x} if xchartl 4 eq {fsmAS cvsshow2x} if xchartl 5 eq {fssAS cvsshow2x} if xchartl 6 eq {fslAS cvsshow2x} if xchartl 7 eq {fsmAS cvsshow2x} if /lamdakm {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdak1nm {lamda0ns lamdakm} def xchartl 03 eq xchartl 06 eq or {/iymax lASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamda0ssall TK (=) show lASj1 cvsshow2x TK (, ) show lASjm cvsshow2x TK (, ) show lASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show lASj1_lamda cvishow (, ) show lASjm_lamda cvishow (, ) show lASj2_lamda cvishow } if xchartl 04 eq xchartl 07 eq or {/iymax mASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show mASj1 cvsshow2x TK (, ) show mASjm cvsshow2x TK (, ) show mASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show mASj1_lamda cvishow (, ) show mASjm_lamda cvishow (, ) show mASj2_lamda cvishow } if xchartl 5 eq {/iymax sASjm 0.2 mul 1200 mul def ix0 iy0 iymax add moveto 0900 0 rlineto stroke xposj3 yposj3 moveto TBIK (s) show -100 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show sASj1 cvsshow2x TK (, ) show sASjm cvsshow2x TK (, ) show sASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show sASj1_lamda cvishow (, ) show sASjm_lamda cvishow (, ) show sASj2_lamda cvishow } if xchartl 00 ge xchartl 02 le and {%00<=xchartl<=02, 03<=xchartl<=07 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%00<=xchartl<=02 {%03<=xchartl<=07 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %00<=xchartl<=02, 03<=xchartl<=07 xchartl 00 ge xchartl 02 le and {%0<=xchartl<=2 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } if %0<=xchartl<=2 } bind def %END proc_LMS1_02, xchartl=0,7 %***************************************************************** /proc_XYZI_02 {%BEG proc_XYZI_02, xchartl=8,15 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 13 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (CIE) show inx4 xchart4 get show xchartl 08 ge xchartl 15 le and { (\255Normspektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 11 ge xchartl 13 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if 100 yposjP moveto TBIK xchartl 8 eq {(x) show} if xchartl 9 eq {(y) show} if xchartl 10 eq {(z) show} if xchartl 11 eq {(x) show} if xchartl 12 eq {(y) show} if xchartl 13 eq {(z) show} if xchartl 14 eq {(y) show} if xchartl 15 eq {(y) show} if xchartl 8 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 9 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 10 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 11 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 12 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 13 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 14 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 15 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 08 eq xchartl 11 eq or {%xchartl=8 or 11 TBK (=) show TBK (A) show (11) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (12) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=8 or 11 xchartl 09 eq xchartl 12 eq or xchartl 14 eq or xchartl 15 eq or {%xchartl=9,12,14,15 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12,14,15 xchartl 10 eq xchartl 13 eq or {%xchartl=10 or 13 TBK (=) show TBK (A) show (31) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (32) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (33) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10 or 13 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 08 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 09 eq xchartl 14 eq or xchartl 15 eq or {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if 0 1 76 {/i exch def %i=0,76 xchartl 08 eq {ycuri i XA1j i get 1 mul put} if xchartl 09 eq {ycuri i YA1j i get 1 mul put} if xchartl 10 eq {ycuri i ZA1j i get 1 mul put} if xchartl 11 eq {ycuri i XASj i get 0.2 mul put} if xchartl 12 eq {ycuri i YASj i get 0.2 mul put} if xchartl 13 eq {ycuri i ZASj i get 0.2 mul put} if xchartl 14 eq {ycuri i YA1j i get 1 mul put} if xchartl 15 eq {ycuri i YA1j i get 1 mul put} if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm /y10 iy0 def /y11 iy0 ycuri i get 1200 mul add def /y21 iy0 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 %only for 8<=xchartl<=15 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 8 eq {SK (S) show TIK (x) show} if xchartl 9 eq {SK (S) show TIK (y) show} if xchartl 10 eq {SK (S) show TIK (z) show} if xchartl 11 eq {SK (S) show TIK (x) show} if xchartl 12 eq {SK (S) show TIK (y) show} if xchartl 13 eq {SK (S) show TIK (z) show} if xchartl 14 eq {SK (S) show TIK (y) show} if xchartl 15 eq {SK (S) show TIK (y) show} if xchartl 8 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 9 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 10 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 11 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 12 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 13 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 14 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 15 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s xchartl 08 ge xchartl 15 le and {TK (=) show} if TK xchartl 8 eq {fsXA1 cvsshow2x} if xchartl 9 eq {fsYA1 cvsshow2x} if xchartl 10 eq {fsZA1 cvsshow2x} if xchartl 11 eq {fsXAS cvsshow2x} if xchartl 12 eq {fsYAS cvsshow2x} if xchartl 13 eq {fsZAS cvsshow2x} if xchartl 14 eq {fsYA1 cvsshow2x} if xchartl 15 eq {fsYA1 cvsshow2x} if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {%08<=xchartl<=10, 14,15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def } if %08<=xchartl<=10, 14,15 xchartl 11 ge xchartl 13 le and {%11<=xchartl<=13 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } if %11<=xchartl<13 %xchartl 15 ne {%xchartl#15 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x % } if %xchartl#15 } bind def %END proc_XYZI_02, xchartl=8,15 %********************************************************************* /proc_LMS1_14 {%BEG proc_LMS1_14 xchartl=14 only plot of a*l(lamda)+b*m(lamda) /Yiy 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves 0 1 2 {/icurv exch def %icurv=0,2 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiy i lA1j i get 0.6899 mul put} if icurv 1 eq {Yiy i mA1j i get 0.3483 mul put} if icurv 2 eq {Yiy i lA1j i get 0.6899 mul mA1j i get 0.3483 mul add put} if } for %i=0,76 %three curves %570 = 380 + i*5, i=(570-380)/5=38 /ila 38 def %capital Y! /mA1a mA1j ila get 0.6899 mul def /lA1a lA1j ila get 0.3483 mul def /yA1a mA1a lA1a add def /YA1a YA1j ila get def %0050 0250 moveto TV (lmyY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %yA1a cvsshow4x (, ) show %YA1a cvsshow4x /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiy 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiy i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,2 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def 0600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 0600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 0600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } bind def %END proc_LMS1_14, xchartl=14 %************************************************************** /proc_LMS1_15 {%BEG proc_LMS1_15 xchartl=15 only plot of a*l(lamda)+b*m(lamda) /Yiz 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves %570 = 380 + i*5, i=(570-380)/5=38 %lA1_38=1,0000=lA1j 38 get %mA1_38=0,8135=MA1j 38 get %yA1_38=0,8964=yA1j 38 get /ila 38 def %capital Y! /lA1a lA1j ila get def /mA1a mA1j ila get def /YA1a YA1j ila get def /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show %five curves 0 1 4 {/icurv exch def %icurv=0,4 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiz i lA1j i get YA1a lA1a div mul put} if icurv 1 eq {Yiz i mA1j i get YA1a mA1a div mul put} if icurv 2 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul add 0.5 mul put} if icurv 3 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub put} if icurv 4 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub neg put} if } for %i=0,76 %0050 0250 moveto TV (lmY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %YA1a cvsshow4x 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if icurv 3 eq {tf620} if icurv 4 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiz 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiz i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,4 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamdaka {TBK (\050) show SK (l) show (a) ib4 TBK (\051) show} bind def /lamdak1sa {lamda01s lamdaka} def 600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 1600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (3) is4 TBK (=a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 (-b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 600 1300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (4) is4 TBK (=b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 (-a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 2600 2300 moveto TBK (a=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (m) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa 2600 2000 moveto TBK (b=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (l) show TBK -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1sa 4000 1600 moveto TK (Adaptation:) show 4000 1300 moveto SK (l) show (a) is4 TK (=570nm) show } bind def %END proc_LMS1_15, xchartl=15 %************************************************************** /proc_LMSM14_15 {%BEG proc_LMSM_14_15, xchartl=14,15 %BEG NEW FROM BL65 211218 06,07->14,15 /MULXS 0060 def /MULYS 1200 1.0 mul def 0 1200 neg translate /CY 0.35 def /CX 50 def /W1 620 def /W0 520 def /WM 570 def /tsa 0.00 def 40 setlinewidth /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put /YEXP Xi i get W0 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi0 i EYEXP put /YEXP Xi i get W1 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi1 i EYEXP put /YEXP Xi i get WM sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put } for %i=0,1,76 /Yix 88 array def xchartl 14 ge xchartl 15 le and {/MULYS 1200 0.5 mul def 0 1200 translate} if 40 setlinewidth 0 1 2 {/jc exch def %jc=0,2 0 1 76 {/i exch def %i=0,76 Yix i jc 0 eq {Yi0 i get 2 mul} if jc 1 eq {Yi1 i get 2 mul} if jc 2 eq {Yi2 i get 2 mul} if put } for %i=0,76 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash jc 0 eq {tf620} if jc 1 eq {tf570} if jc 2 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /xst ix0 0 MULXS mul add def /yst iy0 Yix 0 get MULYS mul add def xst yst moveto 1 3 71 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yix i get MULYS mul add def /x20 ix0 i 1 add MULXS mul add def /y20 iy0 Yix i 1 add get MULYS mul add def /x21 ix0 i 2 add MULXS mul add def /y21 iy0 Yix i 2 add get MULYS mul add def /x22 ix0 i 3 add MULXS mul add def /y22 iy0 Yix i 3 add get MULYS mul add def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } for %n=0,1 } for %j=0,2 0 1200 translate } bind def %END proc_LMSM_14_15, xchartl=14,15 %************************************************************** xchartl 00 ge xchartl 07 le and {proc_LMS1_02} if %09 repeat in 14 and 15 xchartl 08 ge xchartl 15 le and {proc_XYZI_02} if %14 and 15 with functions of LMS1 xchartl 14 eq {proc_LMS1_14} if xchartl 15 eq {proc_LMS1_15} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % 'DNV5'YLOOPEND5.EPS % space essential for files Y*A.EPS xchartl2 4 eq { 100 neg 4500 neg translate} if xchartl2 5 eq {5700 neg 4500 neg translate} if xchartl2 6 eq { 100 neg 0250 neg translate} if xchartl2 7 eq {5700 neg 0250 neg translate} if %} if %iout=1 grestore } for %xchartl=0,15 showpage grestore } for %xchartx=3,3 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 DEV51-4N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV51-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 DEV51-5N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV51-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 DEV51-6N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV51-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 020 1 sub MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEV5/DEV51-7N 20211201 %%BoundingBox: 70 82 395 336 /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: http://farbe.li.tu-berlin.de/DEV5/DEV5.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021120112000) /ModDate (D:20211201112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def %/languagelevel where {pop languagelevel} {1} ifelse % /PSL12 exch def %/dictende {counttomark 2 idiv dup dict begin {def} % repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SV {160 /Symbol FS} bind def /CV {160 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {240 /Courier-ISOL1 FS} bind def /CM {280 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBV {160 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {240 /CourierB-ISOL1 FS} bind def /CBM {280 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {TG show} bind def /ks {TIG show} bind def /bs {TBG show} bind def /js {TBIG show} bind def /sy {SG show} bind def /is {TM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /es {TM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ib {TBM 0 -90 rmoveto show 0 90 rmoveto TG} bind def /eb {TBM 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ip {TM 50 50 rmoveto (\267) show 50 -50 rmoveto TG} bind def %20% kleiner /ns2 {TM show TM} bind def /ks2 {TIM show TM} bind def /bs2 {TBM show TM} bind def /js2 {TBIM show TM} bind def /sy2 {SM show TM} bind def /is2 {TK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {TK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {TBK 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {TBK 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {TK 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {SK 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {TK show TK} bind def /ks4 {TIK show TK} bind def /bs4 {TBK show TK} bind def /js4 {TBIK show TK} bind def /ss4 {SK show TK} bind def /is4 {TS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {TS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {TBS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {TBS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {TS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {SS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /cvishow {cvi 6 string cvs show ( ) 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} if 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} if 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} if 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} if 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 /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %2-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l02Ii 77 array def /m02Ii 77 array def /s02Ii 77 array def /l02Mi 77 array def /m02Mi 77 array def /s02Mi 77 array def /X02Ii 77 array def /Y02Ii 77 array def /Z02Ii 77 array def /xan02Ii 77 array def /yan02Ii 77 array def /zan02Ii 77 array def /X02Mi 77 array def /Y02Mi 77 array def /Z02Mi 77 array def /xan02Mi 77 array def /yan02Mi 77 array def /zan02Mi 77 array def /ycuri 77 array def %10-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm /l10Ii 77 array def /m10Ii 77 array def /s10Ii 77 array def /l10Mi 77 array def /m10Mi 77 array def /s10Mi 77 array def /X10Ii 77 array def /Y10Ii 77 array def /Z10Ii 77 array def /xan10Ii 77 array def /yan10Ii 77 array def /zan10Ii 77 array def /X10Mi 77 array def /Y10Mi 77 array def /Z10Mi 77 array def /xan10Mi 77 array def /yan10Mi 77 array def /zan10Mi 77 array def /ycurj 80 array def %2-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l02Ij 80 array def /m02Ij 80 array def /s02Ij 80 array def /l02Mj 80 array def /m02Mj 80 array def /s02Mj 80 array def /X02Ij 80 array def /Y02Ij 80 array def /Z02Ij 80 array def /xan02Ij 80 array def /yan02Ij 80 array def /zan02Ij 80 array def /X02Mj 80 array def /Y02Mj 80 array def /Z02Mj 80 array def /xan02Mj 80 array def /yan02Mj 80 array def /zan02Mj 80 array def /ycurj 80 array def %10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /l10Ij 80 array def /m10Ij 80 array def /s10Ij 80 array def /l10Mj 80 array def /m10Mj 80 array def /s10Mj 80 array def /X10Ij 80 array def /Y10Ij 80 array def /Z10Ij 80 array def /xan10Ij 80 array def /yan10Ij 80 array def /zan10Ij 80 array def /X10Mj 80 array def /Y10Mj 80 array def /Z10Mj 80 array def /xan10Mj 80 array def /yan10Mj 80 array def /zan10Mj 80 array def /ycurj 80 array def %actual 2 or 10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm /lA1j 80 array def /mA1j 80 array def /sA1j 80 array def /lASj 80 array def /mASj 80 array def /sASj 80 array def /lANj 80 array def /mANj 80 array def /sANj 80 array def /XA1j 80 array def /YA1j 80 array def /ZA1j 80 array def /xanA1j 80 array def /yanA1j 80 array def /zanA1j 80 array def /XASj 80 array def /YASj 80 array def /ZASj 80 array def /xanASj 80 array def /yanASj 80 array def /zanASj 80 array def /XANj 80 array def /YANj 80 array def /ZANj 80 array def /xanANj 80 array def /yanANj 80 array def /zanANj 80 array def /ycurj 80 array def /l10Mi [ %LMS2.TXT %L2.DAT CIE Table 6.7, p. 34 380=390,385=390, 390, 395, ...760nm 4.150019e-4 4.150019e-4 4.150019e-4 1.051914e-3 2.408353e-3 %400 4.833371e-3 8.721273e-3 1.338382e-2 1.844803e-2 2.293190e-2 2.818772e-2 3.410515e-2 4.025595e-2 4.493761e-2 4.986433e-2 %450 5.534138e-2 6.471575e-2 8.069006e-2 9.947639e-2 1.188010e-1 1.401458e-1 1.639532e-1 1.915579e-1 2.329271e-1 2.889615e-1 %500 3.597162e-1 4.436801e-1 5.364880e-1 6.285647e-1 7.047255e-1 7.706373e-1 8.257146e-1 8.810083e-1 9.190730e-1 9.401995e-1 %550 9.657395e-1 9.814541e-1 9.944890e-1 1 9.923160e-1 9.694379e-1 9.556085e-1 9.276625e-1 8.859720e-1 8.339884e-1 %600 7.751040e-1 7.057161e-1 6.307685e-1 5.542300e-1 4.799434e-1 4.007098e-1 3.278612e-1 2.657847e-1 2.132849e-1 1.651391e-1 %650 1.247498e-1 9.300794e-2 6.850937e-2 4.986664e-2 3.582284e-2 2.537932e-2 1.772025e-2 1.216998e-2 8.471687e-3 5.897527e-3 %700 4.091288e-3 2.804465e-3 1.920570e-3 1.326875e-3 9.177829e-4 6.393665e-4 4.460361e-4 3.108708e-4 2.193310e-4 1.545503e-4 %750 1.095065e-4 7.799195e-5 ] def /m02Mi [ %M2.DAT 3.683495e-4 3.683495e-4 3.683495e-4 9.586496e-4 2.269917e-3 %400 4.700132e-3 8.793667e-3 1.452780e-2 2.166506e-2 2.957127e-2 3.945663e-2 5.182030e-2 6.477837e-2 7.588048e-2 8.705225e-2 %450 9.819288e-2 1.162733e-1 1.445407e-1 1.758936e-1 2.053998e-1 2.357545e-1 2.680649e-1 3.036267e-1 3.570590e-1 4.277598e-1 %500 5.155847e-1 6.155169e-1 7.191508e-1 8.166012e-1 8.855437e-1 9.356857e-1 9.688577e-1 9.952165e-1 9.971948e-1 9.771922e-1 %550 9.995->9.95? 9.565771e-1 9.177407e-1 8.732126e-1 8.135046e-1 7.402868e-1 6.532810e-1 5.725950e-1 4.925950e-1 4.112444e-1 3.344260e-1 %600 2.648744e-1 2.052721e-1 1.562428e-1 1.166407e-1 8.558743e-2 6.211264e-2 4.448770e-2 3.142624e-2 2.180369e-2 1.544792e-2 %650 1.071199e-2 7.302475e-3 4.971759e-3 3.436687e-3 2.376184e-3 1.637344e-3 1.121270e-3 7.610442e-4 5.254605e-4 3.653171e-4 %700 2.534195e-4 1.744014e-4 1.206090e-4 8.417245e-5 5.893455e-5 4.160449e-5 2.943542e-5 2.088575e-5 1.504562e-5 1.082007e-5 %750 7.822762e-6 5.690886e-6 ] def /s02Mi [ %S2.DAT CIE 171.1:2006 9.547289e-3 9.547289e-3 %380,385 9.547289e-3 2.382484e-2 5.665002e-2 1.224503e-1 2.330076e-1 %410 3.813643e-1 5.436132e-1 6.744815e-1 8.025461e-1 9.035662e-1 9.910145e-1 9.915166e-1 9.553885e-1 8.602408e-1 7.867016e-1 %460 7.382611e-1 6.463534e-1 5.164164e-1 3.903373e-1 2.903220e-1 2.118654e-1 1.605240e-1 1.228400e-1 8.889554e-2 6.082050e-2 %510 4.281244e-2 2.920317e-2 1.939099e-2 1.260114e-2 8.094500e-3 5.088971e-3 3.168911e-3 1.958935e-3 1.202763e-3 7.401673e-4 %560 4.559845e-4 2.817993e-4 1.750370e-4 1.094536e-4 6.899855e-5 4.390257e-5 2.822280e-5 1.834593e-5 1.206675e-5 8.034895e-6 %610 5.418387e-6 0 0 0 0 0 0 0 0 0 %650 0 0 0 0 0 0 0 0 0 0 %700 0 0 0 0 0 0 0 0 0 0 %750 0 0 ] def /CIEF_LMS_02 298 array def %77x4 /CIEF_LMS_02 [%BEG CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 385.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390 390.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 395.0 1.05192281E-03 9.58658287E-04 2.38249757E-02 400.0 2.40836274E-03 2.26990665E-03 5.66497751E-02 405.0 4.83338951E-03 4.70010083E-03 1.22450936E-01 410.0 8.72126562E-03 8.79368990E-03 2.33008318E-01 415.0 1.33836930E-02 1.45277327E-02 3.81363350E-01 420.0 1.84480328E-02 2.16648593E-02 5.43618105E-01 425.0 2.29317499E-02 2.95714420E-02 6.74474074E-01 430.0 2.81877052E-02 3.94566147E-02 8.02554955E-01 435.0 3.41053893E-02 5.18198823E-02 9.03572547E-01 440.0 4.02562524E-02 6.47782187E-02 9.91020299E-01 445.0 4.49379920E-02 7.58812175E-02 9.91515250E-01 450.0 4.98639402E-02 8.70523965E-02 9.55393000E-01 455.0 5.53418498E-02 9.81933595E-02 8.60240453E-01 460.0 6.47164360E-02 1.16272079E-01 7.86703893E-01 465.0 8.06893625E-02 1.44540604E-01 7.38267621E-01 470.0 9.94755270E-02 1.75892769E-01 6.46359219E-01 475.0 1.18802152E-01 2.05398073E-01 5.16410649E-01 480.0 1.40145131E-01 2.35754060E-01 3.90333407E-01 485.0 1.63951537E-01 2.68063038E-01 2.90322411E-01 490.0 1.91556224E-01 3.03629653E-01 2.11866834E-01 495.0 2.32925516E-01 3.57060581E-01 1.60525792E-01 500.0 2.88959412E-01 4.27764487E-01 1.22838921E-01 505.0 3.59716421E-01 5.15586863E-01 8.88965361E-02 510.0 4.43682863E-01 6.15520174E-01 6.08209513E-02 515.0 5.36493787E-01 7.19154047E-01 4.28122756E-02 520.0 6.28561087E-01 8.16609632E-01 2.92032829E-02 525.0 7.04720332E-01 8.85549719E-01 1.93911943E-02 530.0 7.70629906E-01 9.35687022E-01 1.26012838E-02 535.0 8.25710771E-01 9.68858338E-01 8.09453368E-03 540.0 8.81010908E-01 9.95216550E-01 5.08900051E-03 545.0 9.19066658E-01 9.97192616E-01 3.16893322E-03 550.0 9.40197682E-01 9.77193335E-01 1.95895533E-03 555.0 9.65733133E-01 9.56583237E-01 1.20277126E-03 560.0 9.81444621E-01 9.17749837E-01 7.40173919E-04 565.0 9.94485919E-01 8.73204873E-01 4.55979308E-04 570.0 9.99993160E-01 8.13509255E-01 2.81799951E-04 575.0 9.92309909E-01 7.40291037E-01 1.75038547E-04 580.0 9.69429172E-01 6.53273547E-01 1.09453897E-04 585.0 9.55601819E-01 5.72596792E-01 6.89990581E-05 590.0 9.27672559E-01 4.92598798E-01 4.39023849E-05 595.0 8.85969334E-01 4.11245617E-01 2.82228417E-05 600.0 8.33982132E-01 3.34428550E-01 1.83458912E-05 605.0 7.75103324E-01 2.64872009E-01 1.20667447E-05 610.0 7.05713103E-01 2.05273346E-01 8.03487566E-06 615.0 6.30773388E-01 1.56242654E-01 5.41843079E-06 620.0 5.54224372E-01 1.16641491E-01 0.00000000E-00 625.0 4.79940995E-01 8.55871752E-02 0.00000000E-00 630.0 4.00710831E-01 6.21120321E-02 0.00000000E-00 635.0 3.27863707E-01 4.44878727E-02 0.00000000E-00 640.0 2.65784185E-01 3.14282295E-02 0.00000000E-00 645.0 2.13283643E-01 2.18037465E-02 0.00000000E-00 650.0 1.65140826E-01 1.54479552E-02 0.00000000E-00 655.0 1.24749078E-01 1.07119605E-02 0.00000000E-00 660.0 9.30084863E-02 7.30255150E-03 0.00000000E-00 665.0 6.85099590E-02 4.97179190E-03 0.00000000E-00 670.0 4.98660938E-02 3.43667061E-03 0.00000000E-00 675.0 3.58232509E-02 2.37617227E-03 0.00000000E-00 680.0 2.53790394E-02 1.63733769E-03 0.00000000E-00 685.0 1.77201275E-02 1.12127805E-03 0.00000000E-00 690.0 1.21701123E-02 7.61050801E-04 0.00000000E-00 695.0 8.47170037E-03 5.25456816E-04 0.00000000E-00 700.0 5.89748808E-03 3.65317316E-04 0.00000000E-00 705.0 4.09129197E-03 2.53417295E-04 0.00000000E-00 710.0 2.80446659E-03 1.74401753E-04 0.00000000E-00 715.0 1.92057783E-03 1.20607982E-04 0.00000000E-00 720.0 1.32686544E-03 8.41716373E-05 0.00000000E-00 725.0 9.17776773E-04 5.89349310E-05 0.00000000E-00 730.0 6.39372955E-04 4.16048509E-05 0.00000000E-00 735.0 4.46035067E-04 2.94354152E-05 0.00000000E-00 740.0 3.10869146E-04 2.08859570E-05 0.00000000E-00 745.0 2.19329240E-04 1.50457558E-05 0.00000000E-00 750.0 1.54549195E-04 1.08200177E-05 0.00000000E-00 755.0 1.09507604E-04 7.82271489E-06 0.00000000E-00 760.0 7.79912028E-05 5.69092610E-06 0.00000000E-00 %765.0 5.56263839E-05 4.13998115E-06 0.00000000E-00 %770.0 3.99294560E-05 3.02682745E-06 0.00000000E-00 %775.0 2.86162863E-05 2.21100363E-06 0.00000000E-00 %780.0 2.07321327E-05 1.63432668E-06 0.00000000E-00 %785.0 1.50432118E-05 1.21053851E-06 0.00000000E-00 %790.0 1.09446148E-05 8.99169870E-07 0.00000000E-00 %795.0 7.97750298E-06 6.69594072E-07 0.00000000E-00 %800.0 5.85057291E-06 5.03187359E-07 0.00000000E-00 %805.0 4.31101652E-06 3.80046377E-07 0.00000000E-00 %810.0 3.17008616E-06 2.86328659E-07 0.00000000E-00 %815.0 2.34468299E-06 2.16878259E-07 0.00000000E-00 %820.0 1.74666331E-06 1.65157769E-07 0.00000000E-00 %825.0 1.30240694E-06 1.25508416E-07 0.00000000E-00 %830.0 9.74306403E-07 9.53411481E-08 0.00000000E-00 ] def %END CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree /CIEF_LMS_10 298 array def %77x4 /CIEF_LMS_10 [%BEG CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree %Cone fundamentals 5nm L M S 02-degree from Stockmann, see %http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or %http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm 380 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 385 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390 390 4.07619067E-04 3.58227395E-04 6.14264795E-03 395 1.06920754E-03 9.64828092E-04 1.59514687E-02 400 2.54073042E-03 2.37207532E-03 3.96307943E-02 405 5.31546236E-03 5.12316225E-03 8.97612227E-02 410 9.98835098E-03 9.98840819E-03 1.78529924E-01 415 1.60129841E-02 1.72595696E-02 3.05941113E-01 420 2.33957137E-02 2.73163327E-02 4.62692207E-01 425 3.09103789E-02 3.96928205E-02 6.09570091E-01 430 3.97809896E-02 5.55383864E-02 7.56884632E-01 435 4.94171973E-02 7.50298610E-02 8.69984288E-01 440 5.94618805E-02 9.57611568E-02 9.66959512E-01 445 6.86537572E-02 1.16220119E-01 9.93336464E-01 450 7.95647427E-02 1.39493318E-01 9.91328844E-01 455 9.07704422E-02 1.62006089E-01 9.06735013E-01 460 1.06663473E-01 1.93201620E-01 8.23725866E-01 465 1.28336042E-01 2.32275228E-01 7.37042702E-01 470 1.51650594E-01 2.71441153E-01 6.10456321E-01 475 1.77116190E-01 3.10372033E-01 4.70893608E-01 480 2.07940052E-01 3.55066420E-01 3.50107654E-01 485 2.44045655E-01 4.05688377E-01 2.58496996E-01 490 2.82751994E-01 4.56137225E-01 1.85297483E-01 495 3.34785930E-01 5.22969940E-01 1.35350675E-01 500 3.91705331E-01 5.91002878E-01 9.67990105E-02 505 4.56251511E-01 6.66404323E-01 6.49613925E-02 510 5.26538428E-01 7.43612020E-01 4.12337488E-02 515 5.99866880E-01 8.16807889E-01 2.71299980E-02 520 6.75313179E-01 8.89213535E-01 1.76298483E-02 525 7.37107602E-01 9.34976841E-01 1.13251604E-02 530 7.88899549E-01 9.61961662E-01 7.17089441E-03 535 8.37403142E-01 9.81480903E-01 4.54287284E-03 540 8.90871319E-01 9.98930730E-01 2.83351880E-03 545 9.26659723E-01 9.91382642E-01 1.75572783E-03 550 9.44527173E-01 9.61875524E-01 1.08230483E-03 555 9.70702545E-01 9.35829058E-01 6.64512043E-04 560 9.85635735E-01 8.90949073E-01 4.08931409E-04 565 9.96979206E-01 8.40968769E-01 2.51918429E-04 570 9.99542570E-01 7.76525624E-01 1.55687802E-04 575 9.87057062E-01 7.00013057E-01 9.67045032E-05 580 9.57840611E-01 6.11727998E-01 6.04705364E-05 585 9.39781455E-01 5.31825085E-01 3.81202298E-05 590 9.06693013E-01 4.54142113E-01 2.42549460E-05 595 8.59605469E-01 3.76527354E-01 1.55923957E-05 600 8.03173191E-01 3.04377894E-01 1.01356328E-05 605 7.40679903E-01 2.39837365E-01 6.66656535E-06 610 6.68991113E-01 1.85103689E-01 4.43906145E-06 615 5.93247836E-01 1.40431078E-01 2.99354308E-06 620 5.17448826E-01 1.04572924E-01 0.00000000E-00 625 4.45124577E-01 7.65841125E-02 0.00000000E-00 630 3.69167951E-01 5.54989859E-02 0.00000000E-00 635 3.00316199E-01 3.97096689E-02 0.00000000E-00 640 2.42316360E-01 2.80314193E-02 0.00000000E-00 645 1.93730034E-01 1.94366360E-02 0.00000000E-00 650 1.49509341E-01 1.37659889E-02 0.00000000E-00 655 1.12637747E-01 9.54315350E-03 0.00000000E-00 660 8.38077035E-02 6.50455441E-03 0.00000000E-00 665 6.16383685E-02 4.42794317E-03 0.00000000E-00 670 4.48131819E-02 3.06049600E-03 0.00000000E-00 675 3.21659546E-02 2.11596127E-03 0.00000000E-00 680 2.27738100E-02 1.45797939E-03 0.00000000E-00 685 1.58939173E-02 9.98423741E-04 0.00000000E-00 690 1.09123394E-02 6.77652785E-04 0.00000000E-00 695 7.59452818E-03 4.67870233E-04 0.00000000E-00 700 5.28607164E-03 3.25278334E-04 0.00000000E-00 705 3.66675373E-03 2.25641354E-04 0.00000000E-00 710 2.51327467E-03 1.55285744E-04 0.00000000E-00 715 1.72107607E-03 1.07387972E-04 0.00000000E-00 720 1.18899676E-03 7.49453321E-05 0.00000000E-00 725 8.22396074E-04 5.24748323E-05 0.00000000E-00 730 5.72916838E-04 3.70443421E-05 0.00000000E-00 735 3.99670182E-04 2.62088417E-05 0.00000000E-00 740 2.78552580E-04 1.85965278E-05 0.00000000E-00 745 1.96527784E-04 1.33965008E-05 0.00000000E-00 750 1.38481790E-04 9.63396916E-06 0.00000000E-00 755 9.81226253E-05 6.96521810E-06 0.00000000E-00 760 6.98827164E-05 5.06710754E-06 0.00000000E-00 %765 4.98430350E-05 3.68617125E-06 0.00000000E-00 %770 3.57780519E-05 2.69503733E-06 0.00000000E-00 %775 2.56410800E-05 1.96864116E-06 0.00000000E-00 %780 1.85766264E-05 1.45517748E-06 0.00000000E-00 %785 1.34791749E-05 1.07784347E-06 0.00000000E-00 %790 9.80670540E-06 8.00605973E-07 0.00000000E-00 %795 7.14808254E-06 5.96195475E-07 0.00000000E-00 %800 5.24228869E-06 4.48029690E-07 0.00000000E-00 %805 3.86279972E-06 3.38386998E-07 0.00000000E-00 %810 2.84049184E-06 2.54942293E-07 0.00000000E-00 %815 2.10090587E-06 1.93104807E-07 0.00000000E-00 %820 1.56506236E-06 1.47053740E-07 0.00000000E-00 %825 1.16699539E-06 1.11750613E-07 0.00000000E-00 %830 8.73007530E-07 8.48901776E-08 0.00000000E-00 ] def %END CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree /CIEF_XYZ_02 298 array def %77x4 /CIEF_XYZ_02 [%BEG CIEF_XYZ_02 Colour matching functions 5nm 02-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 3.769647E-03 4.146161E-04 1.847260E-02 %=390 385 3.769647E-03 4.146161E-04 1.847260E-02 %=390 390 3.769647E-03 4.146161E-04 1.847260E-02 395 9.382967E-03 1.059646E-03 4.609784E-02 400 2.214302E-02 2.452194E-03 1.096090E-01 405 4.742986E-02 4.971717E-03 2.369246E-01 410 8.953803E-02 9.079860E-03 4.508369E-01 415 1.446214E-01 1.429377E-02 7.378822E-01 420 2.035729E-01 2.027369E-02 1.051821E+00 425 2.488523E-01 2.612106E-02 1.305008E+00 430 2.918246E-01 3.319038E-02 1.552826E+00 435 3.227087E-01 4.157940E-02 1.748280E+00 440 3.482554E-01 5.033657E-02 1.917479E+00 445 3.418483E-01 5.743393E-02 1.918437E+00 450 3.224637E-01 6.472352E-02 1.848545E+00 455 2.826646E-01 7.238339E-02 1.664439E+00 460 2.485254E-01 8.514816E-02 1.522157E+00 465 2.219781E-01 1.060145E-01 1.428440E+00 470 1.806905E-01 1.298957E-01 1.250610E+00 475 1.291920E-01 1.535066E-01 9.991789E-01 480 8.182895E-02 1.788048E-01 7.552379E-01 485 4.600865E-02 2.064828E-01 5.617313E-01 490 2.083981E-02 2.379160E-01 4.099313E-01 495 7.097731E-03 2.850680E-01 3.105939E-01 500 2.461588E-03 3.483536E-01 2.376753E-01 505 3.649178E-03 4.277595E-01 1.720018E-01 510 1.556989E-02 5.204972E-01 1.176796E-01 515 4.315171E-02 6.206256E-01 8.283548E-02 520 7.962917E-02 7.180890E-01 5.650407E-02 525 1.268468E-01 7.946448E-01 3.751912E-02 530 1.818026E-01 8.575799E-01 2.438164E-02 535 2.405015E-01 9.071347E-01 1.566174E-02 540 3.098117E-01 9.544675E-01 9.846470E-03 545 3.804244E-01 9.814106E-01 6.131421E-03 550 4.494206E-01 9.890228E-01 3.790291E-03 555 5.280233E-01 9.994608E-01 2.327186E-03 560 6.133784E-01 9.967737E-01 1.432128E-03 565 7.016774E-01 9.902549E-01 8.822531E-04 570 7.967750E-01 9.732611E-01 5.452416E-04 575 8.853376E-01 9.424569E-01 3.386739E-04 580 9.638388E-01 8.963613E-01 2.117772E-04 585 1.051011E+00 8.587203E-01 1.335031E-04 590 1.109767E+00 8.115868E-01 8.494468E-05 595 1.143620E+00 7.544785E-01 5.460706E-05 600 1.151033E+00 6.918553E-01 3.549661E-05 605 1.134757E+00 6.270066E-01 2.334738E-05 610 1.083928E+00 5.583746E-01 1.554631E-05 615 1.007344E+00 4.895950E-01 1.048387E-05 620 9.142877E-01 4.229897E-01 0.000000E+00 625 8.135565E-01 3.609245E-01 0.000000E+00 630 6.924717E-01 2.980865E-01 0.000000E+00 635 5.755410E-01 2.416902E-01 0.000000E+00 640 4.731224E-01 1.943124E-01 0.000000E+00 645 3.844986E-01 1.547397E-01 0.000000E+00 650 2.997374E-01 1.193120E-01 0.000000E+00 655 2.277792E-01 8.979594E-02 0.000000E+00 660 1.707914E-01 6.671045E-02 0.000000E+00 665 1.263808E-01 4.899699E-02 0.000000E+00 670 9.224597E-02 3.559982E-02 0.000000E+00 675 6.639960E-02 2.554223E-02 0.000000E+00 680 4.710606E-02 1.807939E-02 0.000000E+00 685 3.292138E-02 1.261573E-02 0.000000E+00 690 2.262306E-02 8.661284E-03 0.000000E+00 695 1.575417E-02 6.027677E-03 0.000000E+00 700 1.096778E-02 4.195941E-03 0.000000E+00 705 7.608750E-03 2.910864E-03 0.000000E+00 710 5.214608E-03 1.995557E-03 0.000000E+00 715 3.569452E-03 1.367022E-03 0.000000E+00 720 2.464821E-03 9.447269E-04 0.000000E+00 725 1.703876E-03 6.537050E-04 0.000000E+00 730 1.186238E-03 4.555970E-04 0.000000E+00 735 8.269535E-04 3.179738E-04 0.000000E+00 740 5.758303E-04 2.217445E-04 0.000000E+00 745 4.058303E-04 1.565566E-04 0.000000E+00 750 2.856577E-04 1.103928E-04 0.000000E+00 755 2.021853E-04 7.827442E-05 0.000000E+00 760 1.438270E-04 5.578862E-05 0.000000E+00 %765 1.024685E-04 3.981884E-05 0.000000E+00 %770 7.347551E-05 2.860175E-05 0.000000E+00 %775 5.259870E-05 2.051259E-05 0.000000E+00 %780 3.806114E-05 1.487243E-05 0.000000E+00 %785 2.758222E-05 1.080001E-05 0.000000E+00 %790 2.004122E-05 7.863920E-06 0.000000E+00 %795 1.458792E-05 5.736935E-06 0.000000E+00 %800 1.068141E-05 4.211597E-06 0.000000E+00 %805 7.857521E-06 3.106561E-06 0.000000E+00 %810 5.768284E-06 2.286786E-06 0.000000E+00 %815 4.259166E-06 1.693147E-06 0.000000E+00 %820 3.167765E-06 1.262556E-06 0.000000E+00 %825 2.358723E-06 9.422514E-07 0.000000E+00 %830 1.762465E-06 7.053860E-07 0.000000E+00 ] def %END CIEF_XYZ_02 Colour matching functions 5nm 02-degree /CIEF_XYZ_10 298 array def %77x4 /CIEF_XYZ_10 [%BEG CIEF_XYZ_10 Colour matching functions 5nm 10-degree from Stockmann, see %http://www.cvrl.org/ under CVRL Database %output as format ps, convert to ASCII with macps2pdf 380 2.952420E-03 4.076779E-04 1.318752E-02 %=390 385 2.952420E-03 4.076779E-04 1.318752E-02 %=390 390 2.952420E-03 4.076779E-04 1.318752E-02 395 7.641137E-03 1.078166E-03 3.424588E-02 400 1.879338E-02 2.589775E-03 8.508254E-02 405 4.204986E-02 5.474207E-03 1.927065E-01 410 8.277331E-02 1.041303E-02 3.832822E-01 415 1.395127E-01 1.712968E-02 6.568187E-01 420 2.077647E-01 2.576133E-02 9.933444E-01 425 2.688989E-01 3.529554E-02 1.308674E+00 430 3.281798E-01 4.698226E-02 1.624940E+00 435 3.693084E-01 6.047429E-02 1.867751E+00 440 4.026189E-01 7.468288E-02 2.075946E+00 445 4.042529E-01 8.820537E-02 2.132574E+00 450 3.932139E-01 1.039030E-01 2.128264E+00 455 3.482214E-01 1.195389E-01 1.946651E+00 460 3.013112E-01 1.414586E-01 1.768440E+00 465 2.534221E-01 1.701373E-01 1.582342E+00 470 1.914176E-01 1.999859E-01 1.310576E+00 475 1.283167E-01 2.312426E-01 1.010952E+00 480 7.593120E-02 2.682271E-01 7.516389E-01 485 3.836770E-02 3.109438E-01 5.549619E-01 490 1.400745E-02 3.554018E-01 3.978114E-01 495 3.446810E-03 4.148227E-01 2.905816E-01 500 5.652072E-03 4.780482E-01 2.078158E-01 505 1.561956E-02 5.491344E-01 1.394643E-01 510 3.778185E-02 6.248296E-01 8.852389E-02 515 7.538941E-02 7.012292E-01 5.824484E-02 520 1.201511E-01 7.788199E-01 3.784916E-02 525 1.756832E-01 8.376358E-01 2.431375E-02 530 2.380254E-01 8.829552E-01 1.539505E-02 535 3.046991E-01 9.233858E-01 9.753000E-03 540 3.841856E-01 9.665325E-01 6.083223E-03 545 4.633109E-01 9.886887E-01 3.769336E-03 550 5.374170E-01 9.907500E-01 2.323578E-03 555 6.230892E-01 9.997775E-01 1.426627E-03 560 7.123849E-01 9.944304E-01 8.779264E-04 565 8.016277E-01 9.848127E-01 5.408385E-04 570 8.933408E-01 9.640545E-01 3.342429E-04 575 9.721304E-01 9.286495E-01 2.076129E-04 580 1.034327E+00 8.775360E-01 1.298230E-04 585 1.106886E+00 8.370838E-01 8.183954E-05 590 1.147304E+00 7.869950E-01 5.207245E-05 595 1.160477E+00 7.272309E-01 3.347499E-05 600 1.148163E+00 6.629035E-01 2.175998E-05 605 1.113846E+00 5.970375E-01 1.431231E-05 610 1.048485E+00 5.282296E-01 9.530130E-06 615 9.617111E-01 4.601308E-01 6.426776E-06 620 8.629581E-01 3.950755E-01 0.000000E+00 625 7.603498E-01 3.351794E-01 0.000000E+00 630 6.413984E-01 2.751807E-01 0.000000E+00 635 5.290979E-01 2.219564E-01 0.000000E+00 640 4.323126E-01 1.776882E-01 0.000000E+00 645 3.496358E-01 1.410203E-01 0.000000E+00 650 2.714900E-01 1.083996E-01 0.000000E+00 655 2.056507E-01 8.137687E-02 0.000000E+00 660 1.538163E-01 6.033976E-02 0.000000E+00 665 1.136072E-01 4.425383E-02 0.000000E+00 670 8.281010E-02 3.211852E-02 0.000000E+00 675 5.954815E-02 2.302574E-02 0.000000E+00 680 4.221473E-02 1.628841E-02 0.000000E+00 685 2.948752E-02 1.136106E-02 0.000000E+00 690 2.025590E-02 7.797457E-03 0.000000E+00 695 1.410230E-02 5.425391E-03 0.000000E+00 700 9.816228E-03 3.776140E-03 0.000000E+00 705 6.809147E-03 2.619372E-03 0.000000E+00 710 4.666298E-03 1.795595E-03 0.000000E+00 715 3.194041E-03 1.229980E-03 0.000000E+00 720 2.205568E-03 8.499903E-04 0.000000E+00 725 1.524672E-03 5.881375E-04 0.000000E+00 730 1.061495E-03 4.098928E-04 0.000000E+00 735 7.400120E-04 2.860718E-04 0.000000E+00 740 5.153113E-04 1.994949E-04 0.000000E+00 745 3.631969E-04 1.408466E-04 0.000000E+00 750 2.556624E-04 9.931439E-05 0.000000E+00 755 1.809649E-04 7.041878E-05 0.000000E+00 760 1.287394E-04 5.018934E-05 0.000000E+00 %765 9.172477E-05 3.582218E-05 0.000000E+00 %770 6.577532E-05 2.573083E-05 0.000000E+00 %775 4.708916E-05 1.845353E-05 0.000000E+00 %780 3.407653E-05 1.337946E-05 0.000000E+00 %785 2.469630E-05 9.715798E-06 0.000000E+00 %790 1.794555E-05 7.074424E-06 0.000000E+00 %795 1.306345E-05 5.160948E-06 0.000000E+00 %800 9.565993E-06 3.788729E-06 0.000000E+00 %805 7.037621E-06 2.794625E-06 0.000000E+00 %810 5.166853E-06 2.057152E-06 0.000000E+00 %815 3.815429E-06 1.523114E-06 0.000000E+00 %820 2.837980E-06 1.135758E-06 0.000000E+00 %825 2.113325E-06 8.476168E-07 0.000000E+00 %830 1.579199E-06 6.345380E-07 0.000000E+00 ] def %END CIEF_XYZ_10 Colour matching functions 5nm 10-degree %/ixi [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 % .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 % .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 % .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 % .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 % .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 % .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 % .004109 .002899 .002049 .001440 .0009999 .0006901 % .000476 .0003323 .0002348 .0001662 ] def %/iyi [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .39E-04 .000064 .00012 .000217 .000396 .00064 .00121 .00218 % .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 % .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 % .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 % .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 % .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 % .01192 .00821 .005723 .004102 .002929 .002091 .001484 % .001047 .00074 .00052 .0003611 .0002492 .0001719 % .00012 .0000848 .00006 ] def %/izi [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 % 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 % 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 % .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 % .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 % .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 ] def %for xchart5=0 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SA00 80 array def %380 bis 775 mit deltalambda=05 /SE00 80 array def %380 bis 775 mit deltalambda=05 /SC00 80 array def %380 bis 775 mit deltalambda=05 /SP00 80 array def %380 bis 775 mit deltalambda=05 /SQ00 80 array def %380 bis 775 mit deltalambda=05 %for xchart5=1 /SP60 80 array def %380 bis 775 mit deltalambda=05 /SP55 80 array def %380 bis 775 mit deltalambda=05 /SP50 80 array def %380 bis 775 mit deltalambda=05 /SP45 80 array def %380 bis 775 mit deltalambda=05 /SP40 80 array def %380 bis 775 mit deltalambda=05 /SP35 80 array def %380 bis 775 mit deltalambda=05 /SP30 80 array def %380 bis 775 mit deltalambda=05 /SP25 80 array def %380 bis 775 mit deltalambda=05 /ilDtxt [(D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00)] def /ilPtxt [(P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25)] def %for combined /SX00 80 array def %380 bis 775 mit deltalambda=05 /SX01 80 array def %380 bis 775 mit deltalambda=05 /SX02 80 array def %380 bis 775 mit deltalambda=05 /SX03 80 array def %380 bis 775 mit deltalambda=05 /SX04 80 array def %380 bis 775 mit deltalambda=05 /SX05 80 array def %380 bis 775 mit deltalambda=05 /SX06 80 array def %380 bis 775 mit deltalambda=05 /SX07 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def /TNCj 8 array def /TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def /xex 10 2 exp def /yex EE 2 exp def /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 76 {/i exch def %i=0,76 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 560 lamda div mul put } for %i=0,76 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [ %x(380-775) .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 %y(380-775) .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 %z(380-775) .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def /proc_Cij_Eij {%BEG proc_Cij_Eij %procedure inverse matrix according to Ohta, Cook Wiley, page 278 %DCij=|C11 C12 C13| % |C21 C22 C23| % |C31 C32 C33| /DC C11 C22 mul C33 mul C12 C23 mul C31 mul add C13 C21 mul C32 mul add C11 C23 mul C32 mul sub C12 C21 mul C33 mul sub C13 C22 mul C31 mul sub def %delete collum and row for DCij %aus transponierter Matrix zu Cerechnen DCij->DCji %see Wikipedia "Adjunkte"% %DC11= |C22 C23| % |C32 C33| %DC21=-|C21 C23| % |C31 C33| %DC31= |C21 C22| % |C31 C32| %DC12=-|C12 C13| % |C32 C33| %DC22= |C11 C13| % |C31 C33| %DC32=-|C11 C12| % |C31 C32| %DC13= |C12 C13| % |C22 C23| %DC23=-|C11 C13| % |C21 C23| %DC33= |C11 C12| % |C21 C22| /DC11 C22 C33 mul C32 C23 mul sub def /DC21 C21 C33 mul C31 C23 mul sub neg def /DC31 C21 C32 mul C31 C22 mul sub def % /DC12 C12 C33 mul C32 C13 mul sub neg def /DC22 C11 C33 mul C31 C13 mul sub def /DC32 C11 C32 mul C31 C12 mul sub neg def % /DC13 C12 C23 mul C22 C13 mul sub def /DC23 C11 C23 mul C21 C13 mul sub neg def /DC33 C11 C22 mul C21 C12 mul sub def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Cij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /E11 DC11 DC div def /E12 DC12 DC div def /E13 DC13 DC div def % /E21 DC21 DC div def /E22 DC22 DC div def /E23 DC23 DC div def % /E31 DC31 DC div def /E32 DC32 DC div def /E33 DC33 DC div def } bind def %END proc_Cij_Eij /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 00 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 00 def /xchartm 01 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 00 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 00 def} ifelse %00/01 CIE 02/10, 02,03: CIE F02/10 /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 00 def} ifelse %5=0 illD /xchart xchart1 def xchart5 0 eq { %xchart5=0 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } if %xchart5=0 xchart5 1 eq {%xchart5=1 0 1 7 {/j exch def %j=0,7 0 1 76 {%i=0,76 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNCj j get 560 mul div def /E5 C2 TNCj j get lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def j 0 eq {SP60 i} if j 1 eq {SP55 i} if j 2 eq {SP50 i} if j 3 eq {SP45 i} if j 4 eq {SP40 i} if j 5 eq {SP35 i} if j 6 eq {SP30 i} if j 7 eq {SP25 i} if E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,76 } for %j=0,7 } if %xchart5=1 /xcolor xcolor1 def %2,10 degree observer %0 1 1 {/xcolor exch def %xcolor=0,1 %2,10 degree observer /xchartx xchart1 def %ill. D65, xchart1 def %8 illuminants 4 1 4 {/xchartx exch def %xchartx=0,7 %8 illuminants %calculation of XW,YW,ZW for illuminant D65, D50, ... 0 1 76 {/i exch def %i=0,76 xchart5 0 eq {%xchart5=0 xchartx 0 eq {SX00 i SD65 i get put} if xchartx 1 eq {SX01 i SD50 i get put} if xchartx 2 eq {SX02 i SP40 i get put} if xchartx 3 eq {SX03 i SA00 i get put} if xchartx 4 eq {SX04 i SE00 i get put} if xchartx 5 eq {SX05 i SC00 i get put} if xchartx 6 eq {SX06 i SP00 i get put} if xchartx 7 eq {SX07 i SQ00 i get put} if } %xchart5=0 {%xchart5=1 xchartx 0 eq {SX00 i SP60 i get put} if xchartx 1 eq {SX01 i SP55 i get put} if xchartx 2 eq {SX02 i SP50 i get put} if xchartx 3 eq {SX03 i SP45 i get put} if xchartx 4 eq {SX04 i SP40 i get put} if xchartx 5 eq {SX05 i SP35 i get put} if xchartx 6 eq {SX06 i SP30 i get put} if xchartx 7 eq {SX07 i SP25 i get put} if } ifelse %xchart5=1 } for %i=0,76 0 1 76 {/i exch def %i=0,76 SDAK i xchartx 0 eq {SX00 i get} if xchartx 1 eq {SX01 i get} if xchartx 2 eq {SX02 i get} if xchartx 3 eq {SX03 i get} if xchartx 4 eq {SX04 i get} if xchartx 5 eq {SX05 i get} if xchartx 6 eq {SX06 i get} if xchartx 7 eq {SX07 i get} if put } for %i=0,76 0 1 76 {/i exch def %i=0,76 xchart4 0 eq {%xchart4=0 02 degree XASj i F2 000 i add get SDAK i get mul 100. div put YASj i F2 080 i add get SDAK i get mul 100. div put ZASj i F2 160 i add get SDAK i get mul 100. div put } if %xchart4=0 xchart4 1 eq {%xchart4=1 10 degree XASj i F10 000 i add get SDAK i get mul 100. div put YASj i F10 080 i add get SDAK i get mul 100. div put ZASj i F10 160 i add get SDAK i get mul 100. div put } if %xchart4=1 xchart4 2 eq xchart4 4 eq or {%xchart4=2,4 CIEF_02 degree /i40 i 4 mul def XASj i CIEF_XYZ_02 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_02 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_02 i40 3 add get SDAK i get mul 100. div put } if %xchart4=2,4 xchart4 3 eq xchart4 5 eq or {%xchart4=3,5 CIEF_10 degree /i40 i 4 mul def XASj i CIEF_XYZ_10 i40 1 add get SDAK i get mul 100. div put YASj i CIEF_XYZ_10 i40 2 add get SDAK i get mul 100. div put ZASj i CIEF_XYZ_10 i40 3 add get SDAK i get mul 100. div put } if %xchart4=3,5 } for %i=0,76 /fsYAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsYAS fsYAS YASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XASj i XASj i get fsYAS div 100. mul put YASj i YASj i get fsYAS div 100. mul put ZASj i ZASj i get fsYAS div 100. mul put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXAS fsXAS XASj i get add def /fsYAS fsYAS YASj i get add def /fsZAS fsZAS ZASj i get add def } for %i=0,76 /i555 555 380 sub 5 idiv def /fakY 1. YASj i555 get div def 0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100 XA1j i XASj i get fakY mul put YA1j i YASj i get fakY mul put ZA1j i ZASj i get fakY mul put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsXA1 fsXA1 XA1j i get add def /fsYA1 fsYA1 YA1j i get add def /fsZA1 fsZA1 ZA1j i get add def } for %i=0,76 /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 67 Wellenlaengen ohne Purpur, 380_710/5:0_66 [00 00 00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %ED TC1-36 CIE 171-2, 2015, page 16, line 20-23, eq. (8.18) %transforms lmsF (2 degree) to xyzF (2 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F02 1.94735469 def /A12_F02 -1.41445123 def /A13_F02 0.36476327 def /A21_F02 0.68990272 def /A22_F02 0.34832189 def /A23_F02 0.00000000 def /A31_F02 0.00000000 def /A32_F02 0.00000000 def /A33_F02 1.93485343 def %ED TC1-36 CIE 171-2, 2015, page 20, line 14. eq. (8.21) %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_F10 1.93986443 def /A12_F10 -1.34664359 def /A13_F10 0.43044935 def /A21_F10 0.69283932 def /A22_F10 0.34967567 def /A23_F10 0.00000000 def /A31_F10 0.00000000 def /A32_F10 0.00000000 def /A33_F10 2.14687945 def %R17_M1 %transforms lmsF (10 degree) to xyzF (10 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M1 1.93986443 def /A12_R17_M1 -1.34664359 def /A13_R17_M1 0.43044935 def /A21_R17_M1 0.69283932 def /A22_R17_M1 0.34967567 def /A23_R17_M1 0.00000000 def /A31_R17_M1 0.00000000 def /A32_R17_M1 0.00000000 def /A33_R17_M1 2.14687945 def %R17_M2 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M2 1.40000000 def /A12_R17_M2 -0.70000000 def /A13_R17_M2 0.30000000 def /A21_R17_M2 0.50000000 def /A22_R17_M2 0.50000000 def /A23_R17_M2 0.00000000 def /A31_R17_M2 0.00000000 def /A32_R17_M2 0.00000000 def /A33_R17_M2 1.00000000 def %R17_M3 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M3 1.32000000 def /A12_R17_M3 -0.66000000 def /A13_R17_M3 0.34000000 def /A21_R17_M3 0.50000000 def /A22_R17_M3 0.50000000 def /A23_R17_M3 0.00000000 def /A31_R17_M3 0.00000000 def /A32_R17_M3 0.00000000 def /A33_R17_M3 1.00000000 def %R17_M4 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M4 1.30000000 def /A12_R17_M4 -0.65000000 def /A13_R17_M4 0.35000000 def /A21_R17_M4 0.50000000 def /A22_R17_M4 0.50000000 def /A23_R17_M4 0.00000000 def /A31_R17_M4 0.00000000 def /A32_R17_M4 0.00000000 def /A33_R17_M4 1.00000000 def %R17_M5 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M5 2.64000000 def /A12_R17_M5 -1.32000000 def /A13_R17_M5 0.68000000 def /A21_R17_M5 0.50000000 def /A22_R17_M5 0.50000000 def /A23_R17_M5 0.00000000 def /A31_R17_M5 0.00000000 def /A32_R17_M5 0.00000000 def /A33_R17_M5 1.00000000 def %R17_M6 %transforms lmsF (02 degree) to xyzF (02 degree) %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /A11_R17_M6 2.60000000 def /A12_R17_M6 -1.30000000 def /A13_R17_M6 0.70000000 def /A21_R17_M6 0.50000000 def /A22_R17_M6 0.50000000 def /A23_R17_M6 0.00000000 def /A31_R17_M6 0.00000000 def /A32_R17_M6 0.00000000 def /A33_R17_M6 1.00000000 def %Convert Xc,Yc,Zc to cone responses L, M, S (R',G',B') %using the Hunt-Pointer_Estevez (HPE) matrix %see CIE 214:2077 colour fidelity-Index %see Ohta/Robertson, book Wiley, p. 202 %see Fairchild, book Wiley, p. 211 %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E /B11_HPE 0.38971 def /B12_HPE 0.68898 def /B13_HPE -0.07868 def /B21_HPE -0.22981 def /B22_HPE 1.18340 def /B23_HPE 0.04641 def /B31_HPE 0.00000 def /B32_HPE 0.00000 def /B33_HPE 1.00000 def %Nayatani in Ohta S. 195-196, similar data not for CIE illuminant E %/B11_NAY 0.40024 def %/B12_NAY 0.70760 def %/B13_NAY -0.08081 def %/B21_NAY -0.22630 def %/B22_NAY 1.16532 def %/B23_NAY 0.04570 def %/B31_NAY 0.00000 def %/B32_NAY 0.00000 def %/B33_NAY 0.91822 def %Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E %Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E xchart4 0 eq xchart4 1 eq or {%XYZ_02, XYZ_10 /B11 B11_HPE def /B12 B12_HPE def /B13 B13_HPE def /B21 B21_HPE def /B22 B22_HPE def /B23 B23_HPE def /B31 B31_HPE def /B32 B32_HPE def /B33 B33_HPE def } if xchart4 2 eq xchart4 4 eq or {%LMS_F02 /A11 A11_F02 def /A12 A12_F02 def /A13 A13_F02 def /A21 A21_F02 def /A22 A22_F02 def /A23 A23_F02 def /A31 A31_F02 def /A32 A32_F02 def /A33 A33_F02 def } if xchart4 3 eq xchart4 5 eq or {%LMS_F10 /A11 A11_F10 def /A12 A12_F10 def /A13 A13_F10 def /A21 A21_F10 def /A22 A22_F10 def /A23 A23_F10 def /A31 A31_F10 def /A32 A32_F10 def /A33 A33_F10 def } if xchart4 6 eq {%LMS_R17_M1 /A11 A11_R17_M1 def /A12 A12_R17_M1 def /A13 A13_R17_M1 def /A21 A21_R17_M1 def /A22 A22_R17_M1 def /A23 A23_R17_M1 def /A31 A31_R17_M1 def /A32 A32_R17_M1 def /A33 A33_R17_M1 def } if xchart4 7 eq {%LMS_R17_M2 /A11 A11_R17_M2 def /A12 A12_R17_M2 def /A13 A13_R17_M2 def /A21 A21_R17_M2 def /A22 A22_R17_M2 def /A23 A23_R17_M2 def /A31 A31_R17_M2 def /A32 A32_R17_M2 def /A33 A33_R17_M2 def } if xchart4 8 eq {%LMS_R17_M3 /A11 A11_R17_M3 def /A12 A12_R17_M3 def /A13 A13_R17_M3 def /A21 A21_R17_M3 def /A22 A22_R17_M3 def /A23 A23_R17_M3 def /A31 A31_R17_M3 def /A32 A32_R17_M3 def /A33 A33_R17_M3 def } if xchart4 9 eq {%LMS_R17_M4 /A11 A11_R17_M4 def /A12 A12_R17_M4 def /A13 A13_R17_M4 def /A21 A21_R17_M4 def /A22 A22_R17_M4 def /A23 A23_R17_M4 def /A31 A31_R17_M4 def /A32 A32_R17_M4 def /A33 A33_R17_M4 def } if xchart4 0 eq xchart4 1 eq or {%xchart4=0,1 /C11 B11 def /C12 B12 def /C13 B13 def /C21 B21 def /C22 B22 def /C23 B23 def /C31 B31 def /C32 B32 def /C33 B33 def proc_Cij_Eij /A11 E11 def /A12 E12 def /A13 E13 def /A21 E21 def /A22 E22 def /A23 E23 def /A31 E31 def /A32 E32 def /A33 E33 def } if %xchart4=0,1 xchart4 2 eq xchart4 3 eq or xchart4 4 eq or xchart4 5 eq or xchart4 6 eq or xchart4 7 eq or xchart4 8 eq or xchart4 9 eq or {%xchart4=2,9,1 /C11 A11 def /C12 A12 def /C13 A13 def /C21 A21 def /C22 A22 def /C23 A23 def /C31 A31 def /C32 A32 def /C33 A33 def proc_Cij_Eij /B11 E11 def /B12 E12 def /B13 E13 def /B21 E21 def /B22 E22 def /B23 E23 def /B31 E31 def /B32 E32 def /B33 E33 def } if %xchart4=2,9,1 % R G B C M Y /tf370 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %X=370=620 /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf420 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %T=420 /tf445 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %S=445 /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B=Mc=570c /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B' new /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %B" new /tf495 {0.00 0.80 1.00 setrgbcolor} bind def %g75b 1.00 0.20 0.00 %C=Rc=620c /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %C' new /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %C" new /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %C"' new /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G=520 /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G' new /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %G" new /tf545 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %M=545 /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %M' /tf557 {0.60 1.00 0.00 setrgbcolor} bind def %j33g 0.40 0.00 1.00 %V /tf563 {0.80 1.00 0.00 setrgbcolor} bind def %j17g 0.20 0.00 1.00 %V' new /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M=570 /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M' /tf595 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O=595 /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O' new /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %O" new /tf620 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %R=620 /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R' new /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 %R" /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 %Gc=520c new /tf670 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %U=670=420 /tf720 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %W=720=470 /tfRe {1.00 0.00 0.20 setrgbcolor} bind def %Re 0.00 1.00 0.80 %Re /tfYe {1.00 1.00 0.00 setrgbcolor} bind def %Ye 0.00 0.00 1.00 %Ye /tfGe {0.00 1.00 0.20 setrgbcolor} bind def %Ge 1.00 0.00 0.80 %Ge /tfBe {0.00 0.20 1.00 setrgbcolor} bind def %Be 1.00 0.80 0.00 %Be %output allways text italic /Xt370 {tf370 (X) bishowM} def /Xt420 {tf420 (T) bishowM} def /Xt445 {tf445 (S) bishowM} def /Xt470 {tf470 (B) bishowM} def /Xt520 {tf520 (G) bishowM} def /Xt545 {tf545 (M) bishowM} def /Xt557 {tfw (V) bishowM} def /Xt570 {tf570 (L) bishowM} def /Xt570e {tf570 (Y) bishowM} def /Xt595 {tf595 (O) bishowM} def /Xt620 {tf620 (R) bishowM} def /Xt670 {tf670 (U) bishowM} def /Xt720 {tf720 (W) bishowM} def %output allways number normal /Xn370 {tf370 (370) bshowM} def /Xn420 {tf420 (420) bshowM} def /Xn445 {tf445 (445) bshowM} def /Xn470 {tf470 (470) bshowM} def /Xn520 {tf520 (520) bshowM} def /Xn545 {tf545 (545) bshowM} def /Xn557 {tfw (557) bshowM} def /Xn570 {tf570 (570) bshowM} def /Xn595 {tf595 (595) bshowM} def /Xn620 {tf620 (620) bshowM} def /Xn670 {tf670 (670) bshowM} def /Xn720 {tf720 (720) bshowM} def %output allways text index /Xt370i {tf370 (X) ishowK} def /Xt420i {tf420 (T) ishowK} def /Xt445i {tf445 (S) ishowK} def /Xt470i {tf470 (B) ishowK} def /Xt520i {tf520 (G) ishowK} def /Xt545i {tf545 (M) ishowK} def /Xt557i {tfw (V) ishowK} def /Xt570i {tf570 (L) ishowK} def /Xt595i {tf595 (O) ishowK} def /Xt620i {tf620 (R) ishowK} def /Xt670i {tf670 (U) ishowK} def /Xt720i {tf720 (W) ishowK} def %output allways number index /Xn370i {tf370 (370) ishowK} def /Xn420i {tf420 (420) ishowK} def /Xn445i {tf445 (445) ishowK} def /Xn470i {tf470 (470) ishowK} def /Xn520i {tf520 (520) ishowK} def /Xn545i {tf545 (545) ishowK} def /Xn557i {tfw (557) ishowK} def /Xn570i {tf570 (570) ishowK} def /Xn595i {tf595 (595) ishowK} def /Xn620i {tf620 (620) ishowK} def /Xn670i {tf670 (670) ishowK} def /Xn720i {tf720 (720) ishowK} def %wavelength for calculation /W370 370 def /W420 420 def /W445 445 def /W470 470 def /W520 520 def /W545 545 def /W557 557.5 def /W570 570 def /W595 595 def /W620 620 def /W670 670 def /W720 720 def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 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 /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 % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth 0 0 11200 08600 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11200 08600 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 150 /Times-ISOL1 FS 100 -150 moveto (DEV51-7N) show %xchart 1 add cvishow } if %xbtex0=1 % 'DNV5'YLOOPBEG5.EPS /xchartl xchart def 4 1 7 {/xchartl2 exch def %xchartl2=4,7 gsave xchartl2 4 eq {/xchartl 9 def} if xchartl2 5 eq {/xchartl 3 def} if xchartl2 6 eq {/xchartl 4 def} if xchartl2 7 eq {/xchartl 5 def} if % space essential for files Y*A.EPS xchartl2 4 eq { 100 4500 translate} if xchartl2 5 eq {5700 4500 translate} if xchartl2 6 eq { 100 0250 translate} if xchartl2 7 eq {5700 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 100 -140 moveto xchartl 7 le {(DEV50-) show} {(DEV51-) show} ifelse xchartl2 01 add cvishow %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse /xwidth 5400 def /ywidth 4000 def 1 setgray %frame white, only grey for xchartl=14,15 %xchartl 14 ge %xchartl 15 le and {0.0 0.0 0.0 0.5 setcmykcolor} if 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black /xpos 6 array def /xpos [100 1000 1900 2800 3700 4600] def /ymax 3000 def /ydel 0500 def 200 /Times-ISOL1 FS 0 setgray TBK %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmykcolor %font black 1800 100 moveto (Wellenl\344nge ) showde %08141-1 1 (wavelength ) showen %18141-1 1 (Ancho de banda ) showes %28141-1 1 (wavelength ) showfr %38141-1 1 (wavelength ) showit %48141-1 1 (wavelength ) showjp %58141-1 1 SK (l) show TBK 30 0 rmoveto (/nm) show %scale x 3*1200=3600 %scale y 4*600=2400 /xd 70 def /xd2 140 def /ix0 450 def /iy0 650 def /ixd0 240 def %x-start at 380 nm /ixd 1200 def /iyd 600 def /tx [ (400) (500) (600) (700)] def /ty1 [(0,0) ( ) (1,0) ( ) (2,0) ( ) ] def /tys [(0,0) (2,5) (5,0) (7,5) (10) ( ) ] def /ty20 [( 0) (10) (20) (30) (40) (50) ] def /tyo [(0,0) ( ) (0,5) ( ) (1,0) ( ) ] def /typ [(-1) ( ) ( 0) ( ) ( 1) ( ) ] def 40 setlinewidth ix0 iy0 moveto 4300 0 rlineto stroke %x ix0 iy0 moveto 0 2700 rlineto stroke %y 30 setlinewidth ix0 4300 add iy0 moveto -100 050 rlineto stroke %x_arrow ix0 4300 add iy0 moveto -100 -050 rlineto stroke %x_arrow ix0 iy0 2700 add moveto -050 -100 rlineto stroke %y_arrow ix0 iy0 2700 add moveto 050 -100 rlineto stroke %y_arrow %cero line 20 setlinewidth [100 ] 0 setdash xchartl 00 ge xchartl 02 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 03 ge xchartl 05 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 06 ge xchartl 07 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 08 ge xchartl 10 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 11 ge xchartl 13 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 14 ge xchartl 15 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if [ ] 0 setdash 40 setlinewidth 0 1 3 {/i exch def %x ix0 ixd0 add i ixd mul add iy0 50 sub moveto 0 100 rlineto stroke } for xchartl 00 ge xchartl 15 le and {/iydo iyd def} if 0 1 4 {/i exch def %y ix0 050 sub iy0 i iydo mul add moveto 100 0 rlineto stroke } for TBS 0 1 3 {/i exch def %xtex ix0 ixd0 add i ixd mul add 150 sub iy0 250 sub moveto tx i get show } for /i 3 def ix0 ixd0 add i ixd mul add 150 add iy0 300 add moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse 0 1 4 {/i exch def %ytex ix0 300 sub iy0 i iydo mul add 100 sub moveto xchartl 00 ge xchartl 02 le and {ty1 i get show} if xchartl 03 ge xchartl 05 le and {tys i get show} if xchartl 06 ge xchartl 07 le and {ty1 i get show} if xchartl 08 ge xchartl 10 le and {ty1 i get show} if xchartl 11 ge xchartl 13 le and {tys i get show} if xchartl 14 eq {ty1 i get show} if xchartl 15 eq {ty1 i get show} if } for 0 1 76 {/i exch def %i=0,76 lASj i B11 XASj i get mul B12 YASj i get mul add B13 ZASj i get mul add put mASj i B21 XASj i get mul B22 YASj i get mul add B23 ZASj i get mul add put sASj i B31 XASj i get mul B32 YASj i get mul add B33 ZASj i get mul add put } for %i=0,76 0 1 76 {/i exch def %i=0,76 lA1j i B11 XA1j i get mul B12 YA1j i get mul add B13 ZA1j i get mul add put mA1j i B21 XA1j i get mul B22 YA1j i get mul add B23 ZA1j i get mul add put sA1j i B31 XA1j i get mul B32 YA1j i get mul add B33 ZA1j i get mul add put } for %i=0,76 /fslA1 0 def /fsmA1 0 def /fssA1 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslA1 fslA1 lA1j i get add def /fsmA1 fsmA1 mA1j i get add def /fssA1 fssA1 sA1j i get add def } for %i=0,76 /fslAS 0 def /fsmAS 0 def /fssAS 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslAS fslAS lASj i get add def /fsmAS fsmAS mASj i get add def /fssAS fssAS sASj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 xyzan /sumXYZ XASj i get YASj i get add ZASj i get add def xanASj i XASj i get sumXYZ 0.01 add div put yanASj i YASj i get sumXYZ 0.01 add div put zanASj i ZASj i get sumXYZ 0.01 add div put } for %i=0,76 /inx4 10 array def %index for xchart4 and number BLxx (xx=40 to 65) %0,40 1,42 2,44 3,46 /inx4 [(02) (10) (F02) (F10) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17M3) (R17M4)] def /xposj 3000 def /yposj 3200 def /yposjP yposj 300 add def %3500 /yposjT yposj 600 add def %3800 /yposjM yposj 300 sub def %2900 /yposjK yposj 600 sub def %2600 /xposj0 30 def /yposj0 yposjT 300 sub def %part1 equation /xposj1 0500 def /yposj1 yposj0 0300 sub def %table A/Bij /xposj20 500 def /xposj21 3300 def %sum /yposj2 yposj0 0600 sub def %lamda1,m,2 & illuminant & sum /xposj3 2400 def /xposj31 2700 def %x,y /yposj3 yposj0 0900 sub def %sum lms(lamda1,m,2) or (x) /xposj4 3900 def /yposj4 yposj0 0900 sub def %(lms max=1) /xposj5 3700 def /yposj5 1900 def %lms(max)=1 /W0 570 def %default lambda /W1 545 def /W2 445 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamda0ss {inx4 xchart4 get ib4 (,s) ib4} def /lamdakss {lamda0ss lamdak} def /lamda0ns {inx4 xchart4 get ib4 (,n) ib4} def /lamdakns {lamda0ns lamdak} def /lamdakmax {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdakall {TBK (\050) show SK (l) show (1,m,2) is4 TBK (\051) show} bind def /lamda01smax {lamda01s lamdakmax} def /lamda0ssmax {lamda0ss lamdakmax} def /lamda0nsmax {lamda0ns lamdakmax} def /lamda01sall {lamda01s lamdakall} def /lamda0ssall {lamda0ss lamdakall} def /lamda0nsall {lamda0ns lamdakall} def 100 yposjT moveto /TBK1 {230 /TimesB-ISOL1 FS} bind def lanind 0 eq {TBK1} {TBK} ifelse (HPE_CIE) show inx4 xchart4 get show xchartl 00 ge xchartl 07 le and {(\255Zapfenempfindlichkeit) showde (\255cone sensitivity) showen } if xchartl 00 ge xchartl 02 le and {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 03 ge xchartl 05 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if xchartl 06 eq {TBIK ( l) show -100 120 rmoveto (-) show 0 -120 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 07 eq {TBIK ( m) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if %maximum lAsj, mASj, sASj /lASjm 0 def /mASjm 0 def /sASjm 0 def /lASj_lamda 380 def /mASj_lamda 380 def /sASj_lamda 380 def 0 1 76 {/i exch def %i=0,76 lASj i get lASjm ge {/lASjm lASj i get def /lASjm_lamda 380 i 5 mul add def} if mASj i get mASjm ge {/mASjm mASj i get def /mASjm_lamda 380 i 5 mul add def} if sASj i get sASjm ge {/sASjm sASj i get def /sASjm_lamda 380 i 5 mul add def} if } for %i=0,76 %normalized to max 0 1 76 {/i exch def %i=0,76 lANj i lASj i get lASjm div put mANj i mASj i get mASjm div put sANj i sASj i get sASjm div put } for %i=0,76 /lASj1 0 def /mASj1 0 def /sASj1 0 def /lASj1_lamda 380 def /mASj1_lamda 380 def /sASj1_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 lt lANj i 1 add get 0.5 ge and {/lASj10 lASj i get def /lASj10_lamda 380 i 5 mul add def /lASj11 lASj i 1 add get def /lASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj10 sub lASj11 lASj10 sub 0.01 add div def /lASj1 lASj10 lASj11 lASj10 sub fact mul add def /lASj1_lamda lASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 lt mANj i 1 add get 0.5 ge and {/mASj10 mASj i get def /mASj10_lamda 380 i 5 mul add def /mASj11 mASj i 1 add get def /mASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj10 sub mASj11 mASj10 sub 0.01 add div def /mASj1 mASj10 mASj11 mASj10 sub fact mul add def /mASj1_lamda mASj10_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 lt sANj i 1 add get 0.5 ge and {/sASj10 sASj i get def /sASj10_lamda 380 i 5 mul add def /sASj11 sASj i 1 add get def /sASj11_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj10 sub sASj11 sASj10 sub 0.01 add div def /sASj1 sASj10 sASj11 sASj10 sub fact mul add def /sASj1_lamda sASj10_lamda 5 fact mul add def } if } for %i=0,75 /lASj2 0 def /mASj2 0 def /sASj2 0 def /lASj2_lamda 380 def /mASj2_lamda 380 def /sASj2_lamda 380 def 0 1 75 {/i exch def %i=0,75 lANj i get 0.5 gt lANj i 1 add get 0.5 le and {/lASj20 lASj i get def /lASj20_lamda 380 i 5 mul add def /lASj21 lASj i 1 add get def /lASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 lASjm mul lASj20 sub lASj21 lASj20 sub 0.01 add div def /lASj2 lASj20 lASj21 lASj20 sub fact mul add def /lASj2_lamda lASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 mANj i get 0.5 gt mANj i 1 add get 0.5 le and {/mASj20 mASj i get def /mASj20_lamda 380 i 5 mul add def /mASj21 mASj i 1 add get def /mASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 mASjm mul mASj20 sub mASj21 mASj20 sub 0.01 add div def /mASj2 mASj20 mASj21 mASj20 sub fact mul add def /mASj2_lamda mASj20_lamda 5 fact mul add def } if } for %i=0,75 0 1 75 {/i exch def %i=0,75 sANj i get 0.5 gt sANj i 1 add get 0.5 le and {/sASj20 sASj i get def /sASj20_lamda 380 i 5 mul add def /sASj21 sASj i 1 add get def /sASj21_lamda 380 i 1 add 5 mul add def /fact 0.5 sASjm mul sASj20 sub sASj21 sASj20 sub 0.01 add div def /sASj2 sASj20 sASj21 sASj20 sub fact mul add def /sASj2_lamda sASj20_lamda 5 fact mul add def } if } for %i=0,75 100 yposjP moveto TBIK xchartl 0 eq {(l) show} if xchartl 1 eq {(m) show} if xchartl 2 eq {(s) show} if xchartl 3 eq {(l) show} if xchartl 4 eq {(m) show} if xchartl 5 eq {(s) show} if xchartl 6 eq {(l) show} if xchartl 7 eq {(m) show} if xchartl 0 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 2 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 3 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 5 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 6 eq {-100 120 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 05 le and {lamdakss} if xchartl 06 eq xchartl 07 eq or {lamdakns} if xchartl 00 ge xchartl 02 le and {/lamdakas {lamdak1s} def} if xchartl 03 ge xchartl 05 le and {/lamdakas {lamdakss} def} if xchartl 06 eq xchartl 07 eq or {/lamdakas {lamdakns} def} if xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {%xchartl=00,03,06 TBK (=) show xchartl 06 eq xchartl 14 eq or {([) show } if TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 06 eq {(]/) show lASjm cvsshow2x} if } if %xchartl=00,03,06 xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {%xchartl=01,04,07 TBK (=) show xchartl 07 eq {([) show } if TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas xchartl 07 eq {(]/) show mASjm cvsshow2x} if } if %xchartl=01,04,07 xchartl 02 eq xchartl 05 eq or {%xchartl=02,05 TBK (=) show TBK (B) show (31) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdakas } if %xchartl=02,05 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 00 eq xchartl 03 eq or xchartl 06 eq or {xpos 0 get yposj1 moveto (B) show (1j) is4 xpos 1 get yposj1 moveto B11 cvsshow4x xpos 2 get yposj1 moveto B12 cvsshow4x xpos 3 get yposj1 moveto B13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show } if xchartl 01 eq xchartl 04 eq or xchartl 07 eq or {xpos 0 get yposj1 moveto (B) show (2j) is4 xpos 1 get yposj1 moveto B21 cvsshow4x xpos 2 get yposj1 moveto B22 cvsshow4x xpos 3 get yposj1 moveto B23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show } if xchartl 02 eq xchartl 05 eq or {xpos 0 get yposj1 moveto (B) show (3j) is4 xpos 1 get yposj1 moveto B31 cvsshow4x xpos 2 get yposj1 moveto B32 cvsshow4x xpos 3 get yposj1 moveto B33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show } if 0 1 76 {/i exch def %i=0,76 xchartl 0 eq {ycuri i lA1j i get 1 mul put} if xchartl 1 eq {ycuri i mA1j i get 1 mul put} if xchartl 2 eq {ycuri i sA1j i get 1 mul put} if xchartl 3 eq {ycuri i lASj i get 0.2 mul put} if xchartl 4 eq {ycuri i mASj i get 0.2 mul put} if xchartl 5 eq {ycuri i sASj i get 0.2 mul put} if xchartl 06 eq {ycuri i lASj i get lASjm div put} if xchartl 07 eq {ycuri i mASj i get mASjm div put} if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units xchartl 00 ge xchartl 07 le and {%0<=xchartl<=7, 14,15 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm xchartl 13 le {/iy01 iy0 def} {/iy01 iy0 1200 add def} ifelse /y10 iy01 def /y11 iy01 ycuri i get 1200 mul add def /y21 iy01 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 } if %0<=xchartl<=7 [] 0 setdash 0 setgray 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 0 eq {SK (S) show TBIK (l) show} if xchartl 1 eq {SK (S) show TBIK (m) show} if xchartl 2 eq {SK (S) show TBIK (s) show} if xchartl 3 eq {SK (S) show TBIK (l) show} if xchartl 4 eq {SK (S) show TBIK (m) show} if xchartl 5 eq {SK (S) show TBIK (s) show} if xchartl 6 eq {SK (S) show TBIK (l) show} if xchartl 7 eq {SK (S) show TBIK (m) show} if xchartl 0 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 1 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 2 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 3 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 4 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 5 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 6 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 00 ge xchartl 02 le and {lamdak1s} if xchartl 03 ge xchartl 07 le and {lamdakss} if xchartl 00 ge xchartl 07 le and {TK (=) show} if TK xchartl 0 eq {fslA1 cvsshow2x} if xchartl 1 eq {fsmA1 cvsshow2x} if xchartl 2 eq {fssA1 cvsshow2x} if xchartl 3 eq {fslAS cvsshow2x} if xchartl 4 eq {fsmAS cvsshow2x} if xchartl 5 eq {fssAS cvsshow2x} if xchartl 6 eq {fslAS cvsshow2x} if xchartl 7 eq {fsmAS cvsshow2x} if /lamdakm {TBK (\050) show SK (l) show (m) is4 TBK (\051) show} bind def /lamdak1nm {lamda0ns lamdakm} def xchartl 03 eq xchartl 06 eq or {/iymax lASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamda0ssall TK (=) show lASj1 cvsshow2x TK (, ) show lASjm cvsshow2x TK (, ) show lASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show lASj1_lamda cvishow (, ) show lASjm_lamda cvishow (, ) show lASj2_lamda cvishow } if xchartl 04 eq xchartl 07 eq or {/iymax mASjm 0.2 mul 1200 mul def xchartl 4 le {ix0 iy0 iymax add moveto 4000 0 rlineto stroke} if xposj3 yposj3 moveto TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show mASj1 cvsshow2x TK (, ) show mASjm cvsshow2x TK (, ) show mASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show mASj1_lamda cvishow (, ) show mASjm_lamda cvishow (, ) show mASj2_lamda cvishow } if xchartl 5 eq {/iymax sASjm 0.2 mul 1200 mul def ix0 iy0 iymax add moveto 0900 0 rlineto stroke xposj3 yposj3 moveto TBIK (s) show -100 100 rmoveto (-) show 0 -100 rmoveto lamda0ssall TK (=) show sASj1 cvsshow2x TK (, ) show sASjm cvsshow2x TK (, ) show sASj2 cvsshow2x xposj20 yposj2 moveto SK (l) show (1,m,2) is4 (=) show sASj1_lamda cvishow (, ) show sASjm_lamda cvishow (, ) show sASj2_lamda cvishow } if xchartl 00 ge xchartl 02 le and {%00<=xchartl<=02, 03<=xchartl<=07 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%00<=xchartl<=02 {%03<=xchartl<=07 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %00<=xchartl<=02, 03<=xchartl<=07 xchartl 00 ge xchartl 02 le and {%0<=xchartl<=2 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } if %0<=xchartl<=2 } bind def %END proc_LMS1_02, xchartl=0,7 %***************************************************************** /proc_XYZI_02 {%BEG proc_XYZI_02, xchartl=8,15 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 13 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (CIE) show inx4 xchart4 get show xchartl 08 ge xchartl 15 le and { (\255Normspektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {TBIK ( y) show -120 100 rmoveto (-) show 0 -100 rmoveto (max) ib4 lamdak TBK (=1) show } if xchartl 11 ge xchartl 13 le and {TBIK ( Y) show (sum) ib4 TBK (=100) show } if 100 yposjP moveto TBIK xchartl 8 eq {(x) show} if xchartl 9 eq {(y) show} if xchartl 10 eq {(z) show} if xchartl 11 eq {(x) show} if xchartl 12 eq {(y) show} if xchartl 13 eq {(z) show} if xchartl 14 eq {(y) show} if xchartl 15 eq {(y) show} if xchartl 8 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 9 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 10 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 11 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 12 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 13 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 14 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 15 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 08 eq xchartl 11 eq or {%xchartl=8 or 11 TBK (=) show TBK (A) show (11) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (12) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=8 or 11 xchartl 09 eq xchartl 12 eq or xchartl 14 eq or xchartl 15 eq or {%xchartl=9,12,14,15 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12,14,15 xchartl 10 eq xchartl 13 eq or {%xchartl=10 or 13 TBK (=) show TBK (A) show (31) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s TBK (+) show TBK (A) show (32) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (A) show (33) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10 or 13 TK /xpos [1350 1850 2750 3650 4550 5200] def xchartl 08 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 09 eq xchartl 14 eq or xchartl 15 eq or {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj1 moveto (A) show (1j) is4 xpos 1 get yposj1 moveto A11 cvsshow4x xpos 2 get yposj1 moveto A12 cvsshow4x xpos 3 get yposj1 moveto A13 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj1 moveto (A) show (2j) is4 xpos 1 get yposj1 moveto A21 cvsshow4x xpos 2 get yposj1 moveto A22 cvsshow4x xpos 3 get yposj1 moveto A23 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj1 moveto (A) show (3j) is4 xpos 1 get yposj1 moveto A31 cvsshow4x xpos 2 get yposj1 moveto A32 cvsshow4x xpos 3 get yposj1 moveto A33 cvsshow4x xpos 4 get yposj1 moveto (\050) show SK (l) show TK (\176) show W2 cvishow (\051) show} if 0 1 76 {/i exch def %i=0,76 xchartl 08 eq {ycuri i XA1j i get 1 mul put} if xchartl 09 eq {ycuri i YA1j i get 1 mul put} if xchartl 10 eq {ycuri i ZA1j i get 1 mul put} if xchartl 11 eq {ycuri i XASj i get 0.2 mul put} if xchartl 12 eq {ycuri i YASj i get 0.2 mul put} if xchartl 13 eq {ycuri i ZASj i get 0.2 mul put} if xchartl 14 eq {ycuri i YA1j i get 1 mul put} if xchartl 15 eq {ycuri i YA1j i get 1 mul put} if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 0 1 66 {/i exch def %i=0,66 %ab 380nm bis 710nm, (710-380)/5=0_66, delta=5nm /y10 iy0 def /y11 iy0 ycuri i get 1200 mul add def /y21 iy0 ycuri i 1 add get 1200 mul add def /x10 ix0 i xdlamda mul add def %ab 380nm /k {ifa i get exec} def %max 67 Farben 0..66 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 %only for 8<=xchartl<=15 0 setgray xposj21 550 sub yposj2 moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj21 yposj2 moveto xchartl 8 eq {SK (S) show TIK (x) show} if xchartl 9 eq {SK (S) show TIK (y) show} if xchartl 10 eq {SK (S) show TIK (z) show} if xchartl 11 eq {SK (S) show TIK (x) show} if xchartl 12 eq {SK (S) show TIK (y) show} if xchartl 13 eq {SK (S) show TIK (z) show} if xchartl 14 eq {SK (S) show TIK (y) show} if xchartl 15 eq {SK (S) show TIK (y) show} if xchartl 8 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 9 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 10 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 11 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 12 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 13 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 14 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 15 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s xchartl 08 ge xchartl 15 le and {TK (=) show} if TK xchartl 8 eq {fsXA1 cvsshow2x} if xchartl 9 eq {fsYA1 cvsshow2x} if xchartl 10 eq {fsZA1 cvsshow2x} if xchartl 11 eq {fsXAS cvsshow2x} if xchartl 12 eq {fsYAS cvsshow2x} if xchartl 13 eq {fsZAS cvsshow2x} if xchartl 14 eq {fsYA1 cvsshow2x} if xchartl 15 eq {fsYA1 cvsshow2x} if xchartl 08 ge xchartl 10 le and xchartl 14 eq or xchartl 15 eq or {%08<=xchartl<=10, 14,15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def } if %08<=xchartl<=10, 14,15 xchartl 11 ge xchartl 13 le and {%11<=xchartl<=13 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } if %11<=xchartl<13 %xchartl 15 ne {%xchartl#15 xposj3 yposj3 moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj4 yposj4 moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x % } if %xchartl#15 } bind def %END proc_XYZI_02, xchartl=8,15 %********************************************************************* /proc_LMS1_14 {%BEG proc_LMS1_14 xchartl=14 only plot of a*l(lamda)+b*m(lamda) /Yiy 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves 0 1 2 {/icurv exch def %icurv=0,2 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiy i lA1j i get 0.6899 mul put} if icurv 1 eq {Yiy i mA1j i get 0.3483 mul put} if icurv 2 eq {Yiy i lA1j i get 0.6899 mul mA1j i get 0.3483 mul add put} if } for %i=0,76 %three curves %570 = 380 + i*5, i=(570-380)/5=38 /ila 38 def %capital Y! /mA1a mA1j ila get 0.6899 mul def /lA1a lA1j ila get 0.3483 mul def /yA1a mA1a lA1a add def /YA1a YA1j ila get def %0050 0250 moveto TV (lmyY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %yA1a cvsshow4x (, ) show %YA1a cvsshow4x /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiy 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiy i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,2 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def 0600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 0600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 0600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } bind def %END proc_LMS1_14, xchartl=14 %************************************************************** /proc_LMS1_15 {%BEG proc_LMS1_15 xchartl=15 only plot of a*l(lamda)+b*m(lamda) /Yiz 88 array def /MULXS 0060 def /MULYS 1200 1.0 mul def %0 1200 neg translate %three curves %570 = 380 + i*5, i=(570-380)/5=38 %lA1_38=1,0000=lA1j 38 get %mA1_38=0,8135=MA1j 38 get %yA1_38=0,8964=yA1j 38 get /ila 38 def %capital Y! /lA1a lA1j ila get def /mA1a mA1j ila get def /YA1a YA1j ila get def /iy0X iy0 def /ix0X ix0 570 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (L) show /ix0X ix0 555 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (V) show /ix0X ix0 540 380 sub 5 div MULXS mul add def ix0X iy0X moveto 0 -50 rlineto stroke ix0X 50 sub iy0X 250 sub moveto TBS (M) show %five curves 0 1 4 {/icurv exch def %icurv=0,4 0 1 76 {/i exch def %i=0,76 icurv 0 eq {Yiz i lA1j i get YA1a lA1a div mul put} if icurv 1 eq {Yiz i mA1j i get YA1a mA1a div mul put} if icurv 2 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul add 0.5 mul put} if icurv 3 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub put} if icurv 4 eq {Yiz i lA1j i get YA1a lA1a div mul mA1j i get YA1a mA1a div mul sub neg put} if } for %i=0,76 %0050 0250 moveto TV (lmY, ) show %lA1a cvsshow4x (, ) show %mA1a cvsshow4x (, ) show %YA1a cvsshow4x 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash icurv 0 eq {tf570} if icurv 1 eq {tf557} if icurv 2 eq {tf557} if icurv 3 eq {tf620} if icurv 4 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /i1 01 def /i2 74 def /xst ix0 0 MULXS mul add def /yst iy0 Yiz 0 get MULYS mul add def xst yst moveto i1 1 i2 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yiz i get MULYS mul add def xst yst lineto i i2 eq {stroke} if } for %i=i1,i2 } for %n=0,1 } for %icurv=0,4 [] 0 setdash 0 setgray /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def /lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def /lamdaka {TBK (\050) show SK (l) show (a) ib4 TBK (\051) show} bind def /lamdak1sa {lamda01s lamdaka} def 600 2600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (0) is4 TBK (=) show (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 2300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 TBK (=) show TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1s 600 2000 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 TBK (=) show TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 600 1600 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (3) is4 TBK (=a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 (-b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 600 1300 moveto TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (4) is4 TBK (=b) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (1) is4 (-a) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto (2) is4 2600 2300 moveto TBK (a=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (m) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa 2600 2000 moveto TBK (b=) show TBIK (y) show TBK -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1sa (/) show TBIK (l) show TBK -100 140 rmoveto (-) show 0 -140 rmoveto lamdak1sa 4000 1600 moveto TK (Adaptation:) show 4000 1300 moveto SK (l) show (a) is4 TK (=570nm) show } bind def %END proc_LMS1_15, xchartl=15 %************************************************************** /proc_LMSM14_15 {%BEG proc_LMSM_14_15, xchartl=14,15 %BEG NEW FROM BL65 211218 06,07->14,15 /MULXS 0060 def /MULYS 1200 1.0 mul def 0 1200 neg translate /CY 0.35 def /CX 50 def /W1 620 def /W0 520 def /WM 570 def /tsa 0.00 def 40 setlinewidth /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put /YEXP Xi i get W0 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi0 i EYEXP put /YEXP Xi i get W1 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi1 i EYEXP put /YEXP Xi i get WM sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put } for %i=0,1,76 /Yix 88 array def xchartl 14 ge xchartl 15 le and {/MULYS 1200 0.5 mul def 0 1200 translate} if 40 setlinewidth 0 1 2 {/jc exch def %jc=0,2 0 1 76 {/i exch def %i=0,76 Yix i jc 0 eq {Yi0 i get 2 mul} if jc 1 eq {Yi1 i get 2 mul} if jc 2 eq {Yi2 i get 2 mul} if put } for %i=0,76 0 1 1 {/n exch def %n=0,1 [ ] 0 setdash jc 0 eq {tf620} if jc 1 eq {tf570} if jc 2 eq {tf520} if n 1 eq {tfn [100 100] 0 setdash} if /xst ix0 0 MULXS mul add def /yst iy0 Yix 0 get MULYS mul add def xst yst moveto 1 3 71 {/i exch def %i=0,75 ab 380nm bis 710nm /xst ix0 i MULXS mul add def /yst iy0 Yix i get MULYS mul add def /x20 ix0 i 1 add MULXS mul add def /y20 iy0 Yix i 1 add get MULYS mul add def /x21 ix0 i 2 add MULXS mul add def /y21 iy0 Yix i 2 add get MULYS mul add def /x22 ix0 i 3 add MULXS mul add def /y22 iy0 Yix i 3 add get MULYS mul add def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } for %n=0,1 } for %j=0,2 0 1200 translate } bind def %END proc_LMSM_14_15, xchartl=14,15 %************************************************************** xchartl 00 ge xchartl 07 le and {proc_LMS1_02} if %09 repeat in 14 and 15 xchartl 08 ge xchartl 15 le and {proc_XYZI_02} if %14 and 15 with functions of LMS1 xchartl 14 eq {proc_LMS1_14} if xchartl 15 eq {proc_LMS1_15} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % 'DNV5'YLOOPEND5.EPS % space essential for files Y*A.EPS xchartl2 4 eq { 100 neg 4500 neg translate} if xchartl2 5 eq {5700 neg 4500 neg translate} if xchartl2 6 eq { 100 neg 0250 neg translate} if xchartl2 7 eq {5700 neg 0250 neg translate} if %} if %iout=1 grestore } for %xchartl=0,15 showpage grestore } for %xchartx=4,4 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 DEV51-8N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (DEV51-8N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if xchart xchart3 ge {%xchart>=xchart3 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=xchart3 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/DEV5/DEV5) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/DEV5/DEV5) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/DEV5/DEV5.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def %special /12TIN- {12TIN -4 4 rmoveto (-) show 0 -4 rmoveto} def /12SYM {12 /Symbol FS} def /TELi 8 array def /ilDtxt 8 array def %xcolor=0 /ilPtxt 8 array def %xcolor=1 /ilDtxt [(D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00)] def /ilPtxt [(P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25)] def 0 1 7 {/i exch def %i=0,7 xcolor 0 eq {TELi i ilDtxt i get put} if xcolor 1 eq {TELi i ilPtxt i get put} if } for %i=0,7 /xchart41 1 def %0:XYZ 1:LMS 0 setgray 12TIN 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage DEV5; ) showde %0DEV5X-Y 0000# (TUB\255test chart DEV5; ) showen %1DEV5X-Y 0000# (gr\341fico TUB\255DEV5; ) showes %2DEV5X-Y 0000# (TUB\255test graphique DEV5; ) showfr %3DEV5X-Y 0000# (grafico TUB\255DEV5; ) showit %4DEV5X-Y 0000# (TUB\255test chart DEV5; ) showjp %5DEV5X-Y 0000# /colorde 12 array def /colorea 12 array def /colorde [ %BL40-59 %BL40-43 xchart4=0,1 (HPE\255CIE_02\255Grad\255Farbmetrik) (HPE\255CIE_10\255Grad\255Farbmetrik) %BL44-47 xchart4=2,3 (XYZ\255CIEF_02\255Grad\255Farbmetrik) (XYZ\255CIEF_10\255Grad\255Farbmetrik) %BL48-51 xchart4=4,5 (LMS\255CIEF_02\255Grad\255Farbmetrik) (LMS\255CIEF_10\255Grad\255Farbmetrik) %BL52-55 xchart4=6,7 (LMS\255R17M1\255Farbmetrik) (LMS\255R17M2\255Farbmetrik) %BL56-59 xchart4=8,9 (LMS\255R17M3\255Farbmetrik) (LMS\255R17M4\255Farbmetrik) %BL60-63 xchart4=10,11 (LMS\255R17M5\255Farbmetrik) (LMS\255R17M6\255Farbmetrik) ] def /colorea [%BL40-59 %BL40-43 xchart4=0,1 (HPE\255CIE_02\255degree colorimetry) (HPE\255CIE_10\255degree colorimetry) %BL44-47 xchart4=2,3 (XYZ\255CIEF_02\255degree colorimetry) (XYZ\255CIEF_10\255degree colorimetry) %BL48-51 xchart4=4,5 (LMS\255CIEF_02\255degree colorimetry) (LMS\255CIEF_10\255degree colorimetry) %BL52-55 xchart4=6,7 (LMS\255R17M1 colorimetry) (LMS\255R17M2 colorimetry) %BL56-59 xchart4=8,9 (LMS\255R17M3 colorimetry) (LMS\255R17M4 colorimetry) %BL60-63 xchart4=10,11 (LMS\255R17M5 colorimetry) (LMS\255R17M6 colorimetry) ] def colorde xchart4 get showde colorea xchart4 get showea (, Lichtarten D65, D50, A00 und E000 ) showde (, illuminants D65, D50, A00, and E00) showea 61 MM 09.5 MM moveto 12TIN (Zapfen\255Emfindlichkeit, Transformation) showde %0DEV5X-Y 0200# (Cone sensivity, transformation) showea %ADEV5X-Y 0200# ( & Spektralwerte) showde %0DEV5X-Y 0200# ( and spectral tristimulus values) showea %ADEV5X-Y 0200# (, lineare Daten ) showde (, linear data ) showea xchart41 0 eq {12TII (Y) show 10TIN 0 -2 rmoveto (02,1) show 0 2 rmoveto 12TII (, X) show 10TIN 0 -2 rmoveto (02,s) show 0 2 rmoveto 12TII (, Y) show 10TIN 0 -2 rmoveto (02,s) show 0 2 rmoveto 12TII (, Z) show 10TIN 0 -2 rmoveto (02,s) show 0 2 rmoveto } if xchart41 1 eq {12TII (Y) show 10TIN 0 -2 rmoveto (02,1) show 0 2 rmoveto 12TII (, L) show 10TIN 0 -2 rmoveto (P,02,s) show 0 2 rmoveto 12TII (, M) show 10TIN 0 -2 rmoveto (D,02,s) show 0 2 rmoveto 12TII (, S) show 10TIN 0 -2 rmoveto (T,02,s) show 0 2 rmoveto 12TII } if %xchart xchart3 ge {%xchart>=xchart3 %12TIN %(, 3D=) show colorm cvishow %(, de=) show deintp cvishow %12TII %xchart5f 0 eq {(, sRGB) show} if %xchart5f 1 eq {(, cmyk) show} if %xchart5f 2 eq {(, cmy0) show} if %xchart5f 3 eq {(, cmyk) show} if %colorm 1 eq {(*) show} if %} if %xchart>=xchart3 %12TIN %175 MM 13.5 MM moveto %(Eingabe: ) showde %0DEV5X-Y 0500# %(input: ) showen %1DEV5X-Y 0500# %(entrada: ) showes %2DEV5X-Y 0500# %(entr\351e: ) showfr %3DEV5X-Y 0500# %(immettere: ) showit %4DEV5X-Y 0500# %(input: ) showjp %5DEV5X-Y 0500# %12TII %(w/rgb/cmyk -> ) show %xchart xchart3 lt {(rgb) show % } if %xchart xchart3 ge {%xchart>=xchart3 % (rgb) show % } if %xchart>=xchart3 %10 /Times-ISOL1 FS %0 -2 rmoveto Txx show 0 2 rmoveto 12TIN /iouta 0 def iouta 1 eq {%iouta=1 12TIN 165 MM 9 MM moveto (Ausgabe: ) showde %0DEV5X-Y 0600# (output: ) showen %1DEV5X-Y 0600# (salida: ) showes %2DEV5X-Y 0600# (sortie: ) showfr %3DEV5X-Y 0600# (uscita: ) showit %4DEV5X-Y 0600# (output: ) showjp %5DEV5X-Y 0600# %colorm=0,1! 12TIN xchart xchart3 lt {%xchart=xchart3 12TIN (keine \304nderung) showde %0DEV5X-Y 0700# (no change) showen %1DEV5X-Y 0700# (ning\372n cambio) showes %2DEV5X-Y 0700# (aucun changement) showfr %3DEV5X-Y 0700# (nessun cambiamento) showit %4DEV5X-Y 0700# (no change compared) showjp %5DEV5X-Y 0700# }%xchart=xchart3 12TIN colorm 0 eq {%colorm=0 (Transfer nach ) showde %0DEV5X-Y 0800# (transfer to ) showen %1DEV5X-Y 0800# (transfiera a ) showes %2DEV5X-Y 0800# (transf\351rer \340 ) showfr %3DEV5X-Y 0800# (trasferire a ) showit %4DEV5X-Y 0800# (transfer to ) showjp %5DEV5X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0DEV5X-Y 0900# (3D\255linearization to ) showen %1DEV5X-Y 0900# (3D\255linealizaci\363n a ) showes %2DEV5X-Y 0900# (linearisation 3D selon ) showfr %3DEV5X-Y 0900# (3D\255linearizzazione a ) showit %4DEV5X-Y 0900# (3D\255linearization to ) showjp %5DEV5X-Y 0900# } ifelse %colorm=1 12TII xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } ifelse %xchart=xchart3 } if %iouta=1 %0 setgray %end white and unvisible 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/DEV5/DEV5L) show 12TIN (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart xchart3 lt { (Start\255Ausgabe) showde %0DEV5X-Y 1000# (start output) showen %1DEV5X-Y 1000# (comience salida) showes %2DEV5X-Y 1000# (sortie de production) showfr %3DEV5X-Y 1000# (cominciare l'uscita) showit %4DEV5X-Y 1000# (start output) showjp %5DEV5X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0DEV5X-Y 1100# (start output) showen %1DEV5X-Y 1100# (comience salida) showes %2DEV5X-Y 1100# (sortie de production) showfr %3DEV5X-Y 1100# (cominciare l'uscita) showit %4DEV5X-Y 1100# (start output) showjp %5DEV5X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0DEV5X-Y 1200# (transfer output) showen %1DEV5X-Y 1200# (salida de transferencia) showes %2DEV5X-Y 1200# (sortie de transfert) showfr %3DEV5X-Y 1200# (uscita di trasferimento) showit %4DEV5X-Y 1200# (transfer output) showjp %5DEV5X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0DEV5X-Y 1300# (3D\255linearization) showen %1DEV5X-Y 1300# (3D\255linealizaci\363n) showes %2DEV5X-Y 1300# (linearisation 3D) showfr %3DEV5X-Y 1300# (3D\255linearizzzazione) showit %4DEV5X-Y 1300# (3D\255linearization) showjp %5DEV5X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=xchart3 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0DEV5X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1DEV5X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2DEV5X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3DEV5X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4DEV5X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5DEV5X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0DEV5X-Y 1500# (in file (F) or PS\255startup (S)) showen %1DEV5X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2DEV5X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3DEV5X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4DEV5X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5DEV5X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0DEV5X-Y 1600# (3D\255linearization) showen %1DEV5X-Y 1600# (3D\255linealizaci\363n) showes %2DEV5X-Y 1600# (linearisation 3D) showfr %3DEV5X-Y 1600# (3D\255linearizzzazione) showit %4DEV5X-Y 1600# (3D\255linearization) showjp %5DEV5X-Y 1600# ( DEV5/DEV5L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0DEV5X-Y 1700# ( in file (F)) showen %1DEV5X-Y 1700# ( en archivo (F)) showes %2DEV5X-Y 1700# ( dans fichier (F)) showfr %3DEV5X-Y 1700# ( nel file (F)) showit %4DEV5X-Y 1700# ( in file (F)) showjp %5DEV5X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0DEV5X-Y 1800# ( in Distiller Startup (S) Directory) showen %1DEV5X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2DEV5X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3DEV5X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4DEV5X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5DEV5X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0DEV5X-Y 1900# ( in PS\255device (D)) showen %1DEV5X-Y 1900# ( en el PS\255device (D)) showes %2DEV5X-Y 1900# ( dans l'appareil PS (D)) showfr %3DEV5X-Y 1900# ( nel PS\255dispositivo (D)) showit %4DEV5X-Y 1900# ( in PS\255Device (D)) showjp %5DEV5X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0DEV5X-Y 2000# ( in Distiller Startup (S) Directory) showen %1DEV5X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2DEV5X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3DEV5X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4DEV5X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5DEV5X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0DEV5X-Y 2100# ( in PS\255device (D)) showen %1DEV5X-Y 2100# ( en el PS\255device (D)) showes %2DEV5X-Y 2100# ( dans appareil PS (D)) showfr %3DEV5X-Y 2100# ( nel PS\255dispositivo (D)) showit %4DEV5X-Y 2100# ( in PS\255Device (D)) showjp %5DEV5X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0DEV5X-Y 2200# (, page ) showen %1DEV5X-Y 2200# (, p\341gina ) showes %2DEV5X-Y 2200# (, page ) showfr %3DEV5X-Y 2200# (, pagina ) showit %4DEV5X-Y 2200# (, page ) showjp %5DEV5X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0DEV5X-Y 2300# (see similar files: ) showen %1DEV5X-Y 2300# (vea archivos semejantes: ) showes %2DEV5X-Y 2300# (voir des fichiers similaires: ) showfr %3DEV5X-Y 2300# (vedere dei file simili: ) showit %4DEV5X-Y 2300# (see similar files: ) showjp %5DEV5X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/DEV5/DEV5.HTM) show 12TIN %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0DEV5X-Y 2400# (technical information: ) showen %1DEV5X-Y 2400# (informaci\363n t\351cnica: ) showes %2DEV5X-Y 2400# (informations techniques: ) showfr %3DEV5X-Y 2400# (informazioni tecniche: ) showit %4DEV5X-Y 2400# (technical information: ) showjp %5DEV5X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0DEV5X-Y 2500# ( or ) showen %1DEV5X-Y 2500# ( o ) showes %2DEV5X-Y 2500# ( ou ) showfr %3DEV5X-Y 2500# ( o ) showit %4DEV5X-Y 2500# ( or ) showjp %5DEV5X-Y 2500# 12TRN (http://color.li.tu-berlin.de) show 12TIN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20220101\255DEV5/DEV5L) showde %0DEV5X-Y 2600# (TUB registration: 20220101\255DEV5/DEV5L) showen %1DEV5X-Y 2600# (TUB matr\355cula: 20220101\255DEV5/DEV5L) showes %2DEV5X-Y 2600# (TUB enregistrement: 20220101\255DEV5/DEV5L) showfr %3DEV5X-Y 2600# (TUB iscrizione: 20220101\255DEV5/DEV5L) showit %4DEV5X-Y 2600# (TUB registration: 20220101\255DEV5/DEV5L) showjp %5DEV5X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0DEV5X-Y 2700# (TUB material: code=rha4ta) showen %1DEV5X-Y 2700# (TUB material: code=rha4ta) showes %2DEV5X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3DEV5X-Y 2700# (TUB materiale: code=rha4ta) showit %4DEV5X-Y 2700# (TUB material: code=rha4ta) showjp %5DEV5X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung ) showde %0DEV5X-Y 2800# ( application for measurement ) showen %1DEV5X-Y 2800# ( aplicaci\363n para la medida ) showes %2DEV5X-Y 2800# ( application pour la mesure ) showfr %3DEV5X-Y 2800# ( la domanda per la misura ) showit %4DEV5X-Y 2800# ( application for measurement ) showjp %5DEV5X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0DEV5X-Y 2900# (of display output) showen %1DEV5X-Y 2900# (de display output) showes %2DEV5X-Y 2900# (de sortie sur \350cran) showfr %3DEV5X-Y 2900# (di stampa di display) showit %4DEV5X-Y 2900# (of display output) showjp %5DEV5X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0DEV5X-Y 3000# (of offset print output) showen %1DEV5X-Y 3000# (salida en la impressi\363n offset) showes %2DEV5X-Y 3000# (des sorties sur offset) showfr %3DEV5X-Y 3000# (uscita nella stampa di offset) showit %4DEV5X-Y 3000# (of offset print output) showjp %5DEV5X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0DEV5X-Y 3100# (of laser printer output) showen %1DEV5X-Y 3100# (salida de impresora l\341ser) showes %2DEV5X-Y 3100# (des sorties sur imprimante laser) showfr %3DEV5X-Y 3100# (di uscita della stampante laser) showit %4DEV5X-Y 3100# (of laser printer output) showjp %5DEV5X-Y 3100# } if %xchart5f=3 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0DEV5X-Y 3200# (, no separation) showen %1DEV5X-Y 3200# (, ninguna separaci\363n) showes %2DEV5X-Y 3200# (, aucune s\351paration) showfr %3DEV5X-Y 3200# (, nessuna separazione) showit %4DEV5X-Y 3200# (, no separation) showjp %5DEV5X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0DEV5X-Y 3300# (, separation) showen %1DEV5X-Y 3300# (, separaci\363n) showes %2DEV5X-Y 3300# (, s\351paration) showfr %3DEV5X-Y 3300# (, separazione) showit %4DEV5X-Y 3300# (, separation) showjp %5DEV5X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=xchart3 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 } for %xchartf=0,7 %line near 249 } for %xcolorf=0,1 %line near 249 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer