eurmch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

     (4, 6)                         % fixed y points
     ((2,1), (3,2))                    % tied points
     ()                         % verticals
     ((1,5))                         % horizontals
     ((1992,341){-191,-211}...          % 0
      ((1762+(slide/2)),118){-420,-341}...          % *1
      ((1572+slide),0){-265,-101}...               % 2
      ((1460+slide),-25){-1,0}...               % 3
      ((1367+slide),3){-261,147}...               % 4
      ((1168+slide),209){-549,634}...{-532,634}     % 5
      (636,820+crotchup){0,131}...{0,131}     % 6
      (636,974){508,465}...               % 7
      (1144,1439){508,465}...          % 8
      (1441,1710){419,354}...{464,200}     % *9
      (1563,1793)--                    % 10
      (1731,1686){1,-41}...{1,-41}          % 11
      (1732,1645){-485,-283}...          % 12
      (944,1087){-207,-173}...          % 13
      (877,1014){0,-1}...               % 14
      (908,953){331,-428}...               % 15
      (1432,353){302,-312}...          % 16
      (1617,250){1,0}...{191,211}          % 17
      (1920,416)--cycle);               % 18
endchar(leftk#);

"rmll";

charbegin( "l", 1053h# + leftl# + rightl#, ascender*v#, baseline );
n := 8;
t1 := 1;
t2 := 4;
t3 := 6;
t4 := 7;
t5 := 9;
t6 := 11;
t7 := 15;
t8 := 16;

adj_fill.A(4, 7, 8)                    % fixed x points
     (3)                         % fixed y points
     ()                         % tied points
     ((1,6))                         % verticals
     ((7,8), (2,5))                    % horizontals
     ((655,2542){-12,-466}...          % 0
      (604,958){4,-689}...               % 1
      (614,490){57,-651}...               % *2
      (661,307){136,-208}...               % 3
      (793,234){154,-7}...               % 4
      (932,284){328,203}...{330,318}          % *5
      (1121,437)--                    % 6
      (1181,370){-300,-505}...          % 7
      (918,72){-562,-409}...               % *8
      (619,-39){-363,-3}...               % 9
      (436,34){-234,246}...               % 10
      (342,802){8,427}...               % 11
      (341,1880){1,354}...               % 12
      (323,2248){-48,220}...               % 13
      (223,2340){-207,42}...{-445,17}     % 14
      (0,2360){0,100}...{0,100}          % 15
      (0,2460)--cycle);               % 16

endchar(leftl#);

"rmlm";

charbegin( "m", 3191h# + leftm# + rightm#, lcbody*v#, baseline );

n := 8;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 10;
t8 := 12;

adj_fill.A(4)                         % fixed x points
     (5, 8)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((751,51){-21,527}...{29,693}          % 0
      (761,1303){-18,166}...{-18,166}     % 1
      (743,1469){10,444}...               % 2
      (685,1678){-181,162}...          % 3
      (516,1741){-236,-2}...               % 4
      (288,1675){-507,-253}...{-396,-326}     % *5
      (9,1488)--                    % 6
      (52,1416){356,205}...               % 7
      (320,1536){347,-3}...               % 8
      (434,1488){233,-298}...          % 9
      (477,1011){-7,-419}...{-5,-431}     % 10
      (452,-7){50,-29}...{50,-29}          % 11
      (502,-36)--cycle);               % 12

n := 8;
t1 := 1;
t2 := 2;
t3 := 3;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 12;
t8 := 14;

adj_fill.B()                         % fixed x points
     (8)                         % fixed y points
     ((1,4), (2,3), (4,1), (5,2))          % tied points
     ((1,7))                         % verticals
     ((3,6))                         % horizontals
     ((1774,67){-25,407}...{17,695}          % 0
      (1758,1348){-1,128}...{-1,128}          % 1
      (1757,1476){-98,212}...          % 2
      (1410,1698){-357,-2}...          % 3
      (1155,1632){-649,-258}...{-467,-258}     % *4
      (761,1440){-18,29}...{-18,29}          % 5
      (743,1469)--                    % 6
      (761,1303){425,258}...               % 7
      (1010,1432){434,177}...          % *8
      (1195,1480){162,6}...               % 9
      (1395,1413){193,-194}...          % 10
      (1480,1256){103,-418}...          % *11
      (1498,995){0,-1}...{0,-1}          % 12
      (1490,-16){8,-21}...{8,-21}          % 13
      (1498,-37)--cycle);               % 14

n := 10;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 14;
t9 := 17;
t10 := 19;

adj_fill.C(10)                         % fixed x points
     (1)                         % fixed y points
     ((5,3), (6,4))                    % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((3274,369){-346,-257}...          % 0
      (2950,194){-253,-8}...               % 1
      (2811,243){-200,207}...          % 2
      (2761,434){0,1}...               % *3
      (2761,919){0,1}...               % 4
      (2753,1406){-74,684}...          % *5
      (2687,1603){-215,222}...          % 6
      (2393,1701){-346,-1}...          % 7
      (2117,1644){-636,-225}...{-513,-285}     % *8
      (1757,1476)--                    % 9
      (1758,1348){315,164}...          % 10
      (2170,1480){162,6}...               % 11
      (2375,1413){193,-194}...          % 12
      (2465,1256){103,-418}...          % *13
      (2486,995){0,-1}...{0,-1}          % 14
      (2486,213){76,-844}...               % *15
      (2555,-7){285,-317}...               % 16
      (2721,-65){401,5}...               % 17
      (2999,21){590,326}...{292,285}          % *18
      (3311,261)--cycle);               % 19

endchar(leftm#);

"rmln";

charbegin( "n", 2310h# + leftn# + rightn#, lcbody*v#, baseline );

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

adj_fill.A(5)                         % fixed x points
     (1, 4)                         % fixed y points
     ((7,1))                         % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((427,-4){18,407}...               % 0
      (447,950){10,616}...               % 1
      (409,1457){-162,324}...          % 2
      (308,1535){-298,-2}...{-327,-213}     % 3
      (33,1398)--                    % 4
      (-30,1479){480,352}...               % 5
      (470,1744){394,-5}...               % 6
      (658,1679){213,-209}...{22,-466}     % 7
      (734,1463){1,-183}...               % 8
      (735,1280){-25,-661}...{2,-407}     % 9
      (728,68)--cycle);               % 10

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

adj_fill.B(5)                         % fixed x points
     (1, 6)                         % fixed y points
     ((10,1))                    % tied points
     ((3,8))                         % verticals
     ((2,9), (4,7))                    % horizontals
     ((738,1292){249,199}...               % 0
      (999,1460){479,225}...               % *1
      (1217,1517){488,-5}...               % 2
      (1458,1422){283,-307}...          % 3
      (1524,1245){86,-501}...          % *4
      (1544,921){0,-1}...               % 5
      (1544,287){0,-1}...               % *6
      (1591,66){230,-361}...               % 7
      (1802,-42){357,-4}...               % 8
      (2040,45){584,341}...{485,413}          % *9
      (2386,299)--                    % 10
      (2341,397){-357,-269}...          % 11
      (2010,221){-1,0}...               % 12
      (1835,340){-1,8}...{0,1}          % 13
      (1823,949){0,1}...               % 14
      (1750,1628){-325,386}...          % 15
      (1465,1735){-376,1}...               % 16
      (1152,1666){-708,-273}...{-371,-232}     % *17
      (757,1462){-23,1}...{-23,1}          % 18
      (734,1463)--cycle);               % 19
endchar(leftn#);

"rmlo";

charbegin( "o", 2056h# + lefto# + righto#, lcbody*v#, baseline );

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



n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 15;
t9 := 17;
t10 := 19;

adj_fill.A()                         % fixed x points
     (1, 6)                         % fixed y points
     ((1,1), (5,1), (6,2), (10,2))          % tied points
     ((5,6), (3,8), (1,10))               % verticals
     ((4,7), (2,9))                    % horizontals
     ((524,829){0,-1}...               % 0
      (727,225){1,-1}...               % 1
      (1007,110){1,0}...               % 2
      (1315,230){1,1}...               % 3
      (1457,499){192,682}...               % *4
      (1507,912){0,1}...               % 5
      (1325,1473){-1,1}...               % 6
      (1032,1580){-1,0}...               % 7
      (707,1450){-1,-1}...               % 8
      (572,1201){-183,-621}...{0,-1}          % *9
      (524,829)--                    % 10
      (199,777){0,1}...               % 11
      (445,1483){1,1}...               % 12
      (1057,1723){1,0}...               % 13
      (1621,1546){1,-1}...               % 14
      (1838,924){0,-1}...               % 15
      (1587,194){-1,-1}...               % 16
      (946,-39){-1,0}...               % 17
      (430,135){-1,1}...{0,1}          % 18
      (199,777)--cycle);               % 19

endchar(lefto#);

"rmlp";

charbegin( "p", 1983h# + leftp# + rightp#, lcbody*v#, descender*v#);
n := 11;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 13;
t10 := 14;
t11 := 15;

adj_fill.A(5)                         % fixed x points
     (1, 4)                         % fixed y points
     ((7,1), (8,2), (10,3), (11,4))          % tied points
     ((2,9))                         % verticals
     ((3,6))                         % horizontals
     ((335,-737){-34,41}...{-34,41}          % 0
      (301,-696){1,20}...               % 1
      (323,611){-6,554}...               % 2
      (322,1267){-42,859}...               % *3
      (281,1470){-152,303}...          % 4
      (182,1531){-1,0}...{-329,-194}          % 5
      (-92,1416)--                    % 6
      (-145,1487){341,265}...          % 7
      (141,1674){503,251}...               % *8
      (358,1738){1,0}...               % 9
      (521,1685){236,-229}...{29,-386}     % 10
      (595,1394){39,-119}...{39,-119}     % 11
      (634,1275){-1,-1}...               % 12
      (595,1158){13,-915}...{0,-404}          % 13
      (608,243){-11,-244}...{-11,-244}     % 14
      (597,-1){67,-809}...{39,-622}          % 15
      (636,-623)--cycle);               % 16

n := 10;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 7;
t5 := 11;
t6 := 12;
t7 := 13;
t8 := 16;
t9 := 19;
t10 := 20;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (5,1), (6,2), (10,3))          % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((597,-1){469,-137}...               % 0
      (854,-41){1,0}...               % 1
      (1169,40){661,314}...               % *2
      (1515,273){411,355}...               % 3
      (1714,588){270,777}...               % *4
      (1785,1050){0,1}...               % 5
      (1615,1595){-320,329}...          % 6
      (1310,1721){-1,0}...               % 7
      (971,1635){-693,-333}...          % *8
      (617,1388){-361,-332}...          % 9
      (625,1388){.01942,.1961}...{-30,6}     % 10
      (595,1394)--                    % 11
      (634,1275){1,1}...               % 12
      (1123,1500){1,0}...               % 13
      (1396,1390){237,-266}...          % 14
      (1488,1202){124,-467}...          % *15
      (1520,923){0,-1}...               % 16
      (1463,519){-219,-680}...          % *17
      (1301,243){-327,-309}...          % 18
      (931,108){-1,0}...{-199,182}          % 19
      (608,243)--cycle);               % 20

endchar(leftp#);

"rmlq";

charbegin( "q", 2042h# + leftq# + rightq#, lcbody*v#, descender*v#);
n := 4;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 8.487;

adj_fill.A(2)                         % fixed x points
     ()                         % fixed y points
%     ((1,2), (3,1))                    % tied points
     ((1,2), (3,1), (2,3))               % tied points % DEK
     ((3,4))                         % verticals
     ()                         % horizontals
     ((1681,1863){-181,-244}...          % 0
      (1500,1619){-1.324,-1.489}...{-137,-129}% 1
      (1363,1490){1,-1}...               % 2
      (1420,1226){0,-802}...{0,-802}          % 3
      (1420,424){0,-188}...{0,-188}          % 4
      (1420,236){-2,-469}...{-21,-544}     % 5
      (1410,-680){41,-36}...{41,-36}          % 6
      (1451,-716)--                    % 7
      (1751,-636){-51,700}...{40,504}     % 8
      (1757,1851)--cycle);               % 9

n := 9;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 5;
t5 := 7;
t6 := 8;
t7 := 11;
t8 := 13;
t9 := 14;