%!PS-Adobe-3.0 EPSF-3.0 MI970-5 %%BoundingBox: 70 83 226 206 %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: farbe.li.tu-berlin.de/MI97/MI97.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /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 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 4 def /lanind2 4 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (MI970-5) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, BTe05) show % ( B8264_7, M8630-5, BTe05, N=5) show %cero point Bounding-Box 72 90 translate % units in 0,01 mm and frame 5,4cm x 4,0cm 0.01 MM 0.01 MM scale 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 %%Trailer