summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci')
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci33
1 files changed, 33 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
new file mode 100644
index 00000000..e902ce5d
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
@@ -0,0 +1,33 @@
+// s : 2014.06.22
+// e : 14.09.07
+
+function Out=Openobj(Fnm)
+ global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN
+ OBJFMT= "%7.4f";
+ NPOINT= 0;
+ NNORM=0;
+ OBJSCALE=1;
+ OBJFIGNO=0;
+ OBJJOIN=0; // 140906
+ if Fnm =='' then
+ Wfile='default';
+ else
+// errcatch(4,"continue"); //17.02.18from
+// Tmp=FID;
+// if iserror(4) then
+// FID=[];
+// errclear(4);
+// end;
+// if FID~=[] then
+// mclose(FID);
+// FID=[];
+// end
+// errcatch(4,"kill"); //17.02.18upto
+ if length(mtlb_findstr(Fnm,".obj"))==0
+ Fnm=Fnm+".obj";
+ end;
+ FID=mopen(Fnm,'w');
+ Wfile=Fnm;
+ Out=Wfile;
+ end
+endfunction