diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci')
-rw-r--r-- | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci new file mode 100644 index 00000000..059ac6d5 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci @@ -0,0 +1,55 @@ +// 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; |