%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 6 20180701 %%BoundingBox: 00 00 414 292 %START PDFDE011.EPS /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: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %END PDFDE011 /sfgray {setgray} bind def %Early Frame File (f) definition %BEG DG00/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END DG00/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG DG00/OUTLIN1X.PS 20110801 %EMPTY %END DG00/OUTLIN1X.PS 20110801 %BEG DG00/OUTLIN1Y2.PS Emty 20101101 %END DG00/OUTLIN1Y2.PS Emty 20101101 /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** /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 00 def /lanind2f 00 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 %2/10 degree observer /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %8 illuminants /xchart3f 00 def /xchart4f 08 def /xchart5f 00 def %3f:0/1=M/O 5f:1/2=M,M&T /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 % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f 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 /xchart5 xchart5f 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 %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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 1N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -60 rmoveto show 0 60 rmoveto} bind def /ebshowG {TBM 0 200 rmoveto show 0 -200 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -40 rmoveto show 0 40 rmoveto} bind def /ebshowM {TBK 0 160 rmoveto show 0 -160 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TS 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowK {TBS 0 130 rmoveto show 0 -130 rmoveto} bind def /sshowK {SK show} 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 /A4quer {598 0 tl 90 rotate} def /setcmyknew {setcmykcolor} def /outSM {sshowM} def /outSK {sshowK} def /outxshowf {setcmykcolor show} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse % 10 mul cvi 0.1 mul 7 string cvs show} def %/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse % 100 mul cvi 0.01 mul 7 string cvs show} def %/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse % 1000 mul cvi 0.001 mul 7 string cvs show} def % R G B C M Y /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf430 {0.30 0.00 0.00 setrgbcolor} bind def %r 0.70 1.00 1.00 %T2" /tf440 {0.50 0.00 0.00 setrgbcolor} bind def %r 0.50 1.00 1.00 %T1" /tf450 {0.50 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %T /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %C /tf490 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.20 0.00 %C /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %G /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %G /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %G /tf520 {0.00 1.00 0.25 setrgbcolor} bind def %j66g 1.00 0.00 0.75 %W /tf525 {0.00 1.00 0.25 setrgbcolor} bind def %j66g 1.00 0.00 0.75 %W /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %D /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %D /tf540 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %D /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %D /tf555 {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 %P /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %J /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %J /tf594 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O' new /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %R' new /tf625 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.50 1.00 %N /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 /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 /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 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 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 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 /Xa {tfn (a) ishowM} def /Xo {(o) ishowM} def /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /MULY1 1200 0.8 mul 1 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /proz_curve_MUY {%BEG proz_curve_MUY 0 3 72 {/i exch def %i=0,75 ab 380nm bis 710nm i 0 eq {%i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def /x20 {Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MUY mul add} bind def /x21 {Xi i 2 add get 550 sub CX div MULX mul} bind def /y21 {IORY Yi i 2 add get MUY mul add} bind def /x22 {Xi i 3 add get 550 sub CX div MULX mul} bind def /y22 {IORY Yi i 3 add get MUY mul add} bind def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } bind def %END proz_curve_MUY %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /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 where {pop %/IMES IMES def } {/IMES 0 def} ifelse /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage gsave 70 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 100 -200 moveto %(DG000-7) show xcolor 0 eq {(R, ) show} {(F, ) show} ifelse xchart 1 add cvishow } if %xbtex0=1 /xchartl 1 def %0 1 07 {/xchartl exch def %xchartl=0,07 20 setlinewidth % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4300 -150 moveto (DG000-1N) show %xchartl 1 add cvishow %(A) show %A /ibil 0 def /ILK 2 def /ILS 0 def /ILT 0 def/ILU 1 def /IKOM 3 def %N curve, not used /ILN 3 def %U&T /JPPM 3 def %three curves ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if 30 setlinewidth [ ] 0 setdash 0.5 setgray %0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0 setgray 150 /Times-ISOL1 FS gsave %start because of clip %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /W0 470 def /W1 570 def /i 28 def /X520 380 i 5 mul add def /func520_470 X520 W0 sub CX div dup mul CY mul neg def /func520_570 X520 W1 sub CX div dup mul CY mul neg def %***************************************************************** xchartl 0 eq {%xchartl=0 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 6 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=0 ToGo-BaBo xchartl 1 eq {%xchartl=1 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 6 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, cero line [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0.5 put %cero line } for /MUY MULY def proz_curve_MUY %elementary colours /Y00 IORY 0.50 MUY mul add def /Y01 IORY 1.00 MUY mul add def 50 setlinewidth 2 1 6 {/jkurv exch def %jkurv=jkurv1,jkurvd,jkurv2 /i 8 jkurv 10 mul add def /XS i 5 mul 280 add def /XXe XS 550 sub CX div MULX mul def jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 XXe Y00 moveto XXe Y01 lineto stroke } for %jkurv=jkurv1,jkurvd,jkurv2 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=1 ToGo-BaBo %***************************************************************** xchartl 2 eq {%xchartl=2 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 9 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for jkurv 0 eq jkurv 2 eq or jkurv 4 eq or jkurv 6 eq or jkurv 8 eq or {%jkurv=0,2,4,6,8 /MUY MULY def proz_curve_MUY } if %jkurv=0,2,4,6,8 } for %jkurv=0,JPPM 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=2 ToGo-BaBo xchartl 3 eq {%xchartl=3 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 9 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for jkurv 0 eq jkurv 2 eq or jkurv 4 eq or jkurv 6 eq or jkurv 8 eq or {%jkurv=0,2,4,6,8 /MUY MULY def proz_curve_MUY } if %jkurv=0,2,4,6,8 } for %jkurv=0,JPPM %additionally dashed curve, cero line [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0.5 put %cero line } for /MUY MULY def proz_curve_MUY %elementary colours /Y00 IORY 0.50 MUY mul add def /Y01 IORY 1.00 MUY mul add def 50 setlinewidth 2 2 8 {/jkurv exch def %jkurv=jkurv1,jkurvd,jkurv2 /i 8 jkurv 10 mul add def /XS i 5 mul 280 add def /XXe XS 550 sub CX div MULX mul def jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 XXe Y00 moveto XXe Y01 lineto stroke } for %jkurv=jkurv1,jkurvd,jkurv2 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=3 ToGo-BaBo %********************************************************* xchartl 4 eq {%xchartl=4 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 9 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for jkurv 1 eq jkurv 3 eq or jkurv 5 eq or jkurv 7 eq or jkurv 9 eq or {%jkurv=1,3,5,7,9 /MUY MULY def proz_curve_MUY } if %jkurv=1,3,5,7,9 } for %jkurv=0,JPPM 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=4 ToGo-BaBo xchartl 5 eq {%xchartl=5 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 9 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for jkurv 1 eq jkurv 3 eq or jkurv 5 eq or jkurv 7 eq or jkurv 9 eq or {%jkurv=1,3,5,7,9 /MUY MULY def proz_curve_MUY } if %jkurv=1,3,5,7,9 } for %jkurv=0,JPPM %additionally dashed curve, cero line [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0.5 put %cero line } for /MUY MULY def proz_curve_MUY %elementary colours /Y00 IORY 0.50 MUY mul add def /Y01 IORY 1.00 MUY mul add def 50 setlinewidth 3 2 9 {/jkurv exch def %jkurv=jkurv1,jkurvd,jkurv2 /i 8 jkurv 10 mul add def /XS i 5 mul 280 add def /XXe XS 550 sub CX div MULX mul def jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 XXe Y00 moveto XXe Y01 lineto stroke } for %jkurv=jkurv1,jkurvd,jkurv2 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=5 ToGo-BaBo %********************************************************* xchartl 6 eq {%xchartl=6 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 9 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=6 ToGo-BaBo %****************************************************** xchartl 7 eq {%xchartl=7 300 -150 moveto (BoJo->MaMo) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (L) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0100 2600 moveto tfYe (370) bshowM 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 3700 2600 moveto tfBe (670) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM %(logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw () bshowM 0 0 rmoveto X0 Xa tfw (=\050) bshowM 30 0 rmoveto () bshowM 0 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ ) bshowM 0 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 320 def /W1 370 def /W2 420 def /W3 470 def /W4 520 def /W5 570 def /W6 620 def /W7 670 def /W8 720 def /W9 770 def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def 010 3200 moveto tfw () bshowM 0 0 rmoveto X0 Xo tfw ( = ) bshowM tfw () bshowM 0 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto () bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo () bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2800 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2800 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2800 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tyl2 i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tfGe (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 000 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def /Yi8 88 array def /Yi9 88 array def /WXi 10 array def % 0 1 2 3 4 5 6 7 8 9 /WXi [320 370 420 470 520 570 620 670 720 770] def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put 0 1 9 {/j exch def %j=0,9 /YEXP Xi i get WXi j get sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def j 0 eq {Yi0 i EYEXP put} if %320 j 1 eq {Yi1 i EYEXP put} if %370 j 2 eq {Yi2 i EYEXP put} if %420 j 3 eq {Yi3 i EYEXP put} if %470 j 4 eq {Yi4 i EYEXP put} if %520 j 5 eq {Yi5 i EYEXP put} if %570 j 6 eq {Yi6 i EYEXP put} if %620 j 7 eq {Yi7 i EYEXP put} if %670 j 8 eq {Yi8 i EYEXP put} if %720 j 9 eq {Yi9 i EYEXP put} if %770 } for %j=0,9 } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 9 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if jkurv 8 eq {Yi i Yi8 i get put} if jkurv 9 eq {Yi i Yi9 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, cero line [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0.5 put %cero line } for /MUY MULY def proz_curve_MUY %elementary colours /Y00 IORY 0.50 MUY mul add def /Y01 IORY 1.00 MUY mul add def 50 setlinewidth 2 1 8 {/jkurv exch def %jkurv=jkurv1,jkurvd,jkurv2 /i 8 jkurv 10 mul add def /XS i 5 mul 280 add def /XXe XS 550 sub CX div MULX mul def jkurv 0 eq {tfGe} if %320 jkurv 1 eq {tfYe} if %370 jkurv 2 eq {tfRe} if %420 jkurv 3 eq {tfBe} if %470 jkurv 4 eq {tfGe} if %520 jkurv 5 eq {tfYe} if %570 jkurv 6 eq {tfRe} if %620 jkurv 7 eq {tfBe} if %670 jkurv 8 eq {tfGe} if %720 jkurv 9 eq {tfYe} if %770 XXe Y00 moveto XXe Y01 lineto stroke } for %jkurv=jkurv1,jkurvd,jkurv2 0 480 4 mul translate X0T neg 0 translate -350 -350 translate } if %xchartl=7 ToGo-BaBo %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if %} for %xchartl=0,07 showpage grestore %} for %output with langind end %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 2N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %END PDFDE011 % !Exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -60 rmoveto show 0 60 rmoveto} bind def /ebshowG {TBM 0 200 rmoveto show 0 -200 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -40 rmoveto show 0 40 rmoveto} bind def /ebshowM {TBK 0 160 rmoveto show 0 -160 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TS 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowK {TBS 0 130 rmoveto show 0 -130 rmoveto} bind def /sshowK {SK show} 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 1.0 0.0} bind def %Elementarfarben special for gray surround /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 1.0 0.5} bind def %Elementarfarben vergraut special or gray sur. /tzgz {1.0 0.0 1.0 0.5} bind def /tzbz {1.0 1.0 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 /A4quer {598 0 tl 90 rotate} def /setcmyknew {setcmykcolor} def /outSM {sshowM} def /outSK {sshowK} def /outxshowf {setcmykcolor show} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse % 10 mul cvi 0.1 mul 7 string cvs show} def %/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse % 100 mul cvi 0.01 mul 7 string cvs show} def %/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse % 1000 mul cvi 0.001 mul 7 string cvs show} def % R G B C M Y /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf420 {0.30 0.00 0.00 setrgbcolor} bind def %r 0.70 1.00 1.00 %T3" /tf430 {0.40 0.00 0.00 setrgbcolor} bind def %r 0.60 1.00 1.00 %T2" /tf440 {0.50 0.00 0.00 setrgbcolor} bind def %r 0.50 1.00 1.00 %T1" /tf450 {0.50 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %T /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %C /tf490 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.20 0.00 %C /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %G /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %G /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %G /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %W /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %W /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %D /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %D /tf540 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %D /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %D /tf555 {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 %P /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %J /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %J /tf594 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O' new /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %R' new /tf620 {1.00 0.00 0.10 setrgbcolor} bind def %r 0.00 1.00 0.90 %R2' /tf625 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.50 1.00 %N /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 /tfBe {tf470} def /tfGe {tf520} def /tfYe {tf570} def /tfRe {tf620} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 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 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 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 /Xa {tfn (a) ishowM} def /Xo {(o) ishowM} def /MULX 0600 def /MULY 1200 0.8 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /proz_curve_MUY {%BEG proz_curve_MUY 0 3 72 {/i exch def %i=0,75 ab 380nm bis 710nm i 0 eq {%i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def /x20 {Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MUY mul add} bind def /x21 {Xi i 2 add get 550 sub CX div MULX mul} bind def /y21 {IORY Yi i 2 add get MUY mul add} bind def /x22 {Xi i 3 add get 550 sub CX div MULX mul} bind def /y22 {IORY Yi i 3 add get MUY mul add} bind def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } bind def %END proz_curve_MUY %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /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 where {pop %/IMES IMES def } {/IMES 0 def} ifelse /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage gsave 70 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 100 -200 moveto %(DG000-7) show xcolor 0 eq {(R, ) show} {(F, ) show} ifelse xchart 1 add cvishow } if %xbtex0=1 /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 20 setlinewidth % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4300 -150 moveto (DG000-2N) show %xchartl 1 add cvishow %(A) show %A /ibil 0 def /ILK 2 def /ILS 0 def /ILT 0 def/ILU 1 def /IKOM 3 def %N curve, not used /ILN 3 def %U&T /JPPM 3 def %three curves ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if 30 setlinewidth [ ] 0 setdash 0.5 setgray %0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0 setgray 150 /Times-ISOL1 FS gsave %start because of clip %***************************************************************** xchartl 0 eq {%xchartl=0 300 -150 moveto (BoJo->MaMo) show /X0 {tf520 (G) bishowM} def /X1 {tf470 (B) bishowM} def /X2 {tf570 (L) bishowM} def /X3 {tf470 (B) ishowK} def /X4 {tf570 (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 470 def /W1 570 def /W2 520 def %not used /W3 420 def /W4 620 def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def /func520_470 X520 W0 sub CX div dup mul CY mul neg def /func520_570 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf470 (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf570 (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 450 def /Y1C 2000 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def %/W0 470 def %/W1 570 def %/W2 520 def %/W3 420 def %/W4 620 def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put %470 /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 YEXP put %570 /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 YEXP put %520 /YEXP Xi i get W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi2 i YEXP put %Yi0:470, Yi1:570 -> Yi3:520 Yi3 i Yi0 i get Yi1 i get add 0.5 mul put %520_R %420 /YEXP Xi i get W3 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi4 i YEXP put %Yi4:420, Yi2:520, Yi5:470 Yi5 i Yi4 i get Yi2 i get add 0.5 mul put %470_R %620 /YEXP Xi i get W4 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi6 i YEXP put %Yi6: 620, Yi2:520, Yi7:570 Yi7 i Yi2 i get Yi6 i get add 0.5 mul put %570_R } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 7 def 0 1 JPPM {/jkurv exch def %jkurv=0,JPPM [ ] 0 setdash %usually continues curves jkurv 0 eq {tfBe [100 100] 0 setdash} if jkurv 1 eq {tfYe} if jkurv 2 eq {tfGe} if jkurv 3 eq {tfGe [100 100] 0 setdash} if jkurv 4 eq {tfRe} if jkurv 5 eq {tfBe [100 100] 0 setdash} if jkurv 6 eq {tfRe} if jkurv 7 eq {tfYe [100 100] 0 setdash} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 3,5,7 3 2 7 {/jkurv exch def %jkurv=3,5,7 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def jkurv 3 eq {Yi i Yi3 i get put} if %no. 3 jkurv 5 eq {Yi i Yi5 i get put} if %no. 5 jkurv 7 eq {Yi i Yi7 i get put} if %no. 7 } for /MUY MULY def proz_curve_MUY } for %jkurv=3,5,7 X0T neg 0 translate -350 -350 translate } if %xchartl=0 ToGo-BaBo %***************************************************************** xchartl 1 eq {%xchartl=1 300 -150 moveto (BoJo->MaMo) show /X0 {tf520 (G) bishowM} def /X1 {tf470 (B) bishowM} def /X2 {tf570 (L) bishowM} def /X3 {tf470 (B) ishowK} def /X4 {tf570 (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 470 def /W1 570 def /W2 520 def %not used /W3 420 def /W4 620 def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def /func520_470 X520 W0 sub CX div dup mul CY mul neg def /func520_570 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf470 (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf570 (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def %/W0 470 def %/W1 570 def %/W2 520 def %/W3 420 def %/W4 620 def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put %470 /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 YEXP put %570 /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 YEXP put %520 /YEXP Xi i get W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi2 i YEXP put %Yi0:470, Yi1:570 -> Yi3:520 Yi3 i Yi0 i get Yi1 i get add 0.5 mul put %520_R %420 /YEXP Xi i get W3 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi4 i YEXP put %Yi4:420, Yi2:520, Yi5:470 Yi5 i Yi4 i get Yi2 i get add 0.5 mul put %470_R %620 /YEXP Xi i get W4 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi6 i YEXP put %Yi6: 620, Yi2:520, Yi7:570 Yi7 i Yi2 i get Yi6 i get add 0.5 mul put %570_R } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 7 def 0 1 JPPM {/jkurv exch def %jkurv=0,JPPM [ ] 0 setdash %usually continues curves jkurv 0 eq {tfBe} if jkurv 1 eq {tfYe} if jkurv 2 eq {tfRe} if jkurv 3 eq {tfGe} if jkurv 4 eq {tfGe} if jkurv 5 eq {tfRe} if jkurv 6 eq {tfn} if jkurv 7 eq {tfn} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi3 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi3 i get sub put} if jkurv 2 eq {Yi i Yi4 i get Yi5 i get sub put} if jkurv 3 eq {Yi i Yi2 i get Yi5 i get sub put} if jkurv 4 eq {Yi i Yi2 i get Yi7 i get sub put} if jkurv 5 eq {Yi i Yi6 i get Yi7 i get sub put} if jkurv 6 eq {Yi i 0.00 put} if jkurv 7 eq {Yi i 0.70 put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 3,5,7 /iout 0 def iout 1 eq {%iout=1 3 2 7 {/jkurv exch def %jkurv=3,5,7 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def jkurv 3 eq {Yi i Yi3 i get put} if %no. 3 jkurv 5 eq {Yi i Yi5 i get put} if %no. 5 jkurv 7 eq {Yi i Yi7 i get put} if %no. 7 } for /MUY MULY def proz_curve_MUY } for %jkurv=3,5,7 } if %iout=1 %elementary colours /Y00 IORY 0.00 MUY mul add def /Y01 IORY 0.70 MUY mul add def 50 setlinewidth /i 18 def %Be Xi i i 5 mul 380 add put /XBe Xi i get 550 sub CX div MULX mul def tfBe XBe Y00 moveto XBe Y01 lineto stroke /i 28 def %Ge Xi i i 5 mul 380 add put /XGe Xi i get 550 sub CX div MULX mul def tfGe XGe Y00 moveto XGe Y01 lineto stroke /i 38 def %Ye Xi i i 5 mul 380 add put /XYe Xi i get 550 sub CX div MULX mul def tfYe XYe Y00 moveto XYe Y01 lineto stroke /i 48 def %Re Xi i i 5 mul 380 add put /XRe Xi i get 550 sub CX div MULX mul def tfRe XRe Y00 moveto XRe Y01 lineto stroke [100 100] 0 setdash /i 08 def %Re Xi i i 5 mul 380 add put /XRe0 Xi i get 550 sub CX div MULX mul def tfRe XRe0 Y00 moveto XRe0 Y01 lineto stroke 40 setlinewidth %combining end lines [ ] 0 setdash tfYe XYe Y01 moveto XRe Y00 lineto stroke tfBe XBe Y01 moveto XRe0 Y00 lineto stroke 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=1 ToGo-BaBo %***************************************************************** xchartl 2 eq {%xchartl=2 300 -150 moveto (520,570,620) show /X0 {tfYe (L) bishowM} def /X1 {tfGe (G) bishowM} def /X2 {tfRe (R) bishowM} def /X3 {tfGe (G) ishowK} def /X4 {tfRe (R) ishowK} def 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 3000 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 620 def /W1 520 def /W2 570 def %not used /X570 570 def /func570_620 X570 W0 sub CX div dup mul CY mul neg def /func570_520 X570 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func570_620 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (620) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (570) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func570_620 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf570 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf570 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func570_620 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 3 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfRe [100 100] 0 setdash} if jkurv 1 eq {tfGe [100 100] 0 setdash} if jkurv 2 eq {tfYe} if jkurv 3 eq {tfYe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 2 [100 100] 0 setdash %dashed curves /jkurv 2 def %no. 2 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi2 i get put %no. 2 } for /MUY MULY def proz_curve_MUY X0T neg 0 translate -350 -350 translate } if %xchartl=2 520,570,620 %***************************************************************** xchartl 3 eq {%xchartl=3 300 -150 moveto (520,570,620) show /X0 {tfYe (L) bishowM} def /X1 {tfGe (G) bishowM} def /X2 {tfRe (R) bishowM} def /X3 {tfGe (G) ishowK} def /X4 {tfRe (R) ishowK} def 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 3000 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 620 def /W1 520 def /W2 570 def %not used /X570 570 def /func570_620 X570 W0 sub CX div dup mul CY mul neg def /func570_520 X570 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func570_620 neg cvsshow2x 010 2900 moveto (log [ ) bshowM % X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo % tfw (, ) bshowM X2 Xo ( ]) bshowM X1 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (620) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (570) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func570_620 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf570 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf570 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func570_620 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 2 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfRe [100 100] 0 setdash} if jkurv 1 eq {tfGe [100 100] 0 setdash} if jkurv 2 eq {tfYe} if jkurv 3 eq {tfYe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi2 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi2 i get sub put} if jkurv 2 eq {Yi i 0 put} if jkurv 3 eq {Yi i 0 put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 2 [100 100] 0 setdash %dashed curves /jkurv 2 def %no. 2 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0 put %no. 2 } for /MUY MULY def proz_curve_MUY 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=3 520,570,620 %***************************************************************** xchartl 4 eq {%xchartl=4 300 -150 moveto (470,520,570) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (M) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (M) ishowK} def 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 570 def /W1 470 def /W2 520 def %not used /X520 520 def /func520_570 X520 W0 sub CX div dup mul CY mul neg def /func520_470 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_570 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func520_570 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 3 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfYe} if jkurv 1 eq {tfBe} if jkurv 2 eq {tfGe} if jkurv 3 eq {tfGe [100 100] 0 setdash} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&2 1 1 2 {/jkurv exch def %jkurv=1,2 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get put %no. 1 % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi2 i get put %no. 2 } for } if %jkurv=2 /MUY MULY def proz_curve_MUY } for %jkurv=1,2 X0T neg 0 translate -350 -350 translate } if %xchartl=4 470,520,570 %***************************************************************** xchartl 5 eq {%xchartl=5 300 -150 moveto (470,520,570) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (M) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (M) ishowK} def 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 570 def /W1 470 def /W2 520 def %not used /X520 520 def /func520_570 X520 W0 sub CX div dup mul CY mul neg def /func520_470 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_570 neg cvsshow2x 010 2900 moveto (log [ ) bshowM % X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo % tfw (, ) bshowM X2 Xo ( ]) bshowM X1 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func520_570 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 2 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfYe} if jkurv 1 eq {tfBe} if jkurv 2 eq {tfGe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi2 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi2 i get sub put} if jkurv 2 eq {Yi i 0 put} if } for /xst {Xi 0 get 550 sub CX div MULX mul} bind def /yst {IORY Yi 0 get MULY mul add} bind def /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&2 1 1 2 {/jkurv exch def %jkurv=1,2 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get Yi2 i get sub put %no. 1 % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0 put %no. 2 } for } if %jkurv=2 /MUY MULY def proz_curve_MUY } for %jkurv=1,2 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=5 470,520,570 %***************************************************************** xchartl 6 eq {%xchartl=6 300 -150 moveto (420,470,520) show /X0 {tfBe (B) bishowM} def /X1 {tfRe (Q) bishowM} def /X2 {tfGe (G) bishowM} def /X3 {tfRe (Q) ishowK} def /X4 {tfGe (G) ishowK} def 0600 2600 moveto tfRe (420) bshowM 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 4200 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4200 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 520 def /W1 420 def /W2 470 def %not used /X470 470 def /func470_520 X470 W0 sub CX div dup mul CY mul neg def /func470_420 X470 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func470_520 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (420) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (470) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func470_520 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf470 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf470 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func470_520 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 3 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe [100 100] 0 setdash} if jkurv 1 eq {tfRe} if jkurv 2 eq {tfBe} if jkurv 3 eq {tfBe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&3 1 1 3 {/jkurv exch def %jkurv=1,3 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get put %no. 1 % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi2 i get put %no. 2 } for } if %jkurv=2 %jkurv 3 eq {%jkurv=3 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi3 i get put %no. 3 % } for % } if %jkurv=3 /MUY MULY def proz_curve_MUY } for %jkurv=1,3 X0T neg 0 translate -350 -350 translate } if %xchartl=6 420,470,520 %***************************************************************** xchartl 7 eq {%xchartl=7 300 -150 moveto (420,470,520) show /X0 {tfBe (B) bishowM} def /X1 {tfRe (Q) bishowM} def /X2 {tfGe (G) bishowM} def /X3 {tfRe (Q) ishowK} def /X4 {tfGe (G) ishowK} def 0600 2600 moveto tfRe (420) bshowM 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 4200 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4200 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 520 def /W1 420 def /W2 470 def %not used /X470 470 def /func470_520 X470 W0 sub CX div dup mul CY mul neg def /func470_420 X470 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func470_520 neg cvsshow2x 010 2900 moveto (log [ ) bshowM % X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo % tfw (, ) bshowM X2 Xo ( ]) bshowM X1 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (420) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (470) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func470_520 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf470 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf470 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func470_520 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 2 def 0 1 JPPM {/jkurv exch def %jkurv=0,2 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe [100 100] 0 setdash} if jkurv 1 eq {tfRe} if jkurv 2 eq {tfBe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi2 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi2 i get sub put} if jkurv 2 eq {Yi i 0 put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&2 1 1 2 {/jkurv exch def %jkurv=1,2 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get Yi2 i get sub put % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 0 setcmykcolor %white 0 1 76 {/i exch def Yi i 0 put %no. 2 } for } if %jkurv=2 /MUY MULY def proz_curve_MUY } for %jkurv=1,2 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=7 420,470,520 %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if %} for %xchartl=0,07 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 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/DG00/DG00.HTM 3N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -60 rmoveto show 0 60 rmoveto} bind def /ebshowG {TBM 0 200 rmoveto show 0 -200 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -40 rmoveto show 0 40 rmoveto} bind def /ebshowM {TBK 0 160 rmoveto show 0 -160 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TS 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowK {TBS 0 130 rmoveto show 0 -130 rmoveto} bind def /sshowK {SK show} 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 1.0 0.0} bind def %Elementarfarben special for gray surround /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 1.0 0.5} bind def %Elementarfarben vergraut special or gray sur. /tzgz {1.0 0.0 1.0 0.5} bind def /tzbz {1.0 1.0 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 /A4quer {598 0 tl 90 rotate} def /setcmyknew {setcmykcolor} def /outSM {sshowM} def /outSK {sshowK} def /outxshowf {setcmykcolor show} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse % 10 mul cvi 0.1 mul 7 string cvs show} def %/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse % 100 mul cvi 0.01 mul 7 string cvs show} def %/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse % 1000 mul cvi 0.001 mul 7 string cvs show} def % R G B C M Y /tf400 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 0.75 1.00 %R" new /tf420 {0.30 0.00 0.00 setrgbcolor} bind def %r 0.70 1.00 1.00 %T3" /tf430 {0.40 0.00 0.00 setrgbcolor} bind def %r 0.60 1.00 1.00 %T2" /tf440 {0.50 0.00 0.00 setrgbcolor} bind def %r 0.50 1.00 1.00 %T1" /tf450 {0.50 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %T /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %C /tf490 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.20 0.00 %C /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %G /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %G /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %G /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %W /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %W /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %D /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %D /tf540 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %D /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %D /tf555 {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 %P /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %J /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %J /tf594 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O' new /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %R' new /tf620 {1.00 0.00 0.10 setrgbcolor} bind def %r 0.00 1.00 0.90 %R2' /tf625 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.50 1.00 %N /tf650 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %R /tf700 {1.00 0.00 0.00 setrgbcolor} bind def %R 0.00 1.00 1.00 /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 /tfBe {tf470} def /tfGe {tf520} def /tfYe {tf570} def /tfRe {tf620} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 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 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 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 /Xa {tfn (a) ishowM} def /Xo {(o) ishowM} def /MULX 0600 def /MULY 1200 0.8 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /proz_curve_MUY {%BEG proz_curve_MUY 0 3 72 {/i exch def %i=0,75 ab 380nm bis 710nm i 0 eq {%i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def /x20 {Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MUY mul add} bind def /x21 {Xi i 2 add get 550 sub CX div MULX mul} bind def /y21 {IORY Yi i 2 add get MUY mul add} bind def /x22 {Xi i 3 add get 550 sub CX div MULX mul} bind def /y22 {IORY Yi i 3 add get MUY mul add} bind def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } bind def %END proz_curve_MUY %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /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 where {pop %/IMES IMES def } {/IMES 0 def} ifelse /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage gsave 70 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TK 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 100 -200 moveto %(DG000-7) show xcolor 0 eq {(R, ) show} {(F, ) show} ifelse xchart 1 add cvishow } if %xbtex0=1 /xchartl 1 def %0 1 07 {/xchartl exch def %xchartl=0,07 20 setlinewidth % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4300 -150 moveto (DG000-3N) show %xchartl 1 add cvishow %(A) show %A /ibil 0 def /ILK 2 def /ILS 0 def /ILT 0 def/ILU 1 def /IKOM 3 def %N curve, not used /ILN 3 def %U&T /JPPM 3 def %three curves ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if 30 setlinewidth [ ] 0 setdash 0.5 setgray %0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0 setgray 150 /Times-ISOL1 FS gsave %start because of clip %***************************************************************** xchartl 0 eq {%xchartl=0 300 -150 moveto (BoJo->MaMo) show /X0 {tf520 (G) bishowM} def /X1 {tf470 (B) bishowM} def /X2 {tf570 (L) bishowM} def /X3 {tf470 (B) ishowK} def /X4 {tf570 (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 470 def /W1 570 def /W2 520 def %not used /W3 420 def /W4 620 def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def /func520_470 X520 W0 sub CX div dup mul CY mul neg def /func520_570 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf470 (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf570 (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 450 def /Y1C 2000 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def %/W0 470 def %/W1 570 def %/W2 520 def %/W3 420 def %/W4 620 def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put %470 /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 YEXP put %570 /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 YEXP put %520 /YEXP Xi i get W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi2 i YEXP put %Yi0:470, Yi1:570 -> Yi3:520 Yi3 i Yi0 i get Yi1 i get add 0.5 mul put %520_R %420 /YEXP Xi i get W3 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi4 i YEXP put %Yi4:420, Yi2:520, Yi5:470 Yi5 i Yi4 i get Yi2 i get add 0.5 mul put %470_R %620 /YEXP Xi i get W4 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi6 i YEXP put %Yi6: 620, Yi2:520, Yi7:570 Yi7 i Yi2 i get Yi6 i get add 0.5 mul put %570_R } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 7 def 0 1 JPPM {/jkurv exch def %jkurv=0,JPPM [ ] 0 setdash %usually continues curves jkurv 0 eq {tfBe [100 100] 0 setdash} if jkurv 1 eq {tfYe} if jkurv 2 eq {tfGe} if jkurv 3 eq {tfGe [100 100] 0 setdash} if jkurv 4 eq {tfRe} if jkurv 5 eq {tfBe [100 100] 0 setdash} if jkurv 6 eq {tfRe} if jkurv 7 eq {tfYe [100 100] 0 setdash} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if jkurv 5 eq {Yi i Yi5 i get put} if jkurv 6 eq {Yi i Yi6 i get put} if jkurv 7 eq {Yi i Yi7 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 3,5,7 3 2 7 {/jkurv exch def %jkurv=3,5,7 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def jkurv 3 eq {Yi i Yi3 i get put} if %no. 3 jkurv 5 eq {Yi i Yi5 i get put} if %no. 5 jkurv 7 eq {Yi i Yi7 i get put} if %no. 7 } for /MUY MULY def proz_curve_MUY } for %jkurv=3,5,7 X0T neg 0 translate -350 -350 translate } if %xchartl=0 ToGo-BaBo %***************************************************************** xchartl 1 eq {%xchartl=1 300 -150 moveto (BoJo->MaMo) show /X0 {tf520 (G) bishowM} def /X1 {tf470 (B) bishowM} def /X2 {tf570 (L) bishowM} def /X3 {tf470 (B) ishowK} def /X4 {tf570 (L) ishowK} def /X5 {tf500 (500) ishowK} def /X6 {tf450 (450) ishowK} def 0700 2600 moveto tfRe (420) bshowM 1300 2600 moveto tfBe (470) bshowM 1900 2600 moveto tfGe (520) bshowM 2500 2600 moveto tfYe (570) bshowM 3100 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 470 def /W1 570 def /W2 520 def %not used /W3 420 def /W4 620 def %calculate data at 520 nm, 520=380+i*5, ergibt i=(520-380)/5=28 /i 28 def /X520 380 i 5 mul add def /func520_470 X520 W0 sub CX div dup mul CY mul neg def /func520_570 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_470 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf470 (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tf570 (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (G) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (G) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 88 array def /Yi4 88 array def /Yi5 88 array def /Yi6 88 array def /Yi7 88 array def %/W0 470 def %/W1 570 def %/W2 520 def %/W3 420 def %/W4 620 def 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put %470 /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 YEXP put %570 /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 YEXP put %520 /YEXP Xi i get W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi2 i YEXP put %Yi0:470, Yi1:570 -> Yi3:520 Yi3 i Yi0 i get Yi1 i get add 0.5 mul put %520_R %420 /YEXP Xi i get W3 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi4 i YEXP put %Yi4:420, Yi2:520, Yi5:470 Yi5 i Yi4 i get Yi2 i get add 0.5 mul put %470_R %620 /YEXP Xi i get W4 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def Yi6 i YEXP put %Yi6: 620, Yi2:520, Yi7:570 Yi7 i Yi2 i get Yi6 i get add 0.5 mul put %570_R } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 7 def 0 1 JPPM {/jkurv exch def %jkurv=0,JPPM [ ] 0 setdash %usually continues curves jkurv 0 eq {tfBe} if jkurv 1 eq {tfYe} if jkurv 2 eq {tfRe} if jkurv 3 eq {tfGe} if jkurv 4 eq {tfGe} if jkurv 5 eq {tfRe} if jkurv 6 eq {tfn} if jkurv 7 eq {tfn} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi3 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi3 i get sub put} if jkurv 2 eq {Yi i Yi4 i get Yi5 i get sub put} if jkurv 3 eq {Yi i Yi2 i get Yi5 i get sub put} if jkurv 4 eq {Yi i Yi2 i get Yi7 i get sub put} if jkurv 5 eq {Yi i Yi6 i get Yi7 i get sub put} if jkurv 6 eq {Yi i 0.00 put} if jkurv 7 eq {Yi i 0.70 put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 3,5,7 /iout 0 def iout 1 eq {%iout=1 3 2 7 {/jkurv exch def %jkurv=3,5,7 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def jkurv 3 eq {Yi i Yi3 i get put} if %no. 3 jkurv 5 eq {Yi i Yi5 i get put} if %no. 5 jkurv 7 eq {Yi i Yi7 i get put} if %no. 7 } for /MUY MULY def proz_curve_MUY } for %jkurv=3,5,7 } if %iout=1 %elementary colours /Y00 IORY 0.00 MUY mul add def /Y01 IORY 0.70 MUY mul add def 50 setlinewidth /i 18 def %Be Xi i i 5 mul 380 add put /XBe Xi i get 550 sub CX div MULX mul def tfBe XBe Y00 moveto XBe Y01 lineto stroke /i 28 def %Ge Xi i i 5 mul 380 add put /XGe Xi i get 550 sub CX div MULX mul def tfGe XGe Y00 moveto XGe Y01 lineto stroke /i 38 def %Ye Xi i i 5 mul 380 add put /XYe Xi i get 550 sub CX div MULX mul def tfYe XYe Y00 moveto XYe Y01 lineto stroke /i 48 def %Re Xi i i 5 mul 380 add put /XRe Xi i get 550 sub CX div MULX mul def tfRe XRe Y00 moveto XRe Y01 lineto stroke [100 100] 0 setdash /i 08 def %Re Xi i i 5 mul 380 add put /XRe0 Xi i get 550 sub CX div MULX mul def tfRe XRe0 Y00 moveto XRe0 Y01 lineto stroke 40 setlinewidth %combining end lines [ ] 0 setdash tfYe XYe Y01 moveto XRe Y00 lineto stroke tfBe XBe Y01 moveto XRe0 Y00 lineto stroke 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=1 ToGo-BaBo %***************************************************************** xchartl 2 eq {%xchartl=2 300 -150 moveto (520,570,620) show /X0 {tfYe (L) bishowM} def /X1 {tfGe (G) bishowM} def /X2 {tfRe (R) bishowM} def /X3 {tfGe (G) ishowK} def /X4 {tfRe (R) ishowK} def 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 3000 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 620 def /W1 520 def /W2 570 def %not used /X570 570 def /func570_620 X570 W0 sub CX div dup mul CY mul neg def /func570_520 X570 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func570_620 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (620) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (570) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func570_620 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf570 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf570 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func570_620 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 3 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfRe [100 100] 0 setdash} if jkurv 1 eq {tfGe [100 100] 0 setdash} if jkurv 2 eq {tfYe} if jkurv 3 eq {tfYe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 2 [100 100] 0 setdash %dashed curves /jkurv 2 def %no. 2 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi2 i get put %no. 2 } for /MUY MULY def proz_curve_MUY X0T neg 0 translate -350 -350 translate } if %xchartl=2 520,570,620 %***************************************************************** xchartl 3 eq {%xchartl=3 300 -150 moveto (520,570,620) show /X0 {tfYe (L) bishowM} def /X1 {tfGe (G) bishowM} def /X2 {tfRe (R) bishowM} def /X3 {tfGe (G) ishowK} def /X4 {tfRe (R) ishowK} def 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 3000 2600 moveto tfRe (620) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 620 def /W1 520 def /W2 570 def %not used /X570 570 def /func570_620 X570 W0 sub CX div dup mul CY mul neg def /func570_520 X570 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func570_620 neg cvsshow2x 010 2900 moveto (log [ ) bshowM % X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo % tfw (, ) bshowM X2 Xo ( ]) bshowM X1 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (620) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (570) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func570_620 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf570 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf570 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func570_620 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 2 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfRe [100 100] 0 setdash} if jkurv 1 eq {tfGe [100 100] 0 setdash} if jkurv 2 eq {tfYe} if jkurv 3 eq {tfYe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi2 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi2 i get sub put} if jkurv 2 eq {Yi i 0 put} if jkurv 3 eq {Yi i 0 put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curve, no. 2 [100 100] 0 setdash %dashed curves /jkurv 2 def %no. 2 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0 put %no. 2 } for /MUY MULY def proz_curve_MUY 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=3 520,570,620 %***************************************************************** xchartl 4 eq {%xchartl=4 300 -150 moveto (470,520,570) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (M) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (M) ishowK} def 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 570 def /W1 470 def /W2 520 def %not used /X520 520 def /func520_570 X520 W0 sub CX div dup mul CY mul neg def /func520_470 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_570 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func520_570 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 3 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfYe} if jkurv 1 eq {tfBe} if jkurv 2 eq {tfGe} if jkurv 3 eq {tfGe [100 100] 0 setdash} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&2 1 1 2 {/jkurv exch def %jkurv=1,2 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get put %no. 1 % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi2 i get put %no. 2 } for } if %jkurv=2 /MUY MULY def proz_curve_MUY } for %jkurv=1,2 X0T neg 0 translate -350 -350 translate } if %xchartl=4 470,520,570 %***************************************************************** xchartl 5 eq {%xchartl=5 300 -150 moveto (470,520,570) show /X0 {tfGe (G) bishowM} def /X1 {tfBe (B) bishowM} def /X2 {tfYe (M) bishowM} def /X3 {tfBe (B) ishowK} def /X4 {tfYe (M) ishowK} def 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 2400 2600 moveto tfYe (570) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4700 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 570 def /W1 470 def /W2 520 def %not used /X520 520 def /func520_570 X520 W0 sub CX div dup mul CY mul neg def /func520_470 X520 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func520_570 neg cvsshow2x 010 2900 moveto (log [ ) bshowM % X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo % tfw (, ) bshowM X2 Xo ( ]) bshowM X1 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfBe (470) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfYe (570) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (520) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func520_570 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf520 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf520 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func520_570 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 2 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfYe} if jkurv 1 eq {tfBe} if jkurv 2 eq {tfGe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi2 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi2 i get sub put} if jkurv 2 eq {Yi i 0 put} if } for /xst {Xi 0 get 550 sub CX div MULX mul} bind def /yst {IORY Yi 0 get MULY mul add} bind def /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&2 1 1 2 {/jkurv exch def %jkurv=1,2 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get Yi2 i get sub put %no. 1 % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i 0 put %no. 2 } for } if %jkurv=2 /MUY MULY def proz_curve_MUY } for %jkurv=1,2 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=5 470,520,570 %***************************************************************** xchartl 6 eq {%xchartl=6 300 -150 moveto (420,470,520) show /X0 {tfBe (B) bishowM} def /X1 {tfRe (Q) bishowM} def /X2 {tfGe (G) bishowM} def /X3 {tfRe (Q) ishowK} def /X4 {tfGe (G) ishowK} def 0600 2600 moveto tfRe (420) bshowM 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 4200 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4200 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 520 def /W1 420 def /W2 470 def %not used /X470 470 def /func470_520 X470 W0 sub CX div dup mul CY mul neg def /func470_420 X470 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func470_520 neg cvsshow2x 010 2900 moveto (log [ ) bshowM X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (420) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (470) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tye i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func470_520 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf470 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf470 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func470_520 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def /JPPM 3 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe [100 100] 0 setdash} if jkurv 1 eq {tfRe} if jkurv 2 eq {tfBe} if jkurv 3 eq {tfBe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&3 1 1 3 {/jkurv exch def %jkurv=1,3 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get put %no. 1 % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi2 i get put %no. 2 } for } if %jkurv=2 %jkurv 3 eq {%jkurv=3 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi3 i get put %no. 3 % } for % } if %jkurv=3 /MUY MULY def proz_curve_MUY } for %jkurv=1,3 X0T neg 0 translate -350 -350 translate } if %xchartl=6 420,470,520 %***************************************************************** xchartl 7 eq {%xchartl=7 300 -150 moveto (420,470,520) show /X0 {tfBe (B) bishowM} def /X1 {tfRe (Q) bishowM} def /X2 {tfGe (G) bishowM} def /X3 {tfRe (Q) ishowK} def /X4 {tfGe (G) ishowK} def 0600 2600 moveto tfRe (420) bshowM 1200 2600 moveto tfBe (470) bshowM 1800 2600 moveto tfGe (520) bshowM 4200 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM 4200 500 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 010 3800 moveto tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw (, ) show X0 Xo tfw TBM tfw TBM (\255Daten) showde (\255data) showen 010 3500 moveto tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( =\050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo tfw (\051/2) bshowM /W0 520 def /W1 420 def /W2 470 def %not used /X470 470 def /func470_520 X470 W0 sub CX div dup mul CY mul neg def /func470_420 X470 W1 sub CX div dup mul CY mul neg def 010 3200 moveto tfw (log) bshowM 50 0 rmoveto X0 Xo tfw ( = ) bshowM tfw (log) bshowM 50 0 rmoveto X0 Xa tfw ( + ) bshowM func470_520 neg cvsshow2x 010 2900 moveto (log [ ) bshowM % X0 Xo tfw (, ) bshowM X0 Xa tfw (, ) bshowM X1 Xo % tfw (, ) bshowM X2 Xo ( ]) bshowM X1 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw ( / ) bshowM X0 Xa tfw (, ) bshowM ( ]) bshowM 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM ( - 550\051 / 50) bshowM 2850 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfRe (420) ishowK (]) TBM tfw show (2) ebshowM 2850 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM tfGe (520) ishowK (]) TBM tfw show (2) ebshowM 2850 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (470) bshowM tfw 350 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke TBM /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 150 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 150 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -350 iyt moveto tys i get exec show -075 iyl moveto 150 0 rlineto stroke } for /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts 150 3 1200 mul add def /yts 500 3 0480 mul add yta add def /ydelt 225 def /YEXP func470_520 def /EYEXP 10 YEXP exp tsa add def /YEXP EYEXP log def xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK tf470 (L) bshowK tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto tf470 (L) bshowK tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (Threshold) showen (Schwelle) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 350 def /Y1C 2100 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 YEXP 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 YEXP put Yi2 i Yi0 i get Yi1 i get add 0.5 mul put Yi3 i Yi0 i get Yi1 i get add 0.5 mul func470_520 neg add put } for %i=0,1,76 40 setlinewidth /IORY 2700 0.8 mul def 0 960 neg translate /JPPM 2 def 0 1 JPPM {/jkurv exch def %jkurv=0,2 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfGe [100 100] 0 setdash} if jkurv 1 eq {tfRe} if jkurv 2 eq {tfBe} if 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi0 i get Yi2 i get sub put} if jkurv 1 eq {Yi i Yi1 i get Yi2 i get sub put} if jkurv 2 eq {Yi i 0 put} if } for /MUY MULY def proz_curve_MUY } for %jkurv=0,JPPM %additionally dashed curves, no. 1&2 1 1 2 {/jkurv exch def %jkurv=1,2 %jkurv 1 eq {%jkurv=1 % [100 100] 0 setdash %dashed curves % 0 0 0 0 setcmykcolor %white % 0 1 76 {/i exch def % Yi i Yi1 i get Yi2 i get sub put % } for % } if %jkurv=1 jkurv 2 eq {%jkurv=2 [100 100] 0 setdash %dashed curves 0 0 0 0 setcmykcolor %white 0 1 76 {/i exch def Yi i 0 put %no. 2 } for } if %jkurv=2 /MUY MULY def proz_curve_MUY } for %jkurv=1,2 0 960 translate X0T neg 0 translate -350 -350 translate } if %xchartl=7 420,470,520 %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if %} for %xchartl=0,07 showpage grestore %} for %output with langind end %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 4N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !Exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave %lanindL2 END 0 setgray 72 90 translate 0.01 MM dup scale TL 100 -150 moveto (DG000-4N) show /yhoe 4000 def /xwidth 5400 def 15 setlinewidth %0.0 0.0 1.0 0.0 setcmyk_olvcolor 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill %0.0 0.0 0.0 1.0 setcmyk_olvcolor 0.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /ishowG1 {0 -80 rmoveto TM (1) show 0 80 rmoveto} bind def /ishowG2 {0 -80 rmoveto TM (2) show 0 80 rmoveto} bind def /ishowGu {0 -80 rmoveto TM (u) show 0 80 rmoveto} bind def /ishowGw {0 -80 rmoveto TM (w) show 0 80 rmoveto} bind def /ishowM1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishowM2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowMu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishowMw {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def /ishowK1 {0 -60 rmoveto TS (1) show 0 60 rmoveto} bind def /ishowK2 {0 -60 rmoveto TS (2) show 0 60 rmoveto} bind def /ishowKu {0 -60 rmoveto TS (u) show 0 60 rmoveto} bind def /ishowKw {0 -60 rmoveto TS (w) show 0 60 rmoveto} bind def /ishowS1 {0 -50 rmoveto TL (1) show 0 50 rmoveto} bind def /ishowS2 {0 -50 rmoveto TL (2) show 0 50 rmoveto} bind def /ishowSu {0 -50 rmoveto TL (u) show 0 50 rmoveto} bind def /ishowSw {0 -50 rmoveto TL (w) show 0 50 rmoveto} bind def /ishowL1 {0 -40 rmoveto TV (1) show 0 40 rmoveto} bind def /ishowL2 {0 -40 rmoveto TV (2) show 0 40 rmoveto} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /iblue {0 0 1 setrgbcolor} bind def /KLa {/yu exch def /xu exch def SL xu yu moveto (\346) show xu yu iyd 1 mul sub moveto (\347) show xu yu iyd 2 mul sub moveto (\350) show} bind def /KLz {/yu exch def /xu exch def SL xu yu moveto (\366) show xu yu iyd 1 mul sub moveto (\367) show xu yu iyd 2 mul sub moveto (\370) show} bind def /TE3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0180 def %Titeltext, sizes: GMKSLV 0 setgray ix0 yhoe 250 sub moveto TK (Zapfenerregungskoordinaten und das ) showde (Cone Excitation Coordinates and the ) showea TIK (Munsell) show TK ( System) showea (\255System) showde ix0 yhoe 500 sub moveto TIS (K. Richter, ) show TS (Technische Universit\344t Berlin (TUB), Deutschland) showde (Berlin University of Technology, Berlin, Germany) showea ix0 iy0 moveto (CIE\255Zapfenempfindlichkeiten ) showde (CIE cone sensitivities ) showea TIS (LMS ) show TS (und CIE\255Normfarbwerte ) showde (and CIE tristimulus values ) showea TIS (XYZ) showea TS ix0 iy0 iyd 1 mul sub moveto TIS (LMS) show TS (\255 und ) showde ( and ) showea TIS (XYZ) show TS (\255Erregungen in Leuchtdichteeinheiten ) showde ( excitations in luminance units with ) showea TIS (Y) show TS (=0,5\050) show TIS (L) show TS (+) show TIS (M) show TS (\051) show %****************************************** /y2 2400 def %****************************************** ix0 y2 300 add moveto TL (Lineare Modellgleichungen zwischen Farbwerten in beiden Richtungen) showde (Linear model equations between colour values in both directions) showea %****************************************** %left top /x00d 0150 def %space after KLa /x01d 0150 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for XYZ /x002 x001 x01d add def %x-pos for KLz x000 y2 KLa x001 y2 (X) (Y) (Z) TEk3 x002 y2 KLz %= x002 150 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0020 def %special space after KLa /x11d 0450 def %space between numbers /x12d 0350 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 1,32) ( 0,50) ( 0,00) TE3 x103 y2 (-0,66) ( 0,50) ( 0,00) TE3 x104 y2 ( 0,34) ( 0,00) ( 1,00) TE3 x105 y2 KLz %* x105 120 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0150 def %space after KLa /x21d 0150 def %space for KLz /x200 2150 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz x200 y2 KLa x201 y2 (L) (M) (S) TEk3 x202 y2 KLz %****************************************** %****************************************** %right top /x00d 0150 def %space after KLa /x01d 0150 def %space for KLz /x000 2900 def %x-pos for KLa /x001 x000 x00d add def %x-pos for XYZ /x002 x001 x01d add def %x-pos for KLz x000 y2 KLa x001 y2 (L) (M) (S) TEk3 x002 y2 KLz %= x002 150 add y2 iyd sub moveto TL (=) show %************************************** /x100 3500 def %x-position for KLa /x10d 0020 def %special space after KLa /x11d 0450 def %space between numbers /x12d 0350 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,51) ( 0,67) (-0,17) TE3 x103 y2 (-0,51) ( 1,33) ( 0,17) TE3 x104 y2 ( 0,34) ( 0,00) ( 1,00) TE3 x105 y2 KLz %* x105 120 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0150 def %space after KLa /x21d 0150 def %space for KLz /x200 4950 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz x200 y2 KLa x201 y2 (X) (Y) (Z) TEk3 x202 y2 KLz %****************************************** /y2 1400 def %****************************************** ix0 y2 300 add moveto TL (Lineare Modellgleichungen zwischen Farberregungen in beiden Richtungen) showde (Linear model equations between colour excitations in both directions) showea %****************************************** %left down /x00d 0075 def %space after KLa /x01d 0225 def %space for KLz /x000 0100 def %x-pos for KLa /x001 x000 x00d add def %x-pos for XYZ /x002 x001 x01d add def %x-pos for KLz x000 y2 KLa x001 y2 (X/Y) (Y/Y) (Z/Y) TEk3 x002 y2 KLz %= x002 150 add y2 iyd sub moveto TL (=) show %************************************** /x100 0700 def %x-position for KLa /x10d 0020 def %special space after KLa /x11d 0450 def %space between numbers /x12d 0350 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 1,32) ( 0,50) ( 0,00) TE3 x103 y2 (-0,66) ( 0,50) ( 0,00) TE3 x104 y2 ( 0,34) ( 0,00) ( 1,00) TE3 x105 y2 KLz %* x105 120 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0075 def %space after KLa /x21d 0250 def %space for KLz /x200 2150 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz x200 y2 KLa x201 y2 (L/Y) (M/Y) (S/Y) TEk3 x202 y2 KLz %****************************************** %****************************************** %right down /x00d 0075 def %space after KLa /x01d 0225 def %space for KLz /x000 2900 def %x-pos for KLa /x001 x000 x00d add def %x-pos for XYZ /x002 x001 x01d add def %x-pos for KLz x000 y2 KLa x001 y2 (L/Y) (M/Y) (S/Y) TEk3 x002 y2 KLz %= x002 150 add y2 iyd sub moveto TL (=) show %************************************** /x100 3500 def %x-position for KLa /x10d 0020 def %special space after KLa /x11d 0450 def %space between numbers /x12d 0350 def %space before KLz /x101 x100 def /x102 x100 x10d add def /x103 x102 x11d add def /x104 x103 x11d add def /x105 x104 x12d add def x101 y2 KLa x102 y2 ( 0,51) ( 0,67) (-0,17) TE3 x103 y2 (-0,51) ( 1,33) ( 0,17) TE3 x104 y2 ( 0,34) ( 0,00) ( 1,00) TE3 x105 y2 KLz %* x105 120 add y2 iyd sub moveto TL (\267) show %*********************************************** /x20d 0075 def %space after KLa /x21d 0250 def %space for KLz /x200 4950 def %x-pos for KLa /x201 x200 x20d add def %x-pos for XYZ /x202 x201 x21d add def %x-pos for KLz x200 y2 KLa x201 y2 (X/Y) (Y/Y) (Z/Y) TEk3 x202 y2 KLz %*********************************************** ix0 700 moveto TL (Die Farbabstandsformel LAB76 von CIE TC1-81:2018 benutzt eine) showde (The colour difference formula LABJND 1976 of CIE TC1-81:2018 uses a) showea ix0 500 moveto TL (Farbtafel ) showde (chromaticity diagram ) showea TIL ((a, b)) show TL (, die durch die folgenden Gleichungen definiert ist:) showde (, defined by the following equations:) showea ix0 300 moveto TIL (a) show TL (=) show TIL (X/Y ) show TL (=) show TIL (x/y) show TL ( und ) showde ( and ) showea TIL (b) show TL (=-0,4) show TIL (Z/Y ) show TL (=-0,4) show TIL (z/y) show ix0 050 moveto TL (Wenn logarithmische Gleichungen benutzt werden, gilt ) showde (If logarithmic equations are used, it is for example valid ) showea TL (log ) show TIL (S/Y) show TL (=log) show TIL (S) show TL (-log) show TIL (Y) show showpage grestore %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 5N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !Exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave %lanindL2 END 0 setgray 72 90 translate 0.01 MM dup scale TL 100 -150 moveto (DG000-5N) show /yhoe 4000 def /xwidth 5400 def 15 setlinewidth %0.0 0.0 1.0 0.0 setcmyk_olvcolor 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill %0.0 0.0 0.0 1.0 setcmyk_olvcolor 0.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /ishowG1 {0 -80 rmoveto TM (1) show 0 80 rmoveto} bind def /ishowG2 {0 -80 rmoveto TM (2) show 0 80 rmoveto} bind def /ishowGu {0 -80 rmoveto TM (u) show 0 80 rmoveto} bind def /ishowGw {0 -80 rmoveto TM (w) show 0 80 rmoveto} bind def /ishowM1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishowM2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowMu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishowMw {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def /ishowK1 {0 -60 rmoveto TS (1) show 0 60 rmoveto} bind def /ishowK2 {0 -60 rmoveto TS (2) show 0 60 rmoveto} bind def /ishowKu {0 -60 rmoveto TS (u) show 0 60 rmoveto} bind def /ishowKw {0 -60 rmoveto TS (w) show 0 60 rmoveto} bind def /ishowS1 {0 -50 rmoveto TL (1) show 0 50 rmoveto} bind def /ishowS2 {0 -50 rmoveto TL (2) show 0 50 rmoveto} bind def /ishowSu {0 -50 rmoveto TL (u) show 0 50 rmoveto} bind def /ishowSw {0 -50 rmoveto TL (w) show 0 50 rmoveto} bind def /ishowL1 {0 -40 rmoveto TV (1) show 0 40 rmoveto} bind def /ishowL2 {0 -40 rmoveto TV (2) show 0 40 rmoveto} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /iblue {0 0 1 setrgbcolor} bind def /ix0 0050 def /iy0 3500 def /ixd 0100 def /iyd 0200 def %Titeltext, sizes: GMKSLV 0 setgray ix0 yhoe 250 sub moveto RK (Elementarfarben und Farbbild-Technologie) showde (Elementary Colours and Colour Image Technology) showea ix0 iy0 moveto TIS (K. Richter, 2015, ) show TS (Farbe, Farbsehen und Elementarfarben in der ) showde (Colour, Colour Vision and Elementary Colours) showea ix0 iy0 iyd 1 mul sub moveto (Farbinformationstechnologie, 85 Seiten, in sechs Sprachen.) showde (in Color Information Technology, 85 pages, in six languages.) showea TIS %(E,F,G,I,S,N) show ix0 iy0 iyd 2 mul sub moveto RS iblue (http://farbe.li.tu-berlin.de/color/GS15.PDF) showde (http://farbe.li.tu-berlin.de/color/ES15.PDF) showea TS 0 setgray /iy1 2800 def ix0 iy1 moveto RS (ISO 9241-306:2018, ) show RS (Ergonomie der Mensch-System-Interaktion) showde (Ergonomics of human-system interaction) showea ix0 iy1 iyd 1 mul sub moveto RS (Teil 306: ) showde (Vor-Ort-Bewertungsverfahren ) showde TS (f\374r elektronische optische) showde (Part 306: ) showea (Field assessment method for electronic visual displays.) showea ix0 iy1 iyd 2 mul sub moveto (Anzeigen. Pr\374fvorlagen f\374r Elementarfarbausgabe, siehe ) showde (Test charts in three languages for elementary colour output, see ) showea ix0 iy1 iyd 3 mul sub moveto RS iblue (http://www.standards.iso.org/9241/306/ed-2/index.html) show TS 0 setgray /iy1 iy0 1600 sub def ix0 iy1 moveto RS (Reportership Report CIE R1-47:2009, Hue angles of elementary) show ix0 iy1 iyd 1 mul sub moveto (colours, ) show TIS (Thorstein Seim, ) show TS (Norwegen, in englisch, siehe) showde (Norway, see) showea TS ix0 iy1 iyd 2 mul sub moveto RS iblue (http://files.cie.co.at/526.pdf) show TS 0 setgray /iy3 iy0 2300 sub def ix0 iy3 moveto (Bitte um Elementarfarbenforschung von ) showde (Request for elementary colour research of ) showea (ISO/TC159/SC4/WG2) show ix0 iy3 iyd 1 mul sub moveto TIS (Visuelle Displayforderungen ) showde (Visual Display Requirements ) showea TS (an CIE\255Division 1 ) showde (to CIE Division 1 ) showea TIS (Sehen und Farbe) showde (Vision and Colour) showea TS ix0 iy3 iyd 2 mul sub moveto RS iblue (http://farbe.li.tu-berlin.de/SG38/SG380-1N.PDF) showde (http://farbe.li.tu-berlin.de/SE38/SE380-1N.PDF) showea TS 0 setgray /iy4 iy0 3000 sub def ix0 iy4 moveto (f\374r weitere technische Information und Ver\366ffentlichungen:) showde (for further technical information and publications:) showea ix0 iy4 iyd 1 mul sub moveto (gehe zur Hauptseite )showde (go to the homepage ) showea RIS (Farbmetrik und Farbbild-Technologie) showde (Colorimetry and Colour Image Technology) showea TS ix0 iy4 iyd 2 mul sub moveto RS iblue (http://farbe.li.tu-berlin.de/indexDE.html) showde (http://farbe.li.tu-berlin.de/index.html) showea TS 0 setgray showpage grestore %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 6N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !Exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave %lanindL2 END 0 setgray 72 90 translate 0.01 MM dup scale TL 100 -150 moveto (DG000-6N) show /yhoe 4000 def /xwidth 5400 def 15 setlinewidth %0.0 0.0 1.0 0.0 setcmyk_olvcolor 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill %0.0 0.0 0.0 1.0 setcmyk_olvcolor 0.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /ishowG1 {0 -80 rmoveto TM (1) show 0 80 rmoveto} bind def /ishowG2 {0 -80 rmoveto TM (2) show 0 80 rmoveto} bind def /ishowGu {0 -80 rmoveto TM (u) show 0 80 rmoveto} bind def /ishowGw {0 -80 rmoveto TM (w) show 0 80 rmoveto} bind def /ishowM1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishowM2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowMu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishowMw {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def /ishowK1 {0 -60 rmoveto TS (1) show 0 60 rmoveto} bind def /ishowK2 {0 -60 rmoveto TS (2) show 0 60 rmoveto} bind def /ishowKu {0 -60 rmoveto TS (u) show 0 60 rmoveto} bind def /ishowKw {0 -60 rmoveto TS (w) show 0 60 rmoveto} bind def /ishowS1 {0 -50 rmoveto TL (1) show 0 50 rmoveto} bind def /ishowS2 {0 -50 rmoveto TL (2) show 0 50 rmoveto} bind def /ishowSu {0 -50 rmoveto TL (u) show 0 50 rmoveto} bind def /ishowSw {0 -50 rmoveto TL (w) show 0 50 rmoveto} bind def /ishowL1 {0 -40 rmoveto TV (1) show 0 40 rmoveto} bind def /ishowL2 {0 -40 rmoveto TV (2) show 0 40 rmoveto} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /iblue {0 0 1 setrgbcolor} bind def /ix0 0050 def /iy0 3500 def /ixd 0100 def /iyd 0200 def %Titeltext, sizes: GMKSLV 0 setgray ix0 yhoe 250 sub moveto RK (Elementarfarben und Farbbild-Technologie) showde (Elementary Colours and Colour Image Technology) showea ix0 iy0 moveto TIS (K. Richter, 2016, ) show RS (Ausgabe-Linearizsierungsmethode ) showde (Output Linearization Method ) showea TIS (OLM16 ) show ix0 iy0 iyd 1 mul sub moveto TS (f\374r Displays, Offset ) showde (for Displays, Offset ) showea (und Drucker, 60 Seiten, mit vielen Bildern.) showde (and Printers, 60 pages, with many figures.) showea ix0 iy0 iyd 2 mul sub moveto RS iblue (http://farbe.li.tu-berlin.de/OUTLIN16_01.PDF) show TS 0 setgray /iy1 2800 def ix0 iy1 moveto TIS (Richter, K.,) show TS ( 1985, ) show TS (Farbempfindungsmerkmal Elementarbuntton) showde (Colour appearance elementary hue and chroma) showea ix0 iy1 iyd 1 mul sub moveto (und Buntheitsabst\344nde als Funktion von Farbart und Leuchtdichte) showde (differences as function of chromaticity and luminance of center) showea ix0 iy1 iyd 2 mul sub moveto RS (von In- und Umfeld,) showde (and background field,) showea ix0 iy1 iyd 3 mul sub moveto RS (BAM-Forschungsbericht 115, 1985, 119 Seiten.) showde (BAM research report 115, 1985, 119 pages.) showea TS 0 setgray /iy2 iy0 1650 sub def ix0 iy2 moveto TIS (Richter, K., ) show TS (1980 ,) show RS (Cube-root color spaces and chromatic) show ix0 iy2 iyd 1 mul sub moveto RS (adaptation, Color res. and appl. 5, Nr. 1, 25-43.) showde (adaptation, Color res. and appl. 5, no. 1, 25-43.) showea /iy3 iy0 2250 sub def ix0 iy3 moveto (Reportership Report CIE R1-57:2013, ) show (Border between blackish) show ix0 iy3 iyd 1 mul sub moveto (and luminous colours, ) show TIS (Thorstein Seim, ) show TS (in englisch, siehe) showde (see) showea TS ix0 iy3 iyd 2 mul sub moveto RS iblue (http://files.cie.co.at/716 CIE R1-57 Report 20Jul-13 10v.2.pdf) show TS 0 setgray /iy4 iy0 3050 sub def ix0 iy4 moveto TIS (Richter, K.,) show TS ( 1970, ) show (Der empfindungsgem\344\337e Farbton als Funktion ) showde (The appearance of hue as function of ) showea ix0 iy4 iyd 1 mul sub moveto TS (von S\344ttigung und Helligkeit, Farbe 19, Nr. 1/6, Seite ) showde (saturation and lightness, Farbe 19, no. 1/6, pages ) showea RS (277-282.) show showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if 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/DG00/DG00.HTM 7N_R 20180701 %%BoundingBox: 70 83 425 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !Exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {265 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {265 /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 {265 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TSK {250 /Symbol FS} bind def /TSM {300 /Symbol FS} bind def /TSG {350 /Symbol FS} bind def %%EndProlog gsave %LANINDL2 START 20070101 /nshow {TM show} bind def /kshow {TIM show} bind def /bshow {TBM show} bind def /jshow {TBIM show} bind def /ibshown {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def /ibshow0 {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def /ishown {TK -50 -50 rmoveto show 0 50 rmoveto TM } bind def /ishow0 {TK -00 -50 rmoveto show 0 50 rmoveto TM } bind def /lanind 1 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse %lanind1 1 lanind2 {/lanind exch def %output showpage gsave 5 /Times-ISOL1 FS 72 85 moveto (DG000-7N) show 72 90 translate /yhoe 4000 def /xhoe 12300 def 0.01 MM dup scale 15 setlinewidth %0.0 0.0 0.0 1.0 setcmykcolor 0.0 setgray 0 0 moveto xhoe 0 rlineto 0 yhoe rlineto xhoe neg 0 rlineto closepath stroke /S1 100 def /yu1 3700 def /yu2 2800 def /yzp 350 def S1 yu1 moveto TBM (Conclusion 31/2007 ISO TC159/SC4/WG2) show S1 yu1 yzp 1 mul sub moveto TBIM (Ergonomics - Visual Display Requirements) show S1 yu2 yzp 0 mul sub moveto TM (ISO TC159/SC4/WG2 realizes that the colour spaces CIELAB ) showen (and CIELUV of ) showen TBIM (CIE Division 1) showen TM ( will soon become) showen S1 yu2 yzp 1 mul sub moveto TM (ISO/CIE standards. In applications we use these CIE colour ) showen (spaces and ) showen TIM (device-dependent ) showen TM (relative RGB colour) showen S1 yu2 yzp 2 mul sub moveto TM (spaces. For users of visual display systems a ) showen TIM (device-independent ) showen TM (RGB colour space is useful. This produces) showen S1 yu2 yzp 3 mul sub moveto TM (via software the elementary hues Red, Green and Blue for ) showen (the RGB data 100, 010 and 001 and equally spaced) showen S1 yu2 yzp 4 mul sub moveto TM (output in CIE colour spaces for equally spaced RGB input. ) showen (We recommend that) showen TBIM ( CIE Division 1) showen TM ( study the) showen S1 yu2 yzp 5 mul sub moveto TM (colorimetric definition of such a space, which can be ) showen (used in visual display applications.) showen S1 yu2 yzp 6.5 mul sub moveto TIM (Remark: We have realized that an example colour space ) showen (of this type is published in CIE X030:2006, p. 139-144.) showen S1 yu2 yzp 7.5 mul sub moveto TIK %(unanimous vote (Finland, Germany, Japan, Korea, Netherlands, Schweden, USA)) show (Note: For this table text compare the identical content on page 2 ) showen (of the public document CIE R1\25547.) showen %(Bemerkung: F\344r disen Tabellentext vergleiche Seite 2 des Dokumentes CIE R1-47) showde showpage grestore %} for %output showpage %%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 DG000-8N %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave %8 /Times-Roman FS %72 83 moveto %(DG000-8N) show %72 90 translate %0.01 MM 0.01 MM scale %15 setlinewidth %0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %closepath stroke 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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 1N_R 20180701 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark11 [ /View [ /Fit ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ibshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto} bind def /ebshow2 {TBK 0 100 rmoveto show 0 -100 rmoveto} 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 setcmyk_olvcolor} bind def /tfl {tzl setcmyk_olvcolor} bind def /tfv {tzv setcmyk_olvcolor} bind def /tfc {tzc setcmyk_olvcolor} bind def /tfm {tzm setcmyk_olvcolor} bind def /tfy {tzy setcmyk_olvcolor} bind def /tfn {tzn setcmyk_olvcolor} bind def /tfd {tzd setcmyk_olvcolor} bind def /tfz {tzz setcmyk_olvcolor} bind def /tfh {tzh setcmyk_olvcolor} bind def /tfw {tzw setcmyk_olvcolor} bind def /tfr {tzr setcmyk_olvcolor} bind def /tfg {tzg setcmyk_olvcolor} bind def /tfb {tzb setcmyk_olvcolor} bind def /tfj {tzj setcmyk_olvcolor} bind def /tfrz {tzrz setcmyk_olvcolor} bind def /tfgz {tzgz setcmyk_olvcolor} bind def /tfbz {tzbz setcmyk_olvcolor} bind def /tfjz {tzjz setcmyk_olvcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyk_olvcolor show} bind def /outrecfi { %x y width heigth c m y k setcmyk_olvcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyk_olvcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyk_olvcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (DG001-1N) show % ( B8620_4, M8220-5, B4_33_1, N=4_33_1) show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.5 setgray %0.0 0.0 0.0 0.5 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3400 moveto (ln) TBM tfw show 50 0 rmoveto (V) TBIM tfw show 30 0 rmoveto TBM 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM 20 0 (-c\267) ashow (555) show 20 0 rmoveto (]) show (2) ebshow2 50 setlinewidth [50] 0 setdash 050 3170 moveto 300 0 rlineto stroke [ ] 0 setdash 30 setlinewidth 350 3100 moveto TBM tfw (experimentell\255CIE) showde %08220-5 1 (experimental\255CIE) showen %18220-5 1 (experimental\255CIE) showes %28220-5 1 (experimental\255CIE) showfr %38220-5 1 (experimental\255CIE) showit %48220-5 1 (experimental\255CIE) showjp %58220-5 1 4700 500 moveto (l) outSM 30 0 rmoveto (/nm) bshow2 2950 3400 moveto (ln) TBM tfw show 30 0 rmoveto (L) TBIM tzo outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (570) show 20 0 rmoveto (]) show (2) ebshow2 2950 3100 moveto (ln) TBM tfw show 20 0 rmoveto (M) TBIM tzl outshowf 30 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (545) show 20 0 rmoveto (]) show (2) ebshow2 2950 2800 moveto (ln) TBM tfw show 30 0 rmoveto (S) TBIM tzv outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (450) show 20 0 rmoveto (]) show (2) ebshow2 /tx [ (400) (500) (600) (700)] def /ty [(0) (10) (20) (30) (40) (50)] def 050 3750 moveto TBM tfw %B8620-04.xps (relative Empfindlichkeit) showde %08220-5 2 (relative sensitivty) showen %18220-5 2 (Sensibilidad relativa) showes %28220-5 2 (relative sensitivty) showfr %38220-5 2 (relative sensitivty) showit %48220-5 2 (relative sensitivty) showjp %58220-5 2 050 2800 moveto (L) TBIM tzo outshowf (, ) TBM tfw show (M) TBIM tzl outshowf (, ) TBM tfw show (S) TBIM tzv outshowf (, ) TBM tfw show (V) TBIM tfw show (, ) TBM tfw show (V') TBIM tfn show 2900 2500 moveto (L) TBIM tzo outshowf 2600 2500 moveto (V) TBIM tfw show 2350 2500 moveto (M) TBIM tzl outshowf 1400 2500 moveto (S) TBIM tzv outshowf 2000 2500 moveto (V') TBIM tfn show 4000 2500 moveto TBM tfw (Modell ) showde %08220-5 3 (model ) showen %18220-5 3 (Modelo ) showes %28220-5 3 (model ) showfr %38220-5 3 (model ) showit %48220-5 3 (model ) showjp %58220-5 3 ( l ) outSM /ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def tfw 600 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2000 rlineto stroke 0 2000 moveto 3200 0 rlineto stroke TBG %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt { 20 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!x-Achse: 150 S-Einheiten = 2500*0.8 = 2000 Skalen-Einheiten 0 1 5 {/i exch def /iyt {-100 i 0400 mul add} def /iyl { 000 i 0400 mul add} def -550 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth %!0 WRPOS:EMPP8620.FOR KURVT(J)Vn 0 0 8 [ ] 0 setdash %Vn 60 18 moveto % 385 120 27 180 39 240 55 curveto % 390 395 400 300 77 360 106 420 144 curveto % 405 410 415 480 191 540 250 600 322 curveto % 420 425 430 660 407 720 507 780 621 curveto % 435 440 445 840 749 900 888 960 1036 curveto % 450 455 460 1020 1189 1080 1344 1140 1493 curveto % 465 470 475 1200 1633 1260 1756 1320 1859 curveto % 480 485 490 1380 1936 1440 1984 1500 2000 curveto % 495 500 505 1560 1984 1620 1936 1680 1859 curveto % 510 515 520 1740 1756 1800 1633 1860 1493 curveto % 525 530 535 1920 1344 1980 1189 2040 1036 curveto % 540 545 550 2100 888 2160 749 2220 621 curveto % 555 560 565 2280 507 2340 407 2400 322 curveto % 570 575 580 2460 250 2520 191 2580 144 curveto % 585 590 595 2640 106 2700 77 2760 55 curveto % 600 605 610 2820 39 2880 27 2940 18 curveto % 615 620 625 3000 12 3060 8 3120 5 curveto % 630 635 640 3180 3 3240 2 3300 1 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 1. 385 2. 390 3. 395 4. 400 6. 405 8. %! 410 11. 415 14. 420 19. 425 24. 430 31. 435 38. %! 440 47. 445 56. 450 67. 455 78. 460 89. 465 101. %! 470 112. 475 122. 480 132. 485 139. 490 145. 495 149. %! 500 150. 505 149. 510 145. 515 139. 520 132. 525 122. %! 530 112. 535 101. 540 89. 545 78. 550 67. 555 56. %! 560 47. 565 38. 570 31. 575 24. 580 19. 585 14. %! 590 11. 595 8. 600 6. 605 4. 610 3. 615 2. %! 620 1. 625 1. 630 1. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %Vn 60 2 moveto % 385 120 4 180 9 240 18 curveto % 390 395 400 300 37 360 69 420 120 curveto % 405 410 415 480 193 540 287 600 399 curveto % 420 425 430 660 525 720 656 780 786 curveto % 435 440 445 840 910 900 1026 960 1134 curveto % 450 455 460 1020 1240 1080 1352 1140 1468 curveto % 465 470 475 1200 1586 1260 1702 1320 1808 curveto % 480 485 490 1380 1898 1440 1964 1500 1996 curveto % 495 500 505 1560 1994 1620 1950 1680 1870 curveto % 510 515 520 1740 1760 1800 1622 1860 1466 curveto % 525 530 535 1920 1300 1980 1128 2040 962 curveto % 540 545 550 2100 804 2160 657 2220 527 curveto % 555 560 565 2280 415 2340 320 2400 242 curveto % 570 575 580 2460 179 2520 131 2580 93 curveto % 585 590 595 2640 66 2700 46 2760 31 curveto % 600 605 610 2820 21 2880 14 2940 9 curveto % 615 620 625 3000 6 3060 4 3120 2 curveto % 630 635 640 3180 2 3240 1 3300 0 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 0. 385 0. 390 1. 395 1. 400 3. 405 5. %! 410 9. 415 14. 420 22. 425 30. 430 39. 435 49. %! 440 59. 445 68. 450 77. 455 85. 460 93. 465 101. %! 470 110. 475 119. 480 128. 485 136. 490 142. 495 147. %! 500 150. 505 150. 510 146. 515 140. 520 132. 525 122. %! 530 110. 535 98. 540 85. 545 72. 550 60. 555 49. %! 560 40. 565 31. 570 24. 575 18. 580 13. 585 10. %! 590 7. 595 5. 600 3. 605 2. 610 2. 615 1. %! 620 1. 625 1. 630 0. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. %!1 WRPOS:EMPP8620.FOR KURVT(J)P 0 0 8 [ ] 0 setdash %P 60 0 moveto % 385 120 0 180 0 240 0 curveto % 390 395 400 300 0 360 0 420 0 curveto % 405 410 415 480 1 540 2 600 3 curveto % 420 425 430 660 5 720 8 780 12 curveto % 435 440 445 840 18 900 27 960 39 curveto % 450 455 460 1020 55 1080 77 1140 106 curveto % 465 470 475 1200 144 1260 191 1320 250 curveto % 480 485 490 1380 322 1440 407 1500 507 curveto % 495 500 505 1560 621 1620 749 1680 888 curveto % 510 515 520 1740 1036 1800 1189 1860 1344 curveto % 525 530 535 1920 1493 1980 1633 2040 1756 curveto % 540 545 550 2100 1859 2160 1936 2220 1984 curveto % 555 560 565 2280 2000 2340 1984 2400 1936 curveto % 570 575 580 2460 1859 2520 1756 2580 1633 curveto % 585 590 595 2640 1493 2700 1344 2760 1189 curveto % 600 605 610 2820 1036 2880 888 2940 749 curveto % 615 620 625 3000 621 3060 507 3120 407 curveto % 630 635 640 3180 322 3240 250 3300 191 curveto % 645 650 655 3360 144 3420 106 3480 77 curveto % 660 665 670 3540 55 3600 39 3660 27 curveto % 675 680 685 3720 18 3780 12 3840 8 curveto % 690 695 700 3900 5 3960 3 4020 2 curveto % 705 710 715 tzo outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 0. 415 0. 420 0. 425 0. 430 0. 435 1. %! 440 1. 445 1. 450 2. 455 3. 460 4. 465 6. %! 470 8. 475 11. 480 14. 485 19. 490 24. 495 31. %! 500 38. 505 47. 510 56. 515 67. 520 78. 525 89. %! 530 101. 535 112. 540 122. 545 132. 550 139. 555 145. %! 560 149. 565 150. 570 149. 575 145. 580 139. 585 132. %! 590 122. 595 112. 600 101. 605 89. 610 78. 615 67. %! 620 56. 625 47. 630 38. 635 31. 640 24. 645 19. %! 650 14. 655 11. 660 8. 665 6. 670 4. 675 3. %! 680 2. 685 1. 690 1. 695 1. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %P 60 0 moveto % 385 120 0 180 1 240 2 curveto % 390 395 400 300 4 360 8 420 14 curveto % 405 410 415 480 25 540 40 600 55 curveto % 420 425 430 660 66 720 74 780 79 curveto % 435 440 445 840 84 900 89 960 95 curveto % 450 455 460 1020 103 1080 117 1140 140 curveto % 465 470 475 1200 173 1260 214 1320 271 curveto % 480 485 490 1380 347 1440 445 1500 576 curveto % 495 500 505 1560 730 1620 907 1680 1088 curveto % 510 515 520 1740 1249 1800 1396 1860 1522 curveto % 525 530 535 1920 1630 1980 1724 2040 1802 curveto % 540 545 550 2100 1871 2160 1927 2220 1967 curveto % 555 560 565 2280 1992 2340 2000 2400 1990 curveto % 570 575 580 2460 1958 2520 1907 2580 1839 curveto % 585 590 595 2640 1748 2700 1641 2760 1513 curveto % 600 605 610 2820 1373 2880 1219 2940 1051 curveto % 615 620 625 3000 885 3060 737 3120 602 curveto % 630 635 640 3180 481 3240 376 3300 288 curveto % 645 650 655 3360 216 3420 159 3480 114 curveto % 660 665 670 3540 83 3600 61 3660 42 curveto % 675 680 685 3720 29 3780 20 3840 14 curveto % 690 695 700 3900 10 3960 7 4020 5 curveto % 705 710 715 tzo outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 1. %! 410 1. 415 2. 420 3. 425 4. 430 5. 435 6. %! 440 6. 445 6. 450 7. 455 7. 460 8. 465 9. %! 470 11. 475 13. 480 16. 485 20. 490 26. 495 33. %! 500 43. 505 55. 510 68. 515 82. 520 94. 525 105. %! 530 114. 535 122. 540 129. 545 135. 550 140. 555 145. %! 560 148. 565 149. 570 150. 575 149. 580 147. 585 143. %! 590 138. 595 131. 600 123. 605 114. 610 103. 615 91. %! 620 79. 625 66. 630 55. 635 45. 640 36. 645 28. %! 650 22. 655 16. 660 12. 665 9. 670 6. 675 5. %! 680 3. 685 2. 690 2. 695 1. 700 1. 705 1. %! 710 0. 715 0. 720 0. %!2 WRPOS:EMPP8620.FOR KURVT(J)D 0 0 8 [ ] 0 setdash %D 60 0 moveto % 385 120 0 180 1 240 2 curveto % 390 395 400 300 3 360 5 420 8 curveto % 405 410 415 480 12 540 18 600 27 curveto % 420 425 430 660 39 720 55 780 77 curveto % 435 440 445 840 106 900 144 960 191 curveto % 450 455 460 1020 250 1080 322 1140 407 curveto % 465 470 475 1200 507 1260 621 1320 749 curveto % 480 485 490 1380 888 1440 1036 1500 1189 curveto % 495 500 505 1560 1344 1620 1493 1680 1633 curveto % 510 515 520 1740 1756 1800 1859 1860 1936 curveto % 525 530 535 1920 1984 1980 2000 2040 1984 curveto % 540 545 550 2100 1936 2160 1859 2220 1756 curveto % 555 560 565 2280 1633 2340 1493 2400 1344 curveto % 570 575 580 2460 1189 2520 1036 2580 888 curveto % 585 590 595 2640 749 2700 621 2760 507 curveto % 600 605 610 2820 407 2880 322 2940 250 curveto % 615 620 625 3000 191 3060 144 3120 106 curveto % 630 635 640 3180 77 3240 55 3300 39 curveto % 645 650 655 3360 27 3420 18 3480 12 curveto % 660 665 670 3540 8 3600 5 3660 3 curveto % 675 680 685 3720 2 3780 1 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 tzl outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 1. 415 1. 420 1. 425 2. 430 3. 435 4. %! 440 6. 445 8. 450 11. 455 14. 460 19. 465 24. %! 470 31. 475 38. 480 47. 485 56. 490 67. 495 78. %! 500 89. 505 101. 510 112. 515 122. 520 132. 525 139. %! 530 145. 535 149. 540 150. 545 149. 550 145. 555 139. %! 560 132. 565 122. 570 112. 575 101. 580 89. 585 78. %! 590 67. 595 56. 600 47. 605 38. 610 31. 615 24. %! 620 19. 625 14. 630 11. 635 8. 640 6. 645 4. %! 650 3. 655 2. 660 1. 665 1. 670 1. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %D 60 0 moveto % 385 120 0 180 1 240 2 curveto % 390 395 400 300 4 360 8 420 15 curveto % 405 410 415 480 28 540 48 600 70 curveto % 420 425 430 660 92 720 114 780 136 curveto % 435 440 445 840 162 900 192 960 226 curveto % 450 455 460 1020 261 1080 297 1140 340 curveto % 465 470 475 1200 393 1260 455 1320 535 curveto % 480 485 490 1380 644 1440 784 1500 969 curveto % 495 500 505 1560 1174 1620 1393 1680 1597 curveto % 510 515 520 1740 1752 1800 1869 1860 1946 curveto % 525 530 535 1920 1989 1980 2000 2040 1982 curveto % 540 545 550 2100 1938 2160 1869 2220 1773 curveto % 555 560 565 2280 1654 2340 1514 2400 1359 curveto % 570 575 580 2460 1192 2520 1023 2580 859 curveto % 585 590 595 2640 709 2700 573 2760 457 curveto % 600 605 610 2820 360 2880 280 2940 214 curveto % 615 620 625 3000 161 3060 121 3120 90 curveto % 630 635 640 3180 66 3240 48 3300 35 curveto % 645 650 655 3360 25 3420 18 3480 12 curveto % 660 665 670 3540 9 3600 6 3660 4 curveto % 675 680 685 3720 3 3780 2 3840 1 curveto % 690 695 700 3900 1 3960 0 4020 0 curveto % 705 710 715 tzl outstroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 1. %! 410 1. 415 2. 420 4. 425 5. 430 7. 435 9. %! 440 10. 445 12. 450 14. 455 17. 460 20. 465 22. %! 470 26. 475 30. 480 34. 485 40. 490 48. 495 59. %! 500 73. 505 88. 510 105. 515 120. 520 131. 525 140. %! 530 146. 535 149. 540 150. 545 149. 550 145. 555 140. %! 560 133. 565 124. 570 114. 575 102. 580 89. 585 77. %! 590 64. 595 53. 600 43. 605 34. 610 27. 615 21. %! 620 16. 625 12. 630 9. 635 7. 640 5. 645 4. %! 650 3. 655 2. 660 1. 665 1. 670 1. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. %!3 WRPOS:EMPP8620.FOR KURVT(J)T 0 0 8 [ ] 0 setdash %T 60 507 moveto % 385 120 621 180 749 240 888 curveto % 390 395 400 300 1036 360 1189 420 1344 curveto % 405 410 415 480 1493 540 1633 600 1756 curveto % 420 425 430 660 1859 720 1936 780 1984 curveto % 435 440 445 840 2000 900 1984 960 1936 curveto % 450 455 460 1020 1859 1080 1756 1140 1633 curveto % 465 470 475 1200 1493 1260 1344 1320 1189 curveto % 480 485 490 1380 1036 1440 888 1500 749 curveto % 495 500 505 1560 621 1620 507 1680 407 curveto % 510 515 520 1740 322 1800 250 1860 191 curveto % 525 530 535 1920 144 1980 106 2040 77 curveto % 540 545 550 2100 55 2160 39 2220 27 curveto % 555 560 565 2280 18 2340 12 2400 8 curveto % 570 575 580 2460 5 2520 3 2580 2 curveto % 585 590 595 2640 1 2700 0 2760 0 curveto % 600 605 610 2820 0 2880 0 2940 0 curveto % 615 620 625 3000 0 3060 0 3120 0 curveto % 630 635 640 3180 0 3240 0 3300 0 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 tzv outstroke %! 380 38. 385 47. 390 56. 395 67. 400 78. 405 89. %! 410 101. 415 112. 420 122. 425 132. 430 139. 435 145. %! 440 149. 445 150. 450 149. 455 145. 460 139. 465 132. %! 470 122. 475 112. 480 101. 485 89. 490 78. 495 67. %! 500 56. 505 47. 510 38. 515 31. 520 24. 525 19. %! 530 14. 535 11. 540 8. 545 6. 550 4. 555 3. %! 560 2. 565 1. 570 1. 575 1. 580 0. 585 0. %! 590 0. 595 0. 600 0. 605 0. 610 0. 615 0. %! 620 0. 625 0. 630 0. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %T 60 11 moveto % 385 120 22 180 40 240 76 curveto % 390 395 400 300 123 360 232 420 416 curveto % 405 410 415 480 724 540 1166 600 1555 curveto % 420 425 430 660 1821 720 1960 780 2000 curveto % 435 440 445 840 1988 900 1957 960 1873 curveto % 450 455 460 1020 1714 1080 1445 1140 1169 curveto % 465 470 475 1200 912 1260 691 1320 522 curveto % 480 485 490 1380 396 1440 305 1500 238 curveto % 495 500 505 1560 177 1620 125 1680 87 curveto % 510 515 520 1740 64 1800 47 1860 31 curveto % 525 530 535 1920 22 1980 15 2040 9 curveto % 540 545 550 2100 6 2160 4 2220 3 curveto % 555 560 565 2280 2 2340 2 2400 1 curveto % 570 575 580 2460 1 2520 1 2580 1 curveto % 585 590 595 2640 0 2700 0 2760 0 curveto % 600 605 610 2820 0 2880 0 2940 0 curveto % 615 620 625 3000 0 3060 0 3120 0 curveto % 630 635 640 3180 0 3240 0 3300 0 curveto % 645 650 655 3360 0 3420 0 3480 0 curveto % 660 665 670 3540 0 3600 0 3660 0 curveto % 675 680 685 3720 0 3780 0 3840 0 curveto % 690 695 700 3900 0 3960 0 4020 0 curveto % 705 710 715 tzv outstroke %! 380 1. 385 2. 390 3. 395 6. 400 9. 405 17. %! 410 31. 415 54. 420 87. 425 117. 430 137. 435 147. %! 440 150. 445 149. 450 147. 455 140. 460 129. 465 108. %! 470 88. 475 68. 480 52. 485 39. 490 30. 495 23. %! 500 18. 505 13. 510 9. 515 7. 520 5. 525 4. %! 530 2. 535 2. 540 1. 545 1. 550 0. 555 0. %! 560 0. 565 0. 570 0. 575 0. 580 0. 585 0. %! 590 0. 595 0. 600 0. 605 0. 610 0. 615 0. %! 620 0. 625 0. 630 0. 635 0. 640 0. 645 0. %! 650 0. 655 0. 660 0. 665 0. 670 0. 675 0. %! 680 0. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. %!4 WRPOS:EMPP8620.FOR KURVT(J)V 0 0 8 [ ] 0 setdash %V 60 0 moveto % 385 120 0 180 0 240 0 curveto % 390 395 400 300 1 360 2 420 3 curveto % 405 410 415 480 5 540 8 600 12 curveto % 420 425 430 660 18 720 27 780 39 curveto % 435 440 445 840 55 900 77 960 106 curveto % 450 455 460 1020 144 1080 191 1140 250 curveto % 465 470 475 1200 322 1260 407 1320 507 curveto % 480 485 490 1380 621 1440 749 1500 888 curveto % 495 500 505 1560 1036 1620 1189 1680 1344 curveto % 510 515 520 1740 1493 1800 1633 1860 1756 curveto % 525 530 535 1920 1859 1980 1936 2040 1984 curveto % 540 545 550 2100 2000 2160 1984 2220 1936 curveto % 555 560 565 2280 1859 2340 1756 2400 1633 curveto % 570 575 580 2460 1493 2520 1344 2580 1189 curveto % 585 590 595 2640 1036 2700 888 2760 749 curveto % 600 605 610 2820 621 2880 507 2940 407 curveto % 615 620 625 3000 322 3060 250 3120 191 curveto % 630 635 640 3180 144 3240 106 3300 77 curveto % 645 650 655 3360 55 3420 39 3480 27 curveto % 660 665 670 3540 18 3600 12 3660 8 curveto % 675 680 685 3720 5 3780 3 3840 2 curveto % 690 695 700 3900 1 3960 0 4020 0 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 0. 415 0. 420 1. 425 1. 430 1. 435 2. %! 440 3. 445 4. 450 6. 455 8. 460 11. 465 14. %! 470 19. 475 24. 480 31. 485 38. 490 47. 495 56. %! 500 67. 505 78. 510 89. 515 101. 520 112. 525 122. %! 530 132. 535 139. 540 145. 545 149. 550 150. 555 149. %! 560 145. 565 139. 570 132. 575 122. 580 112. 585 101. %! 590 89. 595 78. 600 67. 605 56. 610 47. 615 38. %! 620 31. 625 24. 630 19. 635 14. 640 11. 645 8. %! 650 6. 655 4. 660 3. 665 2. 670 1. 675 1. %! 680 1. 685 0. 690 0. 695 0. 700 0. 705 0. %! 710 0. 715 0. 720 0. [50] 0 setdash %V 60 0 moveto % 385 120 0 180 0 240 0 curveto % 390 395 400 300 1 360 2 420 4 curveto % 405 410 415 480 8 540 14 600 23 curveto % 420 425 430 660 33 720 46 780 59 curveto % 435 440 445 840 76 900 96 960 120 curveto % 450 455 460 1020 147 1080 181 1140 225 curveto % 465 470 475 1200 278 1260 338 1320 416 curveto % 480 485 490 1380 517 1440 646 1500 814 curveto % 495 500 505 1560 1006 1620 1216 1680 1420 curveto % 510 515 520 1740 1586 1800 1724 1860 1830 curveto % 525 530 535 1920 1908 1980 1960 2040 1990 curveto % 540 545 550 2100 2000 2160 1990 2220 1957 curveto % 555 560 565 2280 1904 2340 1831 2400 1740 curveto % 570 575 580 2460 1632 2520 1514 2580 1390 curveto % 585 590 595 2640 1262 2700 1133 2760 1006 curveto % 600 605 610 2820 882 2880 762 2940 642 curveto % 615 620 625 3000 530 3060 434 3120 350 curveto % 630 635 640 3180 276 3240 214 3300 163 curveto % 645 650 655 3360 122 3420 89 3480 64 curveto % 660 665 670 3540 46 3600 34 3660 23 curveto % 675 680 685 3720 16 3780 11 3840 8 curveto % 690 695 700 3900 5 3960 4 4020 2 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 0. 385 0. 390 0. 395 0. 400 0. 405 0. %! 410 0. 415 1. 420 1. 425 2. 430 3. 435 3. %! 440 4. 445 6. 450 7. 455 9. 460 11. 465 14. %! 470 17. 475 21. 480 25. 485 31. 490 39. 495 48. %! 500 61. 505 75. 510 91. 515 107. 520 119. 525 129. %! 530 137. 535 143. 540 147. 545 149. 550 150. 555 149. %! 560 147. 565 143. 570 137. 575 131. 580 122. 585 114. %! 590 104. 595 95. 600 85. 605 75. 610 66. 615 57. %! 620 48. 625 40. 630 33. 635 26. 640 21. 645 16. %! 650 12. 655 9. 660 7. 665 5. 670 3. 675 3. %! 680 2. 685 1. 690 1. 695 1. 700 0. 705 0. %! 710 0. 715 0. 720 0. showpage grestore } for %output with langind end %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 2N_R 20180701 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark12 [ /View [ /Fit ] /DOCVIEW pdfmark12 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ibshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto} bind def /ebshow2 {TBK 0 100 rmoveto show 0 -100 rmoveto} 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 setcmyk_olvcolor} bind def /tfl {tzl setcmyk_olvcolor} bind def /tfv {tzv setcmyk_olvcolor} bind def /tfc {tzc setcmyk_olvcolor} bind def /tfm {tzm setcmyk_olvcolor} bind def /tfy {tzy setcmyk_olvcolor} bind def /tfn {tzn setcmyk_olvcolor} bind def /tfd {tzd setcmyk_olvcolor} bind def /tfz {tzz setcmyk_olvcolor} bind def /tfh {tzh setcmyk_olvcolor} bind def /tfw {tzw setcmyk_olvcolor} bind def /tfr {tzr setcmyk_olvcolor} bind def /tfg {tzg setcmyk_olvcolor} bind def /tfb {tzb setcmyk_olvcolor} bind def /tfj {tzj setcmyk_olvcolor} bind def /tfrz {tzrz setcmyk_olvcolor} bind def /tfgz {tzgz setcmyk_olvcolor} bind def /tfbz {tzbz setcmyk_olvcolor} bind def /tfjz {tzjz setcmyk_olvcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyk_olvcolor show} bind def /outrecfi { %x y width heigth c m y k setcmyk_olvcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyk_olvcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyk_olvcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (DG001-2N) show % ( B8620_8, M8220-6, B4_33_2, N=4_33_2) show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.5 setgray %0.0 0.0 0.0 0.5 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3400 moveto (ln) TBM tfw show 50 0 rmoveto (V) TBIM tfw show 30 0 rmoveto TBM 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM 20 0 (-c\267) ashow (555) show 20 0 rmoveto (]) show (2) ebshow2 50 setlinewidth [50] 0 setdash 050 3170 moveto 300 0 rlineto stroke [ ] 0 setdash 30 setlinewidth 350 3100 moveto TBM tfw (experimentell\255CIE) showde %08220-6 1 (experimental\255CIE) showen %18220-6 1 (experimental\255CIE) showes %28220-6 1 (experimental\255CIE) showfr %38220-6 1 (experimental\255CIE) showit %48220-6 1 (experimental\255CIE) showjp %58220-6 1 4700 500 moveto (l) outSM 30 0 rmoveto (/nm) bshow2 2950 3400 moveto (ln) TBM tfw show 30 0 rmoveto (L) TBIM tzo outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (570) show 20 0 rmoveto (]) show (2) ebshow2 2950 3100 moveto (ln) TBM tfw show 20 0 rmoveto (M) TBIM tzl outshowf 30 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (545) show 20 0 rmoveto (]) show (2) ebshow2 2950 2800 moveto (ln) TBM tfw show 30 0 rmoveto (S) TBIM tzv outshowf 50 0 rmoveto TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto TBM tfw 20 0 (-c\267) ashow (450) show 20 0 rmoveto (]) show (2) ebshow2 /tx [ (400) (500) (600) (700)] def /ty [(0) (10) (20) (30) (40) (50)] def 050 3750 moveto TBM tfw %B8620-08.xps (log (relative Empfindlichkeit)) showde %08220-6 2 (log (relative sensitivty)) showen %18220-6 2 (log (Sensibilidad relativa)) showes %28220-6 2 (log (relative sensitivty)) showfr %38220-6 2 (log (relative sensitivty)) showit %48220-6 2 (log (relative sensitivty)) showjp %58220-6 2 050 2800 moveto (log [ ) TBM tfw show (L) TBIM tzo outshowf (, ) TBM tfw show (V) TBIM tfw show (, ) TBM tfw show (M) TBIM tzl outshowf (, ) TBM tfw show (V') TBIM tfn show (, ) TBM tfw show (S) TBIM tzv outshowf ( ]) TBM tfw show 2900 2500 moveto (L) TBIM tzo outshowf 2600 2500 moveto (V) TBIM tfw show 2350 2500 moveto (M) TBIM tzl outshowf 1400 2500 moveto (S) TBIM tzv outshowf 2000 2500 moveto (V') TBIM tfn show 4000 2500 moveto TBM tfw (Modell ) showde %08220-6 3 (model ) showen %18220-6 3 (Modelo ) showes %28220-6 3 (model ) showfr %38220-6 3 (model ) showit %48220-6 3 (model ) showjp %58220-6 3 ( l ) outSM /ty [() ( -2) ( ) ( -1) ( ) ( 0) ] def tfw 600 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2000 rlineto stroke 0 2000 moveto 3200 0 rlineto stroke TBG %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt { 20 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!x-Achse: 150 S-Einheiten = 2500*0.8 = 2000 Skalen-Einheiten 0 1 5 {/i exch def /iyt {-100 i 0400 mul add} def /iyl { 000 i 0400 mul add} def -550 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfz 0 setlinewidth % fuer clip 0 0 moveto 4800 0 rlineto 0 2050 rlineto -4800 0 rlineto 0 -2050 rlineto clip stroke 50 setlinewidth %!0 WRPOS:EMPP8620.FOR KURVT(J)Vn 0 1 8 [ ] 0 setdash %Vn 60 375 moveto % 385 120 508 180 635 240 756 curveto % 390 395 400 300 872 360 982 420 1086 curveto % 405 410 415 480 1185 540 1278 600 1365 curveto % 420 425 430 660 1447 720 1523 780 1594 curveto % 435 440 445 840 1659 900 1718 960 1771 curveto % 450 455 460 1020 1819 1080 1862 1140 1898 curveto % 465 470 475 1200 1929 1260 1955 1320 1975 curveto % 480 485 490 1380 1989 1440 1997 1500 2000 curveto % 495 500 505 1560 1997 1620 1989 1680 1975 curveto % 510 515 520 1740 1955 1800 1929 1860 1898 curveto % 525 530 535 1920 1862 1980 1819 2040 1771 curveto % 540 545 550 2100 1718 2160 1659 2220 1594 curveto % 555 560 565 2280 1523 2340 1447 2400 1365 curveto % 570 575 580 2460 1278 2520 1185 2580 1086 curveto % 585 590 595 2640 982 2700 872 2760 756 curveto % 600 605 610 2820 635 2880 508 2940 375 curveto % 615 620 625 3000 237 3060 93 3120 -55 curveto % 630 635 640 3180 -210 3240 -371 3300 -537 curveto % 645 650 655 3360 -710 3420 -887 3480 -1071 curveto % 660 665 670 3540 -1260 3600 -1454 3660 -1654 curveto % 675 680 685 3720 -1860 3780 -2072 3840 -2289 curveto % 690 695 700 3900 -2512 3960 -2740 4020 -2974 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 28. 385 38. 390 48. 395 57. 400 65. 405 74. %! 410 81. 415 89. 420 96. 425 102. 430 109. 435 114. %! 440 120. 445 124. 450 129. 455 133. 460 136. 465 140. %! 470 142. 475 145. 480 147. 485 148. 490 149. 495 150. %! 500 150. 505 150. 510 149. 515 148. 520 147. 525 145. %! 530 142. 535 140. 540 136. 545 133. 550 129. 555 124. %! 560 120. 565 114. 570 109. 575 102. 580 96. 585 89. %! 590 81. 595 74. 600 65. 605 57. 610 48. 615 38. %! 620 28. 625 18. 630 7. 635 -4. 640 -16. 645 -28. %! 650 -40. 655 -53. 660 -67. 665 -80. 670 -94. 675 -109. %! 680 -124. 685 -140. 690 -155. 695 -172. 700 -188. 705 -206. %! 710 -223. 715 -241. 720 -259. [50] 0 setdash %Vn 60 -364 moveto % 385 120 -124 180 124 240 374 curveto % 390 395 400 300 614 360 833 420 1025 curveto % 405 410 415 480 1188 540 1325 600 1440 curveto % 420 425 430 660 1535 720 1613 780 1675 curveto % 435 440 445 840 1726 900 1768 960 1803 curveto % 450 455 460 1020 1834 1080 1864 1140 1892 curveto % 465 470 475 1200 1919 1260 1944 1320 1965 curveto % 480 485 490 1380 1982 1440 1994 1500 1999 curveto % 495 500 505 1560 1999 1620 1991 1680 1977 curveto % 510 515 520 1740 1955 1800 1927 1860 1892 curveto % 525 530 535 1920 1850 1980 1801 2040 1746 curveto % 540 545 550 2100 1683 2160 1613 2220 1537 curveto % 555 560 565 2280 1454 2340 1364 2400 1267 curveto % 570 575 580 2460 1163 2520 1053 2580 937 curveto % 585 590 595 2640 816 2700 691 2760 561 curveto % 600 605 610 2820 429 2880 294 2940 157 curveto % 615 620 625 3000 18 3060 -120 3120 -259 curveto % 630 635 640 3180 -398 3240 -535 3300 -670 curveto % 645 650 655 3360 -803 3420 -934 3480 -1064 curveto % 660 665 670 3540 -1191 3600 -1316 3660 -1440 curveto % 675 680 685 3720 -1561 3780 -1681 3840 -1800 curveto % 690 695 700 3900 -1916 3960 -2031 4020 -2144 curveto % 705 710 715 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke %! 380 -27. 385 -9. 390 9. 395 28. 400 46. 405 63. %! 410 77. 415 89. 420 99. 425 108. 430 115. 435 121. %! 440 126. 445 129. 450 133. 455 135. 460 138. 465 140. %! 470 142. 475 144. 480 146. 485 147. 490 149. 495 150. %! 500 150. 505 150. 510 149. 515 148. 520 147. 525 145. %! 530 142. 535 139. 540 135. 545 131. 550 126. 555 121. %! 560 115. 565 109. 570 102. 575 95. 580 87. 585 79. %! 590 70. 595 61. 600 52. 605 42. 610 32. 615 22. %! 620 12. 625 1. 630 -9. 635 -19. 640 -30. 645 -40. %! 650 -50. 655 -60. 660 -70. 665 -80. 670 -89. 675 -99. %! 680 -108. 685 -117. 690 -126. 695 -135. 700 -144. 705 -152. %! 710 -161. 715 -169. 720 -177. %!1 WRPOS:EMPP8620.FOR KURVT(J)P 0 1 8 [ ] 0 setdash %P 60 -1860 moveto % 385 120 -1654 180 -1454 240 -1260 curveto % 390 395 400 300 -1071 360 -887 420 -710 curveto % 405 410 415 480 -537 540 -371 600 -210 curveto % 420 425 430 660 -55 720 93 780 237 curveto % 435 440 445 840 375 900 508 960 635 curveto % 450 455 460 1020 756 1080 872 1140 982 curveto % 465 470 475 1200 1086 1260 1185 1320 1278 curveto % 480 485 490 1380 1365 1440 1447 1500 1523 curveto % 495 500 505 1560 1594 1620 1659 1680 1718 curveto % 510 515 520 1740 1771 1800 1819 1860 1862 curveto % 525 530 535 1920 1898 1980 1929 2040 1955 curveto % 540 545 550 2100 1975 2160 1989 2220 1997 curveto % 555 560 565 2280 2000 2340 1997 2400 1989 curveto % 570 575 580 2460 1975 2520 1955 2580 1929 curveto % 585 590 595 2640 1898 2700 1862 2760 1819 curveto % 600 605 610 2820 1771 2880 1718 2940 1659 curveto % 615 620 625 3000 1594 3060 1523 3120 1447 curveto % 630 635 640 3180 1365 3240 1278 3300 1185 curveto % 645 650 655 3360 1086 3420 982 3480 872 curveto % 660 665 670 3540 756 3600 635 3660 508 curveto % 675 680 685 3720 375 3780 237 3840 93 curveto % 690 695 700 3900 -55 3960 -210 4020 -371 curveto % 705 710 715 tzo outstroke %! 380 -140. 385 -124. 390 -109. 395 -94. 400 -80. 405 -67. %! 410 -53. 415 -40. 420 -28. 425 -16. 430 -4. 435 7. %! 440 18. 445 28. 450 38. 455 48. 460 57. 465 65. %! 470 74. 475 81. 480 89. 485 96. 490 102. 495 109. %! 500 114. 505 120. 510 124. 515 129. 520 133. 525 136. %! 530 140. 535 142. 540 145. 545 147. 550 148. 555 149. %! 560 150. 565 150. 570 150. 575 149. 580 148. 585 147. %! 590 145. 595 142. 600 140. 605 136. 610 133. 615 129. %! 620 124. 625 120. 630 114. 635 109. 640 102. 645 96. %! 650 89. 655 81. 660 74. 665 65. 670 57. 675 48. %! 680 38. 685 28. 690 18. 695 7. 700 -4. 705 -16. %! 710 -28. 715 -40. 720 -53. [50] 0 setdash %P 60 -925 moveto % 385 120 -705 180 -502 240 -288 curveto % 390 395 400 300 -123 360 92 420 290 curveto % 405 410 415 480 480 540 647 600 752 curveto % 420 425 430 660 816 720 856 780 880 curveto % 435 440 445 840 899 900 919 960 941 curveto % 450 455 460 1020 971 1080 1014 1140 1076 curveto % 465 470 475 1200 1150 1260 1224 1320 1306 curveto % 480 485 490 1380 1392 1440 1478 1500 1568 curveto % 495 500 505 1560 1650 1620 1725 1680 1788 curveto % 510 515 520 1740 1836 1800 1875 1860 1905 curveto % 525 530 535 1920 1929 1980 1948 2040 1964 curveto % 540 545 550 2100 1977 2160 1987 2220 1994 curveto % 555 560 565 2280 1999 2340 2000 2400 1998 curveto % 570 575 580 2460 1993 2520 1983 2580 1971 curveto % 585 590 595 2640 1953 2700 1931 2760 1903 curveto % 600 605 610 2820 1869 2880 1828 2940 1777 curveto % 615 620 625 3000 1717 3060 1653 3120 1583 curveto % 630 635 640 3180 1505 3240 1419 3300 1327 curveto % 645 650 655 3360 1228 3420 1120 3480 1006 curveto % 660 665 670 3540 895 3600 787 3660 665 curveto % 675 680 685 3720 535 3780 410 3840 295 curveto % 690 695 700 3900 178 3960 60 4020 -58 curveto % 705 710 715 tzo outstroke %! 380 -69. 385 -53. 390 -38. 395 -22. 400 -9. 405 7. %! 410 22. 415 36. 420 49. 425 56. 430 61. 435 64. %! 440 66. 445 67. 450 69. 455 71. 460 73. 465 76. %! 470 81. 475 86. 480 92. 485 98. 490 104. 495 111. %! 500 118. 505 124. 510 129. 515 134. 520 138. 525 141. %! 530 143. 535 145. 540 146. 545 147. 550 148. 555 149. %! 560 150. 565 150. 570 150. 575 150. 580 149. 585 149. %! 590 148. 595 146. 600 145. 605 143. 610 140. 615 137. %! 620 133. 625 129. 630 124. 635 119. 640 113. 645 106. %! 650 100. 655 92. 660 84. 665 75. 670 67. 675 59. %! 680 50. 685 40. 690 31. 695 22. 700 13. 705 5. %! 710 -4. 715 -13. 720 -23. %!2 WRPOS:EMPP8620.FOR KURVT(J)D 0 1 8 [ ] 0 setdash %D 60 -887 moveto % 385 120 -710 180 -537 240 -371 curveto % 390 395 400 300 -210 360 -55 420 93 curveto % 405 410 415 480 237 540 375 600 508 curveto % 420 425 430 660 635 720 756 780 872 curveto % 435 440 445 840 982 900 1086 960 1185 curveto % 450 455 460 1020 1278 1080 1365 1140 1447 curveto % 465 470 475 1200 1523 1260 1594 1320 1659 curveto % 480 485 490 1380 1718 1440 1771 1500 1819 curveto % 495 500 505 1560 1862 1620 1898 1680 1929 curveto % 510 515 520 1740 1955 1800 1975 1860 1989 curveto % 525 530 535 1920 1997 1980 2000 2040 1997 curveto % 540 545 550 2100 1989 2160 1975 2220 1955 curveto % 555 560 565 2280 1929 2340 1898 2400 1862 curveto % 570 575 580 2460 1819 2520 1771 2580 1718 curveto % 585 590 595 2640 1659 2700 1594 2760 1523 curveto % 600 605 610 2820 1447 2880 1365 2940 1278 curveto % 615 620 625 3000 1185 3060 1086 3120 982 curveto % 630 635 640 3180 872 3240 756 3300 635 curveto % 645 650 655 3360 508 3420 375 3480 237 curveto % 660 665 670 3540 93 3600 -55 3660 -210 curveto % 675 680 685 3720 -371 3780 -537 3840 -710 curveto % 690 695 700 3900 -887 3960 -1071 4020 -1260 curveto % 705 710 715 tzl outstroke %! 380 -67. 385 -53. 390 -40. 395 -28. 400 -16. 405 -4. %! 410 7. 415 18. 420 28. 425 38. 430 48. 435 57. %! 440 65. 445 74. 450 81. 455 89. 460 96. 465 102. %! 470 109. 475 114. 480 120. 485 124. 490 129. 495 133. %! 500 136. 505 140. 510 142. 515 145. 520 147. 525 148. %! 530 149. 535 150. 540 150. 545 150. 550 149. 555 148. %! 560 147. 565 145. 570 142. 575 140. 580 136. 585 133. %! 590 129. 595 124. 600 120. 605 114. 610 109. 615 102. %! 620 96. 625 89. 630 81. 635 74. 640 65. 645 57. %! 650 48. 655 38. 660 28. 665 18. 670 7. 675 -4. %! 680 -16. 685 -28. 690 -40. 695 -53. 700 -67. 705 -80. %! 710 -94. 715 -109. 720 -124. [50] 0 setdash %D 60 -934 moveto % 385 120 -710 180 -502 240 -285 curveto % 390 395 400 300 -114 360 109 420 316 curveto % 405 410 415 480 519 540 707 600 838 curveto % 420 425 430 660 934 720 1007 780 1068 curveto % 435 440 445 840 1127 900 1186 960 1242 curveto % 450 455 460 1020 1292 1080 1337 1140 1385 curveto % 465 470 475 1200 1435 1260 1485 1320 1542 curveto % 480 485 490 1380 1606 1440 1675 1500 1748 curveto % 495 500 505 1560 1815 1620 1874 1680 1922 curveto % 510 515 520 1740 1954 1800 1976 1860 1990 curveto % 525 530 535 1920 1998 1980 2000 2040 1997 curveto % 540 545 550 2100 1989 2160 1976 2220 1958 curveto % 555 560 565 2280 1934 2340 1903 2400 1866 curveto % 570 575 580 2460 1820 2520 1767 2580 1707 curveto % 585 590 595 2640 1640 2700 1566 2760 1487 curveto % 600 605 610 2820 1404 2880 1317 2940 1224 curveto % 615 620 625 3000 1126 3060 1026 3120 923 curveto % 630 635 640 3180 816 3240 707 3300 597 curveto % 645 650 655 3360 482 3420 364 3480 242 curveto % 660 665 670 3540 124 3600 9 3660 -119 curveto % 675 680 685 3720 -251 3780 -378 3840 -495 curveto % 690 695 700 3900 -612 3960 -729 4020 -847 curveto % 705 710 715 tzl outstroke %! 380 -70. 385 -53. 390 -38. 395 -21. 400 -9. 405 8. %! 410 24. 415 39. 420 53. 425 63. 430 70. 435 76. %! 440 80. 445 85. 450 89. 455 93. 460 97. 465 100. %! 470 104. 475 108. 480 111. 485 116. 490 120. 495 126. %! 500 131. 505 136. 510 141. 515 144. 520 147. 525 148. %! 530 149. 535 150. 540 150. 545 150. 550 149. 555 148. %! 560 147. 565 145. 570 143. 575 140. 580 137. 585 133. %! 590 128. 595 123. 600 117. 605 112. 610 105. 615 99. %! 620 92. 625 84. 630 77. 635 69. 640 61. 645 53. %! 650 45. 655 36. 660 27. 665 18. 670 9. 675 1. %! 680 -9. 685 -19. 690 -28. 695 -37. 700 -46. 705 -55. %! 710 -64. 715 -73. 720 -82. %!3 WRPOS:EMPP8620.FOR KURVT(J)T 0 1 8 [ ] 0 setdash %T 60 1523 moveto % 385 120 1594 180 1659 240 1718 curveto % 390 395 400 300 1771 360 1819 420 1862 curveto % 405 410 415 480 1898 540 1929 600 1955 curveto % 420 425 430 660 1975 720 1989 780 1997 curveto % 435 440 445 840 2000 900 1997 960 1989 curveto % 450 455 460 1020 1975 1080 1955 1140 1929 curveto % 465 470 475 1200 1898 1260 1862 1320 1819 curveto % 480 485 490 1380 1771 1440 1718 1500 1659 curveto % 495 500 505 1560 1594 1620 1523 1680 1447 curveto % 510 515 520 1740 1365 1800 1278 1860 1185 curveto % 525 530 535 1920 1086 1980 982 2040 872 curveto % 540 545 550 2100 756 2160 635 2220 508 curveto % 555 560 565 2280 375 2340 237 2400 93 curveto % 570 575 580 2460 -55 2520 -210 2580 -371 curveto % 585 590 595 2640 -537 2700 -710 2760 -887 curveto % 600 605 610 2820 -1071 2880 -1260 2940 -1454 curveto % 615 620 625 3000 -1654 3060 -1860 3120 -2072 curveto % 630 635 640 3180 -2289 3240 -2512 3300 -2740 curveto % 645 650 655 3360 -2974 3420 -3214 3480 -3459 curveto % 660 665 670 3540 -3710 3600 -3967 3660 -4229 curveto % 675 680 685 3720 -4497 3780 -4771 3840 -5050 curveto % 690 695 700 3900 -5335 3960 -5626 4020 -5922 curveto % 705 710 715 tzv outstroke %! 380 114. 385 120. 390 124. 395 129. 400 133. 405 136. %! 410 140. 415 142. 420 145. 425 147. 430 148. 435 149. %! 440 150. 445 150. 450 150. 455 149. 460 148. 465 147. %! 470 145. 475 142. 480 140. 485 136. 490 133. 495 129. %! 500 124. 505 120. 510 114. 515 109. 520 102. 525 96. %! 530 89. 535 81. 540 74. 545 65. 550 57. 555 48. %! 560 38. 565 28. 570 18. 575 7. 580 -4. 585 -16. %! 590 -28. 595 -40. 600 -53. 605 -67. 610 -80. 615 -94. %! 620 -109. 625 -124. 630 -140. 635 -155. 640 -172. 645 -188. %! 650 -206. 655 -223. 660 -241. 665 -259. 670 -278. 675 -298. %! 680 -317. 685 -337. 690 -358. 695 -379. 700 -400. 705 -422. %! 710 -444. 715 -467. 720 -490. [50] 0 setdash %T 60 217 moveto % 385 120 440 180 646 240 864 curveto % 390 395 400 300 1033 360 1252 420 1455 curveto % 405 410 415 480 1647 540 1812 600 1912 curveto % 420 425 430 660 1967 720 1993 780 2000 curveto % 435 440 445 840 1998 900 1992 960 1977 curveto % 450 455 460 1020 1946 1080 1887 1140 1813 curveto % 465 470 475 1200 1727 1260 1631 1320 1533 curveto % 480 485 490 1380 1437 1440 1347 1500 1260 curveto % 495 500 505 1560 1158 1620 1037 1680 914 curveto % 510 515 520 1740 805 1800 699 1860 561 curveto % 525 530 535 1920 445 1980 300 2040 152 curveto % 540 545 550 2100 6 2160 -127 2220 -249 curveto % 555 560 565 2280 -343 2340 -396 2400 -426 curveto % 570 575 580 2460 -484 2520 -567 2580 -600 curveto % 585 590 595 2640 -678 2700 -778 2760 -975 curveto % 600 605 610 2820 -1096 2880 -1178 2940 -1401 curveto % 615 620 625 3000 -1641 3060 -1819 3120 -1960 curveto % 630 635 640 3180 -2201 3240 -2201 3300 -2201 curveto % 645 650 655 3360 -2201 3420 -2201 3480 -2201 curveto % 660 665 670 3540 -2201 3600 -2201 3660 -2201 curveto % 675 680 685 3720 -2201 3780 -2201 3840 -2201 curveto % 690 695 700 3900 -2201 3960 -2201 4020 -2201 curveto % 705 710 715 tzv outstroke %! 380 16. 385 33. 390 48. 395 65. 400 77. 405 94. %! 410 109. 415 124. 420 136. 425 143. 430 148. 435 149. %! 440 150. 445 150. 450 149. 455 148. 460 146. 465 142. %! 470 136. 475 130. 480 122. 485 115. 490 108. 495 101. %! 500 95. 505 87. 510 78. 515 69. 520 60. 525 52. %! 530 42. 535 33. 540 23. 545 11. 550 1. 555 -10. %! 560 -19. 565 -26. 570 -30. 575 -32. 580 -36. 585 -43. %! 590 -45. 595 -51. 600 -58. 605 -73. 610 -82. 615 -88. %! 620 -105. 625 -123. 630 -136. 635 -147. 640 -165. 645 -165. %! 650 -165. 655 -165. 660 -165. 665 -165. 670 -165. 675 -165. %! 680 -165. 685 -165. 690 -165. 695 -165. 700 -165. 705 -165. %! 710 -165. 715 -165. 720 -165. %!4 WRPOS:EMPP8620.FOR KURVT(J)V 0 1 8 [ ] 0 setdash %V 60 -1260 moveto % 385 120 -1071 180 -887 240 -710 curveto % 390 395 400 300 -537 360 -371 420 -210 curveto % 405 410 415 480 -55 540 93 600 237 curveto % 420 425 430 660 375 720 508 780 635 curveto % 435 440 445 840 756 900 872 960 982 curveto % 450 455 460 1020 1086 1080 1185 1140 1278 curveto % 465 470 475 1200 1365 1260 1447 1320 1523 curveto % 480 485 490 1380 1594 1440 1659 1500 1718 curveto % 495 500 505 1560 1771 1620 1819 1680 1862 curveto % 510 515 520 1740 1898 1800 1929 1860 1955 curveto % 525 530 535 1920 1975 1980 1989 2040 1997 curveto % 540 545 550 2100 2000 2160 1997 2220 1989 curveto % 555 560 565 2280 1975 2340 1955 2400 1929 curveto % 570 575 580 2460 1898 2520 1862 2580 1819 curveto % 585 590 595 2640 1771 2700 1718 2760 1659 curveto % 600 605 610 2820 1594 2880 1523 2940 1447 curveto % 615 620 625 3000 1365 3060 1278 3120 1185 curveto % 630 635 640 3180 1086 3240 982 3300 872 curveto % 645 650 655 3360 756 3420 635 3480 508 curveto % 660 665 670 3540 375 3600 237 3660 93 curveto % 675 680 685 3720 -55 3780 -210 3840 -371 curveto % 690 695 700 3900 -537 3960 -710 4020 -887 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 -94. 385 -80. 390 -67. 395 -53. 400 -40. 405 -28. %! 410 -16. 415 -4. 420 7. 425 18. 430 28. 435 38. %! 440 48. 445 57. 450 65. 455 74. 460 81. 465 89. %! 470 96. 475 102. 480 109. 485 114. 490 120. 495 124. %! 500 129. 505 133. 510 136. 515 140. 520 142. 525 145. %! 530 147. 535 148. 540 149. 545 150. 550 150. 555 150. %! 560 149. 565 148. 570 147. 575 145. 580 142. 585 140. %! 590 136. 595 133. 600 129. 605 124. 610 120. 615 114. %! 620 109. 625 102. 630 96. 635 89. 640 81. 645 74. %! 650 65. 655 57. 660 48. 665 38. 670 28. 675 18. %! 680 7. 685 -4. 690 -16. 695 -28. 700 -40. 705 -53. %! 710 -67. 715 -80. 720 -94. [50] 0 setdash %V 60 -1355 moveto % 385 120 -1136 180 -931 240 -721 curveto % 390 395 400 300 -555 360 -333 420 -129 curveto % 405 410 415 480 81 540 290 600 451 curveto % 420 425 430 660 581 720 689 780 779 curveto % 435 440 445 840 863 900 945 960 1022 curveto % 450 455 460 1020 1095 1080 1167 1140 1241 curveto % 465 470 475 1200 1314 1260 1383 1320 1454 curveto % 480 485 490 1380 1530 1440 1607 1500 1688 curveto % 495 500 505 1560 1761 1620 1827 1680 1881 curveto % 510 515 520 1740 1919 1800 1948 1860 1969 curveto % 525 530 535 1920 1984 1980 1993 2040 1998 curveto % 540 545 550 2100 2000 2160 1998 2220 1992 curveto % 555 560 565 2280 1983 2340 1969 2400 1952 curveto % 570 575 580 2460 1929 2520 1903 2580 1873 curveto % 585 590 595 2640 1840 2700 1803 2760 1761 curveto % 600 605 610 2820 1716 2880 1665 2940 1605 curveto % 615 620 625 3000 1538 3060 1469 3120 1394 curveto % 630 635 640 3180 1312 3240 1223 3300 1129 curveto % 645 650 655 3360 1028 3420 919 3480 804 curveto % 660 665 670 3540 692 3600 584 3660 461 curveto % 675 680 685 3720 331 3780 206 3840 90 curveto % 690 695 700 3900 -26 3960 -143 4020 -262 curveto % 705 710 715 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke %! 380 -102. 385 -85. 390 -70. 395 -54. 400 -42. 405 -25. %! 410 -10. 415 6. 420 22. 425 34. 430 44. 435 52. %! 440 58. 445 65. 450 71. 455 77. 460 82. 465 88. %! 470 93. 475 99. 480 104. 485 109. 490 115. 495 121. %! 500 127. 505 132. 510 137. 515 141. 520 144. 525 146. %! 530 148. 535 149. 540 149. 545 150. 550 150. 555 150. %! 560 149. 565 149. 570 148. 575 146. 580 145. 585 143. %! 590 141. 595 138. 600 135. 605 132. 610 129. 615 125. %! 620 120. 625 115. 630 110. 635 105. 640 98. 645 92. %! 650 85. 655 77. 660 69. 665 60. 670 52. 675 44. %! 680 35. 685 25. 690 15. 695 7. 700 -2. 705 -11. %! 710 -20. 715 -29. 720 -38. showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 108 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/DG00/DG00.HTM 3N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 %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 %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 /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 %actual 2 or 10-degree CIE standard observer E, 80 data, 380-775nm, delta=5nm /lE1j 80 array def /mE1j 80 array def /sE1j 80 array def /lESj 80 array def /mESj 80 array def /sESj 80 array def /XE1j 80 array def /YE1j 80 array def /ZE1j 80 array def /xanE1j 80 array def /yanE1j 80 array def /zanE1j 80 array def /XESj 80 array def /YESj 80 array def /ZESj 80 array def /xanESj 80 array def /yanESj 80 array def /zanESj 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 08 def} ifelse %08/09=LMS_R17/M4 /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 %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 /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /W0 570 def /W1 540 def /W2 440 def %new %calculate data at 555 nm, 550=380+i*5, ergibt i=(555-380)/5=35 /i 35 def /X555 380 i 5 mul add def /funcW0 X555 W0 sub CX div dup mul CY mul neg def /funcW1 X555 W1 sub CX div dup mul CY mul neg def %new /funcW2 X555 W2 sub CX div dup mul CY mul neg def /ILT 0 def ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put Yi3 i Yi0 i get 0.5 mul Yi1 i get 0.5 mul add put } for %i=0,1,76 /sASjk 80 array def 0 1 76 {/i exch def %i=0,1,76 /i440 440 380 sub 5 idiv def i i440 le {sASjk i i i440 div put} %linear 380..440 {sASjk i 1 put} ifelse } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 lESj i Yi0 i get put mESj i Yi1 i get put sESj i Yi2 i get sASjk i get mul put } for %i=0,1,76 /fslES 0 def /fsmES 0 def /fssES 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslES fslES lESj i get add def /fsmES fsmES mESj i get add def /fssES fssES sESj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,1,76 %normalisation lms to 100 for E00 lESj i lESj i get fslES 0.01 add div 100 mul put mESj i mESj i get fsmES 0.01 add div 100 mul put sESj i sESj i get fssES 0.01 add div 100 mul put } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 %normalisation for X=D65, D50,...,Q00 %based on normalisation lms to 100 for E00 lASj i lESj i get SDAK i get mul 100. div put mASj i mESj i get SDAK i get mul 100. div put %no change for SDAK=E00 sASj i sESj i get SDAK i get mul 100. div put } for %i=0,1,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 %STOP1 /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 65 Wellenlaengen ohne Purpur, 380_700:64 [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 %%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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /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 5 /Times-ISOL1 FS %175 85 moveto (DG000-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 3 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(DG001-3N) show} {(DG001-3N) show} ifelse %xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if %(A) show %A %(_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 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 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 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 [ ] 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 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd 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 iyd 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 ge xchartl 15 le and {ty1 i get show} if } for %STOPa 0 1 76 {/i exch def %i=0,76 XASj i A11 lASj i get mul A12 mASj i get mul add A13 sASj i get mul add put YASj i A21 lASj i get mul A22 mASj i get mul add A23 sASj i get mul add put ZASj i A31 lASj i get mul A32 mASj i get mul add A33 sASj i get mul add put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %Normalisation ymax=1 /i555 555 380 sub 5 idiv def /Y555 YASj i555 get def 0 1 76 {/i exch def %i=0,76 XA1j i XASj i get Y555 0.01 add div put YA1j i YASj i get Y555 0.01 add div put ZA1j i ZASj i get Y555 0.01 add div put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %assumption sum=equal 100 for E 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 /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_X) (F10_X) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17) (R17M4)] def /xposj 3000 def /yposj 2900 def /yposj0 yposj 300 add def %3200 /yposjP yposj 600 add def %3500 /yposjT yposj 900 add def %3800 /yposjM yposj 300 sub def %2600 /yposjK yposj 600 sub def %2300 /W0 570 def %dummy /W1 540 def /W2 440 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 00 ge xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 03 ge xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (LMS_) show inx4 xchart4 get show xchartl 0 ge xchartl 5 le and { (\255Zapfen\255Empfindlichkeit) showde %08141-1 2 ( cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (\255Zapfen\255Erregung) showde %08141-1 2 ( cone excitation) showen %18141-1 2 } 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 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 {TBK (log [) show TBIK (l) show} if xchartl 7 eq {TBK (log [) show TBIK (s) 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 {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 06 ge xchartl 07 le and { TBK (/{0,5) show TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamdak1s TBK (+0,5) show TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (}]) show } if xchartl 00 eq xchartl 03 eq or {%xchartl=00,03 TBK (=) show TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=00,03 xchartl 01 eq xchartl 04 eq or {%xchartl=01,04 TBK (=) show TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=01,04 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 lamdak1s TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=02,05 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } if xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } 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 6 eq {ycuri i mASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+M/Y] } if xchartl 7 eq {ycuri i sASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+S/Y] } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 0<=xchartl<=7 0 setgray xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM moveto xchartl 0 eq {SK (S) show TIK (l) show} if xchartl 1 eq {SK (S) show TIK (m) show} if xchartl 2 eq {SK (S) show TIK (s) show} if xchartl 3 eq {SK (S) show TIK (l) show} if xchartl 4 eq {SK (S) show TIK (m) show} if xchartl 5 eq {SK (S) show TIK (s) show} if xchartl 6 eq {SK (S) show TIK (m) show} if xchartl 7 eq {SK (S) show TIK (s) 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 {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s 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 {fsmAS cvsshow2x} if xchartl 7 eq {fssAS cvsshow2x} 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 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } 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 {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK inx4 xchart4 get show xchartl 08 ge xchartl 13 le and { (\255Spektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (\255Normspektralwert\255Erregung) showde %08141-1 2 ( spectral tristimulus value excitation) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and {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 {TBK (log [) show TBIK (x) show} if xchartl 15 eq {TBK (log [) show TBIK (z) 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 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (]) show } if xchartl 08 eq xchartl 11 eq or {%xchartl=8,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 1400 yposj0 moveto TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=11 xchartl 09 eq xchartl 12 eq or {%xchartl=9,12 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 1400 yposj0 moveto TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12 xchartl 10 eq xchartl 13 eq or {%xchartl=10,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 1400 yposj0 moveto TBK (+) show TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10,13 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) 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 XASj i get YASj i get 0.01 add div 1 add abs log put } if xchartl 15 eq {ycuri i ZASj i get YASj i get 0.01 add div 1 add abs log put } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM 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 (x) show} if xchartl 15 eq {SK (S) show TIK (z) 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 {fsXAS cvsshow2x} if xchartl 15 eq {fsZAS cvsshow2x} if xchartl 08 ge xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%08<=xchartl<=10 {%11<=xchartl<=15 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %08<=xchartl<=10, 11<=xchartl<=15 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } bind def %END proc_XYZI_02, xchartl=8,15 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} if %iout=1 grestore %} for %xchartl=0,15 showpage grestore } for %xchartx=0,7 %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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 4N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 %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 %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 /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 %actual 2 or 10-degree CIE standard observer E, 80 data, 380-775nm, delta=5nm /lE1j 80 array def /mE1j 80 array def /sE1j 80 array def /lESj 80 array def /mESj 80 array def /sESj 80 array def /XE1j 80 array def /YE1j 80 array def /ZE1j 80 array def /xanE1j 80 array def /yanE1j 80 array def /zanE1j 80 array def /XESj 80 array def /YESj 80 array def /ZESj 80 array def /xanESj 80 array def /yanESj 80 array def /zanESj 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 08 def} ifelse %08/09=LMS_R17/M4 /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 %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 /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /W0 570 def /W1 540 def /W2 440 def %new %calculate data at 555 nm, 550=380+i*5, ergibt i=(555-380)/5=35 /i 35 def /X555 380 i 5 mul add def /funcW0 X555 W0 sub CX div dup mul CY mul neg def /funcW1 X555 W1 sub CX div dup mul CY mul neg def %new /funcW2 X555 W2 sub CX div dup mul CY mul neg def /ILT 0 def ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put Yi3 i Yi0 i get 0.5 mul Yi1 i get 0.5 mul add put } for %i=0,1,76 /sASjk 80 array def 0 1 76 {/i exch def %i=0,1,76 /i440 440 380 sub 5 idiv def i i440 le {sASjk i i i440 div put} %linear 380..440 {sASjk i 1 put} ifelse } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 lESj i Yi0 i get put mESj i Yi1 i get put sESj i Yi2 i get sASjk i get mul put } for %i=0,1,76 /fslES 0 def /fsmES 0 def /fssES 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslES fslES lESj i get add def /fsmES fsmES mESj i get add def /fssES fssES sESj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,1,76 %normalisation lms to 100 for E00 lESj i lESj i get fslES 0.01 add div 100 mul put mESj i mESj i get fsmES 0.01 add div 100 mul put sESj i sESj i get fssES 0.01 add div 100 mul put } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 %normalisation for X=D65, D50,...,Q00 %based on normalisation lms to 100 for E00 lASj i lESj i get SDAK i get mul 100. div put mASj i mESj i get SDAK i get mul 100. div put %no change for SDAK=E00 sASj i sESj i get SDAK i get mul 100. div put } for %i=0,1,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 %STOP1 /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 65 Wellenlaengen ohne Purpur, 380_700:64 [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 %%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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /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 5 /Times-ISOL1 FS %175 85 moveto (DG001-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 11 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(DG001-4N) show} {(DG001-4N) show} ifelse %xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if %(A) show %A %(_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 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 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 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 [ ] 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 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd 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 iyd 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 ge xchartl 15 le and {ty1 i get show} if } for %STOPa 0 1 76 {/i exch def %i=0,76 XASj i A11 lASj i get mul A12 mASj i get mul add A13 sASj i get mul add put YASj i A21 lASj i get mul A22 mASj i get mul add A23 sASj i get mul add put ZASj i A31 lASj i get mul A32 mASj i get mul add A33 sASj i get mul add put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %Normalisation ymax=1 /i555 555 380 sub 5 idiv def /Y555 YASj i555 get def 0 1 76 {/i exch def %i=0,76 XA1j i XASj i get Y555 0.01 add div put YA1j i YASj i get Y555 0.01 add div put ZA1j i ZASj i get Y555 0.01 add div put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %assumption sum=equal 100 for E 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 /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_X) (F10_X) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17) (R17M4)] def /xposj 3000 def /yposj 2900 def /yposj0 yposj 300 add def %3200 /yposjP yposj 600 add def %3500 /yposjT yposj 900 add def %3800 /yposjM yposj 300 sub def %2600 /yposjK yposj 600 sub def %2300 /W0 570 def %dummy /W1 540 def /W2 440 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 00 ge xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 03 ge xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (LMS_) show inx4 xchart4 get show xchartl 0 ge xchartl 5 le and { (\255Zapfen\255Empfindlichkeit) showde %08141-1 2 ( cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (\255Zapfen\255Erregung) showde %08141-1 2 ( cone excitation) showen %18141-1 2 } 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 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 {TBK (log [) show TBIK (l) show} if xchartl 7 eq {TBK (log [) show TBIK (s) 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 {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 06 ge xchartl 07 le and { TBK (/{0,5) show TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamdak1s TBK (+0,5) show TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (}]) show } if xchartl 00 eq xchartl 03 eq or {%xchartl=00,03 TBK (=) show TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=00,03 xchartl 01 eq xchartl 04 eq or {%xchartl=01,04 TBK (=) show TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=01,04 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 lamdak1s TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=02,05 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } if xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } 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 6 eq {ycuri i mASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+M/Y] } if xchartl 7 eq {ycuri i sASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+S/Y] } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 0<=xchartl<=7 0 setgray xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM moveto xchartl 0 eq {SK (S) show TIK (l) show} if xchartl 1 eq {SK (S) show TIK (m) show} if xchartl 2 eq {SK (S) show TIK (s) show} if xchartl 3 eq {SK (S) show TIK (l) show} if xchartl 4 eq {SK (S) show TIK (m) show} if xchartl 5 eq {SK (S) show TIK (s) show} if xchartl 6 eq {SK (S) show TIK (m) show} if xchartl 7 eq {SK (S) show TIK (s) 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 {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s 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 {fsmAS cvsshow2x} if xchartl 7 eq {fssAS cvsshow2x} 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 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } 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 {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK inx4 xchart4 get show xchartl 08 ge xchartl 13 le and { (\255Spektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (\255Normspektralwert\255Erregung) showde %08141-1 2 ( spectral tristimulus value excitation) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and {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 {TBK (log [) show TBIK (x) show} if xchartl 15 eq {TBK (log [) show TBIK (z) 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 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (]) show } if xchartl 08 eq xchartl 11 eq or {%xchartl=8,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 1400 yposj0 moveto TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=11 xchartl 09 eq xchartl 12 eq or {%xchartl=9,12 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 1400 yposj0 moveto TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12 xchartl 10 eq xchartl 13 eq or {%xchartl=10,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 1400 yposj0 moveto TBK (+) show TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10,13 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) 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 XASj i get YASj i get 0.01 add div 1 add abs log put } if xchartl 15 eq {ycuri i ZASj i get YASj i get 0.01 add div 1 add abs log put } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM 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 (x) show} if xchartl 15 eq {SK (S) show TIK (z) 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 {fsXAS cvsshow2x} if xchartl 15 eq {fsZAS cvsshow2x} if xchartl 08 ge xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%08<=xchartl<=10 {%11<=xchartl<=15 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %08<=xchartl<=10, 11<=xchartl<=15 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } bind def %END proc_XYZI_02, xchartl=8,15 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} if %iout=1 grestore %} for %xchartl=0,15 showpage grestore } for %xchartx=0,7 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 5N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark15 [ /View [ /Fit ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 %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 %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 /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 %actual 2 or 10-degree CIE standard observer E, 80 data, 380-775nm, delta=5nm /lE1j 80 array def /mE1j 80 array def /sE1j 80 array def /lESj 80 array def /mESj 80 array def /sESj 80 array def /XE1j 80 array def /YE1j 80 array def /ZE1j 80 array def /xanE1j 80 array def /yanE1j 80 array def /zanE1j 80 array def /XESj 80 array def /YESj 80 array def /ZESj 80 array def /xanESj 80 array def /yanESj 80 array def /zanESj 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 08 def} ifelse %08/09=LMS_R17/M4 /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 %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 /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /W0 570 def /W1 540 def /W2 440 def %new %calculate data at 555 nm, 550=380+i*5, ergibt i=(555-380)/5=35 /i 35 def /X555 380 i 5 mul add def /funcW0 X555 W0 sub CX div dup mul CY mul neg def /funcW1 X555 W1 sub CX div dup mul CY mul neg def %new /funcW2 X555 W2 sub CX div dup mul CY mul neg def /ILT 0 def ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put Yi3 i Yi0 i get 0.5 mul Yi1 i get 0.5 mul add put } for %i=0,1,76 /sASjk 80 array def 0 1 76 {/i exch def %i=0,1,76 /i440 440 380 sub 5 idiv def i i440 le {sASjk i i i440 div put} %linear 380..440 {sASjk i 1 put} ifelse } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 lESj i Yi0 i get put mESj i Yi1 i get put sESj i Yi2 i get sASjk i get mul put } for %i=0,1,76 /fslES 0 def /fsmES 0 def /fssES 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslES fslES lESj i get add def /fsmES fsmES mESj i get add def /fssES fssES sESj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,1,76 %normalisation lms to 100 for E00 lESj i lESj i get fslES 0.01 add div 100 mul put mESj i mESj i get fsmES 0.01 add div 100 mul put sESj i sESj i get fssES 0.01 add div 100 mul put } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 %normalisation for X=D65, D50,...,Q00 %based on normalisation lms to 100 for E00 lASj i lESj i get SDAK i get mul 100. div put mASj i mESj i get SDAK i get mul 100. div put %no change for SDAK=E00 sASj i sESj i get SDAK i get mul 100. div put } for %i=0,1,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 %STOP1 /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 65 Wellenlaengen ohne Purpur, 380_700:64 [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 %%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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /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 5 /Times-ISOL1 FS %175 85 moveto (DG000-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 4 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(DG001-5N) show} {(DG001-5N) show} ifelse %xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if %(A) show %A %(_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 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 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 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 [ ] 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 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd 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 iyd 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 ge xchartl 15 le and {ty1 i get show} if } for %STOPa 0 1 76 {/i exch def %i=0,76 XASj i A11 lASj i get mul A12 mASj i get mul add A13 sASj i get mul add put YASj i A21 lASj i get mul A22 mASj i get mul add A23 sASj i get mul add put ZASj i A31 lASj i get mul A32 mASj i get mul add A33 sASj i get mul add put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %Normalisation ymax=1 /i555 555 380 sub 5 idiv def /Y555 YASj i555 get def 0 1 76 {/i exch def %i=0,76 XA1j i XASj i get Y555 0.01 add div put YA1j i YASj i get Y555 0.01 add div put ZA1j i ZASj i get Y555 0.01 add div put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %assumption sum=equal 100 for E 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 /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_X) (F10_X) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17) (R17M4)] def /xposj 3000 def /yposj 2900 def /yposj0 yposj 300 add def %3200 /yposjP yposj 600 add def %3500 /yposjT yposj 900 add def %3800 /yposjM yposj 300 sub def %2600 /yposjK yposj 600 sub def %2300 /W0 570 def %dummy /W1 540 def /W2 440 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 00 ge xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 03 ge xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (LMS_) show inx4 xchart4 get show xchartl 0 ge xchartl 5 le and { (\255Zapfen\255Empfindlichkeit) showde %08141-1 2 ( cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (\255Zapfen\255Erregung) showde %08141-1 2 ( cone excitation) showen %18141-1 2 } 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 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 {TBK (log [) show TBIK (l) show} if xchartl 7 eq {TBK (log [) show TBIK (s) 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 {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 06 ge xchartl 07 le and { TBK (/{0,5) show TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamdak1s TBK (+0,5) show TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (}]) show } if xchartl 00 eq xchartl 03 eq or {%xchartl=00,03 TBK (=) show TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=00,03 xchartl 01 eq xchartl 04 eq or {%xchartl=01,04 TBK (=) show TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=01,04 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 lamdak1s TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=02,05 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } if xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } 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 6 eq {ycuri i mASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+M/Y] } if xchartl 7 eq {ycuri i sASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+S/Y] } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 0<=xchartl<=7 0 setgray xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM moveto xchartl 0 eq {SK (S) show TIK (l) show} if xchartl 1 eq {SK (S) show TIK (m) show} if xchartl 2 eq {SK (S) show TIK (s) show} if xchartl 3 eq {SK (S) show TIK (l) show} if xchartl 4 eq {SK (S) show TIK (m) show} if xchartl 5 eq {SK (S) show TIK (s) show} if xchartl 6 eq {SK (S) show TIK (m) show} if xchartl 7 eq {SK (S) show TIK (s) 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 {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s 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 {fsmAS cvsshow2x} if xchartl 7 eq {fssAS cvsshow2x} 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 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } 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 {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK inx4 xchart4 get show xchartl 08 ge xchartl 13 le and { (\255Spektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (\255Normspektralwert\255Erregung) showde %08141-1 2 ( spectral tristimulus value excitation) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and {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 {TBK (log [) show TBIK (x) show} if xchartl 15 eq {TBK (log [) show TBIK (z) 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 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (]) show } if xchartl 08 eq xchartl 11 eq or {%xchartl=8,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 1400 yposj0 moveto TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=11 xchartl 09 eq xchartl 12 eq or {%xchartl=9,12 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 1400 yposj0 moveto TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12 xchartl 10 eq xchartl 13 eq or {%xchartl=10,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 1400 yposj0 moveto TBK (+) show TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10,13 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) 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 XASj i get YASj i get 0.01 add div 1 add abs log put } if xchartl 15 eq {ycuri i ZASj i get YASj i get 0.01 add div 1 add abs log put } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM 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 (x) show} if xchartl 15 eq {SK (S) show TIK (z) 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 {fsXAS cvsshow2x} if xchartl 15 eq {fsZAS cvsshow2x} if xchartl 08 ge xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%08<=xchartl<=10 {%11<=xchartl<=15 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %08<=xchartl<=10, 11<=xchartl<=15 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } bind def %END proc_XYZI_02, xchartl=8,15 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} if %iout=1 grestore %} for %xchartl=0,15 showpage grestore } for %xchartx=0,7 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 6N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark16 [ /View [ /Fit ] /DOCVIEW pdfmark16 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 %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 %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 /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 %actual 2 or 10-degree CIE standard observer E, 80 data, 380-775nm, delta=5nm /lE1j 80 array def /mE1j 80 array def /sE1j 80 array def /lESj 80 array def /mESj 80 array def /sESj 80 array def /XE1j 80 array def /YE1j 80 array def /ZE1j 80 array def /xanE1j 80 array def /yanE1j 80 array def /zanE1j 80 array def /XESj 80 array def /YESj 80 array def /ZESj 80 array def /xanESj 80 array def /yanESj 80 array def /zanESj 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 08 def} ifelse %08/09=LMS_R17/M4 /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 %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 /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /W0 570 def /W1 540 def /W2 440 def %new %calculate data at 555 nm, 550=380+i*5, ergibt i=(555-380)/5=35 /i 35 def /X555 380 i 5 mul add def /funcW0 X555 W0 sub CX div dup mul CY mul neg def /funcW1 X555 W1 sub CX div dup mul CY mul neg def %new /funcW2 X555 W2 sub CX div dup mul CY mul neg def /ILT 0 def ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put Yi3 i Yi0 i get 0.5 mul Yi1 i get 0.5 mul add put } for %i=0,1,76 /sASjk 80 array def 0 1 76 {/i exch def %i=0,1,76 /i440 440 380 sub 5 idiv def i i440 le {sASjk i i i440 div put} %linear 380..440 {sASjk i 1 put} ifelse } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 lESj i Yi0 i get put mESj i Yi1 i get put sESj i Yi2 i get sASjk i get mul put } for %i=0,1,76 /fslES 0 def /fsmES 0 def /fssES 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslES fslES lESj i get add def /fsmES fsmES mESj i get add def /fssES fssES sESj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,1,76 %normalisation lms to 100 for E00 lESj i lESj i get fslES 0.01 add div 100 mul put mESj i mESj i get fsmES 0.01 add div 100 mul put sESj i sESj i get fssES 0.01 add div 100 mul put } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 %normalisation for X=D65, D50,...,Q00 %based on normalisation lms to 100 for E00 lASj i lESj i get SDAK i get mul 100. div put mASj i mESj i get SDAK i get mul 100. div put %no change for SDAK=E00 sASj i sESj i get SDAK i get mul 100. div put } for %i=0,1,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 %STOP1 /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 65 Wellenlaengen ohne Purpur, 380_700:64 [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 %%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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /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 5 /Times-ISOL1 FS %175 85 moveto (DG001-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 12 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(DG001-6N) show} {(DG001-6N) show} ifelse %xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if %(A) show %A %(_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 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 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 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 [ ] 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 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd 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 iyd 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 ge xchartl 15 le and {ty1 i get show} if } for %STOPa 0 1 76 {/i exch def %i=0,76 XASj i A11 lASj i get mul A12 mASj i get mul add A13 sASj i get mul add put YASj i A21 lASj i get mul A22 mASj i get mul add A23 sASj i get mul add put ZASj i A31 lASj i get mul A32 mASj i get mul add A33 sASj i get mul add put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %Normalisation ymax=1 /i555 555 380 sub 5 idiv def /Y555 YASj i555 get def 0 1 76 {/i exch def %i=0,76 XA1j i XASj i get Y555 0.01 add div put YA1j i YASj i get Y555 0.01 add div put ZA1j i ZASj i get Y555 0.01 add div put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %assumption sum=equal 100 for E 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 /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_X) (F10_X) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17) (R17M4)] def /xposj 3000 def /yposj 2900 def /yposj0 yposj 300 add def %3200 /yposjP yposj 600 add def %3500 /yposjT yposj 900 add def %3800 /yposjM yposj 300 sub def %2600 /yposjK yposj 600 sub def %2300 /W0 570 def %dummy /W1 540 def /W2 440 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 00 ge xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 03 ge xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (LMS_) show inx4 xchart4 get show xchartl 0 ge xchartl 5 le and { (\255Zapfen\255Empfindlichkeit) showde %08141-1 2 ( cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (\255Zapfen\255Erregung) showde %08141-1 2 ( cone excitation) showen %18141-1 2 } 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 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 {TBK (log [) show TBIK (l) show} if xchartl 7 eq {TBK (log [) show TBIK (s) 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 {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 06 ge xchartl 07 le and { TBK (/{0,5) show TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamdak1s TBK (+0,5) show TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (}]) show } if xchartl 00 eq xchartl 03 eq or {%xchartl=00,03 TBK (=) show TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=00,03 xchartl 01 eq xchartl 04 eq or {%xchartl=01,04 TBK (=) show TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=01,04 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 lamdak1s TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=02,05 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } if xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } 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 6 eq {ycuri i mASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+M/Y] } if xchartl 7 eq {ycuri i sASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+S/Y] } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 0<=xchartl<=7 0 setgray xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM moveto xchartl 0 eq {SK (S) show TIK (l) show} if xchartl 1 eq {SK (S) show TIK (m) show} if xchartl 2 eq {SK (S) show TIK (s) show} if xchartl 3 eq {SK (S) show TIK (l) show} if xchartl 4 eq {SK (S) show TIK (m) show} if xchartl 5 eq {SK (S) show TIK (s) show} if xchartl 6 eq {SK (S) show TIK (m) show} if xchartl 7 eq {SK (S) show TIK (s) 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 {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s 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 {fsmAS cvsshow2x} if xchartl 7 eq {fssAS cvsshow2x} 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 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } 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 {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK inx4 xchart4 get show xchartl 08 ge xchartl 13 le and { (\255Spektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (\255Normspektralwert\255Erregung) showde %08141-1 2 ( spectral tristimulus value excitation) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and {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 {TBK (log [) show TBIK (x) show} if xchartl 15 eq {TBK (log [) show TBIK (z) 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 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (]) show } if xchartl 08 eq xchartl 11 eq or {%xchartl=8,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 1400 yposj0 moveto TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=11 xchartl 09 eq xchartl 12 eq or {%xchartl=9,12 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 1400 yposj0 moveto TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12 xchartl 10 eq xchartl 13 eq or {%xchartl=10,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 1400 yposj0 moveto TBK (+) show TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10,13 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) 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 XASj i get YASj i get 0.01 add div 1 add abs log put } if xchartl 15 eq {ycuri i ZASj i get YASj i get 0.01 add div 1 add abs log put } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM 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 (x) show} if xchartl 15 eq {SK (S) show TIK (z) 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 {fsXAS cvsshow2x} if xchartl 15 eq {fsZAS cvsshow2x} if xchartl 08 ge xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%08<=xchartl<=10 {%11<=xchartl<=15 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %08<=xchartl<=10, 11<=xchartl<=15 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } bind def %END proc_XYZI_02, xchartl=8,15 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} if %iout=1 grestore %} for %xchartl=0,15 showpage grestore } for %xchartx=0,7 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 020 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/DG00/DG00.HTM 7N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 %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 %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 /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 %actual 2 or 10-degree CIE standard observer E, 80 data, 380-775nm, delta=5nm /lE1j 80 array def /mE1j 80 array def /sE1j 80 array def /lESj 80 array def /mESj 80 array def /sESj 80 array def /XE1j 80 array def /YE1j 80 array def /ZE1j 80 array def /xanE1j 80 array def /yanE1j 80 array def /zanE1j 80 array def /XESj 80 array def /YESj 80 array def /ZESj 80 array def /xanESj 80 array def /yanESj 80 array def /zanESj 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 08 def} ifelse %08/09=LMS_R17/M4 /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 %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 /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /W0 570 def /W1 540 def /W2 440 def %new %calculate data at 555 nm, 550=380+i*5, ergibt i=(555-380)/5=35 /i 35 def /X555 380 i 5 mul add def /funcW0 X555 W0 sub CX div dup mul CY mul neg def /funcW1 X555 W1 sub CX div dup mul CY mul neg def %new /funcW2 X555 W2 sub CX div dup mul CY mul neg def /ILT 0 def ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put Yi3 i Yi0 i get 0.5 mul Yi1 i get 0.5 mul add put } for %i=0,1,76 /sASjk 80 array def 0 1 76 {/i exch def %i=0,1,76 /i440 440 380 sub 5 idiv def i i440 le {sASjk i i i440 div put} %linear 380..440 {sASjk i 1 put} ifelse } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 lESj i Yi0 i get put mESj i Yi1 i get put sESj i Yi2 i get sASjk i get mul put } for %i=0,1,76 /fslES 0 def /fsmES 0 def /fssES 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslES fslES lESj i get add def /fsmES fsmES mESj i get add def /fssES fssES sESj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,1,76 %normalisation lms to 100 for E00 lESj i lESj i get fslES 0.01 add div 100 mul put mESj i mESj i get fsmES 0.01 add div 100 mul put sESj i sESj i get fssES 0.01 add div 100 mul put } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 %normalisation for X=D65, D50,...,Q00 %based on normalisation lms to 100 for E00 lASj i lESj i get SDAK i get mul 100. div put mASj i mESj i get SDAK i get mul 100. div put %no change for SDAK=E00 sASj i sESj i get SDAK i get mul 100. div put } for %i=0,1,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 %STOP1 /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 65 Wellenlaengen ohne Purpur, 380_700:64 [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 %%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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /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 5 /Times-ISOL1 FS %175 85 moveto (DG000-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 5 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(DG001-7N) show} {(DG001-7N) show} ifelse %xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if %(A) show %A %(_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 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 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 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 [ ] 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 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd 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 iyd 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 ge xchartl 15 le and {ty1 i get show} if } for %STOPa 0 1 76 {/i exch def %i=0,76 XASj i A11 lASj i get mul A12 mASj i get mul add A13 sASj i get mul add put YASj i A21 lASj i get mul A22 mASj i get mul add A23 sASj i get mul add put ZASj i A31 lASj i get mul A32 mASj i get mul add A33 sASj i get mul add put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %Normalisation ymax=1 /i555 555 380 sub 5 idiv def /Y555 YASj i555 get def 0 1 76 {/i exch def %i=0,76 XA1j i XASj i get Y555 0.01 add div put YA1j i YASj i get Y555 0.01 add div put ZA1j i ZASj i get Y555 0.01 add div put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %assumption sum=equal 100 for E 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 /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_X) (F10_X) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17) (R17M4)] def /xposj 3000 def /yposj 2900 def /yposj0 yposj 300 add def %3200 /yposjP yposj 600 add def %3500 /yposjT yposj 900 add def %3800 /yposjM yposj 300 sub def %2600 /yposjK yposj 600 sub def %2300 /W0 570 def %dummy /W1 540 def /W2 440 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 00 ge xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 03 ge xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (LMS_) show inx4 xchart4 get show xchartl 0 ge xchartl 5 le and { (\255Zapfen\255Empfindlichkeit) showde %08141-1 2 ( cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (\255Zapfen\255Erregung) showde %08141-1 2 ( cone excitation) showen %18141-1 2 } 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 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 {TBK (log [) show TBIK (l) show} if xchartl 7 eq {TBK (log [) show TBIK (s) 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 {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 06 ge xchartl 07 le and { TBK (/{0,5) show TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamdak1s TBK (+0,5) show TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (}]) show } if xchartl 00 eq xchartl 03 eq or {%xchartl=00,03 TBK (=) show TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=00,03 xchartl 01 eq xchartl 04 eq or {%xchartl=01,04 TBK (=) show TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=01,04 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 lamdak1s TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=02,05 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } if xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } 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 6 eq {ycuri i mASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+M/Y] } if xchartl 7 eq {ycuri i sASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+S/Y] } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 0<=xchartl<=7 0 setgray xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM moveto xchartl 0 eq {SK (S) show TIK (l) show} if xchartl 1 eq {SK (S) show TIK (m) show} if xchartl 2 eq {SK (S) show TIK (s) show} if xchartl 3 eq {SK (S) show TIK (l) show} if xchartl 4 eq {SK (S) show TIK (m) show} if xchartl 5 eq {SK (S) show TIK (s) show} if xchartl 6 eq {SK (S) show TIK (m) show} if xchartl 7 eq {SK (S) show TIK (s) 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 {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s 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 {fsmAS cvsshow2x} if xchartl 7 eq {fssAS cvsshow2x} 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 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } 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 {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK inx4 xchart4 get show xchartl 08 ge xchartl 13 le and { (\255Spektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (\255Normspektralwert\255Erregung) showde %08141-1 2 ( spectral tristimulus value excitation) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and {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 {TBK (log [) show TBIK (x) show} if xchartl 15 eq {TBK (log [) show TBIK (z) 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 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (]) show } if xchartl 08 eq xchartl 11 eq or {%xchartl=8,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 1400 yposj0 moveto TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=11 xchartl 09 eq xchartl 12 eq or {%xchartl=9,12 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 1400 yposj0 moveto TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12 xchartl 10 eq xchartl 13 eq or {%xchartl=10,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 1400 yposj0 moveto TBK (+) show TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10,13 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) 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 XASj i get YASj i get 0.01 add div 1 add abs log put } if xchartl 15 eq {ycuri i ZASj i get YASj i get 0.01 add div 1 add abs log put } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM 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 (x) show} if xchartl 15 eq {SK (S) show TIK (z) 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 {fsXAS cvsshow2x} if xchartl 15 eq {fsZAS cvsshow2x} if xchartl 08 ge xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%08<=xchartl<=10 {%11<=xchartl<=15 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %08<=xchartl<=10, 11<=xchartl<=15 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } bind def %END proc_XYZI_02, xchartl=8,15 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} if %iout=1 grestore %} for %xchartl=0,15 showpage grestore } for %xchartx=0,7 %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 http://farbe.li.tu-berlin.de/DG00/DG00.HTM 8N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG00/DG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark18 [ /View [ /Fit ] /DOCVIEW pdfmark18 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 %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 %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 /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 %actual 2 or 10-degree CIE standard observer E, 80 data, 380-775nm, delta=5nm /lE1j 80 array def /mE1j 80 array def /sE1j 80 array def /lESj 80 array def /mESj 80 array def /sESj 80 array def /XE1j 80 array def /YE1j 80 array def /ZE1j 80 array def /xanE1j 80 array def /yanE1j 80 array def /zanE1j 80 array def /XESj 80 array def /YESj 80 array def /ZESj 80 array def /xanESj 80 array def /yanESj 80 array def /zanESj 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 08 def} ifelse %08/09=LMS_R17/M4 /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 %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 /MULX 0600 def /MULY 1200 0.8 mul 2 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /W0 570 def /W1 540 def /W2 440 def %new %calculate data at 555 nm, 550=380+i*5, ergibt i=(555-380)/5=35 /i 35 def /X555 380 i 5 mul add def /funcW0 X555 W0 sub CX div dup mul CY mul neg def /funcW1 X555 W1 sub CX div dup mul CY mul neg def %new /funcW2 X555 W2 sub CX div dup mul CY mul neg def /ILT 0 def ILT 0 eq {/tsa 0.000 def} if ILT 1 eq {/tsa 0.007 def} if /Xi 88 array def /Yi 88 array def /Yi0 88 array def /Yi1 88 array def /Yi2 88 array def /Yi3 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 W2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add def % /YEXP EYEXP log def Yi2 i EYEXP put Yi3 i Yi0 i get 0.5 mul Yi1 i get 0.5 mul add put } for %i=0,1,76 /sASjk 80 array def 0 1 76 {/i exch def %i=0,1,76 /i440 440 380 sub 5 idiv def i i440 le {sASjk i i i440 div put} %linear 380..440 {sASjk i 1 put} ifelse } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 lESj i Yi0 i get put mESj i Yi1 i get put sESj i Yi2 i get sASjk i get mul put } for %i=0,1,76 /fslES 0 def /fsmES 0 def /fssES 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fslES fslES lESj i get add def /fsmES fsmES mESj i get add def /fssES fssES sESj i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,1,76 %normalisation lms to 100 for E00 lESj i lESj i get fslES 0.01 add div 100 mul put mESj i mESj i get fsmES 0.01 add div 100 mul put sESj i sESj i get fssES 0.01 add div 100 mul put } for %i=0,1,76 0 1 76 {/i exch def %i=0,1,76 %normalisation for X=D65, D50,...,Q00 %based on normalisation lms to 100 for E00 lASj i lESj i get SDAK i get mul 100. div put mASj i mESj i get SDAK i get mul 100. div put %no change for SDAK=E00 sASj i sESj i get SDAK i get mul 100. div put } for %i=0,1,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 %STOP1 /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 65 Wellenlaengen ohne Purpur, 380_700:64 [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 %%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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /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 5 /Times-ISOL1 FS %175 85 moveto (DG001-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 13 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(DG001-8N) show} {(DG001-8N) show} ifelse %xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if %xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if %(A) show %A %(_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 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 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 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 [ ] 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 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd 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 iyd 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 ge xchartl 15 le and {ty1 i get show} if } for %STOPa 0 1 76 {/i exch def %i=0,76 XASj i A11 lASj i get mul A12 mASj i get mul add A13 sASj i get mul add put YASj i A21 lASj i get mul A22 mASj i get mul add A23 sASj i get mul add put ZASj i A31 lASj i get mul A32 mASj i get mul add A33 sASj i get mul add put } for %i=0,76 /fsXAS 0 def /fsYAS 0 def /fsZAS 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %Normalisation ymax=1 /i555 555 380 sub 5 idiv def /Y555 YASj i555 get def 0 1 76 {/i exch def %i=0,76 XA1j i XASj i get Y555 0.01 add div put YA1j i YASj i get Y555 0.01 add div put ZA1j i ZASj i get Y555 0.01 add div put } for %i=0,76 /fsXA1 0 def /fsYA1 0 def /fsZA1 0 def %assumption sum=equal 100 for E 0 1 76 {/i exch def %i=0,76 Summe fsumlms /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 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 %assumption sum=equal 100 for E 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 /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_X) (F10_X) %4,48 5,50 6,52 7,54 (F02_L) (F10_L) (R17M1) (R17M2) %8,56 9,58 (R17) (R17M4)] def /xposj 3000 def /yposj 2900 def /yposj0 yposj 300 add def %3200 /yposjP yposj 600 add def %3500 /yposjT yposj 900 add def %3800 /yposjM yposj 300 sub def %2600 /yposjK yposj 600 sub def %2300 /W0 570 def %dummy /W1 540 def /W2 440 def %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7 /lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def xchartl 00 ge xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 03 ge xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK (LMS_) show inx4 xchart4 get show xchartl 0 ge xchartl 5 le and { (\255Zapfen\255Empfindlichkeit) showde %08141-1 2 ( cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (\255Zapfen\255Erregung) showde %08141-1 2 ( cone excitation) showen %18141-1 2 } 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 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 {TBK (log [) show TBIK (l) show} if xchartl 7 eq {TBK (log [) show TBIK (s) 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 {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if lamdak1s xchartl 06 ge xchartl 07 le and { TBK (/{0,5) show TBIK (l) show -100 120 rmoveto (-) show 0 -120 rmoveto lamdak1s TBK (+0,5) show TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (}]) show } if xchartl 00 eq xchartl 03 eq or {%xchartl=00,03 TBK (=) show TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=00,03 xchartl 01 eq xchartl 04 eq or {%xchartl=01,04 TBK (=) show TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s TBK (+) show TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=01,04 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 lamdak1s TBK (+) show TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s 1400 yposj0 moveto TBK (+) show TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=02,05 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } if xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4 xpos 1 get yposj moveto B11 cvsshow4x xpos 2 get yposj moveto B12 cvsshow4x xpos 3 get yposj moveto B13 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W0 cvishow } if xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4 xpos 1 get yposj moveto B21 cvsshow4x xpos 2 get yposj moveto B22 cvsshow4x xpos 3 get yposj moveto B23 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W1 cvishow } if xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4 xpos 1 get yposj moveto B31 cvsshow4x xpos 2 get yposj moveto B32 cvsshow4x xpos 3 get yposj moveto B33 cvsshow4x xpos 4 get yposj moveto SK (l) show TK (=) show W2 cvishow } 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 6 eq {ycuri i mASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+M/Y] } if xchartl 7 eq {ycuri i sASj i get mASj i get lASj i get add 0.5 mul %Y div 1 add log put %log[1+S/Y] } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 0<=xchartl<=7 0 setgray xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM moveto xchartl 0 eq {SK (S) show TIK (l) show} if xchartl 1 eq {SK (S) show TIK (m) show} if xchartl 2 eq {SK (S) show TIK (s) show} if xchartl 3 eq {SK (S) show TIK (l) show} if xchartl 4 eq {SK (S) show TIK (m) show} if xchartl 5 eq {SK (S) show TIK (s) show} if xchartl 6 eq {SK (S) show TIK (m) show} if xchartl 7 eq {SK (S) show TIK (s) 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 {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 7 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if lamdak1s 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 {fsmAS cvsshow2x} if xchartl 7 eq {fssAS cvsshow2x} 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 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } 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 {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def /lamdak1s {lamda01s lamdak} def } if xchartl 11 ge xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def /lamdak1s {lamda01s lamdak} def } if 100 yposjT moveto TBK inx4 xchart4 get show xchartl 08 ge xchartl 13 le and { (\255Spektralwerte) showde %08141-1 2 ( spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (\255Normspektralwert\255Erregung) showde %08141-1 2 ( spectral tristimulus value excitation) showen %18141-1 2 } if xchartl 08 ge xchartl 10 le and {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 {TBK (log [) show TBIK (x) show} if xchartl 15 eq {TBK (log [) show TBIK (z) 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 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s (]) show } if xchartl 08 eq xchartl 11 eq or {%xchartl=8,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 1400 yposj0 moveto TBK (+) show TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=11 xchartl 09 eq xchartl 12 eq or {%xchartl=9,12 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 1400 yposj0 moveto TBK (+) show TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=9,12 xchartl 10 eq xchartl 13 eq or {%xchartl=10,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 1400 yposj0 moveto TBK (+) show TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto lamdak1s } if %xchartl=10,13 TK /xpos [1000 1700 2600 3500 4400 5200] def xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W2 cvishow (\051) show} if xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4 xpos 1 get yposj moveto A11 cvsshow4x xpos 2 get yposj moveto A12 cvsshow4x xpos 3 get yposj moveto A13 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W0 cvishow (\051) show} if xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4 xpos 1 get yposj moveto A21 cvsshow4x xpos 2 get yposj moveto A22 cvsshow4x xpos 3 get yposj moveto A23 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) show W1 cvishow (\051) show} if xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4 xpos 1 get yposj moveto A31 cvsshow4x xpos 2 get yposj moveto A32 cvsshow4x xpos 3 get yposj moveto A33 cvsshow4x xpos 4 get yposj moveto (\050) show SK (l) show TK (=) 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 XASj i get YASj i get 0.01 add div 1 add abs log put } if xchartl 15 eq {ycuri i ZASj i get YASj i get 0.01 add div 1 add abs log put } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /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 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 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 xposj 500 sub yposjM moveto xchart5 0 eq {ilDtxt xchartx get show} {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx xposj yposjM 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 (x) show} if xchartl 15 eq {SK (S) show TIK (z) 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 {fsXAS cvsshow2x} if xchartl 15 eq {fsZAS cvsshow2x} if xchartl 08 ge xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 /sum fsXA1 fsYA1 add fsZA1 add def /xan fsXA1 sum 0.01 add div def /yan fsYA1 sum 0.01 add div def }%08<=xchartl<=10 {%11<=xchartl<=15 /sum fsXAS fsYAS add fsZAS add def /xan fsXAS sum 0.01 add div def /yan fsYAS sum 0.01 add div def } ifelse %08<=xchartl<=10, 11<=xchartl<=15 xposj yposjK moveto TIK (x) show lamda01s TK (=) show xan cvsshow4x xposj yposjK 300 sub moveto TIK (y) show lamda01s TK (=) show yan cvsshow4x } bind def %END proc_XYZI_02, xchartl=8,15 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if %} if %iout=1 grestore %} for %xchartl=0,15 showpage grestore } for %xchartx=0,7 %8 illuminants %} for %xcolor=0,1 %2,10 degree observer %%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 /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 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/DG00/DG00) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/DG00/DG00) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/DG00/DG00.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 %xchart3 0 def %with Munsell colours %xchart3 1 def %with Ostwald colours %xchart3 2 det %without any colour %steered: xchart3 2 def %diagram 0:Munsell colours, 1:Ostwald colours, 2:- %xchart5 0 def %without marc illuminant and text %xchart5 1 def %with marc illuminant %xchart5 2 def %with marc illuminant and text %steered: xchart5 2 def %0:-, 1:illuminant, 2:illuminant and text %xchart6 0 def %without chromaticity_lines %xchart6 1 def %with chromaticity_lines %xchart6 2 def %with chromaticity_lines and names /xchart6 2 def %0:-, 1:chromaticity_lines 2:chromaticity_lines & names %xchart7 0 def %Ostwald colours without Name or Y %xchart7 1 def %Ostwald colours with Name %xchart7 2 def %Ostwald colours with CIE Y /xchart7 2 def %0:-, 1:Name, 2:Y %xchartl with 0 1 2 3 4 5 6 7 %xchart8 0 def %0:Pxx (P60, P55, P50, P45, P40, P35, P30, P25) colours %xchart8 1 def %1:Dxx (D65, D50, P40, A00, E00, C00, P00, Q00) colours /xchart8 0 def %0:Pxx, 1:Dxx colours %xchart9 0 def %for Y10-7R.EPS -> Table XYZ, not used here %xchart9 1 def %for Y10-7R.EPS -> Table CAB, not used here %xchart9 2 def %for Y10-7R.EPS -> Table (a,b), not used here /xchart9 0 def %Table 0:(XYZ), 1:(CAB), 2(ab) %xchart10 0 def %for Y10G00NA.PS6.PS -> chromaticity coordinates (ai,bi) %xchart10 1 def %for Y10G00NA.PS6.PS -> chromatic values (Ai,Bi) %xchart10 2 def %for Y10G00NA.PS6.PS -> chroma (A*i,B*i) /xchart10 1 def %diagram 0:(ai,bi), 1:(Ai,Bi), 2:(A*i,B*i) /TELi 8 array def xchart8 0 eq {%xchart8=0 /TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def }%xchart8=0 {%xchart8=1 /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def } ifelse %xchart8=1 /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 /10TIN10 {10TIN 0 -3 rmoveto xcolor 1 eq {(10) show} if 0 3 rmoveto} def /10TINi10 {10TIN 0 -3 rmoveto (i) show xcolor 1 eq {(,10) show} if 0 3 rmoveto} def 0 setgray 12TIN 61 MM 14 MM moveto (TUB\255Pr\374fvorlage DG00; ) showde %0DG00X-Y 0000# (TUB\255test chart DG00; ) showen %1DG00X-Y 0000# (gr\341fico TUB\255DG00; ) showes %2DG00X-Y 0000# (TUB\255test graphique DG00; ) showfr %3DG00X-Y 0000# (grafico TUB\255DG00; ) showit %4DG00X-Y 0000# (TUB\255test chart DG00; ) showjp %5DG00X-Y 0000# 12TIN (Colorimetric properties of colour vision and colour image technology) showea (Farbmetrische Eigenschaften von Farbensehen und Farbbildtechnologie) showde 61 MM 09.5 MM moveto xchart3 0 eq {12TIN 12TII (LMS) show 12TRN (-Zapfenempfindichkeiten, ) showde ( receptor sensitivities, ) showea 12TII (XYZ) show 12TRN (-Normspektralwerte sowie Literatur ) showde (\374ber Elementarfarben) showde ( tristimulus values, and references on elementary colours) showea } if %xchart3=0 xchart3 1 eq {%xchart3=1 } if %xchart3=1 /iout 0 def iout 1 eq {%iout=1 12TIN 180 MM 14 MM moveto (Eingabe: ) showde %0DG00X-Y 0500# (input: ) showen %1DG00X-Y 0500# (entrada: ) showes %2DG00X-Y 0500# (entr\351e: ) showfr %3DG00X-Y 0500# (immettere: ) showit %4DG00X-Y 0500# (input: ) showjp %5DG00X-Y 0500# 12TII (w/rgb/cmyk -> rgb) show xchart xchart3 lt {(w/rgb/cmyk) show } if xchart xchart3 ge {%xchart>=xchart3 (rgb) show } if %xchart>=xchart3 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN 12TIN 165 MM 9 MM moveto (Ausgabe: ) showde %0DG00X-Y 0600# (output: ) showen %1DG00X-Y 0600# (salida: ) showes %2DG00X-Y 0600# (sortie: ) showfr %3DG00X-Y 0600# (uscita: ) showit %4DG00X-Y 0600# (output: ) showjp %5DG00X-Y 0600# %colorm=0,1! xchart xchart3 lt {%xchart=xchart3 12TIN (keine \304nderung) showde %0DG00X-Y 0700# (no change) showen %1DG00X-Y 0700# (ning\372n cambio) showes %2DG00X-Y 0700# (aucun changement) showfr %3DG00X-Y 0700# (nessun cambiamento) showit %4DG00X-Y 0700# (no change compared) showjp %5DG00X-Y 0700# }%xchart=xchart3 12TIN colorm 0 eq {%colorm=0 (Transfer nach ) showde %0DG00X-Y 0800# (transfer to ) showen %1DG00X-Y 0800# (transfiera a ) showes %2DG00X-Y 0800# (transf\351rer \340 ) showfr %3DG00X-Y 0800# (trasferire a ) showit %4DG00X-Y 0800# (transfer to ) showjp %5DG00X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0DG00X-Y 0900# (3D\255linearization to ) showen %1DG00X-Y 0900# (3D\255linealizaci\363n a ) showes %2DG00X-Y 0900# (linearisation 3D selon ) showfr %3DG00X-Y 0900# (3D\255linearizzazione a ) showit %4DG00X-Y 0900# (3D\255linearization to ) showjp %5DG00X-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 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } ifelse %xchart=xchart3 } if %iout=1 %0 setgray %end white and unvisible 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/DG00/DG00L) show 12TIN (0) show LSC$ show LEX$ show iout 1 eq {%iout=1 %1 setgray %start white and unvisible (; ) show xchart xchart3 lt { (Start\255Ausgabe) showde %0DG00X-Y 1000# (start output) showen %1DG00X-Y 1000# (comience salida) showes %2DG00X-Y 1000# (sortie de production) showfr %3DG00X-Y 1000# (cominciare l'uscita) showit %4DG00X-Y 1000# (start output) showjp %5DG00X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0DG00X-Y 1100# (start output) showen %1DG00X-Y 1100# (comience salida) showes %2DG00X-Y 1100# (sortie de production) showfr %3DG00X-Y 1100# (cominciare l'uscita) showit %4DG00X-Y 1100# (start output) showjp %5DG00X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0DG00X-Y 1200# (transfer output) showen %1DG00X-Y 1200# (salida de transferencia) showes %2DG00X-Y 1200# (sortie de transfert) showfr %3DG00X-Y 1200# (uscita di trasferimento) showit %4DG00X-Y 1200# (transfer output) showjp %5DG00X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0DG00X-Y 1300# (3D\255linearization) showen %1DG00X-Y 1300# (3D\255linealizaci\363n) showes %2DG00X-Y 1300# (linearisation 3D) showfr %3DG00X-Y 1300# (3D\255linearizzzazione) showit %4DG00X-Y 1300# (3D\255linearization) showjp %5DG00X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=xchart3 } if %iout=1 62 MM 194 MM moveto 12TIN LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0DG00X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1DG00X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2DG00X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3DG00X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4DG00X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5DG00X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0DG00X-Y 1500# (in file (F) or PS\255startup (S)) showen %1DG00X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2DG00X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3DG00X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4DG00X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5DG00X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0DG00X-Y 1600# (3D\255linearization) showen %1DG00X-Y 1600# (3D\255linealizaci\363n) showes %2DG00X-Y 1600# (linearisation 3D) showfr %3DG00X-Y 1600# (3D\255linearizzzazione) showit %4DG00X-Y 1600# (3D\255linearization) showjp %5DG00X-Y 1600# ( DG00/DG00L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0DG00X-Y 1700# ( in file (F)) showen %1DG00X-Y 1700# ( en archivo (F)) showes %2DG00X-Y 1700# ( dans fichier (F)) showfr %3DG00X-Y 1700# ( nel file (F)) showit %4DG00X-Y 1700# ( in file (F)) showjp %5DG00X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0DG00X-Y 1800# ( in Distiller Startup (S) Directory) showen %1DG00X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2DG00X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3DG00X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4DG00X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5DG00X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0DG00X-Y 1900# ( in PS\255device (D)) showen %1DG00X-Y 1900# ( en el PS\255device (D)) showes %2DG00X-Y 1900# ( dans l'appareil PS (D)) showfr %3DG00X-Y 1900# ( nel PS\255dispositivo (D)) showit %4DG00X-Y 1900# ( in PS\255Device (D)) showjp %5DG00X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0DG00X-Y 2000# ( in Distiller Startup (S) Directory) showen %1DG00X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2DG00X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3DG00X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4DG00X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5DG00X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0DG00X-Y 2100# ( in PS\255device (D)) showen %1DG00X-Y 2100# ( en el PS\255device (D)) showes %2DG00X-Y 2100# ( dans appareil PS (D)) showfr %3DG00X-Y 2100# ( nel PS\255dispositivo (D)) showit %4DG00X-Y 2100# ( in PS\255Device (D)) showjp %5DG00X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0DG00X-Y 2200# (, page ) showen %1DG00X-Y 2200# (, p\341gina ) showes %2DG00X-Y 2200# (, page ) showfr %3DG00X-Y 2200# (, pagina ) showit %4DG00X-Y 2200# (, page ) showjp %5DG00X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto 12TIN -90 rotate (Siehe \344hnliche Dateien: ) showde %0DG00X-Y 2300# (see similar files: ) showen %1DG00X-Y 2300# (vea archivos semejantes: ) showes %2DG00X-Y 2300# (voir des fichiers similaires: ) showfr %3DG00X-Y 2300# (vedere dei file simili: ) showit %4DG00X-Y 2300# (see similar files: ) showjp %5DG00X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/DG00/DG00.HTM) show 12TIN %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto 12TIN -90 rotate (Technische Information: ) showde %0DG00X-Y 2400# (technical information: ) showen %1DG00X-Y 2400# (informaci\363n t\351cnica: ) showes %2DG00X-Y 2400# (informations techniques: ) showfr %3DG00X-Y 2400# (informazioni tecniche: ) showit %4DG00X-Y 2400# (technical information: ) showjp %5DG00X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0DG00X-Y 2500# ( or ) showen %1DG00X-Y 2500# ( o ) showes %2DG00X-Y 2500# ( ou ) showfr %3DG00X-Y 2500# ( o ) showit %4DG00X-Y 2500# ( or ) showjp %5DG00X-Y 2500# 12TRN (http://130.149.60.45/~farbmetrik) show 12TIN 90 rotate 281 MM 185 MM moveto 12TIN -90 rotate (TUB\255Registrierung: 20180701\255DG00/DG00L) showde %0DG00X-Y 2600# (TUB registration: 20180701\255DG00/DG00L) showen %1DG00X-Y 2600# (TUB matr\355cula: 20180701\255DG00/DG00L) showes %2DG00X-Y 2600# (TUB enregistrement: 20180701\255DG00/DG00L) showfr %3DG00X-Y 2600# (TUB iscrizione: 20180701\255DG00/DG00L) showit %4DG00X-Y 2600# (TUB registration: 20180701\255DG00/DG00L) showjp %5DG00X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto 12TIN -90 rotate (TUB\255Material: Code=rha4ta) showde %0DG00X-Y 2700# (TUB material: code=rha4ta) showen %1DG00X-Y 2700# (TUB material: code=rha4ta) showes %2DG00X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3DG00X-Y 2700# (TUB materiale: code=rha4ta) showit %4DG00X-Y 2700# (TUB material: code=rha4ta) showjp %5DG00X-Y 2700# 90 rotate 277 MM 185 MM moveto 12TIN -90 rotate ( Anwendung f\374r Messung ) showde %0DG00X-Y 2800# ( application for measurement ) showen %1DG00X-Y 2800# ( aplicaci\363n para la medida ) showes %2DG00X-Y 2800# ( application pour la mesure ) showfr %3DG00X-Y 2800# ( la domanda per la misura ) showit %4DG00X-Y 2800# ( application for measurement ) showjp %5DG00X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0DG00X-Y 2900# (of display output) showen %1DG00X-Y 2900# (de display output) showes %2DG00X-Y 2900# (de sortie sur \350cran) showfr %3DG00X-Y 2900# (di stampa di display) showit %4DG00X-Y 2900# (of display output) showjp %5DG00X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0DG00X-Y 3000# (of offset print output) showen %1DG00X-Y 3000# (salida en la impressi\363n offset) showes %2DG00X-Y 3000# (des sorties sur offset) showfr %3DG00X-Y 3000# (uscita nella stampa di offset) showit %4DG00X-Y 3000# (of offset print output) showjp %5DG00X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0DG00X-Y 3100# (of laser printer output) showen %1DG00X-Y 3100# (salida de impresora l\341ser) showes %2DG00X-Y 3100# (des sorties sur imprimante laser) showfr %3DG00X-Y 3100# (di uscita della stampante laser) showit %4DG00X-Y 3100# (of laser printer output) showjp %5DG00X-Y 3100# } if %xchart5f=3 iout 1 eq {%iout=1 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0DG00X-Y 3200# (, no separation) showen %1DG00X-Y 3200# (, ninguna separaci\363n) showes %2DG00X-Y 3200# (, aucune s\351paration) showfr %3DG00X-Y 3200# (, nessuna separazione) showit %4DG00X-Y 3200# (, no separation) showjp %5DG00X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0DG00X-Y 3300# (, separation) showen %1DG00X-Y 3300# (, separaci\363n) showes %2DG00X-Y 3300# (, s\351paration) showfr %3DG00X-Y 3300# (, separazione) showit %4DG00X-Y 3300# (, separation) showjp %5DG00X-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 } if %iout=1 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 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer