%!PS-Adobe-3.0 EPSF-3.0 NE260-2 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 205 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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-2) /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 pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %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-2, B5_15_2) show % ( B8330_2, M8390-2, B5_15_2, N=5_15_2) 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 4820:4909 %! REM(I)*1500 00N000 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 0 CFO 0 2874 moveto 120 2886 240 2904 360 2934 curveto 480 2955 600 2961 720 2961 curveto 840 2958 960 2946 1080 2940 curveto 1200 2931 1320 2919 1440 2907 curveto 1560 2889 1680 2874 1800 2847 curveto 1920 2823 2040 2787 2160 2742 curveto 2280 2685 2400 2622 2520 2565 curveto 2640 2499 2760 2421 2880 2346 curveto 3000 2277 3120 2226 3240 2196 curveto 3360 2175 3480 2154 3600 2133 curveto 3720 2133 3840 2169 3960 2232 curveto 4080 2295 4200 2358 4320 2427 curveto stroke %! REM(I)*1500 0 CFO 0 2664 moveto 120 2700 240 2745 360 2823 curveto 480 2877 600 2895 720 2895 curveto 840 2883 960 2856 1080 2838 curveto 1200 2817 1320 2787 1440 2751 curveto 1560 2709 1680 2664 1800 2604 curveto 1920 2538 2040 2454 2160 2346 curveto 2280 2214 2400 2073 2520 1953 curveto 2640 1818 2760 1668 2880 1532 curveto 3000 1413 3120 1329 3240 1278 curveto 3360 1248 3480 1212 3600 1182 curveto 3720 1182 3840 1239 3960 1338 curveto 4080 1443 4200 1554 4320 1680 curveto stroke %! REM(I)*1500 0 CFO 0 2292 moveto 120 2364 240 2451 360 2613 curveto 480 2730 600 2766 720 2766 curveto 840 2742 960 2682 1080 2643 curveto 1200 2598 1320 2535 1440 2463 curveto 1560 2376 1680 2292 1800 2172 curveto 1920 2049 2040 1899 2160 1716 curveto 2280 1503 2400 1296 2520 1131 curveto 2640 963 2760 792 2880 651 curveto 3000 540 3120 471 3240 431 curveto 3360 408 3480 384 3600 360 curveto 3720 360 3840 402 3960 476 curveto 4080 570 4200 675 4320 800 curveto stroke %! REM(I)*1500 0 CFO 0 1692 moveto 120 1809 240 1953 360 2235 curveto 480 2457 600 2526 720 2526 curveto 840 2478 960 2367 1080 2292 curveto 1200 2208 1320 2097 1440 1971 curveto 1560 1830 1680 1692 1800 1509 curveto 1920 1335 2040 1134 2160 915 curveto 2280 693 2400 504 2520 378 curveto 2640 267 2760 177 2880 117 curveto 3000 78 3120 60 3240 48 curveto 3360 42 3480 39 3600 33 curveto 3720 33 3840 42 3960 60 curveto 4080 87 4200 126 4320 183 curveto stroke %! REM(I)*1500 0 CFO 0 1248 moveto 120 1380 240 1554 360 1911 curveto 480 2208 600 2307 720 2307 curveto 840 2235 960 2085 1080 1986 curveto 1200 1878 1320 1734 1440 1574 curveto 1560 1404 1680 1248 1800 1047 curveto 1920 867 2040 675 2160 486 curveto 2280 315 2400 195 2520 126 curveto 2640 75 2760 39 2880 21 curveto 3000 12 3120 6 3240 6 curveto 3360 6 3480 3 3600 3 curveto 3720 3 3840 3 3960 9 curveto 4080 12 4200 24 4320 42 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-2 1 (spectral transmission factor ) showen %18390-2 1 (Factor spectral de transmisi\363n ) showes %28390-2 1 (spectral transmission factor ) showfr %38390-2 1 (spectral transmission factor ) showit %48390-2 1 (spectral transmission factor ) showjp %58390-2 1 350 /Symbol FS (t(l)) show 3900 250 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 100 800 moveto (reelle Film\255) showde %08390-2 2 (real film) showen %18390-2 2 (Pel\355cula real ) showes %28390-2 2 (real film) showfr %38390-2 2 (real film) showit %48390-2 2 (real film) showjp %58390-2 2 100 450 moveto (Testfarben) showde %08390-2 3 (test colors) showen %18390-2 3 (Testcolor) showes %28390-2 3 (test colors) showfr %38390-2 3 (test colors) showit %48390-2 3 (test colors) showjp %58390-2 3 100 100 moveto (Cyanblau ) showde %08390-2 4 (cyanblue ) showen %18390-2 4 (Azul claro ) showes %28390-2 4 (cyanblue ) showfr %38390-2 4 (cyanblue ) showit %48390-2 4 (cyanblue ) showjp %58390-2 4 300 /TimesI-ISOL1 FS (C) show showpage grestore } for %output with langind end %%Trailer