summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci26
1 files changed, 0 insertions, 26 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
deleted file mode 100644
index 111e9b3b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-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
-