%!PS-Adobe-3.0

/d 7.5 def		% Feinheit der Rosette

gsave 			% speichere graphische Attribute
200 200 translate 	% verschiebe Ursprung
50 50 scale 		% 1 Einheit = 50pt
.02 setlinewidth	% Linienbreite

1 0 moveto		% erste Linie
360 d div cvi		% wie oft?
{ 120 d add rotate	% drehe alles
  1 0 lineto		% ziehe Linie
} repeat		% Schleifenende
stroke			% ziehe Pfad mit Farbe nach

grestore showpage	% alles sichtbar machen