%% syntaxe : solid1 {f} solidtransform --> solid2, solid2 est le
%% transforme de solid1 par la transformation f : R^3 -> R^3
/solidtransform {
3 dict begin
/@f exch def
/solid exch def
solid issolid not {
(Error : mauvais type d argument dans solidtransform) ==
quit
} if
/les_sommets
solid solidgetsommets {@f} papply3d
def
solid les_sommets solidputsommets
solid
end
} def
|