%!

% builds the path outlining a square with corners
% (0, 0), (s, 0), (s, s), (0, s)

/buildsquare {
  0 0 moveto
  s 0 lineto
  s s lineto
  0 s lineto
  closepath
} def

% --------------------------------------------------------------

72 dup scale
1 72 div setlinewidth

2.5 5.5 translate

0.6  dup scale

/s 5 def
gsave
-90 rotate
newpath
buildsquare
gsave
0 0 1 setrgbcolor
fill
grestore
stroke
grestore

/s 3 def
gsave
4 3 atan rotate
newpath
buildsquare
gsave
0 1 0 setrgbcolor
fill
grestore
stroke
grestore

/s 4 def
gsave
5 0 translate
4 3 atan rotate
newpath
buildsquare
gsave
1 0 0 setrgbcolor
fill
grestore
stroke
grestore

showpage