/box {                      % téglalap
0 0 moveto
0 50 rlineto
100 0 rlineto
0 -50 rlineto
closepath fill
stroke} def
100 100 translate
box
200 0 translate
90 rotate                % 90 fokos elforgatás
box
showpage