summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci54
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
-