%% syntaxe : /M I r n alpha genpolyreg --> tableau des n sommets du
%% polygone regulier
/genpolyreg {
6 dict begin
%% on recupere les arguments
/alpha exch def
/n exch def
/r exch def
/I defpoint
/lettre exch def
%% on cree le tableau des n sommets du polygone regulier
/i 1 def
/pas 360 n div def
[
n {
alpha I r cpoint
/alpha alpha pas add store
} repeat
]
%% on cree le tableau des n noms de sommets
[
lettre n genMiname
]
%% on sauvegarde n sur la pile
n
end
%% on cree les nouvelles variables
/n@ exch def
/t@b_n@m exch def
/t@b_p@int exch def
/i@ 0 def
n@ {
t@b_p@int i@ getp
t@b_n@m i@ get
defpoint
/i@ i@ 1 add store
} repeat
currentdict /n@ undef
currentdict /t@b_n@m undef
currentdict /t@b_p@int undef
currentdict /i@ undef
} def
%% on recommence
%% syntaxe : I r n alpha genpolyreg
/genpolyreg {
6 dict begin
%% on recupere les arguments
/alpha exch def
/n exch def
/r exch def
/I defpoint
%% on cree le tableau des n sommets du polygone regulier
/i 1 def
/pas 360 n div def
[
n {
alpha I r cpoint
/alpha alpha pas add store
} repeat
]
end
} def
|