summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci44
1 files changed, 0 insertions, 44 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
deleted file mode 100644
index f83cc8c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 10.01.07
-
-function Texletter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- P=varargin(I);
- X=P(1);
- if type(X)==1
- X=string(X);
- end;
- Y=P(2);
- if type(Y)==1
- Y=string(Y);
- end;
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n';
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s';
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e';
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w';
- end
- Hoko=Vhoko+Hhoko;
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='\put('+X+','+Y+'){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
-endfunction