%% syntaxe : solid i solidfacesadjsommet --> array
%% array est le tableau des indices des faces adjacentes au
%% sommet d indice i
/solidfacesadjsommet {
6 dict begin
/no exch def
/solid exch def
/n solid solidnombrefaces def
/indicesfacesadj [] def
0 1 n 1 sub {
/j exch def
/F solid j solidgetface def
no F in {
pop
/indicesfacesadj [ indicesfacesadj aload pop j ] store
} if
} for
indicesfacesadj
end
} def
%% %% syntaxe : solid i solidfacesadjsommet --> array
%% %% array est le tableau des indices des faces adjacentes au
%% %% sommet d indice i
%% /solidfacesadjsommet {
%% 10 dict begin
%% /indicesommet exch def
%% /solid exch def
%% /result [] def
%% %% pour chaque face
%% 0 1 solid solidnombrefaces 1 sub {
%% /i exch def
%% /F solid i solidgetface def
%% indicesommet F in {
%% pop
%% /result [result aload pop i] store
%% } if
%% } for
%% result
%% end
%% } def
%%
|