eusmch.mf

Concrete_Mathematics_2nd_Ed_TeX_Source_Code

%% @metafontfile{
%%     filename="eusmch.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="3547",
%%     keywords="amsfonts, tex, metafont , euler ",
%%     abstract="This is the driver file for use with 
%%            the Euler script medium fonts in AMSFonts 2.1."
%%     }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Euler Symbol Medium

% ----- This font is set up as Math Symbol Font, \textfont2, page 427 of TeXbook
% however, there are some alternate characters in nonstandard positions

mode_setup;
font_coding_scheme "TeX math symbols subset";

%     EULER SCRIPT MEDIUM PARAMETERS

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

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


input eubase;
more_side(100h#); % DEK

% information for positioning of math accents --- DEK
skewchar=oct"060"; skew#=1/36programem*h#;
ligtable "A": skewchar kern 5skew#;
ligtable "I": "J": skewchar kern 2skew#;
charcode:=skewchar; shipout nullpicture;


"aleph";

charbegin( 64, 2668h#, capheight*v#, baseline );

n := 10;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 4;
t5 := 5;
t6 := 6;
t7 := 7;
t8 := 8;
t9 := 10;
t10 := 11;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((2,1), (3,2), (7,3), (8,4))          % tied points
     ((4,5), (9,10))                    % verticals
     ((5,6), (1,10))                    % horizontals
     ((2449,529){-321,229}...{-1,1}          % 0
      (1915,952){-314,259}...          % 1
      (1601,1211){-1.551,1.262}...          % 2
      (669,1959){-932,748}...{-63,638}     % 3
      (302,2549){-112,0}...{-112,0}          % 4
      (190,2549)--                    % 5
      (190,1820){1,-1}...{257,-205}          % 6
      (699,1347){105,-87}...{105,-87}     % 7
      (804,1260){555,-387}...          % 8
      (1525,704){998,-815}...{1,-1}          % 9
      (2294,2){79,0}...{79,0}          % 10
      (2373,2)--cycle);               % 11

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

adj_fill.B(1, 6)                    % fixed x points
     ()                         % fixed y points
     ((3,3), (4,4))                    % tied points
     ((2,5))                         % verticals
     ((6,7))                         % horizontals
     ((250,5){111,384}...{111,384}          % 0
      (361,389){0,1}...               % 1
      (426,986){337,550}...{1,1}          % 2
      (699,1347)--                    % 3
      (804,1260){-31,-7}...               % 4
      (773,1253){-580,-590}...          % 5
      (614,1051){-215,-375}...          % *6
      (558,878){0,-1}...               % 7
      (668,550){1,-1}...               % 8
      (842,462){448,-119}...{1,0}          % *9
      (1116,431){-65,-426}...{-65,-426}     % 10
      (1051,5)--cycle);               % 11

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

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((2,5), (3,6))                    % tied points
     ((4,5), (1,7))                    % verticals
     ((2,6))                         % horizontals
     ((2450,1894){-58,-19}...{-58,-19}     % 0
      (2392,1875){-10,14}...               % 1
      (2230,1977){-1,0}...{-1,0}          % 2
      (2003,1977){-156,-16}...{-156,-16}     % 3
      (1847,1961){-1,0}...               % 4
      (1593,2001){-1,1}...               % 5
      (1536,2157){0,1}...{0,392}          % 6
      (1536,2549)--                    % 7
      (1625,2549){126,-501}...          % 8
      (1684,2439){1,-1}...               % 9
      (1843,2406){1,0}...               % 10
      (2288,2406){1,0}...{0,-1}          % 11
      (2450,2259)--cycle);               % 12

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

adj_fill.D()                         % fixed x points
     ()                         % fixed y points
     ((1,6), (3,2), (4,1), (6,5))          % tied points
     ((2,5))                         % verticals
     ()                         % horizontals
     ((1847,1961){-1,-1}...               % 0
      (1601,1300){0,-1}...{0,-1}          % 1
      (1601,1211)--                    % 2
      (1915,952){-1,1}...               % 3
      (1800,1228){0,1}...               % 4
      (1855,1732){203,749}...          % *5
      (1920,1894){147.8,245.5}...{413,187}     % *6
      (2003,1977)--cycle);               % 7

endchar(0);

% UPPER CASE
set_stem_round(230,350,270,270,290,310);

"smua";

charbegin( "A", 2653h#, capheight*v#, baseline );

n := 11;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 5;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 14;
t10 := 18;
t11 := 25;

adj_fill.A(1)                         % fixed x points
     (7, 8)                         % fixed y points
     ((1,5), (2,1), (3,2), (4,3), (7,4), (8,4))% tied points
     ((6,9))                         % verticals
     ((5,10), (1,11))               % horizontals
     ((2199,2519){-377,-119}...{-377,-119}     % 0
      (1822,2400){-207,-62}...          % 1
      (1626,2292){-1,-1}...               % 2
      (1382,1870){-527,-1261}...{-126,-432}     % *3
      (1099,1031){-78,-158}...{-78,-158}     % 4
      (1021,873){-174,-335}...          % 5
      (579,139){-1,-1}...               % 6
      (200,-36){-1,0}...               % 7
      (-32,57){-1,1}...               % 8
      (-131,313){0,1}...               % 9
      (-74,450){1,1}...{1,0}               % 10
      (38,485)--                    % 11
      (38,485){1,0}...               % 12
      (152,434){1,-1}...               % 13
      (177,367){0,-1}...               % 14
      (169,307){-100,-540}...          % 15
      (158,217){0,-1}...               % 16
      (196,151){1,-1}...               % 17
      (290,116){1,0}...               % 18
      (447,198){1,1}...               % 19
      (617,473){478,1040}...{413,1047}     % *20
      (925,1238){422,1046}...          % 21
      (1243,1937){583,1093}...          % *22
      (1508,2331){1,1}...               % 23
      (1787,2488){683,212}...{1,0}          % *24
      (2191,2543)--cycle);               % 25

n := 9;
t1 := 0;
t2 := 2;
t3 := 6;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 13;
t8 := 16;
t9 := 18;

adj_fill.B(1)                         % fixed x points
     (9)                         % fixed y points
     ((3,6), (4,7), (5,1), (6,5))          % tied points
     ((4,7))                         % verticals
     ((2,8))                         % horizontals
     ((2631,306){-1,-1}...               % 0
      (2310,40){-569,-360}...          % *1
      (2062,-54){-1,0}...               % 2
      (1927,-4){-1,1}...               % 3
      (1873,107){-73,291}...               % *4
      (1854,287){0,1}...{0,1}          % 5
      (1852,873){-3,158}...{-3,158}          % 6
      (1849,1031){-10,1338}...{-10,1338}     % 7
      (1839,2369){-17,31}...{-17,31}          % 8
      (1822,2400)--                    % 9
      (2199,2519){-40,-38}...          % 10
      (2159,2481){-40,-38}...          % 11
      (2106,2371){-54,-763}...          % 12
      (2093,1259){0,-1}...               % 13
      (2119,476){74,-840}...               % 14
      (2205,229){1,-1}...               % 15
      (2289,206){1,0}...               % 16
      (2425,251){296,172}...{1,1}          % *17
      (2585,378)--cycle);               % 18

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

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,7), (2,2), (3,3), (4,6))          % tied points
     ()                         % verticals
     ((2,3))                         % horizontals
     ((1849,1031){-750,0}...{-750,0}          % 0
      (1099,1031)--                    % 1
      (1021,873){831,0}...{831,0}          % 2
      (1852,873)--cycle);               % 3

endchar(0);

"smub";

charbegin( "B", 2618h#, capheight*v#, baseline );
n := 7;
t1 := 0;
t2 := 3;
t3 := 4;
t4 := 5;
t5 := 6;
t6 := 7;
t7 := 9;

adj_fill.A(1)                         % fixed x points
     ()                         % fixed y points
     ((1,6), (3,1), (4,2), (5,3), (6,4), (7,5))% tied points
     ((2,5))                         % verticals
     ()                         % horizontals
     ((296,180){1,0}...               % 0
      (772,407){1,1}...               % 1
      (919,739){199,909}...{0,1}          % *2
      (971,1316){0,1082}...{0,1082}          % 3
      (971,2398)--                    % 4
      (1229,2419){0,-964}...{0,-1}          % 5
      (1229,1455){-13,-164}...{-13,-164}     % 6
      (1216,1291){-99,-787}...          % 7
      (1087,712){-213,-507}...{-1,-1}     % 8
      (759,180)--cycle);               % 9

n := 13;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 9;
t6 := 12;
t7 := 13;
t8 := 15;
t9 := 17;
t10 := 18;
t11 := 22;
t12 := 24;
t13 := 25;

adj_fill.B(1, 12)                    % fixed x points
     (6, 7, 10)                    % fixed y points
     ((1,9), (3,2), (4,1), (6,7), (7,7), (13,8))% tied points
     ((5,8), (2,11))                    % verticals
     ((4,9))                         % horizontals
     ((1321,1407){1,0}...               % 0
      (1854,1593){1,1}...               % 1
      (1995,1950){0,1}...               % 2
      (1875,2266){-1,1}...               % 3
      (1634,2379){-646,153}...{-1,0}          % *4
      (1229,2419){-258,-21}...{-258,-21}     % 5
      (971,2398){-1,0}...               % 6
      (440,2181){-1,-1}...               % 7
      (312,1929){0,-1}...               % 8
      (329,1804){88,-417}...               % 9
      (353,1702){0,-1}...               % 10
      (317,1583){-1,-1}...{-1,0}          % 11
      (190,1528)--                    % 12
      (190,1528){-1,0}...               % 13
      (117,1564){-1,1}...               % 14
      (54,1768){0,1}...               % 15
      (244,2189){1,1}...{447,68}          % 16
      (958,2523){255,121}...{255,121}     % 17
      (1213,2644){16,-107}...{16,-107}     % 18
      (1229,2537){1,0}...               % 19
      (1807,2489){900,-183}...          % *20
      (2129,2354){1,-1}...               % 21
      (2251,2048){0,-1}...               % 22
      (2075,1617){-1,-1}...{-601,-307}     % 23
      (1812,1417){11,-26}...{11,-26}          % 24
      (1823,1391)--cycle);               % 25

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

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((3,8), (4,9), (5,3), (6,4), (9,5), (10,6))% tied points
     ((2,8))                         % verticals
     ((4,7), (1,9))                    % horizontals
     ((196,-14){1098,0}...               % 0
      (1294,-14){1,0}...               % 1
      (2222,352){1,1}...               % 2
      (2427,853){0,1}...               % 3
      (2269,1230){-1,1}...{-1,0}          % 4
      (1823,1391){-502,16}...{-502,16}     % 5
      (1321,1407){-1,0}...{0,1}          % 6
      (1229,1455)--                    % 7
      (1216,1291){660,75}...               % 8
      (1466,1303){1,0}...               % 9
      (1796,1263){546,-155}...          % *10
      (2012,1148){1,-1}...               % 11
      (2156,810){0,-1}...               % 12
      (2009,351){-1,-1}...               % 13
      (1752,222){-667,-174}...          % *14
      (1342,177){-1,0}...{-1,0}          % 15
      (759,180){-463,0}...{-463,0}          % 16
      (296,180)--cycle);               % 17

endchar(0);

"smuc";

charbegin( "C", 2031h#, capheight*v#, baseline );
n := 17;
t1 := 0;
t2 := 1;