summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci44
1 files changed, 44 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
new file mode 100755
index 00000000..f83cc8c8
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
@@ -0,0 +1,44 @@
+// 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