/negyzet                           % eljárás, amely négyzetet rajzol
{newpath
0 0  moveto
0 25 rlineto
25 0 rlineto
0 -25 rlineto
closepath
fill} def
150 150 translate             % eltolás x és y irányba is 150-nel
negyzet
20 -20 translate                % eltolás x irányba 20-szal, y irányba -20-szal
negyzet
.3 setgray
negyzet
-20 -20 translate              % eltolás x irányba -20-szal, y irányba -20-szal
.5 setgray
negyzet
-20 20 translate               % eltolás x irányba -20-szal, y irányba 20-szal
.7 setgray
negyzet
showpage