summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
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
-