%!PS-Adobe-3.0 EPSF-3.0 MS511-2 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /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: farbe.li.tu-berlin.de/MS51/MS51.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:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %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-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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 2 def /lanind2 2 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 (MS511-2) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_04) show % ( B8310_3, M8121-2, B3_04, N=3_04) show %! Aus pprozspe.com mit MULY=1500 und FERN, D65, Kurve Nr. 1 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 20 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 0 0 moveto 120 3 240 28 360 127 curveto 480 306 600 472 720 575 curveto 840 556 960 453 1080 293 curveto 1200 120 1320 24 1440 5 curveto 1560 56 1680 176 1800 354 curveto 1920 565 2040 794 2160 1057 curveto 2280 1318 2400 1521 2520 1677 curveto 2640 1685 2760 1545 2880 1284 curveto 3000 971 3120 647 3240 402 curveto 3360 228 3480 121 3600 61 curveto 3720 29 3840 14 3960 6 curveto 4080 3 4200 1 4320 0 curveto stroke 0 0 moveto 120 0 240 3 360 13 curveto 480 32 600 58 720 93 curveto 840 134 960 192 1080 277 curveto 1200 380 1320 508 1440 691 curveto 1560 910 1680 1142 1800 1312 curveto 1920 1443 2040 1487 2160 1495 curveto 2280 1433 2400 1303 2520 1166 curveto 2640 987 2760 792 2880 597 curveto 3000 425 3120 269 3240 161 curveto 3360 90 3480 47 3600 23 curveto 3720 11 3840 5 3960 2 curveto 4080 1 4200 0 4320 0 curveto stroke 0 1 moveto 120 15 240 129 360 584 curveto 480 1458 600 2330 720 2950 curveto 840 2992 960 2618 1080 1976 curveto 1200 1158 1320 622 1440 327 curveto 1560 167 1680 91 1800 45 curveto 1920 20 2040 5 2160 0 curveto 2280 0 2400 0 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 750 moveto 100 0 rlineto stroke -50 1500 moveto 100 0 rlineto stroke -50 2250 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -500 -80 moveto (0,0) show -500 670 moveto (0,5) show -500 1420 moveto (1,0) show -500 2170 moveto (1,5) show -500 2920 moveto (2,0) show -500 3225 moveto 350 /Times-ISOL1 FS (Normspektralwerte,) showde %0MS511-2 00000 (tristimulus values,) showen %1MS511-2 00001 (tristimulus valora,) showes %3MS511-2 00003 (tristimulus estime,) showfr %2MS511-2 00002 (valori tristimulo,) showit %4MS511-2 00004 (tristimulusverdier,) showno %5MS511-2 00005 (tristimulus values,) showpt %6MS511-2 00006 (tristimulus values,) showx1 %7MS511-2 00007 (tristimulus values,) showy1 %8MS511-2 00008 (tristimulus values,) showz1 %9MS511-2 00009 350 /Symbol FS 175 175 rmoveto (-) show -175 -175 rmoveto 350 /TimesI-ISOL1 FS (x) show 300 /Times-ISOL1 FS 0 -150 rmoveto (10) show 0 150 rmoveto 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (,) show 350 /Symbol FS 175 175 rmoveto (-) show -175 -175 rmoveto 350 /TimesI-ISOL1 FS (y) show 300 /Times-ISOL1 FS 0 -150 rmoveto (10) show 0 150 rmoveto 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (,) show 2800 2700 moveto 350 /Symbol FS 175 175 rmoveto (-) show -175 -175 rmoveto 350 /TimesI-ISOL1 FS (z) show 300 /Times-ISOL1 FS 0 -150 rmoveto (10) show 0 150 rmoveto 350 /Symbol FS ((l)) show %1500 2700 moveto %350 /Times-ISOL1 FS %(Norm. max.) show %350 /Symbol FS %175 175 rmoveto %(-) show %-175 -175 rmoveto %350 /TimesI-ISOL1 FS %(y) show %300 /Times-ISOL1 FS %0 -150 rmoveto %(10) show %0 150 rmoveto %350 /Symbol FS %((l)) show %350 /Times-ISOL1 FS %(=1) show 300 /Times-ISOL1 FS 3300 900 moveto (Wellen\255) showde %0MS511-2 01000 (wave\255) showen %1MS511-2 01001 (longitud) showes %3MS511-2 01003 (longueur) showfr %2MS511-2 01002 (lunghezza) showit %4MS511-2 01004 (b\370lge\255) showno %5MS511-2 01005 (wave\255) showpt %6MS511-2 01006 (wave\255) showx1 %7MS511-2 01007 (wave\255) showy1 %8MS511-2 01008 (wave\255) showz1 %9MS511-2 01009 3300 550 moveto (l\344nge) showde %0MS511-2 02000 (length) showen %1MS511-2 02001 (de onda) showes %3MS511-2 02003 (d'onde) showfr %2MS511-2 02002 (d'onda) showit %4MS511-2 02004 (lengde) showno %5MS511-2 02005 (length) showpt %6MS511-2 02006 (length) showx1 %7MS511-2 02007 (length) showy1 %8MS511-2 02008 (length) showz1 %9MS511-2 02009 3600 200 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2500 1700 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (x) show 200 /Times-ISOL1 FS 0 -150 rmoveto (10) show 0 150 rmoveto 300 /Symbol FS ((l)) show 1500 1650 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (y) show 200 /Times-ISOL1 FS 0 -150 rmoveto (10) show 0 150 rmoveto 300 /Symbol FS ((l)) show 1000 2300 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (z) show 200 /Times-ISOL1 FS 0 -150 rmoveto (10) show 0 150 rmoveto 300 /Symbol FS ((l)) show showpage grestore %%Trailer