From 138f77fe71e43adc24ecb030d73df81cc5c4eb7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Sep 2017 09:45:51 +0900 Subject: add ketpic --- .../ketpic/ketlib/ketpicscifiles6/CalcWidth.sci | 26 ++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100755 texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci') diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci new file mode 100755 index 00000000..111e9b3b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci @@ -0,0 +1,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 + -- cgit v1.2.3