summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/unibase.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/universa/unibase.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/universa/unibase.mf17
1 files changed, 8 insertions, 9 deletions
diff --git a/Master/texmf-dist/fonts/source/public/universa/unibase.mf b/Master/texmf-dist/fonts/source/public/universa/unibase.mf
index 144dd8dc1a7..2436fb8887d 100644
--- a/Master/texmf-dist/fonts/source/public/universa/unibase.mf
+++ b/Master/texmf-dist/fonts/source/public/universa/unibase.mf
@@ -4,7 +4,7 @@
%%
%% The original source files were:
%%
-%% uni.dtx (with options: `unibase')
+%% universa.dtx (with options: `unibase')
%%
%% Copyright (C) 1998 Christian Holm.
%%
@@ -13,8 +13,8 @@
%% form of universal for making modifications to it.
%%
%% Therefore you can NOT redistribute and/or modify THIS file.
-%% You can however redistribute the complete source (uni.dtx
-%% and uni.ins) and/or modify it under the terms of the GNU
+%% You can however redistribute the complete source (universa.dtx
+%% and universa.ins) and/or modify it under the terms of the GNU
%% General Public License as published by the Free Software
%% Foundation; either version 2, or (at your option) any later
%% version.
@@ -30,10 +30,9 @@
%% 675 Mass Ave, Cambridge,
%% MA 02139, USA.
%%
-%% See the file uni.dtx for further comments and documentation.
+%% See the file universa.dtx for further comments and documentation.
%%
-
unibase := 1 ;
string univer ;
univer = "2.0" ;
@@ -45,8 +44,8 @@ medium := false ; slant := false ; bold := false ;
caps := false ; strict := false ;
font_identifier:="universal";
-def start_font(expr size) =
- u# := size/18 ;
+def start_font(expr size) =
+ u# := size/18 ;
mode_setup;
x_h# := 8u# ; x_w# := 8u# ; m_w# := 11u# ; l_h# := 13u# ;
p_d# := 5u# ; l_s# := 2u# ; r_s# := 2u# ; A_w# := 10u# ;
@@ -120,7 +119,7 @@ def extra_proof_rules =
fi
enddef ;
-inner bye; % so we can use it inside a macro
+inner bye;
def end_font =
ligtable "u" : "h" kern u# ;
ligtable "f" : "f" kern 0 , "l" kern 0 , "i" kern 0 ;
@@ -138,7 +137,7 @@ def end_font =
"l" kern -3c_d#*cosd(15)-p_t#*sind(15)-l_s#-r_s# ,
"L" kern -3c_d#*cosd(15)-p_t#*sind(15)-l_s#-r_s# ;
bye
-enddef;
+enddef ;
def do_caps(expr offset) =
sc_shrink := x_h#/l_h# ;