%!PS-Adobe-3.0 EPSF-3.0 TF310-7A %%BoundingBox: 70 83 226 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: http://130.149.60.45/~farbmetrik/SE68/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2013090112000) /ModDate (D:2013090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /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 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /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 /SS {160 10 sub /Symbol 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 80 rmoveto show 0 -80 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 70 rmoveto show 0 -70 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 60 rmoveto show 0 -60 rmoveto} bind def /sshowK {SS 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 /YIXL 88 array def /YIXM 88 array def /YIXS 88 array def /YEXP0 88 array def /YEXP1 88 array def /YEXP2 88 array def /YEXP3 88 array def /YEXP4 88 array def /YEXP5 88 array def /YEXP6 88 array def /YEXP7 88 array def /Xi 88 array def /Yi 88 array def /KURV$1 8 array def %8 curves, Sensitivity /KURV$2 8 array def %8 curves, Saturation /KURV$1 [(U") (L") (M") (S") (N") (J") (B") (J")] def /KURV$2 [(U") (L") (M") (S") (N") (J") (B") (J")] def /KURVA 8 array def %8 actual curves /KURVA1 8 array def %8 curves, Sensitivity, one or two colours /KURVA2 8 array def %8 curves, Saturation, one or two colours /KURVA1 [2 1 1 1 2 0 0 0 0] def /KURVA2 [2 1 1 1 2 0 0 0 0] def /IDAI1 8 array def %8 curves, Sensitivity, actual setdash data, first curve /IDAI2 8 array def %8 curves, Saturation, actual setdash data, second curve /IDAI00 8 array def %8 curves, Sensitivity, setdash data, first curve /IDAI01 8 array def %8 curves, Saturation, setdash data, first curve /IDAI10 8 array def %8 curves, Sensitivity, setdash data, second curve /IDAI11 8 array def %8 curves, Saturation, setdash data, second curve /IDAI00 [100 000 000 000 100 300 000 300] def /IDAI01 [100 000 000 000 000 000 000 000] def /IDAI10 [100 000 000 000 100 100 000 100] def /IDAI11 [100 000 000 000 000 000 100 000] def /FKUC1 8 array def %Actual colour C, Sensitivity /FKUC2 8 array def %Actual colour C, Saturation /FKUM1 8 array def %Actual colour M, Sensitivity /FKUM2 8 array def %Actual colour M, Saturation /FKUY1 8 array def %Actual colour Y, Sensitivity /FKUY2 8 array def %Actual colour Y, Saturation /FKUN1 8 array def %Actual colour N, Sensitivity /FKUN2 8 array def %Actual colour N, Saturation /tf445 {1.0 0.0 1.0 setrgbcolor} bind def %B50R /tf457 {0.5 0.0 1.0 setrgbcolor} bind def %B25R /tf470 {0.0 0.0 1.0 setrgbcolor} bind def %B00R /tf482 {0.0 0.5 1.0 setrgbcolor} bind def %G75B /tf495 {0.0 1.0 1.0 setrgbcolor} bind def %G50B /tf507 {0.0 1.0 0.5 setrgbcolor} bind def %G25B /tf520 {0.0 1.0 0.0 setrgbcolor} bind def %G00B /tf532 {0.3 1.0 0.0 setrgbcolor} bind def %Y75G /tf545 {0.5 1.0 0.0 setrgbcolor} bind def %Y50G /tf557 {0.7 1.0 0.0 setrgbcolor} bind def %Y25G /tf570 {1.0 1.0 0.0 setrgbcolor} bind def %Y00G /tf582 {1.0 0.7 0.0 setrgbcolor} bind def %R75Y /tf595 {1.0 0.5 0.0 setrgbcolor} bind def %R50Y /tf607 {1.0 0.3 0.0 setrgbcolor} bind def %R25Y /tf620 {1.0 0.0 0.0 setrgbcolor} bind def %R00Y /FKUCI00 8 array def %Cyan, Colour 1, Sensitivity /FKUCI01 8 array def %Cyan, Colour 2 on top, Sensitivity /FKUCI10 8 array def %Cyan, Colour 1, Saturation /FKUCI11 8 array def %Cyan, Colour 2 on top, Saturation /FKUMI00 8 array def %Magenta, Colour 1, Sensitivity /FKUMI01 8 array def %Magenta, Colour 2 on top, Sensitivity /FKUMI10 8 array def %Magenta, Colour 1, Saturation /FKUMI11 8 array def %Magenta, Colour 2 on top, Saturation /FKUYI00 8 array def %Yellow, Colour 1, Sensitivity /FKUYI01 8 array def %Yellow, Colour 2 on top, Sensitivity /FKUYI10 8 array def %Yellow, Colour 1, Saturation /FKUYI11 8 array def %Yellow, Colour 2 on top, Saturation /FKUNI00 8 array def %Black, Colour 1, Sensitivity /FKUNI01 8 array def %Black, Colour 2 on top, Sensitivity /FKUNI10 8 array def %Black, Colour 1, Saturation /FKUNI11 8 array def %Black, Colour 2 on top, Saturation /XRGAI 8 array def /XRG$I 8 array def /XBJAI 8 array def /XBJ$I 8 array def %/XRGAI [ 570 557 520 495 570 570 570 570 ] def %/XRG$I [(570) (557) (520) (495) (570) (570) (570) (570)] def /XRGAI [ 520 557 520 495 570 570 570 570 ] def /XRG$I [(520) (557) (520) (495) (570) (570) (570) (570)] def /XBJAI [ 495 495 495 495 520 505 470 445 ] def /XBJ$I [(495) (495) (495) (495) (520) (505) (470) (445)] def /MULX 0600 def /MULY 1200 0.8 mul def /JPPM 4 def /CY 0.35 def /CX 50 def %%EndProlog gsave /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 3 def /lanind2 3 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchart2 1 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 % /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 5 /Times-ISOL1 FS 200 85 moveto ( TF310-7) show xchart 0 ge {(A) show} if %(change of LMS in volour vision) showea %(\304nderung von LMS beim Farbensehen) showde 72 90 translate 00 1 15 {/xchart exch def %xchart=0,15 gsave xchart 0 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if %ILT=0 NO threshold xchart 0 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if %ILT=0 NO threshold xchart 1 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 2 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if xchart 3 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 4 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if xchart 5 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 6 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if xchart 7 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 8 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if %ILT=1 threshold xchart 9 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if xchart 10 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if xchart 11 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if xchart 12 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if xchart 13 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if xchart 14 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if xchart 15 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if /IKOM 3 def %N curve, not used /ILN 0 def %R&M /JPPM 2 def %three curves ILT 0 eq {/ta 0.0 def /taT (0,0) def /ltaT (-) def } if ILT 1 eq {/ta 0.025 def /taT (0,025) def /lTaT (-1,6) def} if 0.01 MM 0.01 MM scale 30 setlinewidth [ ] 0 setdash 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /W 9 array def /Xa {(a) ishowM} def /Xo {(o) ishowM} def ILN 0 eq {%Y,R,G,570,545, N=NAMES % /X0 {tf570 (Y) bishowM} def % /X1 {tf595 (O) bishowM} def % /X2 {tf545 (M) bishowM} def % /X3 {tf595 (O) ishowK} def % /X4 {tf545 (M) ishowK} def % /X5 {tf595 (595) ishowK} def % /X6 {tf545 (545) ishowK} def % /X0 {tf570 (Y) bishowM} def % /X1 {tf620 (R) bishowM} def % /X2 {tf520 (G) bishowM} def % /X3 {tf620 (R) ishowK} def % /X4 {tf520 (G) ishowK} def % /X5 {tf620 (620) ishowK} def % /X6 {tf520 (520) ishowK} def xchart 0 eq xchart 1 eq or xchart 8 eq or xchart 9 eq or {%xchart=0,1,8,9 /X0 {tf545 (M) bishowM} def /X1 {tf570 (L) bishowM} def /X2 {tf520 (G) bishowM} def /X3 {tf570 (L) ishowK} def /X4 {tf520 (G) ishowK} def /X5 {tf570 (570) ishowK} def /X6 {tf520 (520) ishowK} def /X7 {tf520 (520)} def /X8 {tf545 (545)} def /X9 {tf570 (570)} def /W [545 570 520 450 575 550 525 505 475] def % 545 570 520 /FKUCI00 [0.0 0.0 0.5 1.0 0.0 0.0 0.0 0.0] def /FKUCI01 [0.5 0.0 0.0 0.0 1.0 1.0 0.0 1.0] def /FKUCI10 [0.0 0.0 0.5 1.0 0.0 0.0 0.0 0.0] def /FKUCI11 [0.5 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUMI00 [0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUMI10 [0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUYI00 [0.0 1.0 1.0 0.0 0.0 1.0 0.0 1.0] def /FKUYI01 [1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUYI10 [0.0 1.0 1.0 0.0 1.0 1.0 1.0 1.0] def /FKUYI11 [1.0 0.0 0.0 0.0 0.0 0.0 1.0 0.0] def /FKUNI00 [1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI10 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def } if %xchart=0,1,8,9 xchart 2 eq xchart 3 eq or xchart 10 eq or xchart 11 eq or {%xchart=2,3,10,11 /X0 {tf520 (G) bishowM} def /X1 {tf545 (M) bishowM} def /X2 {tf495 (C) bishowM} def /X3 {tf545 (M) ishowK} def /X4 {tf495 (C) ishowK} def /X5 {tf545 (545) ishowK} def /X6 {tf495 (495) ishowK} def /X7 {tf495 (495)} def /X8 {tf520 (520)} def /X9 {tf545 (545)} def /W [520 545 495 450 575 550 525 505 475] def % 520 545 495 /FKUCI00 [0.0 0.5 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI01 [1.0 0.0 0.0 0.0 1.0 1.0 0.0 1.0] def /FKUCI10 [0.0 0.5 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI11 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUMI00 [0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUMI10 [0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUYI00 [0.0 1.0 0.0 0.0 0.0 1.0 0.0 1.0] def /FKUYI01 [1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUYI10 [0.0 1.0 0.0 0.0 1.0 1.0 1.0 1.0] def /FKUYI11 [1.0 0.0 0.0 0.0 0.0 0.0 1.0 0.0] def /FKUNI00 [1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI10 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def } if %xchart=2,3,10,11 xchart 4 eq xchart 5 eq or xchart 12 eq or xchart 13 eq or {%xchart=4,5,12,13 /X0 {tf495 (C) bishowM} def /X1 {tf520 (G) bishowM} def /X2 {tf470 (B) bishowM} def /X3 {tf520 (G) ishowK} def /X4 {tf470 (B) ishowK} def /X5 {tf520 (520) ishowK} def /X6 {tf470 (470) ishowK} def /X7 {tf470 (470)} def /X8 {tf495 (495)} def /X9 {tf520 (520)} def /W [495 520 470 450 575 550 525 505 475] def % 495 520 470 /FKUCI00 [0.0 1.0 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI01 [1.0 0.0 0.0 0.0 1.0 1.0 0.0 1.0] def /FKUCI10 [0.0 1.0 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI11 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUMI00 [0.0 0.0 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUMI10 [0.0 0.0 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUYI00 [0.0 1.0 0.0 0.0 0.0 1.0 0.0 1.0] def /FKUYI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUYI10 [0.0 1.0 0.0 0.0 1.0 1.0 1.0 1.0] def /FKUYI11 [0.0 0.0 0.0 0.0 0.0 0.0 1.0 0.0] def /FKUNI00 [1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI10 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def } if %xchart=4,5,12,13 xchart 6 eq xchart 7 eq or xchart 14 eq or xchart 15 eq or {%xchart=6,7,14,15 /X0 {tf470 (B) bishowM} def /X1 {tf495 (C) bishowM} def /X2 {tf445 (S) bishowM} def /X3 {tf495 (C) ishowK} def /X4 {tf445 (S) ishowK} def /X5 {tf495 (495) ishowK} def /X6 {tf445 (445) ishowK} def /X7 {tf445 (445)} def /X8 {tf470 (470)} def /X9 {tf495 (495)} def /W [470 495 445 450 575 550 525 505 475] def % 470 495 445 /FKUCI00 [0.0 1.0 0.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI01 [1.0 0.0 0.0 0.0 1.0 1.0 0.0 1.0] def /FKUCI10 [0.0 1.0 0.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI11 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUMI00 [0.0 0.0 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI01 [0.5 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUMI10 [0.0 0.0 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUMI11 [0.5 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUYI00 [0.0 0.0 0.0 0.0 0.0 1.0 0.0 1.0] def /FKUYI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUYI10 [0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0] def /FKUYI11 [0.0 0.0 0.0 0.0 0.0 0.0 1.0 0.0] def /FKUNI00 [1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def /FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI10 [1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def /FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def } if %xchart=6,7,14,15 } if %Y,R,G,570,545, N=NAMES ILN 1 eq {%V,L,S,570,445 /X0 {tfn (V) bishowM} def /X1 {tfo (L) bishowM} def /X2 {tfv (S) bishowM} def /X3 {tfo (L) ishowK} def /X4 {tfv (S) ishowK} def /X5 {tfy (570) ishowK} def /X6 {tfv (445) ishowK} def} if ILN 2 eq {%W,S,M,450,538 /X0 {tfn (W) bishowM} def /X1 {tfv (S) bishowM} def /X2 {tfl (M) bishowM} def /X3 {tfv (S) ishowK} def /X4 {tfl (M) ishowK} def /X5 {tfv (445) ishowK} def /X6 {tfl (545) ishowK} def} if /AF1 0.5 def /AF2 0.5 def /XRGA {XRGAI ILK get} def /XBJA {XBJAI ILK get} def /XRG$ {XRG$I ILK get} def /XBJ$ {XBJ$I ILK get} def /W0 {W 0 get} def /W1 {W 1 get ILK 1 eq { 10 add} if ILK 2 eq { 20 add} if ILK 3 eq { 30 add} if} def /W2 {W 2 get ILK 1 eq {-10 add} if ILK 2 eq {-20 add} if ILK 3 eq {-30 add} if} def /W3 {W 3 get} def /W4 {W 4 get} def /W5 {W 5 get} def /W6 {W 6 get} def /W7 {W 7 get} def /W8 {W 8 get} def %function value for curve U normalized to 1 at 9 wavelengths %XRGA, XJBA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B) /YU1 {XRGA W0 sub CX div dup mul CY mul neg} def /YU2 {XBJA W0 sub CX div dup mul CY mul neg} def /YUL {W1 W0 sub CX div dup mul CY mul neg} def /YUM {W2 W0 sub CX div dup mul CY mul neg} def /YUT {W3 W0 sub CX div dup mul CY mul neg} def /YUJ {W4 W0 sub CX div dup mul CY mul neg} def /YUU {W5 W0 sub CX div dup mul CY mul neg} def /YUM {W6 W0 sub CX div dup mul CY mul neg} def /YUG {W7 W0 sub CX div dup mul CY mul neg} def /YUB {W8 W0 sub CX div dup mul CY mul neg} def %function value for curve P normalized to 1 at 9 wavelengths %XRGA, XBJA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B) /YP1 {XRGA W1 sub CX div dup mul CY mul neg} def /YP2 {XBJA W0 sub CX div dup mul CY mul neg} def /YPP {W1 W1 sub CX div dup mul CY mul neg} def /YPD {W2 W1 sub CX div dup mul CY mul neg} def /YPT {W3 W1 sub CX div dup mul CY mul neg} def /YPJ {W4 W1 sub CX div dup mul CY mul neg} def /YPU {W5 W1 sub CX div dup mul CY mul neg} def /YPM {W6 W1 sub CX div dup mul CY mul neg} def /YPG {W7 W1 sub CX div dup mul CY mul neg} def /YPB {W8 W1 sub CX div dup mul CY mul neg} def %function value for curve D normalized to 1 at 9 wavelengths %XRGA, XBJA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B) /YD1 {XRGA W2 sub CX div dup mul CY mul neg} def /YD2 {XBJA W2 sub CX div dup mul CY mul neg} def /YDP {W1 W2 sub CX div dup mul CY mul neg} def /YDD {W2 W2 sub CX div dup mul CY mul neg} def /YDT {W3 W2 sub CX div dup mul CY mul neg} def /YDJ {W4 W2 sub CX div dup mul CY mul neg} def /YDU {W5 W2 sub CX div dup mul CY mul neg} def /YDM {W6 W2 sub CX div dup mul CY mul neg} def /YDG {W7 W2 sub CX div dup mul CY mul neg} def /YDB {W8 W2 sub CX div dup mul CY mul neg} def %function value for curve T normalized to 1 at 9 wavelengths %XRGA, XBJA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B) /YT1 {XRGA W3 sub CX div dup mul CY mul neg} def /YT2 {XBJA W3 sub CX div dup mul CY mul neg} def /YTP {W1 W3 sub CX div dup mul CY mul neg} def /YTD {W2 W3 sub CX div dup mul CY mul neg} def /YTT {W3 W3 sub CX div dup mul CY mul neg} def /YTJ {W4 W3 sub CX div dup mul CY mul neg} def /YTU {W5 W3 sub CX div dup mul CY mul neg} def /YTM {W6 W3 sub CX div dup mul CY mul neg} def /YTG {W7 W3 sub CX div dup mul CY mul neg} def /YTB {W8 W3 sub CX div dup mul CY mul neg} def 0 1 76 {/i exch def %i=0,1,76 /XEXI i 5 mul 380 add def YIXL i XEXI W1 sub CX div dup mul CY mul neg put YIXM i XEXI W2 sub CX div dup mul CY mul neg put YIXS i XEXI W3 sub CX div dup mul CY mul neg put % ILT 1 eq {%ILT=1 % /EYIXL 10 YIXL i get exec exp ta add def % YIXL i EYIXL log put % /EYIXM 10 YIXM i get exec exp ta add def % YIXM i EYIXM log put % /EYIXS 10 YIXS i get exec exp ta add def % YIXS i EYIXS log put % } if %ILT=1 } for %i=0,1,76 %ILT 1 eq {%ILT=1 % /EYU1 10 YU1 exp ta add def % /YU1 EYU1 log def % /EYP1 10 YP1 exp ta add def % /YP1 EYP1 log def % /EYD1 10 YD1 exp ta add def % /YD1 EYD1 log def % /EYT1 10 YT1 exp ta add def % /YT1 EYT1 log def % } if %ILT=1 /YM5X5 YIXM 19 get YU1 YD1 sub add def /YS5X5 YIXS 19 get def 0 1 76 {/i exch def %i=0,1,76 /YEXL {YIXL i get} def /YEXM {YIXM i get} def /YEXS {YIXS i get} def ILT 1 eq {%ILT=1 /EYEXL 10 YEXL exp ta add def /YEXL EYEXL log def YIXL i YEXL put /EYEXM 10 YEXM exp ta add def /YEXM EYEXM log def YIXM i YEXM put /EYEXS 10 YEXS exp ta add def /YEXS EYEXS log def YIXS i YEXS put } if %ILT=1 /YEXU {YEXL AF1 mul YEXM AF2 mul add} def /YEXN {YEXS YEXU add 0.5 mul} def /YEXJ {YEXN YEXU YEXN sub 0.3333 mul add} def /YEXB {YEXN YEXS YEXN sub 0.3333 mul add} def 0 1 JPPM {/j exch def %j=0,JPPM IKOM 0 eq {/YEXA YEXN def} if IKOM 1 eq {/YEXA YEXJ def} if IKOM 2 eq {/YEXA YEXB def} if IKOM 3 eq {/YEXA YEXN def} if ILS 0 eq {%ILS=0 j 0 eq {YEXP0 i YEXU put} if j 1 eq {YEXP1 i YEXL put} if j 2 eq {YEXP2 i YEXM put} if j 3 eq {YEXP3 i YEXS put} if j 4 eq {YEXP4 i YEXA put} if } if %ILS=0 ILS 1 ge {%ILS>=1 j 0 eq {YEXP0 i 0.0 put} if j 1 eq {YEXP1 i YEXL YEXU sub put} if j 2 eq {YEXP2 i YEXM YEXU sub put} if j 3 eq {YEXP3 i YEXS YEXU sub put} if j 4 eq {YEXP4 i YEXN YEXA sub put} if } if %ILS>=1 } for %j=0,JPPM } for %i=0,1,76 xchart 0 eq xchart 1 eq or xchart 8 eq or xchart 9 eq or {%xchart=0,1,8,9 1850 2600 ILS 1 eq {100 sub} if moveto X7 bshowM 2350 2600 ILS 1 eq {100 sub} if moveto X8 bshowM 2850 2600 ILS 1 eq {100 sub} if moveto X9 bshowM } if %xchart=0,1,8,9 xchart 2 eq xchart 3 eq or xchart 10 eq or xchart 11 eq or {%xchart=2,3,10,11 1550 2600 ILS 1 eq {100 sub} if moveto X7 bshowM 2050 2600 ILS 1 eq {100 sub} if moveto X8 bshowM 2550 2600 ILS 1 eq {100 sub} if moveto X9 bshowM } if %xchart=2,3,10,11 xchart 4 eq xchart 5 eq or xchart 12 eq or xchart 13 eq or {%xchart=4,5,12,13 1250 2600 ILS 1 eq {100 sub} if moveto X7 bshowM 1750 2600 ILS 1 eq {100 sub} if moveto X8 bshowM 2250 2600 ILS 1 eq {100 sub} if moveto X9 bshowM } if %xchart=4,5,12,13 xchart 6 eq xchart 7 eq or xchart 14 eq or xchart 15 eq or {%xchart=6,7,14,15 0950 2600 ILS 1 eq {100 sub} if moveto X7 bshowM 1450 2600 ILS 1 eq {100 sub} if moveto X8 bshowM 1950 2600 ILS 1 eq {100 sub} if moveto X9 bshowM } if %xchart=6,7,14,15 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM ILU 1 eq {4900 550 moveto (u) bishowM} if 050 3800 moveto ILS 1 le {%ILS=0,1 tfw TBM (logarithm. ) showde (logarithmic ) showea X0 Xa tfw TBM} if %ILS=0,1 ILS 0 eq {%ILS=0 tfw TBM (\255Daten) showde (\255data) showea } if %ILS=0 ILS 1 eq {%ILS=1 tfw TBM (\255S\344ttigung) showde (\255saturation) showea } if %ILS=1 ILS 2 eq {%ILS=2 tfw TBM (Empfindlichkeitsverh\344ltnis) showde (Cone sensitivity ratio) showea } if %ILS=2 050 3500 moveto X0 Xa tfw ( = \050 ) bshowM X1 Xo tfw 0 50 rmoveto 120 /Symbol FS ( \267 ) show 0 -50 rmoveto X2 Xo tfw ( \051) bshowM 20 100 rmoveto (0,5) bshowK 0 -100 rmoveto 010 3200 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 010 2900 moveto ILS 0 eq {%ILS=0 (log [ ) bshowM X0 Xa tfw (, ) bshowM X1 Xo tfw (, ) bshowM X2 Xo ( ]) bshowM} if %ILS=0 ILS 1 eq {(log [) bshowM X1 Xo tfw (/) bshowM X0 Xa tfw (, ) bshowM X2 Xo tfw (/) bshowM X0 Xa tfw ( ]) bshowM} if %ILS=1 ILS 2 eq {(0,5 log [) bshowM X1 Xo tfw (/) bshowM X2 Xo tfw (, ) bshowM X2 Xo tfw (/) bshowM X1 Xo ( ]) bshowM} if %ILS=2 3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto ( = \050) bshowM (l) outSM ( - 555\051 / 50) bshowM 2900 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 ILK 0 eq {X7} if ILK 1 eq {(580)} if ILK 2 eq {(590)} if ILK 3 eq {(600)} if ishowK (]) TBM tfw show (2) ebshowM 2900 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 ILK 0 eq {X9} if ILK 1 eq {(530)} if ILK 2 eq {(520)} if ILK 3 eq {(510)} if ishowK (]) TBM tfw show (2) ebshowM 2900 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM X8 bshowM %3100 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xa 50 0 rmoveto %tfw (= log) bshowM 50 0 rmoveto X1 Xo tfw %YU1 YP1 sub 0 ge {( + )} {( - )} ifelse bshowM YU1 YP1 sub abs troshow %3100 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xa 50 0 rmoveto %tfw (= log) bshowM 50 0 rmoveto X2 Xo tfw %YU1 YD1 sub 0 ge {( + )} {( - )} ifelse bshowM YU1 YD1 sub abs troshow tfw 550 350 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 ILS 0 eq {2700} {3000} ifelse 0.8 mul rlineto stroke 0 ILS 0 eq {2700} {3000} ifelse 0.8 mul moveto 340 12 mul 0 rlineto stroke TBG /tx [ (400) (500) (600) (700)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ ( -3,1) (-1,1) ( 0,9) ( 2,9)] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten ILU 1 eq {%ILU=1 0 1 3 {/i exch def %i=0,3 /ixt {-180 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.55 1200 mul add def /ixl 240 1.55 1200 mul add def %0.25 0.0 1.0 0.0 setcmykcolor tf557 ixt 150 moveto ( 0,0) show /ixt 20 1860 add def ixt -320 moveto (555) show ixl 75 moveto 0 -150 rlineto stroke } if %ILU=1 %!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 -320 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 {100 i 0480 mul add} def /iyl {240 i 0480 mul add} def -500 iyt moveto ILS 0 eq {tye} {tys} ifelse i get exec show -75 iyl moveto 150 0 rlineto stroke } for /yta 0 def %ILS 0 ne ILT 1 eq and {/yta 650 def} if ILS 1 eq {/yta 250 def} if /xts 250 3 1200 mul add def /yts 700 2 0480 mul add yta add def xts yts 250 add moveto TBK (Threshold) showea (Schwelle) showde xts yts 25 add moveto (S) bshowK (a) ishowK (=) bshowK taT bshowK ILT 1 eq {xts yts 180 sub moveto (log S) bshowK (a) ishowK (=) bshowM lTaT bshowK} if 50 setlinewidth %Cero point at 550 nm /X0 {550 380 sub 12 mul} def X0 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor ILU 1 eq {/Y0C 450 def /Y1C 2000 def} {/Y0C 050 def /Y1C 2400 def} ifelse X0 neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke 0 1 JPPM {/j exch def %j=0,JPPM ILS 0 eq {/IORY 2700 0.8 mul def} {/IORY 1500 0.8 mul def} ifelse 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put j 0 eq {Yi i YEXP0 i get put} if j 1 eq {Yi i YEXP1 i get put} if j 2 eq {Yi i YEXP2 i get put} if j 3 eq {Yi i YEXP3 i get put} if j 4 eq {Yi i YEXP4 i get put} if j 5 eq {Yi i YEXP5 i get put} if j 6 eq {Yi i YEXP6 i get put} if j 7 eq {Yi i YEXP7 i get put} if } for %i=0,1,76 j 3 le {%j<=3 ILS 0 eq {%ILS=0 FKUC1 j FKUCI00 j get put FKUM1 j FKUMI00 j get put FKUY1 j FKUYI00 j get put FKUN1 j FKUNI00 j get put FKUC2 j FKUCI01 j get put FKUM2 j FKUMI01 j get put FKUY2 j FKUYI01 j get put FKUN2 j FKUNI01 j get put IDAI1 j IDAI00 j get put IDAI2 j IDAI01 j get put KURVA j KURVA1 j get put } if %ILS=0 ILS 1 ge {%ILS>=1 FKUC1 j FKUCI10 j get put FKUM1 j FKUMI10 j get put FKUY1 j FKUYI10 j get put FKUN1 j FKUNI10 j get put FKUC2 j FKUCI11 j get put FKUM2 j FKUMI11 j get put FKUY2 j FKUYI11 j get put FKUN2 j FKUNI11 j get put IDAI1 j IDAI10 j get put IDAI2 j IDAI11 j get put KURVA j KURVA2 j get put } if %ILS>=1 } if %j<=3 j 4 eq {%j=4 ILS 0 eq {%ILS=0 FKUC1 4 FKUCI00 4 IKOM add get put FKUM1 4 FKUMI00 4 IKOM add get put FKUY1 4 FKUYI00 4 IKOM add get put FKUN1 4 FKUNI00 4 IKOM add get put FKUC2 4 FKUCI01 4 IKOM add get put FKUM2 4 FKUMI01 4 IKOM add get put FKUY2 4 FKUYI01 4 IKOM add get put FKUN2 4 FKUNI01 4 IKOM add get put IDAI1 4 IDAI00 4 IKOM add get put IDAI2 4 IDAI01 4 IKOM add get put KURVA 4 KURVA1 4 IKOM add get put } if %ILS=0 ILS 1 ge {%ILS>=1 FKUC1 4 FKUCI10 4 IKOM add get put FKUM1 4 FKUMI10 4 IKOM add get put FKUY1 4 FKUYI10 4 IKOM add get put FKUN1 4 FKUNI10 4 IKOM add get put FKUC2 4 FKUCI11 4 IKOM add get put FKUM2 4 FKUMI11 4 IKOM add get put FKUY2 4 FKUYI11 4 IKOM add get put FKUN2 4 FKUNI11 4 IKOM add get put IDAI1 4 IDAI10 4 IKOM add get put IDAI2 4 IDAI11 4 IKOM add get put KURVA 4 KURVA2 4 IKOM add get put } if %ILS>=1 } if %j=4 /KURVM {KURVA j get} def KURVM 0 gt {%if KURVM>0 then KURVE 1 1 KURVM {/KURV exch def %KURV=1,KURVM /IDA1 {IDAI1 j get cvi} def /IDA2 {IDAI2 j get cvi} def KURV 1 eq {[ ] 0 setdash} if KURV 2 eq j 0 eq and {%KURV=2 /IDA1 {IDAI1 j get} def /IDA2 {IDAI2 j get} def [ IDA1 IDA2] 0 setdash } if %KURV=2 %/TKk {100 /Times-ISOL1 FS} bind def %TKk % 100 ILS 1600 mul add 2000 200 j mul sub moveto % KURVM trushow4 ( ) show % j trushow4 ( ) show % IDA1 trushow4 ( ) show % KURVA j get trushow4 ( ) show % FKUC1 j get trushow4 ( ) show % FKUM1 j get trushow4 ( ) show % FKUY1 j get trushow4 ( ) show % FKUN1 j get trushow4 ( ) show % IDA2 trushow4 ( ) show % KURVA j get trushow4 ( ) show % FKUC2 j get trushow4 ( ) show % FKUM2 j get trushow4 ( ) show % FKUY2 j get trushow4 ( ) show % FKUN2 j get trushow4 ( ) show KURV 1 eq {%KURV=1 /FKUC {FKUC1 j get} def /FKUM {FKUM1 j get} def /FKUY {FKUY1 j get} def /FKUN {FKUN1 j get} def } if %KURV=1 KURV 2 eq {%KURV=2 /FKUC {FKUC2 j get} def /FKUM {FKUM2 j get} def /FKUY {FKUY2 j get} def /FKUN {FKUN2 j get} def } if %KURV=2 %FKUC FKUM FKUY FKUN setcmykcolor 1 FKUC sub 1 FKUM sub 1 FKUY sub setrgbcolor FKUN 1 eq {0 0 0 setrgbcolor} if 50 setlinewidth /xst {Xi 0 get 550 sub CX div MULX mul} bind def /yst {IORY Yi 0 get MULY mul add} bind def xst yst moveto 1 3 71 {/i exch def %i=0,75 ab 380nm bis 710nm %i 0 eq { %100 ILS 300 mul add 1900 200 KURV mul sub moveto (Xi=) show %Xi i get trushow4 ( Yi=) show %Yi i get trushow4 % } if /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MULY 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 MULY 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 MULY 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 MULY mul add} bind def x21 y21 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } for %KURV=1,KURVM } if %if KURVM>0 then KURVE } for %j=0,JPPM X0 neg 0 translate -550 -400 translate showpage grestore } for %xchart=0,15 %%Trailor