diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci new file mode 100755 index 00000000..e0020f0b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci @@ -0,0 +1,72 @@ +// 09.11.26 +// 09.12.06 +// 09.12.25 +// 09.12.29 + +function Putcell(varargin) + Nargs=length(varargin); + TbL=varargin(1); + Str=varargin(Nargs); + if type(Str)==1 + Str=string(Str); + end; + Pos=varargin(Nargs-1); + Nrg=varargin(2); + if type(Nrg)==10 + if Nargs==4 + Cell=Findcell(TbL,Nrg); + else + Mrg=varargin(3); + Cell=Findcell(TbL,Nrg,Mrg); + end; + else + Mrg=varargin(3); + Cell=Findcell(TbL,Nrg,Mrg); + end; + Pt=Cell(1); Dr='c'; + Posh=part(Pos,1); + Post=part(Pos,2:length(Pos)); + if (Posh=='r')|(Posh=='R') + Pt=Pt+[Cell(2),0]; + if length(Post)==0 + Dr='w1'; + else + Dr='w'+Post; + end; + end; + if (Posh=='l')|(Posh=='L') + Pt=Pt-[Cell(2),0]; + if length(Post)==0 + Dr='e1'; + else + Dr='e'+Post; + end; + end; + if (Posh=='u')|(Posh=='U') + Pt=Pt+[0,Cell(3)]; + if length(Post)==0 + Dr='s1'; + else + Dr='s'+Post; + end; + end; + if (Posh=='d')|(Posh=='D') + Pt=Pt-[0,Cell(3)]; + if length(Post)==0 + Dr='n1'; + else + Dr='n'+Post; + end; + end; + if (Posh=='b')|(Posh=='B') + Pt=Pt-[0,Cell(3)]; + if length(Post)==0 + Dr='n1'; + else + Dr='n'+Post; + end; + Str='$\mathstrut$'+Str; + end; + Letter(Pt,Dr,Str); +endfunction; + |