eusmch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

t3 := 3;
t4 := 5;
t5 := 7;
t6 := 9;
t7 := 12;
t8 := 15;
t9 := 18;
t10 := 19;
t11 := 21;
t12 := 24;
t13 := 27;
t14 := 29;
t15 := 31;
t16 := 33;
t17 := 34;

adj_fill.A(10)                         % fixed x points
     (2, 9, 17)                    % fixed y points
     ((1,1), (17,1))                    % tied points
     ((7,12), (5,14), (3,16))          % verticals
     ((8,11), (6,13), (4,15))          % horizontals
     ((914,1881){1,1}...               % 0
      (1031,1922){1,0}...               % 1
      (1146,1879){1,-1}...               % 2
      (1161,1729){-56,-261}...          % 3
      (1192,1557){1,-1}...               % 4
      (1332,1520){1,0}...               % 5
      (1600,1640){1,1}...               % 6
      (1719,2007){0,1}...               % 7
      (1607,2349){-1,1}...               % 8
      (1254,2477){-1,0}...               % 9
      (724,2282){-1,-1}...               % 10
      (509,1875){-291,-1028}...          % *11
      (433,1254){0,-1}...               % 12
      (517,677){324,-990}...               % *13
      (757,264){1,-1}...               % 14
      (1189,71){1,0}...               % 15
      (1569,229){1,1}...{166,754}          % 16
      (1710,537){39,25}...{39,25}          % 17
      (1749,562)--                    % 18
      (1919,389){-219,-467}...          % 19
      (1791,190){-1,-1}...               % 20
      (1099,-56){-1,0}...               % 21
      (474,200){-1,1}...               % 22
      (240,602){-316,961}...               % *23
      (158,1161){0,1}...               % 24
      (254,1833){370,1148}...          % *25
      (528,2309){1,1}...               % 26
      (1320,2592){1,0}...               % 27
      (1851,2424){1,-1}...               % 28
      (1974,2050){0,-1}...               % 29
      (1795,1582){-1,-1}...               % 30
      (1344,1409){-1,0}...               % 31
      (955,1533){-1,1}...               % 32
      (873,1745){0,1}...{1,1}          % 33
      (914,1881)--cycle);               % 34

endchar(0);

"smud";

charbegin( "D", 2875h#, capheight*v#, baseline );
n := 14;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 9;
t5 := 11;
t6 := 13;
t7 := 14;
t8 := 16;
t9 := 19;
t10 := 20;
t11 := 23;
t12 := 27;
t13 := 28;
t14 := 29;

adj_fill.A(1)                         % fixed x points
     (6, 7)                         % fixed y points
     ((6,1), (7,1), (9,2), (10,3), (13,4), (14,5))% tied points
     ((5,8), (3,11))                    % verticals
     ((4,9), (2,12))                    % horizontals
     ((211,16){1078,0}...               % 0
      (1289,16){1,0}...               % 1
      (2311,434){1,1}...               % 2
      (2728,1451){0,1}...               % 3
      (2477,2214){-1,1}...               % 4
      (2002,2471){-1188,347}...{-1,0}     % *5
      (1289,2561){0,75}...{0,75}          % 6
      (1289,2636){-15,23}...{-15,23}          % 7
      (1274,2659){-211,-114}...{-211,-114}     % 8
      (1063,2545){-1,0}...               % 9
      (253,2224){-1,-1}...               % 10
      (78,1814){0,-1}...               % 11
      (132,1607){1,-1}...{1,0}          % 12
      (224,1566)--                    % 13
      (224,1566){1,0}...               % 14
      (331,1624){1,1}...               % 15
      (368,1749){0,1}...               % 16
      (341,1994){0,1}...               % 17
      (425,2202){1,1}...{1,0}          % 18
      (1039,2431){250,-2}...{250,-2}          % 19
      (1289,2429){1,0}...               % 20
      (1829,2362){896,-257}...          % *21
      (2185,2172){1,-1}...               % 22
      (2458,1431){0,-1}...               % 23
      (2379,865){-304,-962}...          % *24
      (2154,469){-1,-1}...               % 25
      (1800,269){-865,-270}...          % *26
      (1289,199){-1,0}...               % 27
      (789,199){-2,0}...{-475,0}          % 28
      (314,199)--cycle);               % 29

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,5), (3,2), (4,3), (6,4))          % tied points
     ((2,5))                         % verticals
     ()                         % horizontals
     ((314,199){1,0}...               % 0
      (879,444){1,1}...               % 1
      (997,739){160,841}...               % *2
      (1039,1285){0,1}...{0,1146}          % 3
      (1039,2431)--                    % 4
      (1289,2429){0,-867}...               % 5
      (1289,1562){0,-1}...               % 6
      (1202,855){-336,-1188}...          % *7
      (953,374){-164,-175}...{-164,-175}     % 8
      (789,199)--cycle);               % 9

endchar(0);

"smue";

charbegin( "E", 2052h#, capheight*v#, baseline );
n := 18;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 10;
t6 := 12;
%t7 := 14;
t7 := 14.5; % DEK
t8 := 16;
t9 := 17;
t10 := 18;
t11 := 21;
t12 := 23;
t13 := 25;
t14 := 28;
t15 := 29;
t16 := 32;
t17 := 34;
t18 := 37;

adj_fill.A(1, 4, 14, 15)               % fixed x points
     (8, 10, 18)                    % fixed y points
     ((9,1), (10,1))                    % tied points
     ((7,11), (5,13), (3,16))          % verticals
     ((6,12), (14,15), (2,17))          % horizontals
     ((1865,392){-187,-376}...          % 0
      (1783,252){-1,-1}...               % 1
      (1048,-45){-1,0}...               % 2
      (621,16){-730,235}...               % *3
      (318,190){-1,1}...               % 4
      (157,639){0,1}...               % 5
      (386,1175){1,1}...{524,76}          % 6
      (876,1402){3,38}...{3,38}          % 7
      (879,1440){-273,91}...               % 8
      (592,1607){-1,1}...               % 9
      (455,1997){0,1}...               % 10
      (627,2406){1,1}...               % 11
      (1249,2616){1,0}...               % 12
      (1628,2473){1,-1}...               % 13
      (1718,2239){0,-1}...               % 14
      (1640,2026){-1,-1}...               % 15
      (1495,1942){-1,0}...{-1,1}          % 16
      (1384,1981)--                    % 17
      (1384,1981){-1,1}...               % 18
      (1360,2060){0,1}...               % 19
      (1408,2171){486,715}...          % 20
      (1453,2296){0,1}...               % 21
      (1391,2423){-1,1}...               % 22
      (1145,2499){-1,0}...               % 23
      (867,2387){-1,-1}...               % 24
      (700,1954){0,-1}...               % 25
      (837,1604){1,-1}...               % 26
      (1074,1483){609,-164}...{1,0}          % *27
      (1446,1440){0,-93}...{0,-93}          % 28
      (1446,1347){-1,0}...               % 29
      (945,1295){-806,-199}...          % *30
      (640,1148){-1,-1}...               % 31
      (453,695){0,-1}...               % 32
      (618,244){1,-1}...               % 33
      (1107,90){1,0}...               % 34
      (1527,288){1,1}...{106,609}          % 35
      (1659,557){43,13}...{43,13}          % 36
      (1702,570)--cycle);               % 37

endchar(0);

"smuf";

%charbegin( "F", 2204h#, capheight*v#, baseline );
charbegin( "F", (2204+100)*h#, capheight*v#, baseline ); % DEK
n := 14;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 6;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 13;
t10 := 15;
t11 := 17;
t12 := 19;
t13 := 22;
t14 := 23;

adj_fill.A(1, 12)                    % fixed x points
     (7, 9, 12, 13)                    % fixed y points
     ((3,1), (4,2), (7,3), (8,3))          % tied points
     ((6,10))                    % verticals
     ((5,11), (2,14))               % horizontals
     ((2514,2528){-148,-275}...          % 0
      (2366,2253){-148,-275}...          % 1
      (2203,2127){-1,0}...               % 2
      (2043,2159){-528,155}...{-720,241}     % 3
      (1556,2304){-258,64}...{-258,64}     % 4
      (1298,2368){-584,140}...          % 5
      (1033,2409){-1,0}...               % 6
      (523,2225){-1,-1}...               % 7
      (403,1963){0,-1}...               % 8
      (416,1811){181,-733}...          % 9
      (447,1686){0,-1}...{-1,-1}          % 10
      (407,1570)--                    % 11
      (407,1570){-1,-1}...               % 12
      (303,1516){-1,0}...               % 13
      (181,1570){-1,1}...               % 14
      (128,1738){0,1}...               % 15
      (330,2242){1,1}...               % 16
      (1130,2525){1,0}...{599,-114}          % 17
      (1298,2507){258,93}...{258,93}          % 18
      (1556,2600){0,-126}...{0,-126}          % 19
      (1556,2474){559,-128}...          % 20
      (2112,2361){303,-48}...          % 21
      (2231,2346){1,0}...               % 22
      (2369,2429){84,130}...{84,130}          % 23
      (2453,2559)--cycle);               % 24

n := 10;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 10;
t5 := 11;
t6 := 13;
t7 := 14;
t8 := 16;
t9 := 22;
t10 := 25;

adj_fill.B(8)                         % fixed x points
     (2, 10)                         % fixed y points
     ((1,4), (6,2), (7,1), (10,4))          % tied points
     ((6,7))                         % verticals
     ((4,5), (3,9))                    % horizontals
     ((91,421){1,1}...               % 0
      (213,468){1,0}...               % 1
      (287,447){1,-1}...               % 2
      (355,332){170,-416}...               % 3
      (434,202){1,-1}...               % 4
      (704,92){1,0}...               % 5
      (1091,300){1,1}...               % 6
      (1244,571){207,660}...               % *7
      (1298,960){0,1}...{0,309}          % 8
      (1298,1269){-608,0}...{-608,0}          % 9
      (690,1269){69,113}...{69,113}          % 10
      (759,1382){539,0}...{539,0}          % 11
      (1298,1382){0,986}...{0,986}          % 12
      (1298,2368)--                    % 13
      (1556,2304){0,-922}...{0,-922}          % 14
      (1556,1382){535,0}...{535,0}          % 15
      (2091,1382){-103,-113}...{-103,-113}     % 16
      (1988,1269){-432,0}...{-432,0}          % 17
      (1556,1269){0,-168}...               % 18
      (1556,1101){0,-1}...               % 19
      (1487,625){-267,-817}...          % *20
      (1289,284){-1,-1}...               % 21
      (504,-56){-1,0}...               % 22
      (129,104){-1,1}...               % 23
      (39,305){0,1}...{1,1}               % 24
      (91,421)--cycle);               % 25
mathcorr(100h#); % DEK
endchar(0);

"smug";

%charbegin( "G", 2038h#, capheight*v#, depthy*v#);
charbegin( "G", 2038h#, capheight*v#, 2/3descender*v#); % DEK
n := 13;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 5;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 15;
t10 := 17;
t11 := 19;
t12 := 21;
t13 := 22;

adj_fill.A(8)                         % fixed x points
     (1)                         % fixed y points
     ((1,2), (13,1))                    % tied points
     ((6,9), (4,11), (1,2))               % verticals
     ((7,8), (5,10), (3,12))               % horizontals
     ((1839,1445){-186,-46}...{-186,-46}     % 0
      (1653,1399){-80,-402}...          % 1
      (1526,1106){-1,-1}...               % 2
      (1072,937){-1,0}...               % 3
      (675,1113){-1,1}...               % 4
      (485,1688){0,1}...               % 5
      (722,2290){1,1}...               % 6
      (1160,2462){1,0}...               % 7
      (1492,2339){1,-1}...               % 8
      (1587,2119){0,-1}...               % 9
      (1532,1919){-1,-1}...{-1,0}          % 10
      (1282,1841)--                    % 11
      (1276,1779){596,-122}...          % 12
      (1446,1748){1,0}...               % 13
      (1739,1885){1,1}...               % 14
      (1839,2154){0,1}...               % 15
      (1728,2442){-1,1}...               % 16
      (1255,2585){-1,0}...               % 17
      (486,2329){-1,-1}...               % 18
      (214,1684){0,-1}...               % 19
      (417,1071){1,-1}...               % 20
      (1046,825){1,0}...{307,223}          % 21
      (1572,976)--cycle);               % 22

n := 10;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 7;
t5 := 8;
t6 := 9;
t7 := 12;
t8 := 14;
t9 := 16;
t10 := 17;

adj_fill.B()                         % fixed x points
     (1, 9)                         % fixed y points
     ((1,3), (4,2), (5,1), (10,3))          % tied points
     ((4,6), (2,8))                    % verticals
     ((3,7))                         % horizontals
     ((221,73){-1,-1}...               % 0
      (168,-53){0,-1}...               % 1
      (287,-331){1,-1}...               % 2
      (746,-489){1,0}...               % 3
      (1565,-148){1,1}...               % 4
      (1766,272){272,1115}...          % *5
      (1837,967){0,1}...{0,1}          % 6
      (1839,1445)--                    % 7
      (1572,976){0,-1}...               % 8
      (1582,635){10,-341}...               % 9
      (1528,172){-235,-789}...          % *10
      (1347,-154){-1,-1}...               % 11
      (896,-343){-1,0}...               % 12
      (586,-241){-1,1}...               % 13
      (504,-61){-122,625}...               % 14
      (452,77){-1,1}...               % 15
      (355,115){-1,0}...{-1,-1}          % 16
      (221,73)--cycle);               % 17

endchar(0);

"smuh";

%charbegin( "H", 3075h#, capheight*v#, baseline );
charbegin( "H", (3075+50)*h#, capheight*v#, baseline ); % DEK
n := 9;
t1 := 1;
t2 := 2;
t3 := 7;
t4 := 8;
t5 := 9;
t6 := 10;