add ketpic

1 files changed, 42 insertions, 0 deletions

diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci
new file mode 100644
index 00000000..60d73ef7
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci
@@ -0,0 +1,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;