%!PS-Adobe-3.0 EPSF-3.0 NE260-4 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 205 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /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-4) /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 pdfmark04 [ /View [ /FitB ] /DOCVIEW pdfmark04 %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-4, B5_15_4) show % ( B8330_4, M8390-4, B5_15_4, N=5_15_4) 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 MF0 0 2898 moveto 120 2907 240 2916 360 2919 curveto 480 2919 600 2910 720 2901 curveto 840 2880 960 2850 1080 2808 curveto 1200 2757 1320 2700 1440 2637 curveto 1560 2574 1680 2511 1800 2466 curveto 1920 2436 2040 2424 2160 2433 curveto 2280 2469 2400 2532 2520 2616 curveto 2640 2712 2760 2805 2880 2877 curveto 3000 2928 3120 2958 3240 2976 curveto 3360 2985 3480 2988 3600 2991 curveto 3720 2991 3840 2991 3960 2991 curveto 4080 2991 4200 2991 4320 2991 curveto stroke %! REM(I)*1500 0 MF0 0 2688 moveto 120 2718 240 2739 360 2745 curveto 480 2745 600 2724 720 2697 curveto 840 2637 960 2544 1080 2436 curveto 1200 2295 1320 2145 1440 1989 curveto 1560 1845 1680 1704 1800 1608 curveto 1920 1547 2040 1521 2160 1542 curveto 2280 1614 2400 1749 2520 1938 curveto 2640 2178 2760 2424 2880 2628 curveto 3000 2775 3120 2868 3240 2922 curveto 3360 2949 3480 2961 3600 2967 curveto 3720 2970 3840 2973 3960 2973 curveto 4080 2973 4200 2973 4320 2973 curveto stroke %! REM(I)*1500 0 MF0 0 2310 moveto 120 2370 240 2418 360 2430 curveto 480 2430 600 2382 720 2328 curveto 840 2205 960 2025 1080 1824 curveto 1200 1584 1320 1347 1440 1128 curveto 1560 942 1680 780 1800 681 curveto 1920 621 2040 597 2160 615 curveto 2280 684 2400 831 2520 1062 curveto 2640 1401 2760 1806 2880 2187 curveto 3000 2493 3120 2694 3240 2820 curveto 3360 2877 3480 2910 3600 2922 curveto 3720 2931 3840 2937 3960 2937 curveto 4080 2937 4200 2937 4320 2937 curveto stroke %! REM(I)*1500 0 MF0 0 1698 moveto 120 1796 240 1878 360 1896 curveto 480 1896 600 1815 720 1727 curveto 840 1536 960 1278 1080 1016 curveto 1200 747 1320 528 1440 360 curveto 1560 243 1680 162 1800 120 curveto 1920 96 2040 90 2160 96 curveto 2280 120 2400 183 2520 315 curveto 2640 573 2760 995 2880 1512 curveto 3000 2007 3120 2373 3240 2625 curveto 3360 2742 3480 2805 3600 2835 curveto 3720 2853 3840 2862 3960 2862 curveto 4080 2862 4200 2862 4320 2862 curveto stroke %! REM(I)*1500 0 MF0 0 1245 moveto 120 1359 240 1452 360 1476 curveto 480 1476 600 1380 720 1278 curveto 840 1065 960 800 1080 564 curveto 1200 351 1320 204 1440 111 curveto 1560 60 1680 33 1800 21 curveto 1920 15 2040 12 2160 15 curveto 2280 21 2400 39 2520 90 curveto 2640 231 2760 543 2880 1038 curveto 3000 1611 3120 2088 3240 2439 curveto 3360 2610 3480 2706 3600 2748 curveto 3720 2775 3840 2790 3960 2790 curveto 4080 2790 4200 2790 4320 2790 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-4 1 (spectral transmission factor ) showen %18390-4 1 (Factor spectral de transmisi\363n ) showes %28390-4 1 (spectral transmission factor ) showfr %38390-4 1 (spectral transmission factor ) showit %48390-4 1 (spectral transmission factor ) showjp %58390-4 1 350 /Symbol FS (t(l)) show 3900 150 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2950 1200 moveto (reelle Film\255) showde %08390-4 2 (real film) showen %18390-4 2 (Pel\355cula real ) showes %28390-4 2 (real film) showfr %38390-4 2 (real film) showit %48390-4 2 (real film) showjp %58390-4 2 2950 850 moveto (Testfarben) showde %08390-4 3 (test colors) showen %18390-4 3 (Testcolor) showes %28390-4 3 (test colors) showfr %38390-4 3 (test colors) showit %48390-4 3 (test colors) showjp %58390-4 3 2950 500 moveto (Magentarot ) showde %08390-4 4 (magentarred ) showen %18390-4 4 (Magenta-rojo ) showes %28390-4 4 (magentarred ) showfr %38390-4 4 (magentarred ) showit %48390-4 4 (magentarred ) showjp %58390-4 4 300 /TimesI-ISOL1 FS (M) show showpage grestore } for %output with langind end %%Trailer