summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci
blob: 60d73ef735a23fad98cba411bdbfe7f87d6e93e6 (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
34
35
36
37
38
39
40
41
42
// s:2014.09.16

function WritetoCindy(varargin)
  global Fnametxt
  GnameV=list();
  for J=1:length(varargin)
    Tmp=varargin(J);
    for K=1:size(Tmp,2)
      GnameV($+1)=Tmp(1,K);
    end
  end;
  Fid=mopen(Fnametxt,'w');
  for Nv=1:length(GnameV)
    Gname=GnameV(Nv);
    Tmp=evstr(Gname);
    GL=Dividegraphics(Tmp);
    Lnst="";
    for J=1:length(GL)
      G=GL(J);
      Gn=Gname+"No"+string(J);
      mfprintf(Fid,'%s\n',Gn+"=[];//");
      for K=1:Numptcrv(G)
        Pt=Ptcrv(K,G);
        if length(Lnst)==0
          Lnst=Gn+"=concat("+Gn+",[";
        end;
        Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2));
        Lnst=Lnst+Tmp;
        if length(Lnst)>80 | K==Numptcrv(G) 
          Lnst=Lnst+"]);//";
          mfprintf(Fid,'%s\n',Lnst);
          Lnst="";
        else
          Lnst=Lnst+","; 
        end; 
      end;
      Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//";
      mfprintf(Fid,'%s\n',Str);
    end;
  end;
  mclose(Fid);
endfunction;