summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci
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