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