%% syntaxe : array newmonoface -> solid
%% ou array = tableau de points 2d
/newmonoface {
4 dict begin
/table exch def
/n table length 2 idiv def
/S table {0} papply def
/F [
[0 1 n 1 sub {} for]
] def
S F generesolid
end
} def
%% syntaxe : array newbiface -> solid
%% ou array = tableau de points 2d
/newbiface {
newmonoface
dup videsolid
} def
|