diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci deleted file mode 100644 index aa1216dd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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 - |