Draw polytope with Graphics

Question

How can I draw a polytope with the Graphics function? The documentation simply says that you can do it, but does not explain how. The example given only plots vertices, not the edges of the polytope. Using:

Graphics[Octagon]

gives an error. I also tried the following from a different question:

Graphics[Octagon & /@ Vertices[Octagon]]

and that does not work either. I also tried the following:

Graphics[Line[{{0, 0}, #}] & /@ Vertices[Octagon]]

and that does not work either. I also tried this:

Graphics[Line[{{0, 0}, #}] & /@ EdgeList[Octagon]]

and that gives an error as well. I also tried this:

Graphics[Line[{{0, 0}, #}] & /@ Faces[Octagon]]

and that does not work. It would be useful to have an answer that explains how this stuff works, because I just don't get it and the documentation does not explain enough that I can figure out the internal logic of these functions. The documentation page on Polytopes says it is a "tutorial", but there is no tutorial. It just lists the functions and then gives four short examples.

I almost got it to work with this:

Graphics[Line[Vertices[Octagon]]]

But it does not close up the last point.

Answer 1

I figured out a way to do this, maybe not optimal, but it does work:

Graphics[Line[Append[Vertices[Octagon], First[Vertices[Octagon]]]]]

which produces:

Vertices produces a list of x-y coordinates and Line builds a list of line objects for each of the vertices in a chain. You have to append the coordinates of the first vertice to the end of the list so that the last vertice connects to the first one and closes the figure.

Note that Polygon does not solve the problem economically because it does not generate a figure of lines, it generates a region.