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

% 16 Zeilen + Titel-Rand (16) = 16*8+16 = 144; 90+128+16 = 234
% 50,8 mm = 50,8*72/25.4 = 144
% !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
 
/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
340 85 moveto
 (ME271-3, B8_05) show %    ( B8262_5, M8411-3, B8_05, N=8_5 2x2) show
 
72 90 translate
 
/yhoe 5080 def
0.01 MM 0.01 MM scale
 
/ausz 8 def
15 setlinewidth %2X2
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\255Teilprogrammcode: ) showde                             %08411-3 1
(Text und Zeichnen Rosette (Siemensstern)) showde               %08411-3 11
(PSL1\255program code: ) showen                                 %18411-3 1
(text and drawing rosette (Siemens\255star)) showen             %18411-3 11
(PSL1\255Lenguaje: )showes                                      %28411-3 1
(Texto y Roseta dibujada (Siemens\255star))showes               %28411-3 11
(PSL1\255program code: ) showfr                                 %38411-3 1
(text and drawing rosette (Siemens\255star)) showfr             %38411-3 11
(PSL1\255program code: ) showit                                 %48411-3 1
(text and drawing rosette (Siemens\255star)) showit             %48411-3 11
(PSL1\255program code: ) showjp                                 %58411-3 1
(text and drawing rosette (Siemens\255star)) showjp             %58411-3 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 55 39 sub TES %anz=16
(   10 setlinewidth)
(  350 /Times-Roman FS)
(  100 3250 moveto (rosette) show)
(  100 2900 moveto (10 degree) show)
(  100 2550 moveto (radius) show)
(  100 2200 moveto (1,8 cm) show)
( )
(%Neuer Raster-Mittelpunkt und Nullpunkt)
(  3300 2000 translate)
( )
(%Zeichnung Rosette, Radius 1,8 cm)
( 0.0 setgray)
( 0 10 350 {newpath 0 0 moveto 0 0 1800)
( 4 -1 roll dup 5 add  arc closepath fill} for)
( )
(showpage)
TEA } if %ifde
 
lanind 1 ge {%difen
x0 y0 yd24 55 39 sub TES %anz=16
(   10 setlinewidth)
(  350 /Times-Roman FS)
(  100 3250 moveto (rosette) show)
(  100 2900 moveto (10 degree) show)
(  100 2550 moveto (radius) show)
(  100 2200 moveto (1,8 cm) show)
( )
(%new raster central point and cero point)
(  3300 2000 translate)
( )
(%drawing of Rosette, radius 1,8 cm)
( 0.0 setgray)
( 0 10 350 {newpath 0 0 moveto 0 0 1800)
( 4 -1 roll dup 5 add  arc closepath fill} for)
( )
(showpage)
TEA } if %ifen
 
showpage
grestore
} for %output with langind end
%%Trailer