summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci')
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci25
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