/solidnombreinfaces {
4 dict begin
/solid exch def
solid issolid not {
(Error : mauvais type d argument dans solidnombreinfaces) ==
quit
} if
solid solidwithinfaces {
/IO solid solidgetinouttable def
IO 3 get
IO 2 get sub
1 add
} {
0
} ifelse
end
} def
|