summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bayer/universal.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bayer/universal.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bayer/universal.mf131
1 files changed, 131 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal.mf b/Master/texmf-dist/fonts/source/public/bayer/universal.mf
new file mode 100644
index 00000000000..8cd9dcb8807
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/bayer/universal.mf
@@ -0,0 +1,131 @@
+%%
+%% This is file `universal.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% universal.dtx (with options: `main')
+%%
+%% Copyright (C) 1997 Christian Holm.
+%%
+%% This file is NOT the source for universal, because almost all
+%% comments have been stripped from it. It is NOT the preferred
+%% 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 (universal.dtx
+%% and universal.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.
+%%
+%% The universal font and package is distributed in the hope that
+%% it will be useful, but WITHOUT ANY WARRANTY; without even the
+%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+%% PURPOSE. See the GNU General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public
+%% License along with this program; if not, write to the
+%% Free Software Foundation, Inc.,
+%% 675 Mass Ave, Cambridge,
+%% MA 02139, USA.
+%%
+%% See the file universal.dtx for further comments and documentation.
+%%
+x_height# = 8u#; % height of lowercase without ascenders
+m_width# = 7/5x_height# ; % width of widest lowercase (1em)
+x_width# = x_height#+f_space#; % width of normal lowercase
+p_depth# = 3/5x_height# ; % depth of charactes accending baseline
+l_height# = 8/5x_height# ; % height of heighest characters
+p_thick# = 1/36x_height# ; % pen thickness
+f_space# = 2u#; % space added after fonts
+c_width# = 1x_width#-0.5x_width#*(1-cosd(35)); % width of "c"
+C_width# = l_height#-0.5l_height#*(1-cosd(35)); % width of "C"
+f_width# = 3/8l_height#+f_space#; % width of "f"
+A_width# = m_width# ; % width of normal upper case characters
+M_width# = 7/5A_width# ; % width of "M"
+define_pixels(u,m_width,x_width,x_height,p_depth,l_height,p_thick) ;
+define_pixels(f_space,A_width,C_width,M_width) ;
+define_corrected_pixels(p_depth) ;
+
+ligs:=2;
+font_coding_scheme:="TeX text";
+spanish_shriek:=oct"074";
+spanish_query:=oct"076";
+
+mode_setup;
+
+font_x_height 8u#;
+font_quad m_width#;
+font_normal_space 6u#+f_space#;
+font_normal_stretch 3u#;
+font_normal_shrink 2u#;
+font_quad 18u#+4f_space#;
+font_extra_space 2u#;
+
+def makebox(text rule) = % macro for hardcopy proofs
+ rule((0,0)t_,(w,0)t_);
+ rule((0,0.01)t_,(w,0.01)t_);
+ for y=-d step u until h+u: % making addtional grid lines
+ rule((0,y)t_,(w,y)t_);
+ endfor % horizontals
+ for x=0 step u until w+u:
+ rule((x,-d)t_,(x,h)t_);
+ endfor % verticals
+enddef;
+
+def bauhauschar (expr name, width, height, depth, extra_width) =
+ beginchar(name,width,height,depth);
+ "The letter "&name;
+ pickup pencircle scaled p_thick ;
+ wi#:=width-f_space#+extra_width;
+ define_pixels(wi);
+ enddef;
+
+def bauhausnumb (expr name, width, height, depth, extra_width) =
+ beginchar(name,width,height,depth);
+ "The number "&name;
+ pickup pencircle scaled p_thick ;
+ wi#:=width-f_space#+extra_width;
+ define_pixels(wi);
+ enddef;
+
+def bauhaussymb (expr name, width, height, depth, extra_width) =
+ beginchar(name,width,height,depth);
+ pickup pencircle scaled p_thick ;
+ wi#:=width-f_space#+extra_width;
+ define_pixels(wi);
+ enddef;
+
+def bauhausextra (expr number, name) =
+ beginchar(number,l_height#+f_space#,l_height#,p_depth#);
+ "The bauhaus symbol "&name;
+ pickup pencircle scaled 1/10p_thick ;
+ wi#:=l_height#;
+ define_pixels(wi);
+ enddef;
+
+picture e_pic, a_pic, o_pic, O_pic; % any where
+
+input universal-uppers; % upper case (majuscules)
+input universal-lowers; % lower case (minuscules)
+input universal-digits; % numerals
+input universal-specials ; % special symbols
+input universal-ligatures; % ligaturres
+input universal-punctuations; % punctuation symbols
+input universal-accents; % accents
+input universal-extras; % bauhaus extras
+
+ligtable "u": "h" kern u#;
+ligtable "f": "f" kern 0 , "l" kern 0 , "i" kern 0;
+ligtable "o": "l" kern u#;
+ligtable "?": "`" =: spanish_query;
+ligtable "!": "`" =: spanish_shriek;
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+
+bye.
+
+\endinput
+%%
+%% End of file `universal.mf'.