%!PS-Adobe-3.0 EPSF-3.0 DM97:Y10-5N.EPS  20030301
%%BoundingBox: 70 80 445 216

%START PDFDE011.EPS
/pdfmark where {pop} {userdict /pdfmark /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: Y10-5N.EPS)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://o2.ps.bam.de or http://www.ps.bam.de)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@bam.de)
  /CreationDate (D:2003030112000)
  /ModDate (D:2003030112000)
/DOCINFO pdfmark
[ /View [ /FitB ]
/DOCVIEW pdfmark
%END  PDFDE011

%%Creator: K. Richter, BAM und TU Berlin, 2000.06.16
%%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def
                                                    
% !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
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/colrecfi %x y width heigth c m y n
  {setcmykcolor rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmykcolor rec stroke} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben cmy0*
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tro {1.0 0.0 0.0} bind def %Reproduktionsfarben olv*
/trl {0.0 1.0 0.0} bind def
/trv {0.0 0.0 1.0} bind def
/trc {0.0 1.0 1.0} bind def
/trm {1.0 0.0 1.0} bind def
/try {1.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def

/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def

/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def

/tgo {tro setrgbcolor} bind def
/tgl {trl setrgbcolor} bind def
/tgv {trv setrgbcolor} bind def
/tgc {trc setrgbcolor} bind def
/tgm {trm setrgbcolor} bind def
/tgy {try setrgbcolor} bind def

/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def

/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def

/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def

%ANFA OUTLINO0 951204 
/pixf 1.0 def /ueg {1.6 pixf mul} bind def
/uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def
 
/outxshowf {show} bind def
 
/outxshow {show} bind def

/SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def

/outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
 
/outshowf {setcmykcolor show} bind def

/outrecfi { %x y width heigth c m y k
   setcmykcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def

/outlinetos { %px py c m y k
   setcmykcolor lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmykcolor stroke} bind def
            
%%EndProlog
gsave
 
%LANINDL0.EPS 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 2 def /lanind2 2 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %no loops
/xcolor xcolor1 def
/xchart xchart1 def
%LANINDL0 END

/RK8   {8 /Times-Roman FS} bind def
/RIK8  {8 /Times-Italic FS} bind def
/RBK8  {8 /Times-Bold FS} bind def
/RBIK8 {8 /Times-BoldItalic FS} bind def

/TS8   {6 /Times-ISOL1 FS} bind def

/TK8   {8 /Times-ISOL1 FS} bind def
/TIK8  {8 /TimesI-ISOL1 FS} bind def
/TBK8  {8 /TimesB-ISOL1 FS} bind def
/TBIK8 {8 /TimesBI-ISOL1 FS} bind def
 
RK8
72 82 moveto
%!2    (wrpos:Y10-5N.eps) show

TK8
(Bild B2: Radialgitter ) showde       %(Siemenssterne) ) showde
(Picture B2: Radial gratings ) showen %(Siemens\255stars) ) showen
(Fig. B2: rejillas radial ) showes
(Fig. B2: \311toile de Siemens ) showfr
(Fig. B2: reticoli radiali ) showit
RK8
(Figur B2: Siemens-stjerner ) showjp

RBIK8
(W-C, W-M, W-Y, W-N) show

TK8
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( i ) showit
( og ) showjp

RBIK8
(W-Z; ) show

TIK8 (PS) show
RK8 (-) showde (Operator) showde
( operator:) showen
( operator:) showes
TK8
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK8
( olv* setrgbcolor / w* setgray) show
TK8

72 90 translate

/pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale

15 setlinewidth

/iz 18 def
/tgz {tzan iz get setgray} bind def
/tgn {0.0 setgray} bind def

0 setgray
   0 0  moveto 13000 0 rlineto 0 4000 rlineto
              -13000 0 rlineto closepath stroke

-2250 0 translate %x-Verschiebung

/xab 2500 def
/tef [(W-C) (W-M) (W-Y) (W-N) (W-Z) (W-O) (W-L) (W-V) (W-N) (W-Z)] def
/cola [{tgc} {tgm} {tgy} {tgn} {tgz}  {tgo} {tgl} {tgv} {tgn} {tgz}] def
/colb [{tgo} {tgl} {tgv} {tgo} {tgo}  {tgc} {tgm} {tgy} {tgo} {tgo}] def

0 1 4 {/ncol exch def %=C,M,Y,N,Z,O,L,V,N,Z

xab 0 translate

%neuer Rastermittelpunkt und Nullpunkt fuer Rosette, Radius 1,0 cm
 1250  2100 translate
0 setgray
 newpath 0 0 0500 0 360 arc closepath stroke
 newpath 0 0 1000 0 360 arc closepath stroke

 cola ncol get exec
 0 10 350 {newpath 0 0 moveto 0 0 1200 4 -1 roll dup 5 add  arc
 closepath fill} for

 colb ncol get exec
 newpath 0 0 0300 0 360 arc closepath stroke
 -1250 -2100 translate
                          

%Text Rosette (Siemensstern)
0 setgray TBK
   200 0100 moveto
(Radialgitter ) showde
(Radial grating ) showen

TBIK tef ncol get show
0.5 setgray TBM
  1250  500 add 2300 moveto (10) show
  1250 1000 add 2300 moveto (20) show

} for %ncol=0,1,2,3,4 C,M,Y,N,Z

grestore
showpage
%%Trailer