summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci
blob: 111e9b3b70f06ecb2ebf74341f3db92b07f92023 (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
function CalcWidth(Hoko,Moji)
  global Wfile FID
  D=0;
  Tmp=ascii(Hoko);
  H=char(Tmp(2));
  if H=='e'
    D=0; 
  end
  if H=='w'
    D=-1.0;
  end
  if H=='c'
    D=-0.5;
  end
  Str1='\settowidth{\Width}{'+Moji+'}';
  Tmp=string(D);
  Str2='\setlength{\Width}{'+Tmp+'\Width}';
  if Wfile=='default'
    mprintf('%s',Str1);
    mprintf('%s%s\n',Str2,'%');
  else
    mfprintf(FID,'%s',Str1);
    mfprintf(FID,'%s%s\n',Str2,'%');
  end
endfunction