%!PS-Adobe-1.0
%%Creator: Zabex
%%Title: Kreisschablone ohne Stege
%%CreationDate: Sa, 17.04.2010
%%DocumentMedia: A4 595 842 0 () ()
%%Orientation: Portrait
%%Pages: (atend)
%%DocumentFonts: Helvetica
%%EndComments

% Diese Script schreibt das Alphabet als Text entlang einer Kreislinie.
 
/Circletext
{ CirctextDict begin             
    /Radius exch def             
    /Centerangle exch def        
                                 
    /PtSize exch def             
    /Str exch def                
    /XRadius Radius              
    PtSize 4 div add def         
                                 
    gsave                        
    Centerangle Str              
    FindcharAngle add rotate     
    Str                          
    { /Charcode exch def         
      ( ) dup 0 Charcode put
      placechar
    } forall
    grestore                     
  end
} def

/CirctextDict 16 dict def
CirctextDict begin
  /FindcharAngle                 
  { stringwidth pop 2 div        
    2 XRadius mul Pi mul div     
    360 mul                      
  } def                          
  
  /placechar                   
  { /Char exch def             
    /charAngle                 
    Char FindcharAngle def     
    gsave
    charAngle neg rotate       
    Radius 0 translate         
    -90 rotate                 
    Char stringwidth pop       
    2 div neg 0 moveto
    Char show
    grestore                   
    charAngle 2 mul neg rotate 
  } def

  /Pi 3.141592654 def
end

%%EndProlog

%%Page: 1 1
/HELVETICA-Bold findfont   % Die Schablone wird erstellt
32 scalefont setfont
306 448 translate          % Ursprung zur Seitenmitte verschieben

% Pfad für aeusseren Kreisbogen zeichnen und mit Blau füllen
newpath 0 0 120 0 360 arc
closepath 
0.1 0 0.9 setrgbcolor fill

% Pfad für inneren Kreisbogen zeichnen und mit weiss füllen
newpath 0 0 80 0 360 arc
closepath 1 setgray fill

(ABCDEFGHIJKLMNOPQRSTUVWXYZ)     % Das Alphabet auf die Aussenseite des inneren Kreises
14 90 88 Circletext

showpage

%%Trailer
%%Pages: 1