%!PS-Adobe-3.0 EPSF-3.0 MG070-3 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: MG070-3) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (MG070-3) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_09_5) show % ( B8310_8, M8180-3, B3_09_5, N=3_9_5) show %! Aus prozrem.for mit MULY=1500 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 15 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke %! FA*S*REM*4=FSR(I, 1)*1500 0 0 moveto 120 0 240 1 360 5 curveto 480 18 600 43 720 62 curveto 840 73 960 81 1080 74 curveto 1200 53 1320 26 1440 5 curveto 1560 13 1680 95 1800 246 curveto 1920 406 2040 548 2160 670 curveto 2280 750 2400 786 2520 794 curveto 2640 789 2760 738 2880 625 curveto 3000 465 3120 331 3240 218 curveto 3360 137 3480 82 3600 53 curveto 3720 32 3840 21 3960 14 curveto 4080 8 4200 5 4320 2 curveto stroke %! FA*S*REM*4=FSR(I, 2)*1500 0 0 moveto 120 0 240 0 360 0 curveto 480 0 600 1 720 4 curveto 840 8 960 16 1080 34 curveto 1200 77 1320 169 1440 377 curveto 1560 710 1680 1068 1800 1284 curveto 1920 1334 2040 1258 2160 1122 curveto 2280 936 2400 746 2520 585 curveto 2640 468 2760 370 2880 279 curveto 3000 191 3120 129 3240 82 curveto 3360 50 3480 30 3600 19 curveto 3720 11 3840 7 3960 5 curveto 4080 3 4200 1 4320 0 curveto stroke %! FA*S*REM*4=FSR(I, 3)*1500 0 0 moveto 120 1 240 7 360 25 curveto 480 87 600 213 720 316 curveto 840 387 960 466 1080 490 curveto 1200 452 1320 379 1440 317 curveto 1560 223 1680 117 1800 62 curveto 1920 28 2040 11 2160 4 curveto 2280 2 2400 1 2520 0 curveto 2640 0 2760 0 2880 0 curveto 3000 0 3120 0 3240 0 curveto 3360 0 3480 0 3600 0 curveto 3720 0 3840 0 3960 0 curveto 4080 0 4200 0 4320 0 curveto stroke 300 /Times-ISOL1 FS %! 100 lambda-Einheiten = 1200 Skalen-Einheiten 240 50 moveto 0 -100 rlineto stroke 1440 50 moveto 0 -100 rlineto stroke 2640 50 moveto 0 -100 rlineto stroke 3840 50 moveto 0 -100 rlineto stroke 20 -300 moveto (400) show 1220 -300 moveto (500) show 2420 -300 moveto (600) show 3620 -300 moveto (700) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 600 moveto 100 0 rlineto stroke -50 1200 moveto 100 0 rlineto stroke -50 1800 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -500 -80 moveto (0,0) show -500 520 moveto (0,1) show -500 1120 moveto (0,2) show -500 1720 moveto (0,3) show -500 2320 moveto (0,4) show -500 2920 moveto (0,5) show -500 3250 moveto 350 /Times-ISOL1 FS (spektrale Farbvalenzen:) showde %0MG070-3 0057# (spectral color valences:) showen %1MG070-3 0057# (valencias del espectro de color:) showes %2MG070-3 0057# (valences de couleurs spectrales:) showfr %3MG070-3 0057# (valenze di colore spettrali:) showit %4MG070-3 0057# (spectral color valences:) showjp %5MG070-3 0057# 2450 2850 moveto 350 /Symbol FS 175 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (x) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (\267) show 350 /TimesI-ISOL1 FS (S) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (\267) show 350 /TimesI-ISOL1 FS (R) show 350 /Symbol FS ((l)) show 2450 2450 moveto 350 /Symbol FS 190 150 rmoveto (-) show -190 -150 rmoveto 350 /TimesI-ISOL1 FS (y) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (\267) show 350 /TimesI-ISOL1 FS (S) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (\267) show 350 /TimesI-ISOL1 FS (R) show 350 /Symbol FS ((l)) show 2450 2050 moveto 350 /Symbol FS 175 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (z) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (\267) show 350 /TimesI-ISOL1 FS (S) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (\267) show 350 /TimesI-ISOL1 FS (R) show 350 /Symbol FS ((l)) show 300 /Times-ISOL1 FS 3400 750 moveto (Wellen\255) showde %0MG070-3 0157# (wave\255) showen %1MG070-3 0157# (longitud) showes %2MG070-3 0157# (longueur) showfr %3MG070-3 0157# (lunghezza) showit %4MG070-3 0157# (wave\255) showjp %5MG070-3 0157# 3400 450 moveto (l\344nge) showde %0MG070-3 0257# (length) showen %1MG070-3 0257# (de onda) showes %2MG070-3 0257# (d'onde) showfr %3MG070-3 0257# (d'onda) showit %4MG070-3 0257# (length) showjp %5MG070-3 0257# 3600 150 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2300 1100 moveto 300 /Symbol FS 150 125 rmoveto (-) show -150 -125 rmoveto 300 /TimesI-ISOL1 FS (x) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS (\267) show 300 /TimesI-ISOL1 FS (S) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS (\267) show 300 /TimesI-ISOL1 FS (R) show 300 /Symbol FS ((l)) show 1300 1500 moveto 300 /Symbol FS 165 125 rmoveto (-) show -165 -125 rmoveto 300 /TimesI-ISOL1 FS (y) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS (\267) show 300 /TimesI-ISOL1 FS (S) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS (\267) show 300 /TimesI-ISOL1 FS (R) show 300 /Symbol FS ((l)) show 0.0 0.0 0.5 0.0 setcmyk_olvcolor -100 700 moveto 200 0 rlineto 0 400 rlineto -200 0 rlineto closepath fill 0 setgray -350 800 moveto 300 /Symbol FS 150 125 rmoveto (-) show -150 -125 rmoveto 300 /TimesI-ISOL1 FS (z) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS (\267) show 300 /TimesI-ISOL1 FS (S) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS (\267) show 300 /TimesI-ISOL1 FS (R) show 300 /Symbol FS ((l)) show showpage grestore %%Trailer