%!PS-Adobe-3.0 EPSF-3.0 NE331-1 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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: NE331-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 pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %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 (NE331-1, B8_24) show % ( B8260_7, M8471-1, B8_24, N=8_24) 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.0 1.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 200 /Times-Roman FS 300 800 moveto (0 0 translate 0 0 t 32 H 1 1 6 {0 exch t 1 H 30 @ 1 H} for) show 300 550 moveto (0 7 t 1 H 7 @ 16 A 7 @ 1 H) show 300 300 moveto (0 8 t 1 H 7 @ 16 B 7 @ 1 H ... 0 23 t 32 H) show 1200 1020 moveto (0) show 1200 1190 moveto (1) show 1200 1360 moveto (2) show 1200 1530 moveto (3) show 1200 1700 moveto (4) show 1200 1870 moveto (5) show 1200 2040 moveto (6) show 1200 2210 moveto (7) show 1200 2380 moveto (8) show 1200 2550 moveto (9) show 1180 2720 moveto (A) show 1180 2890 moveto (B) show 1180 3060 moveto (C) show 1180 3230 moveto (D) show 1180 3400 moveto (E) show 1180 3570 moveto (F) show grestore gsave % Transformation Benutzer- -> Gerätekoordinaten /Mt { % x y snaptopixel sx sy transform .25 sub round .25 add exch .25 sub round .25 add exch itransform moveto } bind def /HQR { % Zeichnen Basis-Rechteck horizontal (x0 y0 w h) 4 -2 roll Mt %(x0,y0) untere linke Ecke Rechteck dtransform round exch round exch idtransform % Transform. Benutzer- -> Gerätekoordinaten dup 0 exch rlineto %(0,h) nach oben links exch 0 rlineto %(w,0) nach oben rechts neg 0 exch rlineto %(0,-h) nach unten rechts closepath fill } bind def /HQR1 {HQR /x0 1 x0 add def} bind def %1-fach Rechteck & x0-Translation /HQRr {HQR /x0 r x0 add def} bind def %r-fach Rechteck & x0-Translation %horizontale (HO) Raster, horizontales moveto /HOIn { %Basis-Rechteck (w=r 1) mit Längs-Innenfeld weiß (w=r 0 x0 y0 Start Zeile, Spalte /y0 exch def /x0 exch def} bind def 180 85 moveto 72 90 translate 0.00 setlinewidth 72 300 div 20 mul dup scale %!for038*2*6 STRKHOY0***84401*********erzeugt 22.6.89/25.3.92 0.00 0.00 translate 0 0 t 32 H 1 1 6 {0 exch t 1 H 30 @ 1 H} for 0 7 t 1 H 7 @ 16 A 7 @ 1 H 0 8 t 1 H 7 @ 16 B 7 @ 1 H 0 9 t 1 H 7 @ 16 C 7 @ 1 H 0 10 t 1 H 7 @ 16 D 7 @ 1 H 0 11 t 1 H 7 @ 16 E 7 @ 1 H 0 12 t 1 H 7 @ 16 F 7 @ 1 H 0 13 t 1 H 7 @ 16 G 7 @ 1 H 0 14 t 1 H 7 @ 16 H 7 @ 1 H 0 15 t 1 H 7 @ 16 I 7 @ 1 H 0 16 t 1 H 7 @ 16 J 7 @ 1 H 0 17 t 1 H 7 @ 16 K 7 @ 1 H 0 18 t 1 H 7 @ 16 L 7 @ 1 H 0 19 t 1 H 7 @ 16 M 7 @ 1 H 0 20 t 1 H 7 @ 16 N 7 @ 1 H 0 21 t 1 H 7 @ 16 O 7 @ 1 H 0 22 t 1 H 30 @ 1 H 0 23 t 32 H showpage grestore } for %output with langind end %%Trailer