Mathematica drawing fancy pic

fancy line 
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

 

 

posted @ 2012-06-27 20:32  geometry_  阅读(193)  评论(0)  编辑  收藏  举报