diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci deleted file mode 100644 index 218b599f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci +++ /dev/null @@ -1,54 +0,0 @@ -function Fontsize(Ookisa) - global Wfile FID; - Str='%'; - Ucode=ascii(Ookisa); - S=char(Ucode(1)); - if S=='n' - Str='\normalsize%'; - end - if S=='s' - if length(Ucode)==1 - Tmp=''; - else - Tmp=char(Ucode(2)); - end - if Tmp=='s' - Str='\scriptsize%'; - else - Str='\small%'; - end - end - if S=='f' - Str='\footnotesize%'; - end - if S=='t' - Str='\tiny%'; - end - if S=='l' - Str='\large%'; - end - if S=='L' - if length(Ucode)==1 - Tmp='a'; - else - Tmp=char(Ucode(2)); - end - if Tmp=='a' - Str='\Large%'; - else - Str='\LARGE%'; - end - end - if S=='h' - Str='\huge%'; - end - if S=='H' - Str='\Huge%'; - end - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction - |