%% syntaxe : solid i solidrmsommet -> -
/solidrmsommet {
5 dict begin
/i exch def
/solid exch def
solid issolid not {
(Erreur : mauvais type d argument dans solidrmsommet) ==
quit
} if
solid i solidsommetsadjsommet length 0 gt {
(Erreur : sommet non isole dans solidrmsommet) ==
quit
} if
%% on s occupe des sommets
/n solid solidnombresommets def
/S [
0 1 n 1 sub {
/j exch def
j i ne {
solid j solidgetsommet
} if
} for
] def
solid S solidputsommets
%% on s occupe des faces
/n solid solidnombrefaces def
/F [
0 1 n 1 sub {
%% face d indice j
/j exch def
/Fj solid j solidgetface def
[0 1 Fj length 1 sub {
%% sommet d indice k de la face Fj
/k exch def
Fj k get dup i gt {
1 sub
} if
} for]
} for
] def
solid F solidputfaces
end
} def
|