# Draw Multiple Polygons Given Their Vertices

Hi I have a very simple question but I haven't been able to find a set answer. How would I draw a bunch of polygons on one graph. The following does not work:

Graphics[{Polygon[{{989, 1080}, {568, 1080}, {834, 711}}],
Polygon[{{1184, 1080}, {989, 1080}, {834, 711}, {958, 541}}],
Polygon[{{1379, 1080}, {1184, 1080}, {958, 541}, {1082, 370}}],
Polygon[{{1470, 1080}, {1379, 1080}, {1082, 370}, {1140, 291}}],
Polygon[{{1665, 1080}, {1470, 1080}, {1140, 291}, {1263, 120}}],
Polygon[{{1756, 1080}, {1665, 1080}, {1263, 120}, {1321, 41}}],
Polygon[{{1394, 0}, {1920, 0}, {1920, 1080}, {1846, 1080}}],
Polygon[{{1352, 0}, {1394, 0}, {1846, 1080}, {1756, 1080}, {1321,
41}}], Polygon[{{931, 0}, {1352, 0}, {1084, 367}}],
Polygon[{{736, 0}, {931, 0}, {1084, 367}, {961, 537}}],
Polygon[{{540, 0}, {736, 0}, {961, 537}, {836, 708}}],
Polygon[{{450, 0}, {540, 0}, {836, 708}, {779, 788}}],
Polygon[{{255, 0}, {450, 0}, {779, 788}, {654, 958}}],
Polygon[{{164, 0}, {255, 0}, {654, 958}, {597, 1038}}],
Polygon[{{73, 0}, {164, 0}, {597, 1038}, {568, 1080}, {524, 1080}}],
Polygon[{{0, 0}, {73, 0}, {524, 1080}, {0, 1080}}]}]


I apologize for how basic this question is. If anyone could steer me in the right direction it would be greatly appreciated.

• Have you seen this? Be sure to look under "Applications", "Options" and "Neat Examples". Commented Nov 18, 2014 at 18:36
• Sorry. Edited question. For some reason I couldn't post the code (getting nondescript error) and had to post it as an image. Commented Nov 18, 2014 at 18:38
• @Julian We can't really reproduce your errors as nobody is going to sit down and re-write the code you posted. Try using other ways to share the code :) Commented Nov 18, 2014 at 18:41
• Very sorry! :) here is the code. pastebin.com/wj0D6CGs Commented Nov 18, 2014 at 18:49

polys = {Polygon[{{989, 1080}, {568, 1080}, {834, 711}}],
Polygon[{{1184, 1080}, {989, 1080}, {834, 711}, {958, 541}}],
Polygon[{{1379, 1080}, {1184, 1080}, {958, 541}, {1082, 370}}],
Polygon[{{1470, 1080}, {1379, 1080}, {1082, 370}, {1140, 291}}],
Polygon[{{1665, 1080}, {1470, 1080}, {1140, 291}, {1263, 120}}],
Polygon[{{1756, 1080}, {1665, 1080}, {1263, 120}, {1321, 41}}],
Polygon[{{1394, 0}, {1920, 0}, {1920, 1080}, {1846, 1080}}],
Polygon[{{1352, 0}, {1394, 0}, {1846, 1080}, {1756, 1080}, {1321, 41}}],
Polygon[{{931, 0}, {1352, 0}, {1084, 367}}],
Polygon[{{736, 0}, {931, 0}, {1084, 367}, {961, 537}}],
Polygon[{{540, 0}, {736, 0}, {961, 537}, {836, 708}}],
Polygon[{{450, 0}, {540, 0}, {836, 708}, {779, 788}}],
Polygon[{{255, 0}, {450, 0}, {779, 788}, {654, 958}}],
Polygon[{{164, 0}, {255, 0}, {654, 958}, {597, 1038}}],
Polygon[{{73, 0}, {164, 0}, {597, 1038}, {568, 1080}, {524, 1080}}],
Polygon[{{0, 0}, {73, 0}, {524, 1080}, {0, 1080}}]};


The default fill for Polygon is Black so you end up with an almost completely black field. The edges are very faint.

Graphics[polys]


You can use EdgeForm to clearly see the edges of the polygons.

Graphics[{EdgeForm[Red], polys}]


Or you can color the polygons

Graphics[
Table[
ColorData[RandomInteger[{1, 113}]][n],
{n, Length[polys]}],
polys}]]


your plot is ok. actually all polygons are plotted but because the EdgeForm & FaceForm, the plot is not clear. check this:

poly = {Polygon[{{989, 1080}, {568, 1080}, {834, 711}}],
Polygon[{{1184, 1080}, {989, 1080}, {834, 711}, {958, 541}}],
Polygon[{{1379, 1080}, {1184, 1080}, {958, 541}, {1082, 370}}],
Polygon[{{1470, 1080}, {1379, 1080}, {1082, 370}, {1140, 291}}],
Polygon[{{1665, 1080}, {1470, 1080}, {1140, 291}, {1263, 120}}],
Polygon[{{1756, 1080}, {1665, 1080}, {1263, 120}, {1321, 41}}],
Polygon[{{1394, 0}, {1920, 0}, {1920, 1080}, {1846, 1080}}],
Polygon[{{1352, 0}, {1394, 0}, {1846, 1080}, {1756, 1080}, {1321,
41}}], Polygon[{{931, 0}, {1352, 0}, {1084, 367}}],
Polygon[{{736, 0}, {931, 0}, {1084, 367}, {961, 537}}],
Polygon[{{540, 0}, {736, 0}, {961, 537}, {836, 708}}],
Polygon[{{450, 0}, {540, 0}, {836, 708}, {779, 788}}],
Polygon[{{255, 0}, {450, 0}, {779, 788}, {654, 958}}],
Polygon[{{164, 0}, {255, 0}, {654, 958}, {597, 1038}}],
Polygon[{{73, 0}, {164, 0}, {597, 1038}, {568, 1080}, {524,
1080}}], Polygon[{{0, 0}, {73, 0}, {524, 1080}, {0, 1080}}]};

Graphics[#] & /@ poly

Graphics[{FaceForm[], EdgeForm[Black], #}] & /@ poly

Show[%]

• Thank you for your answer. I am not at my computer that has Mathematica installed on it, but I will check this later tonight when I am! Commented Nov 18, 2014 at 19:05