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