summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci33
1 files changed, 0 insertions, 33 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
deleted file mode 100644
index e902ce5d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 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