%% syntaxe : r R newtore -> solid
/newtore {
10 dict begin
[[/n1 /n2] [4 5] [6 10] [8 12] [9 18] [18 36]] gestionsolidmode
/n2 n2 3 max store
/n1 n1 2 max store
/R exch def
/r exch def
/S [
0 1 n1 1 sub {
/i exch def
360 n1 div i mul cos r mul R add
360 n1 div i mul sin r mul
} for
]
def
S [n2] newanneau
end
} def
|