%!PS-Adobe-3.0 EPSF-3.0 NE260-3 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 205 %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: NE260-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 /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 /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 (NE260-3, B5_15_3) show % ( B8330_3, M8390-3, B5_15_3, N=5_15_3) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps /ausz 8 def 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 %! Programm REMALL: MULY (I4) = 1500, Daten aus d2:[rr.p6f]krdaxy.dat 4573:4662 %! REM(I)*1500 00M000 0 3000 moveto 120 3000 240 3000 360 3000 curveto 480 3000 600 3000 720 3000 curveto 840 3000 960 3000 1080 3000 curveto 1200 3000 1320 3000 1440 3000 curveto 1560 3000 1680 3000 1800 3000 curveto 1920 3000 2040 3000 2160 3000 curveto 2280 3000 2400 3000 2520 3000 curveto 2640 3000 2760 3000 2880 3000 curveto 3000 3000 3120 3000 3240 3000 curveto 3360 3000 3480 3000 3600 3000 curveto 3720 3000 3840 3000 3960 3000 curveto 4080 3000 4200 3000 4320 3000 curveto stroke %! REM(I)*1500 00M025 0 3000 moveto 120 3000 240 3000 360 3000 curveto 480 3000 600 3000 720 3000 curveto 840 3000 960 3000 1080 3000 curveto 1200 3000 1320 3000 1440 3000 curveto 1440 3000 lineto 1440 1685 lineto 1560 1685 lineto 1560 1685 1680 1685 1800 1685 curveto 1920 1685 2040 1685 2160 1685 curveto 2280 1685 2400 1685 2520 1685 curveto 2520 1685 lineto 2520 3000 lineto 2640 3000 lineto 2640 3000 2760 3000 2880 3000 curveto 3000 3000 3120 3000 3240 3000 curveto 3360 3000 3480 3000 3600 3000 curveto 3720 3000 3840 3000 3960 3000 curveto 4080 3000 4200 3000 4320 3000 curveto stroke %! REM(I)*1500 00M050 0 3000 moveto 120 3000 240 3000 360 3000 curveto 480 3000 600 3000 720 3000 curveto 840 3000 960 3000 1080 3000 curveto 1200 3000 1320 3000 1440 3000 curveto 1440 3000 lineto 1440 948 lineto 1560 948 lineto 1560 948 1680 948 1800 948 curveto 1920 948 2040 948 2160 948 curveto 2280 948 2400 948 2520 948 curveto 2520 948 lineto 2520 3000 lineto 2640 3000 lineto 2640 3000 2760 3000 2880 3000 curveto 3000 3000 3120 3000 3240 3000 curveto 3360 3000 3480 3000 3600 3000 curveto 3720 3000 3840 3000 3960 3000 curveto 4080 3000 4200 3000 4320 3000 curveto stroke %! REM(I)*1500 00M100 0 3000 moveto 120 3000 240 3000 360 3000 curveto 480 3000 600 3000 720 3000 curveto 840 3000 960 3000 1080 3000 curveto 1200 3000 1320 3000 1440 3000 curveto 1440 3000 lineto 1440 300 lineto 1560 300 lineto 1560 300 1680 300 1800 300 curveto 1920 300 2040 300 2160 300 curveto 2280 300 2400 300 2520 300 curveto 2520 300 lineto 2520 3000 lineto 2640 3000 lineto 2640 3000 2760 3000 2880 3000 curveto 3000 3000 3120 3000 3240 3000 curveto 3360 3000 3480 3000 3600 3000 curveto 3720 3000 3840 3000 3960 3000 curveto 4080 3000 4200 3000 4320 3000 curveto stroke %! REM(I)*1500 00M200 0 3000 moveto 120 3000 240 3000 360 3000 curveto 480 3000 600 3000 720 3000 curveto 840 3000 960 3000 1080 3000 curveto 1200 3000 1320 3000 1440 3000 curveto 1440 3000 lineto 1440 30 lineto 1560 30 lineto 1560 30 1680 30 1800 30 curveto 1920 30 2040 30 2160 30 curveto 2280 30 2400 30 2520 30 curveto 2520 30 lineto 2520 3000 lineto 2640 3000 lineto 2640 3000 2760 3000 2880 3000 curveto 3000 3000 3120 3000 3240 3000 curveto 3360 3000 3480 3000 3600 3000 curveto 3720 3000 3840 3000 3960 3000 curveto 4080 3000 4200 3000 4320 3000 curveto stroke %! REM(I)*1500 00M300 0 3000 moveto 120 3000 240 3000 360 3000 curveto 480 3000 600 3000 720 3000 curveto 840 3000 960 3000 1080 3000 curveto 1200 3000 1320 3000 1440 3000 curveto 1440 3000 lineto 1440 3 lineto 1560 3 lineto 1560 3 1680 3 1800 3 curveto 1920 3 2040 3 2160 3 curveto 2280 3 2400 3 2520 3 curveto 2520 3 lineto 2520 3000 lineto 2640 3000 lineto 2640 3000 2760 3000 2880 3000 curveto 3000 3000 3120 3000 3240 3000 curveto 3360 3000 3480 3000 3600 3000 curveto 3720 3000 3840 3000 3960 3000 curveto 4080 3000 4200 3000 4320 3000 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,2) show -500 1120 moveto (0,4) show -500 1720 moveto (0,6) show -500 2320 moveto (0,8) show -500 2920 moveto (1,0) show -500 3300 moveto 350 /Times-ISOL1 FS (spektraler Transmissionsfaktor ) showde %08390-3 1 (spectral transmission factor ) showen %18390-3 1 (Factor spectral de transmisi\363n ) showes %28390-3 1 (spectral transmission factor ) showfr %38390-3 1 (spectral transmission factor ) showit %48390-3 1 (spectral transmission factor ) showjp %58390-3 1 350 /Symbol FS (t(l)) show 3900 150 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2800 1900 moveto (Optimal\255Film\255) showde %08390-3 2 (optimal film) showen %18390-3 2 (Pel\355cula optima ) showes %28390-3 2 (optimal film) showfr %38390-3 2 (optimal film) showit %48390-3 2 (optimal film) showjp %58390-3 2 2800 1550 moveto (Testfarben) showde %08390-3 3 (test colors) showen %18390-3 3 (Testcolor) showes %28390-3 3 (test colors) showfr %38390-3 3 (test colors) showit %48390-3 3 (test colors) showjp %58390-3 3 2800 1200 moveto (Magentarot ) showde %08390-3 4 (magentarred ) showen %18390-3 4 (Magenta-rojo ) showes %28390-3 4 (magentarred ) showfr %38390-3 4 (magentarred ) showit %48390-3 4 (magentarred ) showjp %58390-3 4 300 /TimesI-ISOL1 FS (M) show showpage grestore } for %output with langind end %%Trailer