diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci')
-rw-r--r-- | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci new file mode 100644 index 00000000..c33e23a8 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci @@ -0,0 +1,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 |