eurmch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

%% @metafontfile{
%%     filename="eurmch.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="6735",
%%     keywords="amsfonts, tex, metafont , euler ",
%%     abstract="This is the driver file for use with 
%%            the Euler roman medium fonts in AMSFonts 2.1."
%%     }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Euler Roman Medium

% ----- This font is set up as Math Italic, \textfont1, page 430 of TeXbook

mode_setup;
font_coding_scheme "TeX math italic subset";

%     EULER ROMAN MEDIUM PARAMETERS

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

     programem =      3700;     
     baseline  =     0;
     ascender  =     capheight;
     descender =     700;
     depthy    =     700;     % depthy   =     500;
     capheight =     2560;
      lcbody    =     1700;     %1700 for medium, 1800 for bold.
     dotheight =     2600;
     theight       =     2330;
     lfigheight =     capheight;
     nfigbody  =     lcbody;
     nfigascender =     ascender;
     nfigdescender =     descender;


input eubase;

% individual character widths for medium lower case

%        20h# means 20 bitpad units.
% original values were for text spacing; I've made changes for math -- DEK

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

% information for positioning of math accents --- DEK (updated May 1988!)
skewchar=oct"177"; skew#=1/36programem*h#;
ligtable "G": "O": "S": "a": "c": "e": "g": "o": "s": "z":
 1: 2: 3: 5: 7: 9: 26: % Delta Theta Lambda Pi Upsilon Psi rho
 18: 32: 33: 39: skewchar kern skew#; % theta psi omega varphi
ligtable "C": "X": "Z": 16: 25: 28: 125: % zeta pi tau wp
 skewchar kern 2skew#;
ligtable "f": skewchar kern 4skew#;
ligtable 21: skewchar kern-2skew#; % lambda
charcode:=skewchar; shipout nullpicture;

% spacing corrections before and after punctuation --- DEK
slashchar=oct"75"; periodchar=oct"72"; commachar=oct"73";
ligtable "V": "W": "Y": skewchar kern 2skew#, "T": 0: "F": % Gamma
 slashchar kern-2skew#,"P": commachar kern-3skew#, periodchar kern-3skew#;
ligtable slashchar: "A" kern-2skew#, "a" kern -2skew#, "g" kern-2skew#,
 1 kern-2skew#, 3 kern-2skew#, oct"13" kern-2skew#; % Delta, Lambda, alpha

% LOWER CASE
set_stem_round(250,268,290,303,325,341); % DEK
more_side(100h#);

"rmla";

charbegin( "a", 2055h# + lefta# + righta#, lcbody*v#, baseline );

n := 10;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 3;
t5 := 4;
t6 := 6;
t7 := 7;
t8 := 9;
t9 := 11;
t10 := 13;

adj_fill.A(7)                         % fixed x points
     (1, 10)                         % fixed y points
     ((1,5), (2,1), (3,2), (4,3), (5,4), (10,5))% tied points
     ((4,9))                         % verticals
     ((6,8))                         % horizontals
     ((1700,1708){-189,-110}...{-189,-110}     % 0
      (1511,1598){-90,-382}...{-90,-382}     % 1
      (1421,1216){0,-830}...{0,-830}          % 2
      (1421,386){4,-165}...{4,-165}          % 3
      (1425,221){42,-396}...               % 4
      (1492,10){135,-154}...               % 5
      (1640,-45){1,0}...{513,317}          % 6
      (2107,172)--                    % 7
      (2081,258){-311,-107}...          % 8
      (1839,193){-1,0}...               % 9
      (1742,242){-97,156}...               % 10
      (1701,433){-19,738}...{24,409}          % 11
      (1718,1692){-18,16}...{-18,16}          % 12
      (1700,1708)--cycle);               % 13

n := 11;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 9;
t8 := 11;
t9 := 14;
t10 := 16;
t11 := 18;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (5,1), (6,3), (7,2), (11,3))     % tied points
     ((3,9))                         % verticals
     ((4,8), (2,10))                    % horizontals
     ((1425,221){-313,-207}...          % 0
      (1061,23){-654,-266}...          % *1
      (771,-45){-1,0}...               % 2
      (399,111){-200,239}...               % 3
      (224,713){1,294}...               % 4
      (515,1508){280,273}...               % 5
      (1106,1725){1,0}...{344,-245}          % 6
      (1511,1598)--                    % 7
      (1421,386){0,830}...               % 8
      (1421,1216){10,830}...               % 9
      (1365,1496){-127,135}...          % 10
      (1109,1596){-1,0}...               % 11
      (758,1440){-159,-149}...          % 12
      (614,1185){-198,-646}...          % *13
      (560,794){-2,-207}...               % 14
      (663,351){98,-152}...               % 15
      (1024,199){1,0}...               % 16
      (1201,247){397,187}...{306,235}     % *17
      (1421,386)--cycle);               % 18
endchar(lefta#);

"rmlb";

charbegin( "b", 2029h# + leftb# + rightb#, ascender*v#, baseline );

n := 10;
t1 := 0;
t2 := 4;
t3 := 8;
t4 := 11;
t5 := 13;
t6 := 15;
t7 := 16;
t8 := 19;
t9 := 22;
t10 := 27;

adj_fill.A()                         % fixed x points
     (6)                         % fixed y points
     ()                         % tied points
     ((4,8), (2,6))                    % verticals
     ((5,7), (3,9), (1,10))               % horizontals
     ((0,2367){223,-29}...               % 0
      (223,2338){246,-31}...               % 1
      (336,2211){68,-346}...               % 2
      (353,1948){11,-511}...               % 3
      (359,1152){-3,-585}...               % 4
      (351,561){-1.529,-808.3}...          % *5
      (357,344){89,-1069}...               % *6
      (448,83){11,-10}...               % 7
      (782,-38){1,0}...               % 8
      (1592,344){339,353}...               % 9
      (1765,654){244,755}...               % *10
      (1836,1099){14,464}...               % 11
      (1675,1591){-274,261}...          % 12
      (1314,1730){-1,0}...{-476,-371}     % 13
%      (632,1446)--                    % 14
      (632-47.6/3,1446-37.1/3)--          % 14 % DEK
      (632,1264){317,279}...               % 15
      (1138,1504){333,4}...               % 16
      (1434,1354){177,-205}...          % 17
      (1508,1162){93,-515}...          % *18
      (1527,839){-13,-454}...          % 19
      (1468,488){-205,-576}...          % *20
      (1322,263){-279,-226}...          % 21
      (984,140){-1,0}...               % 22
      (703,324){-7,10}...{24,447}          % 23
      (638,1274){-14,179}...{-14,179}     % 24
      (624,1453){-22,731}...{54,533}          % 25
      (675,2533){-675,-72}...{-675,-72}     % 26
      (0,2461)--cycle);               % 27


endchar(leftb#);

"rmlc";

charbegin( "c", 1653h# + leftc# + rightc#, lcbody*v#, baseline );

%rotation of 6 degrees, watch out for lateral drift!
rot := identity rotated 6 shifted (0,-100v);




n := 10;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 9;
t7 := 10;
t8 := 13;
t9 := 15;
t10 := 17;

adj_fill.A(6, 10)                    % fixed x points
     (1, 5)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1424,1155){-59,29}...{-59,29}          % 0
      (1365,1184){-67,464}...          % 1
      (1274,1501){-210,282}...          % 2
      (1077,1599){-424,2}...               % 3
      (765,1484){-185,-179}...          % 4
      (535,791){0,-1}...               % 5
      (685,310){214,-235}...               % 6
      (1045,171){267,0}...{531,382}          % 7
      (1592,380)--                    % 8
      (1638,285){-453,-364}...          % 9
      (848,-54){-556,0}...               % 10
      (409,113){-361,390}...               % 11
      (265,379){-180,640}...               % *12
      (220,753){0,1}...               % 13
      (535,1531){317,284}...               % 14
      (1172,1741){555,2}...               % 15
      (1528,1620){351,-345}...{0,-334}     % 16
      (1645,1329)--cycle);               % 17

endchar(leftc#);

"rmld";

charbegin( "d", 2036h# + leftd# + rightd#, ascender*v#, baseline );
n := 10;
t1 := 2;
t2 := 5;
t3 := 7;
t4 := 9;
t5 := 11;
t6 := 12;
t7 := 14;
t8 := 15;
t9 := 18;
t10 := 19;

adj_fill.A(3, 10)                    % fixed x points
     ()                         % fixed y points
     ((5,1), (6,2), (7,3), (8,4))          % tied points
%     ((1,5))                         % verticals
     ((1,6))                         % verticals % DEK
     ((9,10), (2,4))                    % horizontals
     ((1721,2535){-9,-393}...{0,-1}          % 0
      (1710,1200){-9,-393}...{-9,-393}     % 1
      (1710,890){0,-1}...               % 2
      (1713,407){43,-662}...               % *3
      (1753,228){152,-271}...          % 4
      (1853,167){323,-4}...{339,135}          % 5
      (2080,249)--                    % 6
      (2110,163){-402,-273}...          % 7
      (1820,-11){-477,-233}...          % *8
      (1633,-70){-359,-1}...               % 9
      (1485,-5){-202,299}...{-17,213}     % 10
      (1413,198){-6,158}...{-6,158}          % 11
      (1427,375){0,1}...               % 12
      (1427,1146){0,1}...{-1,1}          % 13
      (1318,1512){109,130}...{109,130}     % 14
      (1427,1642){0,1}...               % 15
      (1402,2226){-77,307}...          % 16
      (1300,2334){-419,110}...{-535,8}     % 17
      (1065,2361){-2,91}...{-2,91}          % 18
      (1063,2452)--cycle);               % 19

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,4), (6,3), (10,2))          % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1413,198){-343,-225}...          % 0
      (1051,1){-643,-264}...               % *1
      (770,-66){-534,2}...               % 2
      (416,70){-290,303}...               % 3
      (219,667){-1,391}...               % 4
      (499,1474){269,282}...               % 5
      (1095,1709){1,0}...{412,-157}          % 6
      (1427,1642)--                    % 7
      (1318,1512){-1,1}...               % 8
      (1081,1582){-1,0}...               % 9
      (762,1432){-276,-284}...          % 10
      (540,752){-3,-382}...               % 11
      (695,285){237,-242}...               % 12
      (978,178){393,20}...{17,20}          % 13
      (1427,375)--cycle);               % 14
endchar(leftd#);

"rmle";

charbegin( "e", 1700h# + lefte# + righte#, lcbody*v#, baseline );

%rotation of 6 degrees, watch out for lateral drift!
rot := identity rotated 6 shifted (30h,-70v);

n := 13;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 10;
t7 := 12;
t8 := 13;
t9 := 15;
t10 := 18;
t11 := 20;
t12 := 22;
t13 := 25;

adj_fill.A(2, 8, 12)                    % fixed x points
     (7, 13)                         % fixed y points
     ((1,1), (4,1), (5,2), (13,2))          % tied points
     ((5,10))                    % verticals
     ((6,9), (3,11))                    % horizontals
     ((560,880){817,230}...               % 0
      (1377,1110){788,229}...          % 1