blob: c33e23a88dbb5f1aea3c88a2f4e8e744331240da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
// s : 2014.06.22
// 14.09.07 Objjoin added
function Out=Objpolyhedron(Vertex,Face)
global NPOINT OBJFIGNO;
OBJFIGNO=OBJFIGNO+1;
Ninit=NPOINT;
Objname(); // 140907
for N=1:length(Vertex)
P=Vertex(N);
Np=Writeobjpoint(P);
Vertex(N)=[P(1:3),Np]
end;
for N=1:length(Face)
F=Face(N)+Ninit;
Face(N)=F;
Str="f"
for J=1:length(F)
P=sprintf("%1d",F(J));
Str=Str+" "+P
end;
Printobjstr(Str)
end;
Out=list(Vertex,Face)
endfunction
|