/wedge {                                                    % egy szirom deklarálása
newpath
0 0 moveto
1 0 translate
15 rotate
0 15 sin translate
0 0 15 sin -90 90 arc
closepath
} def

gsave
3.75 inch 7.25 inch translate
1 inch 1 inch scale
wedge 0.02 setlinewidth stroke
grestore                                                    % a különálló szirom kirajzolása

gsave
4.25 inch 4.25 inch translate
1.75 inch 1.75 inch scale
0.02 setlinewidth
1 1 12                                                        % 1-12-ig 1-es lépéssekkel for ciklus
{ 12 div setgray                                        % szürkeségi szín beállítása
gsave
wedge
gsave fill grestore
0 setgray stroke
grestore
30 rotate
} for                                                            % kirajzoljuk a virágot
grestore
 

showpage