diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci | 55 |
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; |