eurbch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

      (1662,384)--                    % 12
      (1704,299){-313,-257}...          % 13
      (1297,34){-761,-357}...          % *14
      (943,-58){-1,0}...               % 15
      (419,131){-1,1}...               % 16
      (214,755){0,1}...               % 17
      (524,1599){1,1}...               % 18
      (1154,1830){1,0}...               % 19
      (1654,1673){1,-1}...               % 20
      (1796,1292){0,-1}...               % 21
      (1778,1206){-8,-10}...               % 22
      (1701,1155){-1060,-368}...{-1086,-368}     % 23
      (615,787)--cycle);               % 24

endchar(lefte#);

"rblf";

charbegin( "f", 1248h# + leftf# + rightf#, ascender*v#, baseline );

n := 17;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 9;
t8 := 10;
t9 := 11;
t10 := 12;
t11 := 13;
t12 := 14;
t13 := 15;
t14 := 16;
t15 := 19;
t16 := 21;
t17 := 23;

adj_fill.A(2, 6, 14, 17)               % fixed x points
     (9, 10)                         % fixed y points
     ((1,2), (9,1), (10,1), (17,2))          % tied points
     ((4,15), (7,12), (8,11))          % verticals
     ((3,16), (5,6), (13,14))          % horizontals
     ((1123,2216){109,354}...{109,354}     % 0
      (1232,2570){-281,117}...          % 1
      (1047,2618){-1,0}...               % 2
      (858,2593){-516,-216}...          % 3
      (646,2425){-385,-464}...          % *4
      (473,2129){-231,-560}...{-24,-710}     % 5
      (405,1643){-385,0}...{-385,0}          % 6
      (20,1643){-52,-163}...{-52,-163}     % 7
      (-32,1480){429,0}...{429,0}          % 8
      (397,1480){-10,-1482}...{-10,-1482}     % 9
      (387,-2){43,-36}...{43,-36}          % 10
      (430,-38)--                    % 11
      (430,-38){380,106}...{380,106}          % 12
      (810,68){-44,1412}...{-44,1412}     % 13
      (766,1480){409,0}...{409,0}          % 14
      (1175,1480){56,163}...{56,163}          % 15
      (1231,1643){-1,0}...               % 16
      (888,1671){-536,107}...          % *17
      (695,1750){-100,95}...               % 18
      (600,2002){0,1}...               % 19
      (720,2242){274,192}...               % 20
      (890,2284){1,0}...{226,-212}          % 21
      (1073,2207){50,9}...{50,9}          % 22
      (1123,2216)--cycle);               % 23

endchar(leftf#);

"rblg";

charbegin( "g", 2072h# + leftg# + rightg#, lcbody*v#, descender*v#);

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

n := 8;
t1 := 2.1;
t2 := 5.1;
t3 := 6;
t4 := 7;
t5 := 9.5;
t6 := 13;
t7 := 14;
t8 := 15;

adj_fill.A(3)                         % fixed x points
     (4,8)                         % fixed y points
     ((6,3), (7,1), (8,2))               % tied points
     ((1,6))                         % verticals
     ((2,5))                         % horizontals
     ((1776,1793){42,-18}...{42,-18}          % 0
      (1818,1775){-122,-1286}...          % 1
      (1797,720){0,-1}...               % 2
      (1721,-11){-292,-1165}...          % *3
      (1505,-445){-486,-452}...          % 4
      (788,-736){-671,-14}...{-323,410}     % 5
      (218,-504){202,323}...{202,323}     % 6
      (420,-181)--                    % 7
      (504,-200){327,-658}...          % 8
      (651,-441){374,-378}...          % 9
      (911,-567){616,3}...               % 10
      (1225,-413){405,456}...          % 11
      (1343,-163){155,629}...{-3,245}     % *12
      (1380,216){8,219}...{8,219}          % 13
      (1388,435){215,1277}...{215,1277}     % 14
      (1603,1712)--cycle);               % 15


n := 11;
t1 := 0;
t2 := 1.1;
t3 := 4.1;
t4 := 6.1;
t5 := 8;
t6 := 9;
t7 := 10;
t8 := 10.5;
t9 := 13.5;
t10 := 15.5;
t11 := 18;

adj_fill.B(5)                         % fixed x points
      ()                         % fixed y points
     ((1,1), (6,1), (7,2), (11,3))          % tied points
     ((3,9))                         % verticals
     ((4,8), (2,10))                    % horizontals
     ((1388,435){-271,-473}...          % 0
      (986,228){-681,53}...               % 1
      (763,340){-352,425}...               % 2
      (673,544){-126,523}...               % *3
      (637,863){-13,633}...               % 4
      (821,1571){391,484}...               % 5
      (1122,1693){490,9}...               % 6
      (1339,1593){403,-417}...          % 7
      (1394,1361){-6,-926}...{-6,-926}     % 8
      (1388,435)--                    % 9
      (1603,1712){-568,257}...          % 10
      (1053,1836){-666,20}...          % 11
      (495,1605){-1,-1}...               % 12
      (325,1264){-243,-903}...          % *13
      (252,702){-21,-714}...               % 14
      (449,60){1,-1}...               % 15
      (749,-57){665,16}...               % 16
      (1038,16){631,273}...{538,389}          % *17
      (1380,216)--cycle);               % 18
endchar(leftg#);

"rblh";

charbegin( "h", 2034h# + lefth# + righth#, ascender*v#, baseline );

n := 7;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 10;

adj_fill.A(1, 2)                    % fixed x points
     (4, 7)                         % fixed y points
     ((5,1), (6,2))                    % tied points
     ((3,6))                         % verticals
     ((1,2))                         % horizontals
     ((0,2496){0,-125}...{0,-125}          % 0
      (0,2371){158,-12}...               % 1
      (188,2355){280,-70}...               % 2
      (305,2235){1,-4}...               % 3
      (319,1201){0,-1}...{-35,-822}          % 4
      (302,13){45,-40}...{45,-40}          % 5
      (347,-27)--                    % 6
      (700,93){-13,1313}...{-13,1313}     % 7
      (687,1406){-12,153}...{-12,153}     % 8
      (675,1559){29,1019}...{29,1019}     % 9
      (704,2578)--cycle);               % 10

n := 9;
t1 := 1;
t2 := 4;
t3 := 7;
t4 := 9;
t5 := 10;
t6 := 12;
t7 := 14;
t8 := 16;
t9 := 18;

adj_fill.B(9)                         % fixed x points
     ()                         % fixed y points
     ((4,2), (5,1))                    % tied points
     ((2,7))                         % verticals
     ((3,6), (1,8))                    % horizontals
     ((2077,456){-221,-213}...          % 0
      (1840,333){-409,1}...               % 1
      (1743,397){-147,231}...          % 2
      (1696,615){-29,733}...               % *3
      (1714,1130){6,100}...               % 4
      (1702,1508){-96,602}...          % *5
      (1618,1732){-270,308}...          % 6
      (1360,1840){-1,0}...               % 7
      (1069,1768){-685,-281}...{-632,-397}     % *8
      (675,1559)--                    % 9
      (687,1406){544,419}...               % 10
      (896,1537){381,176}...               % *11
      (1068,1582){1,0}...               % 12
      (1281,1502){342,-368}...          % 13
      (1346,938){-17,-424}...          % 14
      (1430,54){174,-193}...               % 15
      (1641,-31){1,0}...               % 16
      (1870,82){508,427}...{121,168}          % *17
      (2149,396)--cycle);               % 18


endchar(lefth#);

"rbli";

charbegin( "i", 1034h# + lefti# + righti#, ascender*v#, baseline );

n := 9;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 16;
t9 := 19;

adj_fill.A(1, 6)                    % fixed x points
     (5)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((2,9), (4,7))                    % horizontals
     ((-67,1517){274,239}...               % 0
      (246,1745){554,307}...               % *1
      (487,1824){1,0}...               % 2
      (658,1738){147,-268}...          % 3
      (695,1562){30,-757}...               % *4
      (688,981){0,-1}...               % 5
      (690,518){35,-635}...               % *6
      (723,346){114,-244}...               % 7
      (833,268){1,0}...               % 8
      (936,315){232,177}...{180,223}          % *9
      (1065,445)--                    % 10
      (1145,366){-192,-273}...          % 11
      (865,62){-543,-413}...               % *12
      (602,-47){-1,0}...               % 13
      (401,55){-291,433}...               % 14
      (341,289){-64,884}...               % *15
      (337,939){0,1}...               % 16
      (337,1374){-40,578}...               % *17
      (297,1517){-176,223}...          % 18
      (221,1555){-1,0}...{-321,-302}          % 19
      (2,1437)--cycle);               % 20

n := 5;
t1 := 1;
t2 := 2;
t3 := 3;
t4 := 4;
t5 := 5;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((1,3))                         % verticals
     ((2,4))                         % horizontals
     ((498,2306)--                    % 0
      (278,2305){0,1}...               % 1
      (511,2535){1,0}...               % 2
      (730,2309){0,-1}...               % 3
      (487,2079){-1,0}...{0,1}          % 4
      (278,2305)--cycle);               % 5


endchar(lefti#);

"rblj";

charbegin( "j", 1020h#+ leftj# + rightj#, ascender*v#, descender*v#);

n := 7;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 8;
t5 := 10;
t6 := 13;
t7 := 16;

adj_fill.A(4, 7)                    % fixed x points
     (1)                         % fixed y points
     ()                         % tied points
     ((2,6))                         % verticals
     ((3,5))                         % horizontals
     ((-33,-717){206,137}...               % 0
      (588,-160){285,408}...               % 1
      (726,227){44,486}...               % 2
      (744,947){0,1}...               % 3
      (735,1556){-82,825}...               % *4
      (662,1772){-1,1}...               % 5
      (509,1819){-1,0}...               % 6
      (287,1738){-546,-314}...{-412,-342}     % *7
      (-37,1505)--                    % 8
      (37,1418){425,362}...               % 9
      (264,1548){1,0}...               % 10
      (327,1520){1,-1}...               % 11
      (386,1345){66,-666}...               % *12
      (393,854){0,-1}...               % 13
      (372,85){-112,-1099}...          % *14
      (281,-245){-7,-10}...{-234,-167}     % 15
      (-84,-625)--cycle);               % 16

n := 5;
t1 := 1;
t2 := 2;
t3 := 3;
t4 := 4;
t5 := 5;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((1,3))                         % verticals
     ((2,4))                         % horizontals
     ((538,2309)--                    % 0
      (319,2308){0,1}...               % 1
      (532,2551){1,0}...               % 2
      (760,2326){0,-1}...               % 3
      (523,2081){-1,0}...{0,1}          % 4
      (319,2308)--cycle);               % 5

endchar(leftj#);

"rblk";

charbegin( "k", 1854h#+ leftk# + rightk#, ascender*v#, baseline );

crotchup := 10*5;

n := 7;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 11;

adj_fill.A(1, 2)                    % fixed x points
     (4, 7)                         % fixed y points
     ((5,1), (6,2))                    % tied points
     ((3,6))                         % verticals
     ((1,2))                         % horizontals
     ((0,2515){0,-127}...{0,-127}          % 0
      (0,2388){252,-27}...               % 1
      (219,2361){371,-131}...          % 2
      (308,2239){82,-430}...               % 3
      (327,1998){20,-896}...               % *4
      (325,1343){0,-1}...{-21,-702}          % 5
      (315,11){52,-32}...{52,-32}          % 6
      (367,-21)--                    % 7
      (716,94){-16,793}...{-16,793}          % 8
      (700,920+crotchup){0,202}...{0,202}          % 9
      (700,1089){36,1497}...{32,421}          % 10
      (736,2586)--cycle);               % 11

n := 2;
t1 := 0;
t2 := 1;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((700,1089){0,-202}...{0,-202}          % 0
      (700,(920+crotchup))--                    % 1
      (780,(920+crotchup)){40,202}...{40,202}          % 2
      (780,1089)--cycle);               % 3

n := 4;
t1 := 1;
t2 := 5;
t3 := 11;
t4 := 13;

adj_fill.C()                         % fixed x points
     (2, 3)                         % fixed y points
     ()                         % tied points
     ()                         % verticals
     ((1,4))                         % horizontals
     ((1994,372){-273,-279}...          % 0
      ((1548+60),0){-528,-147}...          % 1
      ((1336+80),50){-323,259}...{-598,835}     % 2
      (780,(920+crotchup)){0,202}...{0,202}     % 3
      (780,1089){915,820}...{255,190}     % 4
      (1653,1907){198,-137}...{198,-137}     % 5
      (1851,1770)--                    % 6
      (1846,1726){-532,-316}...{-281,-234}     % 7
      (1021,1153){-1,-8}...               % 8
      (1020,1145){-.124,.007722}...          % 9