Download raw (287 bytes)

%!

/make-regular-polygon { 
	4 dict begin
	/N exch def
	/r exch def
	/A 360 N div def
	r 0 moveto
	N {
		A cos r mul A sin r mul lineto
		/A A 360 N div add def
	} repeat
	closepath
	end 
} def

24 24 scale

10 10 translate

0.2 setlinewidth

10 5 make-regular-polygon
stroke
showpage