%!PS-Adobe-3.0 EPSF-3.0 NE260-1 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 205 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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-1) /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 pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %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-1, B5_15_1) show % ( B8330_1, M8390-1, B5_15_1, N=5_15_1) 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 00C000 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 00C025 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 2520 3000 lineto 2520 1685 lineto 2640 1685 lineto 2640 1685 2760 1685 2880 1685 curveto 3000 1685 3120 1685 3240 1685 curveto 3360 1685 3480 1685 3600 1685 curveto 3720 1685 3840 1685 3960 1685 curveto 4080 1685 4200 1685 4320 1685 curveto stroke %! REM(I)*1500 00C050 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 2520 3000 lineto 2520 948 lineto 2640 948 lineto 2640 948 2760 948 2880 948 curveto 3000 948 3120 948 3240 948 curveto 3360 948 3480 948 3600 948 curveto 3720 948 3840 948 3960 948 curveto 4080 948 4200 948 4320 948 curveto stroke %! REM(I)*1500 00C100 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 2520 3000 lineto 2520 300 lineto 2640 300 lineto 2640 300 2760 300 2880 300 curveto 3000 300 3120 300 3240 300 curveto 3360 300 3480 300 3600 300 curveto 3720 300 3840 300 3960 300 curveto 4080 300 4200 300 4320 300 curveto stroke %! REM(I)*1500 00C200 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 2520 3000 lineto 2520 30 lineto 2640 30 lineto 2640 30 2760 30 2880 30 curveto 3000 30 3120 30 3240 30 curveto 3360 30 3480 30 3600 30 curveto 3720 30 3840 30 3960 30 curveto 4080 30 4200 30 4320 30 curveto stroke %! REM(I)*1500 00C300 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 2520 3000 lineto 2520 3 lineto 2640 3 lineto 2640 3 2760 3 2880 3 curveto 3000 3 3120 3 3240 3 curveto 3360 3 3480 3 3600 3 curveto 3720 3 3840 3 3960 3 curveto 4080 3 4200 3 4320 3 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-1 1 (spectral transmission factor ) showen %18390-1 1 (Factor spectral de transmisi\363n ) showes %28390-1 1 (spectral transmission factor ) showfr %38390-1 1 (spectral transmission factor ) showit %48390-1 1 (spectral transmission factor ) showjp %58390-1 1 350 /Symbol FS (t(l)) show 3900 350 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 100 1900 moveto (Optimal\255Film\255) showde %08390-1 2 (optimal film) showen %18390-1 2 (Pel\355cula optima ) showes %28390-1 2 (optimal film) showfr %38390-1 2 (optimal film) showit %48390-1 2 (optimal film) showjp %58390-1 2 100 1550 moveto (Testfarben) showde %08390-1 3 (test colors) showen %18390-1 3 (Testcolor) showes %28390-1 3 (test colors) showfr %38390-1 3 (test colors) showit %48390-1 3 (test colors) showjp %58390-1 3 100 1200 moveto (Cyanblau ) showde %08390-1 4 (cyanblue ) showen %18390-1 4 (Azul claro ) showes %28390-1 4 (cyanblue ) showfr %38390-1 4 (cyanblue ) showit %48390-1 4 (cyanblue ) showjp %58390-1 4 300 /TimesI-ISOL1 FS (C) show showpage grestore } for %output with langind end %%Trailer