summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci31
1 files changed, 31 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci
new file mode 100755
index 00000000..aa1216dd
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci
@@ -0,0 +1,31 @@
+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
+