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

% 31 Zeilen + Titel-Rand (16) = 31*8+16 = 264 ; 90+248+16 = 354
% 93,1 mm = 93,1*72/25.4 = 264
% !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
340 85 moveto
 (MG321-5, B8_21) show %    ( B8262_6, M8461-5, B8_21, N=8_21 2x3) show
 
72 90 translate
 
/yhoe 9310 def
0.01 MM 0.01 MM scale
 
/ausz 8 def
15 setlinewidth %2X4
0.2 0.0 0.0 0.0 setcmykcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
 
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
0 yhoe 450 sub moveto 11200 0 rlineto  0 450 rlineto -11200 0 rlineto
closepath stroke
 
/TES {300 /Courier FS
 /anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
/TEA {0 1 anz 1 sub {ydt mul y0t add x0t exch moveto show} for} bind def
 
%Titeltext
350 /Times-ISOL1 FS
 50 yhoe 350 sub moveto
(PSL1\255Programmcode: Horizontale ) showde                     %08461-5 1
(Rechteck\255Grafikelemente) showde                             %08461-5 11
(PSL1\255program code: horizontal ) showen                      %18461-5 1
(rectangular graphic elements) showen                           %18461-5 11
(PSL1\255Lenguaje: ) showes                                     %28461-5 1
(Elementos graficos horizontal\255rectangular) showes           %28461-5 11
(PSL1\255program code: horizontal ) showfr                      %38461-5 1
(rectangular graphic elements) showfr                           %38461-5 11
(PSL1\255program code: horizontal ) showit                      %48461-5 1
(rectangular graphic elements) showit                           %48461-5 11
(PSL1\255program code: horizontal ) showjp                      %58461-5 1
(rectangular graphic elements) showjp                           %58461-5 11
 
/yd24 {3600 13 div} bind def %y-Zeilenabstand
/x0 200 def %untere x-Textecke
/y0 200 def %untere y-Textecke
 
lanind 0 eq {%difde
x0 y0 yd24 70 39 sub TES %anz=31
 (%!PS-Adobe-3.0 B8260-6n.eps         20.10.94)
(%%BoundingBox: 72 90 226 206)
(%  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-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 %nur x0-Transl.)
( )
(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)
TEA } if %ifde
 
lanind 1 ge {%difen
x0 y0 yd24 70 39 sub TES %anz=31
 (%!PS-Adobe-3.0 B8260-6n.eps         20.10.94)
(%%BoundingBox: 72 90 226 206)
(%  transformation owner -> device coordinates)
(/Mt  { %  x  y    snaptopixel    sx  sy)
(	transform)
(	.25 sub round .25 add exch)
(	.25 sub round .25 add exch)
(	itransform moveto} bind def)
(/HQR { % draw basic rectangle horizontal (x0 y0 w h))
(       4 -2 roll Mt  %(x0,y0) lower left corner rectangle)
(       dtransform round exch round exch idtransform)
(       % transformation owner -> device coordinates)
(       dup 0 exch rlineto  %(0,h)  to upper left)
(       exch 0 rlineto      %(w,0)  to upper right)
(       neg 0 exch rlineto  %(0,-h) to lower right)
(       closepath fill} bind def)
(/HQRr {HQR /x0 r x0 add def} bind def %r-square & x0-transl.)
(/t { % x y -> x0 y0  start line, row, diagonal)
(     /y0 exch def /x0 exch def} bind def)
(/O { %fully filled basic rectangle with w=r h=1)
(     /r exch def %repeating factor r)
(     x0 y0 r 1 HQRr} bind def              %r-fold square)
(/@ {/r exch def /x0 r x0 add def} bind def %only x0-Transl.)
( )
(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)
TEA } if %ifen
 
showpage
grestore
} for %output with langind end
%%Trailer