/newobjfile {
3 dict begin
/objfilename exch (.obj) append def
/v {} def
/ok true def
/f {
ok {
%% 1ere fois
] %% ferme les sommets
[ [ %% ouvre les faces
/ok false store
} {
%% les autres fois
] %% ferme la face
[ %% ouvre la nouvelle
} ifelse
} def
[ 0 0 0 %% sommet fantome pour respecter l'indexation (a partir de l'indice 1)
objfilename run
]]
/F exch def
/S exch def
S F generesolid
% dup videsolid
end
} def
|