%!

% x
/shear { 1 dict begin
  /x exch def
  [ 1 0 x 1 0 0 ] concat
end } def

/S 72 def
S dup scale
1 S div setlinewidth

4 1 translate

/draw-frame {
	gsave
    currentlinewidth 10 mul setlinewidth
	1 0 0 setrgbcolor
	newpath
    0 0 moveto
	1 0 lineto
	stroke
	grestore

	gsave
    currentlinewidth 10 mul setlinewidth
	0.5 0.5 1 setrgbcolor
	newpath
    0 0 moveto
	0 1 lineto
	stroke
	grestore
} def

/x 0 def

4 {

0 1.5 translate

gsave
x shear
draw-frame
grestore

/x x 0.5 add def

} repeat