%!PS-Adobe-3.0 EPSF-3.0 CGT90-1N %%BoundingBox: 70 85 226 206 /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: http://farbe.li.tu-berlin.de/CGT9/CGT9.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:2020110112000) /ModDate (D:2020110112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 /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 /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 {340 16.67 div /Times-ISOL1 FS} bind def /TM {280 16.67 div /Times-ISOL1 FS} bind def /TK {240 16.67 div /Times-ISOL1 FS} bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TL {160 16.67 div /Times-ISOL1 FS} bind def /TIG {340 16.67 div /TimesI-ISOL1 FS} bind def /TIM {280 16.67 div /TimesI-ISOL1 FS} bind def /TIK {240 16.67 div /TimesI-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIL {160 16.67 div /TimesI-ISOL1 FS} bind def /TBG {340 16.67 div /TimesB-ISOL1 FS} bind def /TBM {280 16.67 div /TimesB-ISOL1 FS} bind def /TBK {240 16.67 div /TimesB-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBL {160 16.67 div /TimesB-ISOL1 FS} bind def /TBIG {340 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {280 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {240 16.67 div /TimesBI-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIL {160 16.67 div /TimesBI-ISOL1 FS} bind def /SG {340 16.67 div /Symbol FS} bind def /SM {280 16.67 div /Symbol FS} bind def /SK {240 16.67 div /Symbol FS} bind def /SS {200 16.67 div /Symbol FS} bind def /SL {160 16.67 div /Symbol 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 /tzrcmy0* {0.0 1.0 0.5 0.0} bind def %Reproduction colours /tzjcmy0* {0.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzgcmy0* {1.0 0.0 0.5 0.0} bind def /tzbcmy0* {1.0 0.5 0.0 0.0} 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 /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 /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 %%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 /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 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 % gsave %LANINDL2 END 4 /Times-Roman FS 72 86 moveto ( CGT90-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 0.5 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /iton 2 def %from file 1N_A 16.67 dup scale TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 SG (l) show TBG 2 0 rmoveto (/nm) show 002 222 moveto (Monochromatische Elementarfarben) showde %08250-1 2 (monochromatic elementary colours) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 002 202 moveto (und Elementar\255Optimalfarben) showde %08250-1 3 (and elementary optimal colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /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} %->1 {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 [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 %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 2 eq {i 29 ge i 75 le and } if {scolors k get exec setcmykcolor } {0.0 0.0 0.0 1.0 setcmykcolor} ifelse /y20m y20 def %default /y11m y11 def %default x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 18 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 13 sub iy01 0 add moveto 29 0 rlineto 0 15 rlineto -29 0 rlineto closepath fill 0 setgray TBIS x10 13 sub iy01 5 add moveto (B) show TBL -1 -3 rmoveto (e,470) show 0 3 rmoveto 1 setgray /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIS (BR) show TBL 0 -3 rmoveto (o) show 0 3 rmoveto /i 28 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 29 0 rlineto 0 15 rlineto -29 0 rlineto closepath fill 0 setgray TBIS x10 7 sub iy01 5 add moveto (G) show TBL -1 -3 rmoveto (e,520) show 0 3 rmoveto 1 setgray /xm0 x10 27 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIS (BG) show TBL 0 -3 rmoveto (o) show 0 3 rmoveto /i 38 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 10 sub iy01 0 add moveto 29 0 rlineto 0 15 rlineto -29 0 rlineto closepath fill 0 setgray TBIS x10 09 sub iy01 5 add moveto (Y) show TBL -1 -3 rmoveto (e,570) show 0 3 rmoveto 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIS (YG) show TBL 0 -3 rmoveto (o) show 0 3 rmoveto /i 48 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 10 sub iy01 0 add moveto 29 0 rlineto 0 15 rlineto -29 0 rlineto closepath fill 0 setgray TBIS x10 09 sub iy01 5 add moveto (R) show TBL -1 -3 rmoveto (e,620) show 0 3 rmoveto 1 setgray /xm0 x10 27 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIS (YR) show TBL 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIS (YR) show TBL 0 -3 rmoveto (o) show 0 3 rmoveto /iy01 iy0 000 add def %Spektrum III 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 2 eq {i 29 ge i 75 le and } if {0.0 0.0 0.0 1.0 setcmykcolor} {scolors k get exec setcmykcolor } ifelse /y20m y20 def %default /y11m y11 def %default x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecficmyn* ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecficmyn* ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecficmyn* ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecficmyn* /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W TBM ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecficmyn* } for %Schleife ixd ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecficmyn* ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecficmyn* 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecficmyn* } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK 1 setgray ix0 24 sub 5 1 20 mul add 2 add xd mul add iy0 55 add moveto (520) show 1 setgray /xm0 ix0 65 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 135 0 rlineto 0 26 rlineto -135 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SS (l) show TBL 0 -3 rmoveto (d) show 0 3 rmoveto TBS( = 570nm, ) show TBIS (h) show TBL 0 -3 rmoveto (ab) show 0 3 rmoveto TBS ( = 92) show xm0 2 add ym0 00 sub moveto TBS (Optimal colour Yellow) showen (Optimalfarbe Gelb) showde -1 0 rmoveto TBIS ( Y) show TBL -2 -3 rmoveto (eo) show 0 3 rmoveto 1 setgray /xm0 ix0 65 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 125 0 rlineto 0 26 rlineto -125 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SS (l) show TBL 0 -3 rmoveto (d) show 0 3 rmoveto TBS( = 470nm, ) show TBIS (h) show TBL 0 -3 rmoveto (ab) show 0 3 rmoveto TBS ( = 272) show xm0 2 add ym0 00 sub moveto TBS (Optimal colour Blue) showen (Optimalfarbe Blau) showde -1 0 rmoveto TBIS ( B) show TBL -1 -3 rmoveto (eo) show 0 3 rmoveto showpage grestore %%Trailer