ngon

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: -40 -40 40 40
%%Creator: joojaa
%%EndComments

/num 1020 def
/li {dup sin 30 mul exch cos 30 mul lineto} def
/lin {0 30 moveto li} def

1 1 num {
360 mul num div lin
} for
stroke

0 30 moveto
1 1 num {
360 mul num div li
} for
stroke

%%EOF