Postscript Objekte im keis anordnen

Computer: Software & Programmierung Programmierung allgemein
1

weiß irgendwer wie ich diese Objekte im Kreis anordne?

Code:

595.0 1024.0 div dup scale

0.85 setgray
24 24 moveto
1000 24 lineto
1000 744 lineto
24 744 lineto
closepath fill

/DeviceRGB setcolorspace

30 40 320 { /wert exch def wert 360 mod 0 ne

1.0 1.0 1.0 setcolor
495 wert 1.5 div 1.40 mul sub wert 1.5 div 0.9 mul 375 add wert 16 div 0 360 arc closepath fill
1 0.0 0.0 setcolor
495 wert 1.5 div 1.40 mul sub wert 1.5 div 0.9 mul 375 add wert 16 div 0.75 mul 0 360 arc closepath fill

} for
showpage

2

Das kommt jetzt drauf an, ob die Objekte mit gedreht werden sollen.

Mit rotate kannst Du das Koordinatensystem drehen, führst Du dabei dieselbe Operation für mehrere Rotationswinkel aus, so ergibt sich eine Kreisanordnung.

Ohne Drehung des Objektes ginge es z.B. mit

xcenter ycenter moveto
k winkel mul rotate
R 0 rmoveto
k winkel mul neg rotate

Und dann die Figur zeichnen.

Gruß, Lutz

3 
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox 0 0 500 500

/xcenter 250 def
/ycenter 250 def
/radius 200 def

/figur{
 gsave
 -20 -20 rmoveto
 currentpoint 2 copy
 4 0 360 arc fill 
 moveto
 40 40 rlineto 
 currentpoint stroke
 10 0 360 arc fill 
 grestore
} bind def

0 20 360{/winkel exch def
 xcenter ycenter moveto
 winkel rotate
 radius 0 rmoveto
 winkel neg rotate
 figur
} for
4

Andere Variante, die direkt die Parameterdarstellung des Kreises verwendet:

%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox 0 0 595 595


595.0 1040.0 div dup scale

20 20 translate
500 375 translate

0.85 setgray
-500 -375 moveto
-500 375 lineto
 500 375 lineto
 500 -375 lineto
closepath fill

/xcenter 0 def
/ycenter 0 def
/radius 350 def

/DeviceRGB setcolorspace

30 40 350 { /winkel exch def 

 xcenter radius winkel cos mul add /xm exch def
 ycenter radius winkel sin mul add /ym exch def
 winkel 16 div /rr exch def
 1.0 1.0 1.0 setcolor
 xm ym rr 0 360 arc closepath fill
 1 0.0 0.0 setcolor
 xm ym rr 0.75 mul 0 360 arc closepath fill

} for