%% syntaxe : solid i solidsommetsadjsommet --> array
%% array est le tableau des indices des sommets adjacents au
%% sommet d indice i
/solidsommetsadjsommet {
6 dict begin
/no exch def
/solid exch def
solid no solidfacesadjsommet /facesadj exch def
/sommetsadj [] def
/nbadj facesadj length def
0 1 nbadj 1 sub {
/j exch def
%% examen de la jieme face
%/j 0 def
/F solid facesadj j get solidgetface def
/nbsommetsface F length def
no F in {
/index exch def
/i1 F index 1 sub nbsommetsface modulo get def
/i2 F index 1 add nbsommetsface mod get def
%% si i1 n est pas deja note, on le rajoute
i1 sommetsadj in {
pop
} {
/sommetsadj [ sommetsadj aload pop i1 ] store
} ifelse
%% si i2 n est pas deja note, on le rajoute
i2 sommetsadj in {
pop
} {
/sommetsadj [ sommetsadj aload pop i2 ] store
} ifelse
} {
(Error : bug dans solidsommetsadjsommet) ==
quit
} ifelse
} for
sommetsadj
end
} def
|