summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci31
1 files changed, 0 insertions, 31 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
deleted file mode 100644
index aa1216dd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-function CalcHeight(Hoko,Moji)
- global Wfile FID;
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(1));
- Str=['\settoheight{\Height}{'+Moji+'}'];
- Str=[Str,'\settodepth{\Depth}{'+Moji+'}'];
- if H=='n'
- Str=[Str,'\setlength{\Height}{\Depth}'];
- end
- if H=='s'
- Str=[Str,'\setlength{\Height}{-\Height}'];
- end
- if H=='c'
- Str=[Str,'\setlength{\Height}{-0.5\Height}'];
- Str=[Str,'\setlength{\Depth}{0.5\Depth}'];
- Str=[Str,'\addtolength{\Height}{\Depth}'];
- end
- if Wfile=='default'
- for I=1:size(Str,2)
- mprintf('%s',Str(I));
- end
- mprintf('%s\n','%');
- else
- for I=1:size(Str,2)
- mfprintf(FID,'%s',Str(I));
- end
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-