%% syntaxe : solid str writeobjfile -> -
/writeobjfile {
10 dict begin
/str exch (.obj) append def
/solid exch def
solid issolid not {
(Erreur : mauvais type d argument dans writeobjfile) ==
quit
} if
/n solid solidnombresommets def
str (w) file /lefichier exch def
0 1 n 1 sub {
/i exch def
solid i solidgetsommet
/z exch def
/y exch def
/x exch def
lefichier (v ) writestring
lefichier x chaine cvs writestring
lefichier 32 write %% espace
lefichier y chaine cvs writestring
lefichier 32 write %% espace
lefichier z chaine cvs writestring
lefichier 10 write %% CR
} for
/n solid solidnombrefaces def
0 1 n 1 sub {
/i exch def
lefichier (f ) writestring
/F solid i solidgetface {1 add} apply def
F {
lefichier exch
chaine cvs writestring
lefichier 32 write %% espace
} apply
lefichier 10 write %% CR
} for
lefichier closefile
end
} def
|