Question: regular polygon

Does Maple have a command for plotting  regular polygons? How can I plot a regular polygon insrcibed in a circle? Thanks.

By the way, I read from a book that an N-polygon can be plotted as follows. But I wonder if this is the easiest way.

with(plots):with(plottools):
R:=1:
C:=circle([0,0],R,color=red,thickness=3):
N:=7:
a:=I*(2*Pi*i/N+Pi/2):t:=R*exp(a):
P:=polygonplot([[seq([Re(t),Im(t)],i=1..N)]],color=blue):
display(C,P);

Please Wait...