How to Draw an irregular shape

Questions
1

Hello,

Can someone guide me that how can i draw an irregular polygon in Mathematica.

thanks

2

Define a List of points and then apply Polygon to them. You can define styles for the face and edge of the polygon with FaceForm and EdgeForm directives.

points = {{0, 0}, {1, 0}, {1, 1}, {1/2, 1/2}, {0, 1}};
Graphics[{FaceForm[Orange], EdgeForm[Directive[Thick, Black]], 
  Polygon@points},
 ImageSize -> 200]

8142uploadGraphic.png
8142uploadGraphic.png200×200 813 Bytes

You can also click off a series of points using the cross hairs on the GraphicsTools palette from the menu Graphics/Drawing Tools item and then paste them into your notebook.

3

6115re03.png
6115re03.png656×437 4.54 KB

4

Type

In[5]:= Graphics[Polygon[AnglePath[Transpose[{RandomReal[1, 17], RandomReal[2 \[Pi], 17]}]]]]

to produce - in most cases - a self-intersecting polygon (with 17 corners in that case) …

comm515697.PNG
comm515697.PNG699×469 6.24 KB

Exercise: Change the above line to produce for sure a non-selfintersecting polygon!