diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci | 33 |
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 |