%!PS-Adobe-3.0 EPSF-3.0 MG281-7
%%BoundingBox: 70 83 390 534
%old BoundingBox: 72 90 390 534
 
%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: MG281-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

% 54 Zeilen + Titel-Rand (16E) = 54*8+16 = 448; 90+432+16 = 538
% 158.0mm = 158,0*72/25.4 = 448
/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
 
/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
 (MG281-7, B8_08) show %    ( B8252_1, M8421-7, B8_08, N=8_8 2x4) show
 
72 90 translate
 
/yhoe 15650 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: Bildmatrix 32\32724) showde              %08421-7 1
( zur Erzeugung von 16 Graustufen) showde                       %08421-7 11
(PSL1\255program code: image matrix 32\32724) showen            %18421-7 1
( for production of 16 gray steps) showen                       %18421-7 11
(PSL1\255Lenguaje: Imagen\255Matrix 32\32724) showes            %28421-7 1
( para producir los 16 pasos del gris) showes                   %28421-7 11
(PSL1\255program code: image matrix 32\32724) showfr            %38421-7 1
( for production of 16 gray steps) showfr                       %38421-7 11
(PSL1\255program code: image matrix 32\32724) showit            %48421-7 1
( for production of 16 gray steps) showit                       %48421-7 11
(PSL1\255program code: image matrix 32\32724) showjp            %58421-7 1
( for production of 16 gray steps) showjp                       %58421-7 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 93 39 sub TES %anz=54
 (%!PS-Adobe-3.0 B8250-1n.eps      20.10.94)
(%%BoundingBox: 72 90 226 206)
(/FS {findfont exch scalefont setfont} bind def)
(/MM {72 25.4 div mul} def)
(/proz1 {pop} bind def)
(/proz2 {} bind def)
(%%EndProlog)
(gsave)
( )
( {proz2 } settransfer)
( 12 45 {proz1} setscreen)
( 72 90 translate)
( 32 3600 div 72 mul 240 mul)
( 24 3600 div 72 mul 240 mul scale)
( )
(/DatenString 16 string def %Bild 32x24 von unten nach oben)
( 32 24 4 [32 0 0 -24 0 24])
({currentfile DatenString readhexstring pop} image)
(77777777777777777777777777777777)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFF0000000000000000FFFFFFF7)
(7FFFFFFF1111111111111111FFFFFFF7)
(7FFFFFFF2222222222222222FFFFFFF7)
(7FFFFFFF3333333333333333FFFFFFF7)
(7FFFFFFF4444444444444444FFFFFFF7)
(7FFFFFFF5555555555555555FFFFFFF7)
(7FFFFFFF6666666666666666FFFFFFF7)
(7FFFFFFF7777777777777777FFFFFFF7)
(7FFFFFFF8888888888888888FFFFFFF7)
(7FFFFFFF9999999999999999FFFFFFF7)
(7FFFFFFFAAAAAAAAAAAAAAAAFFFFFFF7)
(7FFFFFFFBBBBBBBBBBBBBBBBFFFFFFF7)
(7FFFFFFFCCCCCCCCCCCCCCCCFFFFFFF7)
(7FFFFFFFDDDDDDDDDDDDDDDDFFFFFFF7)
(7FFFFFFFEEEEEEEEEEEEEEEEFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(77777777777777777777777777777777)
(grestore)
( )
( 72 90 translate)
( 6 /Times-Roman FS)
( 6 24 moveto ({} settransfer) show)
( 6 16 moveto (12 45 {pop} setscreen) show)
( 6  8 moveto (12 Linien / inch) show)
( )
(34 28.75 moveto (0) show)
(%! hier weiterer Text 0, 1, ..., F, nicht protokolliert)
(34 101.0 moveto (F) show)
(showpage)
TEA } if %ifde
 
lanind 1 ge {%difen
x0 y0 yd24 93 39 sub TES %anz=54
 (%!PS-Adobe-3.0 B8250-1n.eps      20.10.94)
(%%BoundingBox: 72 90 226 206)
(/FS {findfont exch scalefont setfont} bind def)
(/MM {72 25.4 div mul} def)
(/proz1 {pop} bind def)
(/proz2 {} bind def)
(%%EndProlog)
(gsave)
( )
( {proz2 } settransfer)
( 12 45 {proz1} setscreen)
( 72 90 translate)
( 32 3600 div 72 mul 240 mul)
( 24 3600 div 72 mul 240 mul scale)
( )
(/DatenString 16 string def %image 32x24 from down to up)
( 32 24 4 [32 0 0 -24 0 24])
({currentfile DatenString readhexstring pop} image)
(77777777777777777777777777777777)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFF0000000000000000FFFFFFF7)
(7FFFFFFF1111111111111111FFFFFFF7)
(7FFFFFFF2222222222222222FFFFFFF7)
(7FFFFFFF3333333333333333FFFFFFF7)
(7FFFFFFF4444444444444444FFFFFFF7)
(7FFFFFFF5555555555555555FFFFFFF7)
(7FFFFFFF6666666666666666FFFFFFF7)
(7FFFFFFF7777777777777777FFFFFFF7)
(7FFFFFFF8888888888888888FFFFFFF7)
(7FFFFFFF9999999999999999FFFFFFF7)
(7FFFFFFFAAAAAAAAAAAAAAAAFFFFFFF7)
(7FFFFFFFBBBBBBBBBBBBBBBBFFFFFFF7)
(7FFFFFFFCCCCCCCCCCCCCCCCFFFFFFF7)
(7FFFFFFFDDDDDDDDDDDDDDDDFFFFFFF7)
(7FFFFFFFEEEEEEEEEEEEEEEEFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7)
(77777777777777777777777777777777)
(grestore)
( )
( 72 90 translate)
( 6 /Times-Roman FS)
( 6 24 moveto ({} settransfer) show)
( 6 16 moveto (12 45 {pop} setscreen) show)
( 6  8 moveto (12 lines / inch) show)
( )
(34 28.75 moveto (0) show)
(%! here more text 0, 1, ..., F, not presented here)
(34 101.0 moveto (F) show)
(showpage)
TEA } if %ifen
 
showpage
grestore
} for %output with langind end
%%Trailer