/box
% eljárás, amely négyzetet rajzol
{72 0 rlineto
0 72 rlineto
-72 0 rlineto
closepath }def
newpath
252 324 moveto
% kurrens pont
box
0 0 1 setrgbcolor fill
newpath
270 360 moveto
% kurrens pont
box
.2 .2 1 setrgbcolor fill
newpath
288 396 moveto
% kurrens pont
box
.4 .4 1 setrgbcolor fill
showpage