Mathematica drawing fancy pic

rectangleW = 100.;
rectangleH = 100.;
numW = 20;
numH = 20;
deltarectW = rectangleW/numW;
deltarectH = rectangleH/numH;
linePointlist = Table[
   {Point[{deltarectW*i, rectangleH - deltarectH*i}],
    Point[{deltarectW*(i + 1), 0}]}, {i, 1, numW}];
linelist = Table[
   {{deltarectW*i, rectangleH - deltarectH*i},
    {deltarectW*(i + 1), 0}}, {i, 1, numW}
   ];
Graphics[Table[Line[linelist[[i]]], {i, 1, Length[linelist]}]]

　　

This the first graphic line put here

The rectanglular are will be fill with color full line