/star {                                        % veremből: x és y
moveto                                      % x y helyre lép
currentpoint translate             % az eredeti koordinátákkal eltolás
4 {starside} repeat                  % 4 - szer végrehajtja a starside eljárást
closepath
gsave
1 .5 0 setrgbcolor fill             % színbeállítás
grestore
stroke
} def

200 200 star                            % 200 200 bemenő koordinátákkal a csillag kirajzolása

showpage