summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
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