eufmch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

%% @metafontfile{
%%     filename="eufmch.mf",
%%     version="2.1",
%%     date="30-MAY-1991",
%%     filetype="Metafont: driver",
%%     copyright="Copyright (C) American Mathematical Society,
%%            all rights reserved.  Copying of this file is
%%            authorized only if either:
%%            (1) you make absolutely no changes to your copy
%%                including name; OR
%%            (2) if you do make changes, you first rename it to some
%%                other name.",
%%     author="American Mathematical Society",
%%     address="American Mathematical Society,
%%            Technical Support Group,
%%            P. O. Box 6248,
%%            Providence, RI 02940,
%%            USA",
%%     telephone="401-455-4080 or (in the USA) 800-321-4AMS",
%%     email="Internet: [e-mail]",
%%     codetable="ISO/ASCII",
%%     checksumtype="line count",
%%     checksum="6393",
%%     keywords="amsfonts, tex, metafont , euler ",
%%     abstract="This is the driver file for use with 
%%            the Euler Fraktur medium font in AMSFonts 2.1."
%%     }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Euler Fraktur Medium

% ----- This font is set up as Text Font, \textfont0, page 427 of TeXbook
% however, there are some alternate characters in nonstandard positions
 
mode_setup;
font_coding_scheme "TeX text subset";

%     EULER FRAKTUR MEDIUM PARAMETERS

%     These all in bitpad numbers (.001"):

     programem =      3700;     
     baseline  =     0;
     ascender  =     capheight;
     descender =     700;
     depthy    =     700;     % depthy   =     500;
     capheight =     2560;
      lcbody    =     1760;     % same for medium and bold.
      dotheight =     capheight; %     dotheight =     2600;
     theight       =     2300;   % measured to lowest of the 3 top lines.
     lfigheight =     capheight;
     nfigbody  =     lcbody;
     nfigascender =     ascender;
     nfigdescender =     descender;

% the next lines added since everything was digitized too high! --- DEK
extra_beginchar:=extra_beginchar & "rot:=initrot;";
transform initrot; initrot:=identity;

input eubase;

% ses individual character widths for medium lower case

%        20h# means 20 bitpad units.

lefta# = 0h#;     righta# = 0h#;
leftb# = 0h#;     rightb# = 0h#;
leftc# = 0h#;     rightc# = 0h#;
leftd# = 0h#;     rightd# = 0h#;
lefte# = 0h#;     righte# = 50h#;
leftf# = 0h#;     rightf# = 0h#;
leftg# = 0h#;     rightg# = 0h#;
lefth# = 0h#;     righth# = 0h#;
lefti# = 0h#;     righti# = 0h#;
leftj# = 0h#;     rightj# = 0h#;
leftk# = 0h#;     rightk# = 0h#;
leftl# = 0h#;     rightl# = 0h#;
%leftm# = 0h#;     rightm# = 0h#;
leftm# = -50h#;     rightm# = 0h#;
%leftn# = 0h#;     rightn# = -50h#;
leftn# = -50h#;     rightn# = -50h#;
%lefto# = -50h#;     righto# = 0h#;
lefto# = -100h#;     righto# = 0h#; % DEK
leftp# = 0h#;     rightp# = 0h#;
%leftq# = 0h#;     rightq# = 0h#;
leftq# = -50h#;     rightq# = 0h#; % DEK
leftr# = 0h#;     rightr# = 0h#;
lefts# = 0h#;     rights# = 0h#;
leftt# = 0h#;     rightt# = 0h#;
leftu# = 0h#;     rightu# = 0h#;
leftv# = 0h#;     rightv# = 0h#;
leftw# = 0h#;     rightw# = 0h#;
leftx# = 0h#;     rightx# = 0h#;
lefty# = 0h#;     righty# = 0h#;
leftz# = 0h#;     rightz# = 0h#;


% MEDIUM NON-LINING FIGURES
no_stem_round;

"rmn0";

charbegin( "0", 1858h#, nfigbody*v#, baseline );

n := 10;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 13;
t9 := 15;
t10 := 17;

adj_fill.A(1, 6)                    % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1), (6,2), (10,2))          % tied points
     ((4,7), (2,9))                    % verticals
     ((5,6), (3,8), (1,10))               % horizontals
     ((965,1825){-404,-220}...          % 0
      (467,1446){-1,-1}...               % 1
      (153,731){0,-1}...               % 2
      (373,122){1,-1}...               % 3
      (787,-47){1,0}...               % 4
      (1360,240){1,1}...               % 5
      (1686,961){0,1}...               % 6
      (1411,1559){-1,1}...{-522,155}          % 7
      (965,1825)--                    % 8
      (816,1533){351,-77}...               % 9
      (1192,1333){1,-1}...               % 10
      (1410,785){0,-1}...               % 11
      (1265,337){-1,-1}...               % 12
      (972,220){-1,0}...               % 13
      (650,350){-1,1}...               % 14
      (440,922){0,1}...               % 15
      (576,1359){335,337}...{232,154}     % 16
      (816,1533)--cycle);               % 17

endchar(0);

"rmn1";

charbegin( "1", 1858h#, nfigbody*v#, baseline );
n := 6;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 9;
t6 := 11;

adj_fill.A(3)                         % fixed x points
     (6)                         % fixed y points
     ((1,2), (6,1))                    % tied points
     ((2,5))                         % verticals
     ((3,4))                         % horizontals
     ((1128,188){-1,1}...               % 0
      (1111,249){-9,228}...               % 1
      (1099,849){0,1}...{100,774}          % 2
      (1142,1705){-36,29}...{-36,29}          % 3
      (1106,1734){-222,-23}...{-1,0}          % 4
      (382,1701)--                    % 5
      (383,1601){443,-52}...               % 6
      (640,1558){383,-127}...          % 7
      (758,1447){63,-262}...               % 8
      (784,961){0,-1}...               % 9
      (778,251){-30,-344}...{-1,-1}          % 10
      (763,180)--cycle);               % 11

n := 6;
t1 := 0;
t2 := 2;
t3 := 3;
t4 := 4;
t5 := 5;
t6 := 7;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((2,2), (3,1))                    % tied points
     ((1,5))                         % verticals
     ((4,6))                         % horizontals
     ((1702,171){-175,-9}...               % 0
      (1172,160){-423,12}...{-1,1}          % 1
      (1128,188){-365,-8}...{-365,-8}     % 2
      (763,180){-1,-1}...               % 3
      (702,160){-134,1}...{-465,9}          % 4
      (172,161)--                    % 5
      (172,-4){708,23}...               % 6
      (933,24){1,0}...{229,-13}          % 7
      (1698,-2)--cycle);               % 8

endchar(0);

"rmn2";

charbegin( "2", 1858h#, nfigbody*v#, baseline );
n := 10;
t1 := 2;
t2 := 3.14;
t3 := 7;
t4 := 9;
t5 := 11;
t6 := 12;
t7 := 13;
t8 := 15;
t9 := 18;
t10 := 19;

adj_fill.A(2, 5, 9)                    % fixed x points
     (6)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (1,10))                    % horizontals
     ((1794,248){-35,23}...{-35,23}          % 0
      (1759,271){-377,-13}...          % 1
      (712,241){-1047,-30}...          % 2
      (651,263){-.4666,1.22}...          % 3
      (665,289){276,278}...               % 4
      (1234,943){760,1089}...          % *5
      (1377,1189){191.1,434.6}...          % *6
      (1425,1378){0,1}...               % 7
      (1319,1635){-1,1}...               % 8
      (1045,1754){-1,0}...               % 9
      (738,1669){-661,-331}...{-307,-268}     % *10
      (384,1423)--                    % 11
      (422,1359){456,262}...               % 12
      (837,1536){1,0}...               % 13
      (1042,1453){1,-1}...               % 14
      (1144,1233){0,-1}...               % 15
      (999,875){-557,-824}...          % *16
      (587,409){-367,-346}...{-312,-286}     % 17
      (220,63){4,-59}...{4,-59}          % 18
      (224,4){1,0}...{1,0}               % 19
      (1702,4)--cycle);               % 20

endchar(0);

"rmn3";

charbegin( "3", 1858h#, nfigbody*v#, descender*v#);
n := 15;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 6;
t5 := 8;
t6 := 10;
t7 := 12;
t8 := 13;
t9 := 15;
t10 := 17;
t11 := 20;
t12 := 21;
t13 := 24;
t14 := 26;
t15 := 27;

adj_fill.A(1, 7)                    % fixed x points
     (8, 15)                         % fixed y points
     ()                         % tied points
     ((5,10), (4,11), (3,13))          % verticals
     ((6,9), (11,12), (2,14))          % horizontals
     ((142,-522){361,-211}...          % 0
      (669,-675){1,0}...               % 1
      (1359,-397){1,1}...               % 2
      (1591,154){0,1}...               % 3
      (1416,586){-1,1}...{-265,3}          % 4
      (958,745){-10,33}...{-10,33}          % 5
      (948,778){215,86}...               % 6
      (1273,999){1,1}...               % 7
      (1424,1361){0,1}...               % 8
      (1307,1644){-1,1}...               % 9
      (979,1755){-1,0}...               % 10
      (697,1682){-582,-283}...{-348,-318}     % *11
      (397,1472)--                    % 12
      (473,1423){329,249}...               % 13
      (641,1527){302,140}...               % *14
      (775,1563){1,0}...               % 15
      (1030,1468){1,-1}...               % 16
      (1133,1205){0,-1}...               % 17
      (1007,941){-1,-1}...               % 18
      (790,814){-535,-186}...{-390,-24}     % *19
      (472,755){0,-125}...{0,-125}          % 20
      (472,630){316,13}...               % 21
      (872,606){638,-130}...               % *22
      (1110,500){1,-1}...               % 23
      (1249,107){0,-1}...               % 24
      (1045,-406){-1,-1}...               % 25
      (627,-553){-1,0}...{-436,217}          % 26
      (198,-423)--cycle);               % 27

endchar(0);

"rmn4";

%This 4 lightened up inside by Dave on Apr 30, 1985
vshift := 10;
hshift := 20;

charbegin( "4", 1858h#, nfigbody*v#, descender*v#);
n := 12;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 5;
t5 := 7;
t6 := 8;
t7 := 9;
t8 := 11;
t9 := 12;
t10 := 13;
t11 := 14;
t12 := 15;

adj_fill.A(1, 5)                    % fixed x points
     (2, 11)                         % fixed y points
     ((5,1), (6,2), (10,2), (11,1), (12,3))     % tied points
     ((4,7), (2,9))                    % verticals
     ((5,6), (3,8))                    % horizontals
     ((1783,168){-312,-31}...{-391,-10}     % 0
      (1421,148){-12,332}...{21,798}          % 1
      (1423,1751){-18,12}...{-18,12}          % 2
      (1405,1763){-300,-96}...{-300,-96}     % 3
      (1105,1667){-1067,-1584}...{-1067,-1584}% 4
      (38,83){3,-86}...{3,-86}          % 5
      (41,-3){1073,0}...{1073,0}          % 6
      (1114+hshift,-3)--               % 7
      (1114+hshift,152){-799,0}...{-799,0}     % 8
      (307,152){-16,0}...{-16,0}          % 9
      (291,152){340,653}...{209,261}          % 10
      (1041+hshift,1340+vshift){44,-7}...{44,-7}          % 11
      (1085+hshift,1340+vshift){82,-810}...     % 12
      (1114+hshift,152){0,-1}...{0,-1}     % 13
      (1114+hshift,0){1,0}...          % 14
      (1432,0){2,0}...{320,0}          % 15
      (1752,-3)--cycle);               % 16

n := 2;
t1 := 2;
t2 := 3;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,3))                    % tied points
     ((1,2))                         % verticals
     ()                         % horizontals
      (((1131+hshift),-710){-43,34}...{-43,34}          % 0
      ((1088+hshift),-676){49,516}...{0,1}          % 1
      ((1114+hshift),-3)--                    % 2
      (1432,-3){0,-1}...{29,-457}          % 3
      (1440,-598)--cycle);               % 4

endchar(0);

"rmn5";

charbegin( "5", 1858h#, nfigbody*v#, descender*v#);
n := 13;
t1 := 1;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 12;
t9 := 14;
t10 := 16;
t11 := 18;
t12 := 19;
t13 := 20;

adj_fill.A(6, 13)                    % fixed x points
     (7)                         % fixed y points
     ()                         % tied points
     ((4,9), (2,11))                    % verticals
     ((5,8), (3,10), (1,12))               % horizontals
     ((1469,1399){-959,0}...               % 0
      (510,1399){-1,0}...               % 1
      (448,1355){0,-1}...{0,-652}          % 2
      (448,703){32,-17}...{32,-17}          % 3
      (480,686){176,81}...               % 4
      (957,795){1,0}...               % 5
      (1446,623){1,-1}...               % 6
      (1630,156){0,-1}...               % 7
      (1406,-404){-1,-1}...               % 8
      (579,-682){-1,0}...{-497,212}          % 9
      (175,-588)--                    % 10
      (217,-495){579,-227}...          % 11
      (579,-569){1,0}...               % 12
      (1032,-411){1,1}...               % 13
      (1239,84){0,1}...               % 14
      (1095,501){-1,1}...               % 15
      (764,626){-1,0}...{-294,-317}          % 16
      (365,423){-67,41}...{-67,41}          % 17
      (298,464){0,1}...{0,1}               % 18
      (298,1694){1,0}...{1258,0}          % 19
      (1556,1694)--cycle);               % 20

endchar(0);