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

/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
180 85 moveto
 (ME270-2, B8_04) show %    ( B8260_5, M8410-2, B8_04, N=8_4) 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
 
%Text und Zeichnen der Rosette (Siemensstern)
   10 setlinewidth
  350 /Times-ISOL1 FS
  100 3250 moveto
(Rosette) showde                                                %08410-2 1
(rosette) showen                                                %18410-2 1
(Roseta) showes                                                 %28410-2 1
(rosette) showfr                                                %38410-2 1
(rosette) showit                                                %48410-2 1
(rosette) showjp                                                %58410-2 1
 
  100 2900 moveto
(10 Grad) showde                                                %08410-2 2
(10 degree) showen                                              %18410-2 2
(10 Grad) showes                                                %28410-2 2
(10 degree) showfr                                              %38410-2 2
(10 degree) showit                                              %48410-2 2
(10 degree) showjp                                              %58410-2 2
 
  100 2550 moveto
(Radius) showde                                                 %08410-2 3
(radius) showen                                                 %18410-2 3
(Radio) showes                                                  %28410-2 3
(radius) showfr                                                 %38410-2 3
(radius) showit                                                 %48410-2 3
(radius) showjp                                                 %58410-2 3
 
  100 2200 moveto (1,8 cm) show
 
%neuer Rastermittelpunkt und Nullpunkt
  3300 2000 translate
 
%Zeichnen der Rosette, Radius 1,98 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
grestore
} for %output with langind end
%%Trailer