%% syntaxe : solid videsolid -> -
/videsolid {
5 dict begin
/solid exch def
solid issolid not {
(Error : mauvais type d argument dans videsolid) ==
quit
} if
solid solidwithinfaces not {
/IO solid solidgetinouttable def
/FE solid solidgetfaces def
/n FE length def
IO 2 n put
IO 3 2 n mul 1 sub put
solid IO solidputinouttable
%% on inverse chaque face
/FI FE {reverse} apply def
solid FE FI append solidputfaces
%% et on rajoute autant de couleurs vides que de faces
/FEC solid solidgetfcolors def
% /FIC [FI length {()} repeat] def
% solid FEC FIC append solidputfcolors
solid FEC duparray append solidputfcolors
} if
end
} def
|