summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
blob: f83cc8c819bcc9d77859e8f59b8b90a2c9ac11cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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