%!PS-Adobe-3.0 EPSF-3.0 CGT90-2N %%BoundingBox: 70 85 226 206 /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: 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 pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 /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-2N) 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\255K\366rperfarben) showde %08250-1 3 (and elementary surface 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 /yex10 [ %Reflexion Gelb J 050 050 050 050 050 050 050 050 053 075 133 223 372 555 702 782 821 842 855 865 872 878 883 888 892 897 901 906 910 915 918 922 924 926 928 930 932 934 936 ] def /yexp 77 array def 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 0.001 mul put} for 0 1 37 {/i exch def yexp i 2 mul 1 add %Werte 1,3,...,75 yex10 i get exec yex10 i 1 add get exec add 0.5 mul 0.001 mul put} for /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 scolors k get exec setcmykcolor /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 50 add lineto x10 iy01 50 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 50 add lineto x10 iy01 50 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 50 add lineto x10 iy01 50 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 50 add lineto x10 iy01 50 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 /yex10 [ %Reflexion Blau 107 107 107 115 169 282 412 450 483 445 387 317 244 180 125 086 063 050 045 043 042 042 042 042 042 043 044 045 046 053 085 148 228 308 388 468 548 628 708 ] def /yexp 77 array def 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 0.001 mul put} for 0 1 37 {/i exch def yexp i 2 mul 1 add %Werte 1,3,...,75 yex10 i get exec yex10 i 1 add get exec add 0.5 mul 0.001 mul put} for /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 scolors k get exec setcmykcolor /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 ix0 34 sub 5 1 20 mul add xd mul add % iy0 55 add moveto % (513) show % ix0 04 add 5 1 20 mul add xd mul add % iy0 07 add moveto % (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 130 0 rlineto 0 26 rlineto -130 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 (Surface colour Yellow) showen (K\366rperfarbe Gelb) showde -2 0 rmoveto TBIS ( Y) show TBL -1 -3 rmoveto (es) show 0 3 rmoveto 1 setgray /xm0 ix0 64 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 122 0 rlineto 0 26 rlineto -122 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 (Surface colour Blue) showen (K\366rperfarbe Blau) showde TBIS ( B) show TBL -1 -3 rmoveto (es) show 0 3 rmoveto showpage grestore %%Trailer