%% syntaxe : str readsolidfile -> solid
/readsolidfile {
1 dict begin
/str exch def
[str (-sommets.dat) append run]
[str (-faces.dat) append run]
generesolid
dup [str (-couleurs.dat) append run] solidputfcolors
dup [str (-io.dat) append run] solidputinouttable
end
} def
|