%!PS-Adobe-3.0 EPSF-3.0 NE260-5 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 205 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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-5) /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 pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %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-5, B5_15_5) show % ( B8330_5, M8390-5, B5_15_5, N=5_15_5) 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 00Y000 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 00Y025 0 1685 moveto 120 1685 240 1685 360 1685 curveto 480 1685 600 1685 720 1685 curveto 840 1685 960 1685 1080 1685 curveto 1200 1685 1320 1685 1440 1685 curveto 1440 1685 lineto 1440 3000 lineto 1440 3000 lineto 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 00Y050 0 948 moveto 120 948 240 948 360 948 curveto 480 948 600 948 720 948 curveto 840 948 960 948 1080 948 curveto 1200 948 1320 948 1440 948 curveto 1440 948 lineto 1440 3000 lineto 1560 3000 lineto 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 00Y100 0 300 moveto 120 300 240 300 360 300 curveto 480 300 600 300 720 300 curveto 840 300 960 300 1080 300 curveto 1200 300 1320 300 1440 300 curveto 1440 300 lineto 1440 3000 lineto 1560 3000 lineto 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 00Y200 0 30 moveto 120 30 240 30 360 30 curveto 480 30 600 30 720 30 curveto 840 30 960 30 1080 30 curveto 1200 30 1320 30 1440 30 curveto 1440 30 lineto 1440 3000 lineto 1560 3000 lineto 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 00Y300 0 3 moveto 120 3 240 3 360 3 curveto 480 3 600 3 720 3 curveto 840 3 960 3 1080 3 curveto 1200 3 1320 3 1440 3 curveto 1440 3 lineto 1440 3000 lineto 1560 3000 lineto 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 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-5 1 (spectral transmission factor ) showen %18390-5 1 (Factor spectral de transmisi\363n ) showes %28390-5 1 (spectral transmission factor ) showfr %38390-5 1 (spectral transmission factor ) showit %48390-5 1 (spectral transmission factor ) showjp %58390-5 1 350 /Symbol FS (t(l)) show 3900 150 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2000 1900 moveto (Optimal\255Film\255) showde %08390-5 2 (optimal film) showen %18390-5 2 (Pel\355cula optima ) showes %28390-5 2 (optimal film) showfr %38390-5 2 (optimal film) showit %48390-5 2 (optimal film) showjp %58390-5 2 2000 1550 moveto (Testfarben) showde %08390-5 3 (test colors) showen %18390-5 3 (Testcolor) showes %28390-5 3 (test colors) showfr %38390-5 3 (test colors) showit %48390-5 3 (test colors) showjp %58390-5 3 2000 1200 moveto (Gelb ) showde %08390-5 4 (yellow ) showen %18390-5 4 (Amarillo ) showes %28390-5 4 (yellow ) showfr %38390-5 4 (yellow ) showit %48390-5 4 (yellow ) showjp %58390-5 4 300 /TimesI-ISOL1 FS (Y) show showpage grestore } for %output with langind end %%Trailer