summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
blob: e902ce5da90633e3062477c11d7010c76c5408d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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