In[171]:=

ff[i_, j_] := {2 j + .5 Sin[i Pi/2], i}

In[148]:=

square[{x1_, y1_}, {x2_, y2_}] := Line[{{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}, {x1, y1}}]

In[149]:=

outlined[p_] := {Rectangle[p, p + {1, 1}], {GrayLevel[.5], square[p, p + {1, 1}]}}

In[156]:=

pat[nsq_] := Table[{{GrayLevel[.5], Line[{{0, i}, {2 nsq, i}}]}, Table[outlined[ff[j, i]], {j, 0, nsq}]}, {i, 0, nsq}]

In[172]:=

Show[Graphics[{Thickness[.005], pat[6]}], AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_6.gif]

Out[172]=

-Graphics -


Converted by Mathematica  (June 27, 2003)