summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci55
1 files changed, 0 insertions, 55 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
deleted file mode 100644
index 059ac6d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
+++ /dev/null
@@ -1,55 +0,0 @@
-// s:2014.10.10
-// e:2014.12.14 ( for 3d )
-// e:2015.10.29 ( endmark //// )
-
-function WriteOutData(varargin)
- global Fnameout
- Nargs=length(varargin);
- if modulo(Nargs,2)==0 then
- Fname=Fnameout;
- Nst=1;
- else
- Fname=varargin(1);
- Nst=2;
- end;
- Fid=mopen(Fname,'w');
- for N=Nst:2:Nargs
- Gname=varargin(N);
- mfprintf(Fid,'%s\n',Gname+"//");
- Gdata=varargin(N+1);
- Gdata=Flattenlist(Gdata);
- for K=1:length(Gdata)
- GL=Dividegraphics(Gdata(K));
- for J=1:length(GL)
- mfprintf(Fid,'%s\n',"start//");
- Str="";
- for I=1:Numptcrv(GL(J))
- Pt=Ptcrv(I,GL(J));
- if length(Str)>0 then
- Str=Str+","
- end;
- if length(Pt)<3 // 2014.12.14
- Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2));
- else
- Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3));
- end;
- if length(Str)>80 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- Str="";
- end
- end
- if length(Str)>0 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- end
- if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29
-// mfprintf(Fid,'%s\n',"end////");
- mfprintf(Fid,'%s\n',"end//");
- else
- mfprintf(Fid,'%s\n',"end//");
- end;
- end
- end
- end
- mfprintf(Fid,'%s\n',"//");
- mclose(Fid);
-endfunction;