Mathematica Graphics Picture

Show[Graphics[Line[{{-1, -1}, {1, 1}}]]]

 

Show[Graphics[(*a diagonal line*)Line[{{-1/2, -1/2}, {1/2, 1/2}}]]]

Show[Graphics[Point[{3/4, 3/4}]]]

Show[Graphics[{Point[{3/4, 3/4}], Point[{3/4, 0.3/4}]}]]

Show[Graphics[{Polygon[{{-1, -1}, {-1, -0.7},        {-0.95, -0.6}, {-0.5, -1.1}, {-1, -1}}]}]]

 

Show[Graphics[Circle[{0, 0}, 1/3]]]

Show[Graphics[Disk[{0.1, 0.1}, 0.2]]]

 

 

 

 

 

 

 

 

Created by Mathematica  (October 24, 2005) Valid XHTML 1.1!