%!PS-Adobe-3.0 EPSF-3.0 JE531-6 %%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: http://130.149.60.45/~farbmetrik/JE53/) /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:2010030112000) /ModDate (D:2010030112000) /DOCINFO pdfmark16 [ /View [ /FitB ] /DOCVIEW pdfmark16 %END PDFDE011 % !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 /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TKi {160 /Times-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 /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBKe {160 /TimesB-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 {TKi 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowK {TBKe 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 /W 9 array def /W [525 575 475 475 575 575 525 525 475] 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 2 1 1 2 0 0 0 0] def /KURVA2 [2 2 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 100 000 000 100 300 000 300] def /IDAI01 [100 100 000 000 000 000 000 000] def /IDAI10 [100 100 000 000 100 100 000 100] def /IDAI11 [100 100 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 /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 /FKUCI00 [0.0 0.00 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI01 [0.5 0.00 0.0 0.0 1.0 1.0 0.0 1.0] def /FKUCI10 [0.0 0.00 1.0 1.0 0.0 0.0 0.0 0.0] def /FKUCI11 [0.5 0.00 0.0 0.0 0.0 0.0 0.0 0.0] def /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 /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 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 /FKUYI00 [0.0 0.0 0.0 0.0 0.0 1.0 0.0 1.0] def /FKUYI01 [1.0 1.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 [1.0 1.0 0.0 0.0 0.0 0.0 1.0 0.0] def /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 /FKUNI00 [1.0 1.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 1.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 /XRGAI 8 array def /XRG$I 8 array def /XBJAI 8 array def /XBJ$I 8 array def /XRGAI [ 525 525 510 475 575 575 575 575 ] def /XRG$I [(525) (525) (510) (475) (575) (575) (575) (575)] def /XBJAI [ 525 525 525 525 525 525 475 475 ] def /XBJ$I [(525) (525) (525) (525) (525) (525) (475) (475)] 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) (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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 /xchartg where {pop /xchart 4 def} {/xchart 4 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto ( JE531-6) show %(Wavelength change of LMS in JB colour vision) showen %(Wellenl\344ngen\255\304nderung von LMS beim JB\255Farbensehen) showde 72 90 translate %0 1 15 {/xchart exch def %xchart=0,15 gsave /tf450 {0.50 1.0 0.0 0.0 setcmykcolor} def %magenta /tf475 {1.00 1.0 0.0 0.0 setcmykcolor} def %elementary blue /tf500 {1.00 0.0 1.0 0.0 setcmykcolor} def %elementary green /tf525 {0.50 0.0 1.0 0.0 setcmykcolor} def %yellowish-green /tf550 {0.25 0.0 1.0 0.0 setcmykcolor} def %yellow-green /tf575 {0.00 0.0 1.0 0.0 setcmykcolor} def %elementary yellow 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 1 def /ILS 0 def /ILT 0 def/ILU 1 def} if xchart 3 eq {/ILK 1 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 4 eq {/ILK 2 def /ILS 0 def /ILT 0 def/ILU 1 def} if xchart 5 eq {/ILK 2 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 6 eq {/ILK 3 def /ILS 0 def /ILT 0 def/ILU 1 def} if xchart 7 eq {/ILK 3 def /ILS 1 def /ILT 0 def/ILU 1 def} if xchart 8 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 0 def} if %ILT=1 threshold xchart 9 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 0 def} if xchart 10 eq {/ILK 1 def /ILS 0 def /ILT 1 def/ILU 0 def} if xchart 11 eq {/ILK 1 def /ILS 1 def /ILT 1 def/ILU 0 def} if xchart 12 eq {/ILK 2 def /ILS 0 def /ILT 1 def/ILU 0 def} if xchart 13 eq {/ILK 2 def /ILS 1 def /ILT 1 def/ILU 0 def} if xchart 14 eq {/ILK 3 def /ILS 0 def /ILT 1 def/ILU 0 def} if xchart 15 eq {/ILK 3 def /ILS 1 def /ILT 1 def/ILU 0 def} if /IKOM 3 def %N curve, not used /ILN 3 def %U&T /JPPM 2 def %three curves ILT 0 eq {/ta 0.0 def} if ILT 1 eq {/ta 0.007 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 /Xa {(a) ishowM} def /Xo {(o) ishowM} def ILN 0 eq {%U,L,M,563,538, N=NAMES /X0 {tfn (U) bishowM} def /X1 {tfo (L) bishowM} def /X2 {tfl (M) bishowM} def /X3 {tfo (L) ishowK} def /X4 {tfl (M) ishowK} def /X5 {tfo (563) ishowK} def /X6 {tfl (538) ishowK} def} if ILN 1 eq {%V,L,S,563,475 /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 {tfo (563) ishowK} def /X6 {tfv (475) ishowK} def} if ILN 2 eq {%W,S,M,475,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 (475) ishowK} def /X6 {tfl (538) ishowK} def} if ILN 3 eq {%V,L,S,575(U),475 /X0 {tf525 (W) bishowM} def /X1 {tf575 (J) bishowM} def /X2 {tf475 (B) bishowM} def /X3 {tf575 (J) ishowK} def /X4 {tf475 (B) ishowK} def /X5 {tf575 (575) ishowK} def /X6 {tf475 (475) 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 0 eq {-20 add} if ILK 1 eq {-10 add} if ILK 3 eq { 10 add} if} def /W2 {W 2 get ILK 1 eq { 20 add} if ILK 2 eq { 10 add} if ILK 3 eq {-10 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, 563(L), 538(M), 475(S), 575(J), 575(U), 525(M), 525(G), 475(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, 563(L), 538(M), 475(S), 575(J), 575(U), 525(M), 525(G), 475(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, 563(L), 538(M), 475(S), 575(J), 575(U), 525(M), 525(G), 475(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, 563(L), 538(M), 475(S), 575(J), 575(U), 525(M), 525(G), 475(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 1550 2600 moveto tf475 (475) bshowM 2100 2600 moveto tf525 (525) bshowM 2650 2600 moveto tf575 (575) bshowM 4700 050 moveto tfw (l) outSM 30 0 rmoveto (/nm) bshowM ILU 1 eq {4900 500 moveto (u) bishowM} if 050 3800 moveto ILS 1 le {%ILS=0,1 tfw TBM (logarithm. ) showde (logarithmic ) showen X0 Xa tfw TBM} if %ILS=0,1 ILS 0 eq {%ILS=0 tfw TBM (\255Daten) showde (\255data) showen } if %ILS=0 ILS 1 eq {%ILS=1 tfw TBM (\255S\344ttigung) showde (\255saturation) showen } if %ILS=1 ILS 2 eq {%ILS=2 tfw TBM (Empfindlichkeitsverh\344ltnis) showde (Cone sensitivity ratio) showen } if %ILS=2 050 3525 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 ( ]) 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 ( - 575\051 / 50) bshowM 2900 3525 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 tf575 ILK 0 eq {(535)} if ILK 1 eq {(545)} if ILK 2 eq {(575)} if ILK 3 eq {(565)} 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 tf475 ILK 0 eq {(465)} if ILK 1 eq {(455)} if ILK 2 eq {(475)} if ILK 3 eq {(435)} if ishowK (]) TBM tfw show (2) ebshowM 2900 2900 moveto tfw (Adaptation: ) bshowM tfw (l) outSM X3 X4 tfw (=) bshowM (525) bshowM %3100 3525 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 % 575 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 ixt 150 moveto ( 0.0) show /ixt 20 1860 add def ixt -320 moveto (550) 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 -525 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 /xts 150 3 1200 mul add def /yts 300 2 0480 mul add yta add def xts yts 250 add moveto TBM (Threshold) showen (Schwelle) showde xts yts 25 add moveto (S) bshowM (a) ishowK (=) bshowM ta trushow4 50 setlinewidth %Cero point at 575 nm /X0T {575 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor ILU 1 eq {/Y0C 475 def /Y1C 2000 def} {/Y0C 050 def /Y1C 2400 def} ifelse X0T 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 1525 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 50 setlinewidth /xst {Xi 0 get 575 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 575 sub CX div MULX mul} bind def /yst {IORY Yi i get MULY mul add} bind def /x20 {Xi i 1 add get 575 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 575 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 575 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 X0T neg 0 translate -550 -400 translate showpage grestore %} for %xchart=0,15 %%Trailor