/solidshowsommets {
8 dict begin
dup issolid not {
%% on a un argument
/option exch def
} if
/sol exch def
/n sol solidnombresommets def
/m sol solidnombrefaces def
currentdict /option known not {
/option [0 1 n 1 sub {} for] def
} if
0 1 option length 1 sub {
/k exch def
option k get /i exch def %% indice du sommet examine
sol i solidgetsommet point3d
} for
end
} def
|