summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci72
1 files changed, 0 insertions, 72 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
deleted file mode 100644
index e0020f0b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 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;
-