eurmch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

      (1421,1150){.8797,1.663}...          % 2
      (1433,1235){-24,334}...          % 3
      (1316,1492){-259,267}...          % 4
      (1110,1583){-300,-2}...          % 5
      (810,1460){-205,-185}...{-30,-424}     % 6
      (560,880){0,-142}...{0,-142}          % 7
      (560,738){0,-301}...               % 8
      (708,313){230,-260}...               % 9
      (1070,171){329,2}...               % 10
      (1307,224){546,205}...{456,268}     % *11
      (1616,376)--                    % 12
      (1672,282){-420,-317}...          % 13
      (1240,24){-804,-345}...          % *14
      (868,-63){-394,5}...               % 15
      (439,92){-357,343}...               % 16
      (307,336){-179,621}...               % *17
      (260,713){0,1}...               % 18
      (520,1461){313,296}...               % 19
      (1160,1719){423,5}...               % 20
      (1606,1576){223,-225}...          % 21
      (1750,1204){0,-425}...               % 22
      (1741,1121){-.9976,-1.45}...          % 23
      (1663,1081){-1083,-338}...{-10,-4}     % 24
      (560,738)--cycle);               % 25
endchar(lefte#);

"rmlf";

charbegin( "f", 1205h# + leftf# + rightf#, ascender*v#, baseline );
n := 11;
t1 := 0;
t2 := 2;
t3 := 3;
t4 := 5;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 13;
%t9 := 14;
t9 := 15; % DEK
t10 := 16;
t11 := 18;

adj_fill.A(3, 6, 10)                    % fixed x points
     (1, 7)                         % fixed y points
     ()                         % tied points
     ((2,11), (4,9))                    % verticals
%     ((5,8), (2,4))                    % horizontals
     ((5,8), (2,4), (9,11))               % horizontals % DEK
     ((476,-38){-54,37}...{-54,37}          % 0
      (422,-1){11,405}...{0,1}          % 1
      (438,1500){-464,0}...{-464,0}          % 2
      (-26,1500){31,138}...{31,138}          % 3
      (5,1638){426,0}...{426,0}          % 4
      (431,1638){68,920}...               % 5
      (525,2096){291,781}...               % *6
      (722,2419){1,1}...               % 7
      (1126,2609){1,0}...{414,-423}          % 8
      (1347,2518)--                    % 9
      (1219,2244){-48,-4}...{-48,-4}          % 10
      (1171,2240){-179,433}...          % 11
      (1110,2338){-1,1}...               % 12
      (950,2404){-1,0}...               % 13
      (821,2345){-1,-1}...{0,-1}          % 14
      (711,1638){508,0}...{508,0}          % 15
      (1219,1638){-46,-138}...{-46,-138}     % 16
      (1173,1500){-474,0}...{-474,0}          % 17
      (699,1500){0,-1}...{27,-330}          % 18
      (734,46)--cycle);               % 19

endchar(leftf#);

"rmlg";

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

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



n := 5;
t1 := 2;
t2 := 6;
t3 := 12;
t4 := 13;
t5 := 14;

adj_fill.A(2)                         % fixed x points
     ()                         % fixed y points
     ((3,1), (4,2), (5,3))               % tied points
     ((1,4))                         % verticals
     ()                         % horizontals
     ((1704,1712){45,-19}...{45,-19}          % 0
      (1749,1693){-64,-512}...          % 1
      (1712,390){0,-1}...               % 2
      (1652,-92){-232,-803}...          % *3
      (1480,-413){-366,-370}...          % 4
      (776,-732){-1,0}...{-259,392}          % 5
      (259,-512)--                    % 6
      (451,-277){45,-21}...{45,-21}          % 7
      (496,-298){155,-352}...          % 8
      (851,-575){1,0}...               % 9
      (1230,-421){330,360}...          % 10
       (1380,-167){182,643}...{0,1}          % *11
      (1440,222)--                     % 12
      (1440,376){0,1}...{117,1230}          % 13
      (1515,1606)--cycle);               % 14

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (5,2), (6,1), (10,3))          % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1440,376){0,1}--                % 0
      (1440,1348){-35,440}...          % 1
      (1368,1480){-215,239}...          % 2
      (1116,1599){-1,0}...               % 3
      (781,1458){-281,-267}...          % 4
      (620,1168){-226,-717}...          % *5
      (565,741){0,-1}...               % 6
      (697,314){235,-216}...               % 7
      (962,203){1,0}...{206,189}          % 8
      (1440,376)--                    % 9
      (1440,222){-226,-138}...          % 10
      (1026,23){-634,-267}...          % *11
      (768,-45){-1,0}...               % 12
      (455,84){-332,372}...               % 13
      (250,661){0,1}...               % 14
      (330,1168){260,827}...               % *15
      (520,1498){422,417}...               % 16
      (1093,1728){1,0}...{212,-136}          % 17
      (1515,1606)--cycle);               % 18

endchar(leftg#);

"rmlh";

charbegin( "h", 2102h# + lefth# + righth#, ascender*v#, baseline );
n := 7;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 10;

adj_fill.A(1, 2)                    % fixed x points
     (4, 7)                         % fixed y points
     ((4,1), (5,1), (6,2))               % tied points
     ((3,6))                         % verticals
     ((1,2))                         % horizontals
     ((0,2458){0,-83}...{0,-83}          % 0
      (0,2375){305,-62}...               % 1
      (285,2282){282,-378}...          % 2
      (348,2058){72,-800}...               % *3
      (357,1482){-1,-431}...{-40,-684}     % 4
      (306,15){23,-34}...{23,-34}          % 5
      (329,-19)--                    % 6
      (329,-19){268,79}...{268,79}          % 7
      (597,60){-2,644}...               % 8
      (609,1472){2,565}...{19,398}          % 9
      (627,2524)--cycle);               % 10

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

adj_fill.B(10)                         % fixed x points
     (1, 6)                         % fixed y points
     ((5,2))                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((2220,418){-189,-183}...          % 0
      (2038,280){-344,-188}...          % *1
      (1876,230){-79,-1}...               % 2
      (1764,292){-67,97}...               % 3
      (1716,478){-51,670}...               % *4
      (1713,962){6,704}...               % 5
      (1705,1443){-73,662}...          % *6
      (1640,1624){-65,59}...               % 7
      (1384,1730){-244,2}...               % 8
      (1058,1659){-745,-282}...{-373,-227}     % *9
      (639,1448)--                        % 10
      (609,1472)--                    % 11
      (603,1265){180,130}...               % 12
      (896,1439){526,234}...               % *13
      (1129,1499){214,0}...               % 14
      (1355,1423){144,-116}...          % 15
      (1429,1249){92,-506}...          % *16
      (1447,917){-20,-606}...          % 17
      (1441,315){53,-859}...               % *18
      (1500,58){100,-163}...               % 19
      (1668,-35){183,-7}...               % 20
      (1947,50){614,344}...               % *21
      (2282,309){189,183}...{189,183}     % 22
      (2292,329)--cycle);               % 23


endchar(lefth#);

"rmli";

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

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

%delta is the amount by which I want to make the radius of the dot larger.
%the radius is 365
delta := 30; %an 8 percent increase


n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 12;
t8 := 15;
t9 := 17;
t10 := 18;

adj_fill.A(1, 6)                    % fixed x points
     (5, 10)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((-142,1457){309,254}...          % 0
      (152,1660){513,274}...               % *1
      (371,1731){1,0}...               % 2
      (562,1662){146,-170}...          % 3
      (617,1476){52,-662}...               % *4
      (614,1000){-15,-516}...          % 5
      (657,306){155,-300}...               % 6
      (787,223){1,0}...               % 7
      (929,270){325,182}...{310,275}          % *8
      (1112,405)--                    % 9
      (1180,356){-373,-545}...          % 10
      (910,66){-540,-395}...               % *11
      (640,-39){-391,0}...               % 12
      (410,70){-162,254}...               % 13
      (348,330){-62,927}...               % *14
      (348,997){8,540}...               % 15
      (310,1454){-118,212}...          % 16
      (216,1513){-1,0}...{-322,-199}          % 17
      (-83,1385)--cycle);               % 18

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((2,4))                         % verticals
     ((3,5))                         % horizontals
     ((440,2092){-1,0}...               % 0
      (255-delta,2274+delta){0,1}...               % 1
      (465,2457+2*delta){1,0}...               % 2
      (627 + delta,2273+delta){0,-1}...{-1,0}     % 3
      (440,2092)--                         % 4
      (434,2268+delta)--cycle);               % 5
endchar(lefti#);

"rmlj";

charbegin( "j", 1029h# + leftj# + rightj#, ascender*v#, descender*v#);
n := 8;
t1 := 0;
t2 := 4;
t3 := 7;
t4 := 9;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 15;

adj_fill.A(4, 8)                    % fixed x points
     (1, 5)                         % fixed y points
     ()                         % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((26,-706){321,177}...               % 0
      (447,-389){655,689}...               % *1
      (681,-17){146,439}...               % 2
      (722,283){40,999}...               % *3
      (721,982){-7,543}...               % 4
      (700,1485){-94,700}...               % *5
      (627,1682){-257,245}...          % 6
      (475,1732){-1,0}...               % 7
      (262,1661){-524,-277}...{-418,-319}     % *8
      (-49,1455)--                    % 9
      (1,1386){386,214}...               % 10
      (282,1509){1,0}...               % 11
      (388,1468){213,-249}...          % 12
      (458,817){-8,-467}...               % 13
      (393,-127){-148,-472}...{-501,-321}     % 14
      (-22,-634)--cycle);               % 15

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((2,4))                         % verticals
     ((3,5))                         % horizontals
     ((521,2467+2*delta){-1,0}...               % 0
      (332-delta,2282+delta){0,-1}...          % 1
      (511,2090){1,0}...                    % 2
      (707+delta,2297+delta){0,1}...{-1,0}          % 3
      (521,2467+2*delta)--                    % 4
      (530,2282+delta)--cycle);               % 5

endchar(leftj#);

"rmlk";

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

crotchup := 10*7;     %amount to raise the crotch.
slide    := 10*6;

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

adj_fill.A(1, 2)                    % fixed x points
     (4, 6)                         % fixed y points
     ()                         % tied points
     ((3,5))                         % verticals
     ((1,2))                         % horizontals
     ((0,2451){0,-89}...{0,-89}          % 0
      (0,2362){364,-55}...               % 1
      (207,2323){379,-137}...          % 2
      (319,2197){49,-195}...               % 3
      (345,1330){-16,-686}...{-17,-606}     % 4
      (307,1){24,-26}...{24,-26}          % 5
      (331,-25)--                    % 6
      (591,48){4,783}...{4,783}          % 7
      (600,820+crotchup){10,152}...{10,152}     % 8
      (600,820+crotchup){-1,763}...{14,387}     % 9
      (634,2543)--cycle);               % 10

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((636,974){-36,9}...{-36,9}          % 0
      (600,983)--                    % 1
      (600,820+crotchup){36,12}...{36,12}     % 2
      (636,820+crotchup)--cycle);          % 3

n := 6;
t1 := 3;
t2 := 6;
t3 := 7;
t4 := 10;
t5 := 17;
t6 := 18;

adj_fill.C()                         % fixed x points