%!PS-Adobe-3.0 EPSF-3.0 MG321-7
%%BoundingBox: 70 83 226 206
%old BoundingBox: 72 90 226 206
 
%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /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: MG321-7)
  /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 pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

% !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
 
%%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 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
5 /Times-ISOL1 FS
180 85 moveto
 (MG321-7, B8_22) show %    ( B8260_6, M8461-7, B8_22, N=8_22) 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 setcmykcolor
0 0  moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
 
0 0  moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath stroke
 
 250 /Times-ISOL1 FS
 100  800 moveto (72 300 div 20 mul dup scale) show
 100  500 moveto (1 8 t 1 O   1 13 t 10 O 2 @ 2 O   1 18 t 5 O) show
 100  200 moveto (20 1 22 { 2 exch t 16 O} for) show
 
%34 28.75 moveto (0) show
%34 33.50 moveto (1) show
%34 38.25 moveto (2) show
%34 43.00 moveto (3) show
%34 47.75 moveto (4) show
%34 52.50 moveto (5) show
%34 57.25 moveto (6) show
%34 62.00 moveto (7) show
%34 66.75 moveto (8) show
%34 71.50 moveto (9) show
%34 76.25 moveto (A) show
%34 81.00 moveto (B) show
%34 85.75 moveto (C) show
%34 91.50 moveto (D) show
%34 96.25 moveto (E) show
%34 101.0 moveto (F) show
 
grestore
 
%  Transformation Benutzer- -> Geraetekoordinaten
/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- -> Geraetekoordinaten
        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
/HQRr {HQR /x0 r x0 add def} bind def %r-fach Quadrat & x0-Transl.
/t { % x y -> x0 y0  Start Zeile, Spalte, Diagonale
     /y0 exch def /x0 exch def} bind def
/O { %voll gefuelltes Basis-Rechteck mit w=r h=1
     /r exch def %Wiederholungsfaktor r
     x0 y0 r 1 HQRr} bind def              %r-fach Quadrat
/@ {/r exch def /x0 r x0 add def} bind def %reine x0-Translation
 
180 85 moveto
 
72 90 translate
 
 
0.0 setlinewidth
72 300 div 20 mul dup scale
 
1 8 t 1 O   1 13 t 10 O 2 @ 2 O   1 18 t 5 O
20 1 22 { 2 exch t 16 O} for
 
showpage
grestore
} for %output with langind end
%%Trailer