%% syntaxe : r n newpolreg --> solid
/newpolreg {
5 dict begin
/n exch def
/r exch def
/S [
0 360 n div 360 360 n div sub {
/theta exch def
theta cos r mul
theta sin r mul
0
} for
] def
/F [
[0 1 n 1 sub {} for]
] def
S F generesolid
dup videsolid
end
} def
|