diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/universa/unibase.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/universa/unibase.mf | 17 |
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# ; |