eurbch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

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

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

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

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

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


input eubase;

% individual character widths for bold lower case

lefta# = -20h#;     righta# = 0h#;
leftb# = 0h#;     rightb# = 0h#;
leftc# = 0h#;     rightc# = 0h#;
leftd# = 0h#;     rightd# = 0h#;
lefte# = -20h#;     righte# = 30h#;
leftf# = 0h#;     rightf# = 0h#;
leftg# = 0h#;     rightg# = -60h#;
lefth# = 0h#;     righth# = 0h#;
lefti# = 0h#;     righti# = 0h#;
leftj# = 0h#;     rightj# = 0h#;
leftk# = 0h#;     rightk# = 0h#;
leftl# = 0h#;     rightl# = 0h#;
leftm# = 30h#;     rightm# = 0h#;
leftn# = 0h#;     rightn# = 0h#;
lefto# = 0h#;     righto# = 0h#;
%leftp# = 0h#;     rightp# = 0h#;
leftp# = 0h#;     rightp# = -50h#; % DEK
leftq# = 0h#;     rightq# = 0h#;
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#;

% information for positioning of math accents --- DEK (updated May 1988!)
skewchar=oct"177"; skew#=1/36programem*h#;
ligtable "G": "H": "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(350,367,390,390,405,420); % DEK
more_side(100h#);

"rbla";

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

n := 8;
t1 := 0.6;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 12;

adj_fill.A(3)                         % fixed x points
     ()                         % fixed y points
     ((5,1), (6,2), (7,4), (8,3))          % tied points
     ((1,7))                         % verticals
     ((2,4))                         % horizontals
     ((1819,1790){-42,-468}...          % 0
      (1775,493){21,-488}...               % 1
      (1809,307){135,-206}...          % 2
      (1877,269){257,-1}...{344,330}          % 3
      (2112,424)--                    % 4
      (2178,346){-216,-283}...          % 5
      (1773,-13){-363,-160}...          % 6
      (1608,-45){-430,10}...               % 7
      (1480,-2){-198,207}...{-53,425}     % 8
      (1390,243){-14,232}...{-14,232}     % 9
      (1376,475){196,1208}...{0,1}          % 10
      (1402,1223)--                          % 11
      (1572,1683){203,140}...{203,140}     % 12
      (1775,1823)--cycle);               % 13


n := 11;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 12;
t8 := 15;
t9 := 18;
t10 := 20;
t11 := 21;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (5,1), (6,2), (11,2), (10,4))     % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1572,1683){-325,192}...          % 0
      (1062,1844){-455,-5}...          % 1
      (574,1696){-10,-8}...               % 2
      (326,1305){-323,-988}...          % *3
      (251,708){18,-616}...               % 4
      (320,296){237,-682}...               % *5
      (488,26){211,-183}...               % 6
      (727,-55){1,0}...               % 7
      (1095,46){407,210}...{489,371}          % 8
      (1390,243)--                    % 9
      (1376,475){-134,-251}...          % 10
      (1218,303){-251,-167}...          % 11
      (983,232){-360,6}...               % 12
      (763,335){-163,202}...               % 13
      (667,544){-133,516}...               % *14
      (630,851){-8,421}...               % 15
      (687,1315){237,763}...               % *16
      (867,1614){248,208}...               % 17
      (1094,1702){315,2}...               % 18
      (1290,1629){198,-210}...          % 19
      (1402,1223){0,-1}...                    % 20
      (1376,475)--cycle);               % 21
endchar(lefta#);

"rblb";

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

n := 13;
t1 := 0;
t2 := 1;
t3 := 5.5;
t4 := 8;
t5 := 10;
t6 := 12;
t7 := 14;
t8 := 15;
t9 := 17;
t10 := 19;
t11 := 21;
t12 := 24;
t13 := 25;

adj_fill.A(2, 7)                    % fixed x points
     (8)                         % fixed y points
     ((7,1), (8,2), (12,2), (13,1))          % tied points
     ((3,12), (5,10))               % verticals
     ((1,2), (4,11), (6,9))               % horizontals
     ((1,2503){-4,-111}...{-4,-111}          % 0
      (-3,2392){275,-8}...               % 1
      (201,2361){226,-76}...               % 2
      (322,2234){45,-293}...               % 3
      (342,1877){-5,-427}...               % 4
      (321,1074){-24,-429}...          % 5
      (337,458){139,-965}...               % *6
      (460,109){219,-247}...               % 7
      (841,-53){1,0}...               % 8
      (1557,266){425,402}...               % 9
      (1881,1097){0,1}...               % 10
      (1697,1673){-338,350}...          % 11
      (1351,1824){-1,0}...{-243,-217}     % 12
      (723,1537){-36,8}...{-36,8}          % 13
      (687,1545)--                    % 14
      (697,1360){312,271}...               % 15
      (902,1502){383,191}...               % *16
      (1080,1551){1,0}...               % 17
      (1363,1418){177,-271}...          % 18
      (1480,879){0,-1}...               % 19
      (1338,315){-204,-299}...          % 20
      (1005,141){-1,0}...               % 21
      (759,304){-7,10}...               % 22
      (673,660){-62,1056}...{34,392}          % *23
      (697,1360){-10,185}...{-10,185}     % 24
      (687,1545){22,1020}...{22,1020}     % 25
      (709,2565){0,50}...{0,50}          % 26
      (709,2615)--cycle);               % 27

endchar(leftb#);

"rblc";

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




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

adj_fill.A(7)                         % fixed x points
     (1, 6)                         % fixed y points
     ()                         % tied points
     ((2,11), (4,9))                    % verticals
     ((3,10), (5,8))                    % horizontals
     ((1302,1183){-32,21}...{-32,21}          % 0
      (1270,1204){-4,346}...               % 1
      (1161,1594){-327,492}...          % 2
      (1028,1674){-1,0}...               % 3
      (835,1600){-402,-392}...          % 4
      (600,919){0,-1}...               % 5
      (788,338){409,-416}...               % 6
      (1057,217){1,0}...               % 7
      (1319,283){555,255}...{353,290}     % *8
      (1612,472)--                    % 9
      (1685,409){-399,-439}...          % 10
      (819,-36){-1,0}...               % 11
      (393,131){-391,425}...               % 12
      (203,713){0,1}...               % 13
      (522,1626){1,1}...               % 14
      (1111,1834){1,0}...               % 15
      (1520,1700){283,-301}...{25,-311}     % 16
      (1636,1404)--cycle);               % 17

endchar(leftc#);

"rbld";

charbegin( "d", 2063h# + leftd# + rightd#, ascender*v#, baseline );

n := 11;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 10;
t8 := 12;
t9 := 14;
t10 := 16;
t11 := 19;

adj_fill.A(1, 9)                    % fixed x points
     ()                         % fixed y points
     ((3,1), (4,2), (6,3), (7,4))          % tied points
     ((5,11))                    % verticals
     ((1,2), (8,10))                    % horizontals
     ((1053,2501){2,-116}...{2,-116}          % 0
      (1055,2385){384,-42}...          % 1
      (1276,2349){321,-126}...          % 2
      (1360,2265){108,-249}...          % 3
      (1380,2148){20,-459}...{0,-1}          % *4
      (1380,1806){-70,-171}...{-70,-171}     % 5
      (1310,1635){1,-1}...               % 6
      (1360,1526){68,-294}...          % *7
      (1378,1341){0,-892}...{0,-892}          % 8
      (1378,449){-4,-209}...{-4,-209}     % 9
      (1374,240){17,-233}...               % 10
      (1459,12){1,-1}...               % 11
      (1591,-39){1,0}...               % 12
      (1859,58){572,371}...{239,274}          % *13
      (2163,332)--                    % 14
      (2106,415){-235,-204}...          % 15
      (1867,279){-1,0}...               % 16
      (1802,319){-174,300}...          % 17
      (1756,529){-43,857}...               % *18
      (1759,1176){0,1}...{42,948}          % 19
      (1805,2589)--cycle);               % 20

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (5,1), (6,2), (10,3))          % tied points
     ((3,8))                         % verticals
     ((2,9), (4,7))                    % horizontals
     ((1374,240){-20,-15}...               % 0
      (1028,33){-646,-278}...          % *1
      (728,-38){-1,0}...               % 2
      (403,83){-1,1}...               % 3
      (183,715){0,1}...               % 4
      (256,1225){282,872}...               % *5
      (465,1587){1,1}...               % 6
      (1048,1831){1,0}...{635,-83}          % 7
      (1380,1806)--                    % 8
      (1310,1635){-1,1}...               % 9
      (1113,1688){-1,0}...               % 10
      (806,1547){-1,-1}...               % 11
      (654,1277){-198,-672}...          % *12
      (595,875){0,-1}...               % 13
      (642,536){150,-555}...               % *14
      (758,320){1,-1}...               % 15
      (975,234){1,0}...{153,194}          % 16
      (1378,449)--cycle);               % 17

endchar(leftd#);

"rble";

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




n := 13;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 10;
t7 := 12;
t8 := 13;
t9 := 15;
t10 := 17;
t11 := 19;
t12 := 21;
t13 := 24;

adj_fill.A(8, 13)                    % fixed x points
     (7, 13)                         % fixed y points
     ((1,1), (4,1), (5,2), (13,2))          % tied points
     ((2,12), (5,10))               % verticals
     ((3,11), (6,9))                    % horizontals
     ((617,941){671,230}...               % 0
      (1288,1171){645,230}...          % 1
      (1365,1222){1,1}...               % 2
      (1384,1271){0,1}...               % 3
      (1274,1598){-1,1}...               % 4
      (1076,1684){-1,0}...               % 5
      (822,1584){-1,-1}...{0,-294}          % 6
      (617,941){-2,-154}...{-2,-154}          % 7
      (615,787){0,-1}...               % 8
      (786,327){1,-1}...               % 9
      (1115,194){1,0}...               % 10
      (1358,242){547,190}...{316,179}     % *11