%!PS-Adobe-3.0 EPSF-3.0 NE010-8 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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: NE010-8, B8310_1, M8120-8, B3_02) /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 pdfmark08 [ /View [ /FitB ] /DOCVIEW pdfmark08 %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 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 /showm {6 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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (NE010-8, B3_02) show % ( B8310_1, M8120-8, B3_02, N=3_02) 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 2 moveto 120 6 240 21 360 65 curveto 480 201 600 425 720 522 curveto 840 504 960 436 1080 293 curveto 1200 143 1320 48 1440 7 curveto 1560 13 1680 94 1800 248 curveto 1920 435 2040 650 2160 891 curveto 2280 1143 2400 1374 2520 1539 curveto 2640 1593 2760 1504 2880 1281 curveto 3000 963 3120 671 3240 425 curveto 3360 247 3480 131 3600 70 curveto 3720 34 3840 17 3960 8 curveto 4080 4 4200 2 4320 1 curveto stroke 0 0 moveto 120 0 240 0 360 1 curveto 480 6 600 17 720 34 curveto 840 57 960 90 1080 136 curveto 1200 208 1320 312 1440 484 curveto 1560 754 1680 1065 1800 1293 curveto 1920 1431 2040 1492 2160 1492 curveto 2280 1428 2400 1305 2520 1135 curveto 2640 946 2760 754 2880 571 curveto 3000 397 3120 262 3240 160 curveto 3360 91 3480 48 3600 25 curveto 3720 12 3840 6 3960 3 curveto 4080 1 4200 0 4320 0 curveto stroke 0 9 moveto 120 30 240 101 360 311 curveto 480 969 600 2080 720 2622 curveto 840 2660 960 2505 1080 1932 curveto 1200 1220 1320 698 1440 408 curveto 1560 237 1680 117 1800 63 curveto 1920 30 2040 13 2160 5 curveto 2280 3 2400 2 2520 1 curveto 2640 1 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 -525 3250 moveto 350 /Times-ISOL1 FS (Normspektralwerte,) showde %08120-8 1 (tristimulus values,) showen %18120-8 1 (CIE tristimulus ) showes %28120-8 1 (tristimulus values,) showfr %38120-8 1 (tristimulus values,) showit %48120-8 1 (tristimulus values,) showjp %58120-8 1 350 /Symbol FS 175 175 rmoveto (-) show -175 -175 rmoveto 350 /TimesI-ISOL1 FS (x) show 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 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (,) show 350 /Symbol FS 175 175 rmoveto (-) show -175 -175 rmoveto 350 /TimesI-ISOL1 FS (z) show 350 /Symbol FS ((l)) show 700 2750 moveto 350 /Times-ISOL1 FS (Normierung:) showde %08120-8 2 (normalization:) showen %18120-8 2 (Normalizaci\363n:) showes %28120-8 2 (normalization:) showfr %38120-8 2 (normalization:) showit %48120-8 2 (normalization:) showjp %58120-8 2 350 /Symbol FS 175 175 rmoveto (-) show -175 -175 rmoveto 350 /TimesI-ISOL1 FS (y) show 300 /Times-ISOL1 FS 0 -150 rmoveto (max) show 0 150 rmoveto 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS ( = 1) show 300 /Times-ISOL1 FS 3600 900 moveto (Wellen\255) showde %08120-8 3 (wave\255) showen %18120-8 3 (Ancho) showes %28120-8 3 (wave\255) showfr %38120-8 3 (wave\255) showit %48120-8 3 (wave\255) showjp %58120-8 3 3600 550 moveto (l\344nge) showde %08120-8 4 (length) showen %18120-8 4 (de banda) showes %28120-8 4 (length) showfr %38120-8 4 (length) showit %48120-8 4 (length) showjp %58120-8 4 3600 200 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2500 1700 moveto 200 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (x) show 300 /Symbol FS ((l)) show 1700 1600 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (y) show 300 /Symbol FS ((l)) show 1000 2200 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (z) show 300 /Symbol FS ((l)) show showpage grestore } for %output with langind end %%Trailer