home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-bin3.lha / lib / texmf / fonts / ams / euler / src / eusmch.mf < prev   
Text File  |  1996-10-12  |  116KB  |  3,547 lines

  1. %% @metafontfile{
  2. %%     filename="eusmch.mf",
  3. %%     version="2.1",
  4. %%     date="30-MAY-1991",
  5. %%     filetype="Metafont: driver",
  6. %%     copyright="Copyright (C) American Mathematical Society,
  7. %%            all rights reserved.  Copying of this file is
  8. %%            authorized only if either:
  9. %%            (1) you make absolutely no changes to your copy
  10. %%                including name; OR
  11. %%            (2) if you do make changes, you first rename it to some
  12. %%                other name.",
  13. %%     author="American Mathematical Society",
  14. %%     address="American Mathematical Society,
  15. %%            Technical Support Department,
  16. %%            P. O. Box 6248,
  17. %%            Providence, RI 02940,
  18. %%            USA",
  19. %%     telephone="401-455-4080 or (in the USA) 800-321-4AMS",
  20. %%     email="Internet: Tech-Support@Math.AMS.org",
  21. %%     codetable="ISO/ASCII",
  22. %%     checksumtype="line count",
  23. %%     checksum="3547",
  24. %%     keywords="amsfonts, tex, metafont , euler ",
  25. %%     abstract="This is the driver file for use with 
  26. %%            the Euler script medium fonts in AMSFonts 2.1."
  27. %%     }
  28. %
  29. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  30. % Euler Symbol Medium
  31.  
  32. % ----- This font is set up as Math Symbol Font, \textfont2, page 427 of TeXbook
  33. % however, there are some alternate characters in nonstandard positions
  34.  
  35. mode_setup;
  36. font_coding_scheme "TeX math symbols subset";
  37.  
  38. %     EULER SCRIPT MEDIUM PARAMETERS
  39.  
  40. %     These all in bitpad numbers (.001"):
  41.  
  42.      programem =      3700;     
  43.      baseline  =     0;
  44.      ascender  =     capheight;
  45.      descender =     700;
  46.      depthy    =     700;     % depthy   =     500;
  47.      capheight =     2600;
  48.       lcbody    =     1700;     %1700 for medium, 1800 for bold.
  49.      dotheight =     2600;
  50.      theight       =     2330;
  51.      lfigheight =     capheight;
  52.      nfigbody  =     lcbody;
  53.      nfigascender =     ascender;
  54.      nfigdescender =     descender;
  55.  
  56.  
  57. input eubase;
  58. more_side(100h#); % DEK
  59.  
  60. % information for positioning of math accents --- DEK
  61. skewchar=oct"060"; skew#=1/36programem*h#;
  62. ligtable "A": skewchar kern 5skew#;
  63. ligtable "I": "J": skewchar kern 2skew#;
  64. charcode:=skewchar; shipout nullpicture;
  65.  
  66.  
  67. "aleph";
  68.  
  69. charbegin( 64, 2668h#, capheight*v#, baseline );
  70.  
  71. n := 10;
  72. t1 := 0;
  73. t2 := 1;
  74. t3 := 2;
  75. t4 := 4;
  76. t5 := 5;
  77. t6 := 6;
  78. t7 := 7;
  79. t8 := 8;
  80. t9 := 10;
  81. t10 := 11;
  82.  
  83. adj_fill.A()                         % fixed x points
  84.      ()                         % fixed y points
  85.      ((2,1), (3,2), (7,3), (8,4))          % tied points
  86.      ((4,5), (9,10))                    % verticals
  87.      ((5,6), (1,10))                    % horizontals
  88.      ((2449,529){-321,229}...{-1,1}          % 0
  89.       (1915,952){-314,259}...          % 1
  90.       (1601,1211){-1.551,1.262}...          % 2
  91.       (669,1959){-932,748}...{-63,638}     % 3
  92.       (302,2549){-112,0}...{-112,0}          % 4
  93.       (190,2549)--                    % 5
  94.       (190,1820){1,-1}...{257,-205}          % 6
  95.       (699,1347){105,-87}...{105,-87}     % 7
  96.       (804,1260){555,-387}...          % 8
  97.       (1525,704){998,-815}...{1,-1}          % 9
  98.       (2294,2){79,0}...{79,0}          % 10
  99.       (2373,2)--cycle);               % 11
  100.  
  101. n := 7;
  102. t1 := 0;
  103. t2 := 1;
  104. t3 := 3;
  105. t4 := 4;
  106. t5 := 7;
  107. t6 := 10;
  108. t7 := 11;
  109.  
  110. adj_fill.B(1, 6)                    % fixed x points
  111.      ()                         % fixed y points
  112.      ((3,3), (4,4))                    % tied points
  113.      ((2,5))                         % verticals
  114.      ((6,7))                         % horizontals
  115.      ((250,5){111,384}...{111,384}          % 0
  116.       (361,389){0,1}...               % 1
  117.       (426,986){337,550}...{1,1}          % 2
  118.       (699,1347)--                    % 3
  119.       (804,1260){-31,-7}...               % 4
  120.       (773,1253){-580,-590}...          % 5
  121.       (614,1051){-215,-375}...          % *6
  122.       (558,878){0,-1}...               % 7
  123.       (668,550){1,-1}...               % 8
  124.       (842,462){448,-119}...{1,0}          % *9
  125.       (1116,431){-65,-426}...{-65,-426}     % 10
  126.       (1051,5)--cycle);               % 11
  127.  
  128. n := 7;
  129. t1 := 1;
  130. t2 := 3;
  131. t3 := 4;
  132. t4 := 7;
  133. t5 := 8;
  134. t6 := 10;
  135. t7 := 12;
  136.  
  137. adj_fill.C()                         % fixed x points
  138.      ()                         % fixed y points
  139.      ((2,5), (3,6))                    % tied points
  140.      ((4,5), (1,7))                    % verticals
  141.      ((2,6))                         % horizontals
  142.      ((2450,1894){-58,-19}...{-58,-19}     % 0
  143.       (2392,1875){-10,14}...               % 1
  144.       (2230,1977){-1,0}...{-1,0}          % 2
  145.       (2003,1977){-156,-16}...{-156,-16}     % 3
  146.       (1847,1961){-1,0}...               % 4
  147.       (1593,2001){-1,1}...               % 5
  148.       (1536,2157){0,1}...{0,392}          % 6
  149.       (1536,2549)--                    % 7
  150.       (1625,2549){126,-501}...          % 8
  151.       (1684,2439){1,-1}...               % 9
  152.       (1843,2406){1,0}...               % 10
  153.       (2288,2406){1,0}...{0,-1}          % 11
  154.       (2450,2259)--cycle);               % 12
  155.  
  156. n := 6;
  157. t1 := 0;
  158. t2 := 1;
  159. t3 := 2;
  160. t4 := 3;
  161. t5 := 4;
  162. t6 := 7;
  163.  
  164. adj_fill.D()                         % fixed x points
  165.      ()                         % fixed y points
  166.      ((1,6), (3,2), (4,1), (6,5))          % tied points
  167.      ((2,5))                         % verticals
  168.      ()                         % horizontals
  169.      ((1847,1961){-1,-1}...               % 0
  170.       (1601,1300){0,-1}...{0,-1}          % 1
  171.       (1601,1211)--                    % 2
  172.       (1915,952){-1,1}...               % 3
  173.       (1800,1228){0,1}...               % 4
  174.       (1855,1732){203,749}...          % *5
  175.       (1920,1894){147.8,245.5}...{413,187}     % *6
  176.       (2003,1977)--cycle);               % 7
  177.  
  178. endchar(0);
  179.  
  180. % UPPER CASE
  181. set_stem_round(230,350,270,270,290,310);
  182.  
  183. "smua";
  184.  
  185. charbegin( "A", 2653h#, capheight*v#, baseline );
  186.  
  187. n := 11;
  188. t1 := 0;
  189. t2 := 1;
  190. t3 := 4;
  191. t4 := 5;
  192. t5 := 7;
  193. t6 := 9;
  194. t7 := 11;
  195. t8 := 12;
  196. t9 := 14;
  197. t10 := 18;
  198. t11 := 25;
  199.  
  200. adj_fill.A(1)                         % fixed x points
  201.      (7, 8)                         % fixed y points
  202.      ((1,5), (2,1), (3,2), (4,3), (7,4), (8,4))% tied points
  203.      ((6,9))                         % verticals
  204.      ((5,10), (1,11))               % horizontals
  205.      ((2199,2519){-377,-119}...{-377,-119}     % 0
  206.       (1822,2400){-207,-62}...          % 1
  207.       (1626,2292){-1,-1}...               % 2
  208.       (1382,1870){-527,-1261}...{-126,-432}     % *3
  209.       (1099,1031){-78,-158}...{-78,-158}     % 4
  210.       (1021,873){-174,-335}...          % 5
  211.       (579,139){-1,-1}...               % 6
  212.       (200,-36){-1,0}...               % 7
  213.       (-32,57){-1,1}...               % 8
  214.       (-131,313){0,1}...               % 9
  215.       (-74,450){1,1}...{1,0}               % 10
  216.       (38,485)--                    % 11
  217.       (38,485){1,0}...               % 12
  218.       (152,434){1,-1}...               % 13
  219.       (177,367){0,-1}...               % 14
  220.       (169,307){-100,-540}...          % 15
  221.       (158,217){0,-1}...               % 16
  222.       (196,151){1,-1}...               % 17
  223.       (290,116){1,0}...               % 18
  224.       (447,198){1,1}...               % 19
  225.       (617,473){478,1040}...{413,1047}     % *20
  226.       (925,1238){422,1046}...          % 21
  227.       (1243,1937){583,1093}...          % *22
  228.       (1508,2331){1,1}...               % 23
  229.       (1787,2488){683,212}...{1,0}          % *24
  230.       (2191,2543)--cycle);               % 25
  231.  
  232. n := 9;
  233. t1 := 0;
  234. t2 := 2;
  235. t3 := 6;
  236. t4 := 7;
  237. t5 := 9;
  238. t6 := 10;
  239. t7 := 13;
  240. t8 := 16;
  241. t9 := 18;
  242.  
  243. adj_fill.B(1)                         % fixed x points
  244.      (9)                         % fixed y points
  245.      ((3,6), (4,7), (5,1), (6,5))          % tied points
  246.      ((4,7))                         % verticals
  247.      ((2,8))                         % horizontals
  248.      ((2631,306){-1,-1}...               % 0
  249.       (2310,40){-569,-360}...          % *1
  250.       (2062,-54){-1,0}...               % 2
  251.       (1927,-4){-1,1}...               % 3
  252.       (1873,107){-73,291}...               % *4
  253.       (1854,287){0,1}...{0,1}          % 5
  254.       (1852,873){-3,158}...{-3,158}          % 6
  255.       (1849,1031){-10,1338}...{-10,1338}     % 7
  256.       (1839,2369){-17,31}...{-17,31}          % 8
  257.       (1822,2400)--                    % 9
  258.       (2199,2519){-40,-38}...          % 10
  259.       (2159,2481){-40,-38}...          % 11
  260.       (2106,2371){-54,-763}...          % 12
  261.       (2093,1259){0,-1}...               % 13
  262.       (2119,476){74,-840}...               % 14
  263.       (2205,229){1,-1}...               % 15
  264.       (2289,206){1,0}...               % 16
  265.       (2425,251){296,172}...{1,1}          % *17
  266.       (2585,378)--cycle);               % 18
  267.  
  268. n := 4;
  269. t1 := 0;
  270. t2 := 1;
  271. t3 := 2;
  272. t4 := 3;
  273.  
  274. adj_fill.C()                         % fixed x points
  275.      ()                         % fixed y points
  276.      ((1,7), (2,2), (3,3), (4,6))          % tied points
  277.      ()                         % verticals
  278.      ((2,3))                         % horizontals
  279.      ((1849,1031){-750,0}...{-750,0}          % 0
  280.       (1099,1031)--                    % 1
  281.       (1021,873){831,0}...{831,0}          % 2
  282.       (1852,873)--cycle);               % 3
  283.  
  284. endchar(0);
  285.  
  286. "smub";
  287.  
  288. charbegin( "B", 2618h#, capheight*v#, baseline );
  289. n := 7;
  290. t1 := 0;
  291. t2 := 3;
  292. t3 := 4;
  293. t4 := 5;
  294. t5 := 6;
  295. t6 := 7;
  296. t7 := 9;
  297.  
  298. adj_fill.A(1)                         % fixed x points
  299.      ()                         % fixed y points
  300.      ((1,6), (3,1), (4,2), (5,3), (6,4), (7,5))% tied points
  301.      ((2,5))                         % verticals
  302.      ()                         % horizontals
  303.      ((296,180){1,0}...               % 0
  304.       (772,407){1,1}...               % 1
  305.       (919,739){199,909}...{0,1}          % *2
  306.       (971,1316){0,1082}...{0,1082}          % 3
  307.       (971,2398)--                    % 4
  308.       (1229,2419){0,-964}...{0,-1}          % 5
  309.       (1229,1455){-13,-164}...{-13,-164}     % 6
  310.       (1216,1291){-99,-787}...          % 7
  311.       (1087,712){-213,-507}...{-1,-1}     % 8
  312.       (759,180)--cycle);               % 9
  313.  
  314. n := 13;
  315. t1 := 0;
  316. t2 := 2;
  317. t3 := 5;
  318. t4 := 6;
  319. t5 := 9;
  320. t6 := 12;
  321. t7 := 13;
  322. t8 := 15;
  323. t9 := 17;
  324. t10 := 18;
  325. t11 := 22;
  326. t12 := 24;
  327. t13 := 25;
  328.  
  329. adj_fill.B(1, 12)                    % fixed x points
  330.      (6, 7, 10)                    % fixed y points
  331.      ((1,9), (3,2), (4,1), (6,7), (7,7), (13,8))% tied points
  332.      ((5,8), (2,11))                    % verticals
  333.      ((4,9))                         % horizontals
  334.      ((1321,1407){1,0}...               % 0
  335.       (1854,1593){1,1}...               % 1
  336.       (1995,1950){0,1}...               % 2
  337.       (1875,2266){-1,1}...               % 3
  338.       (1634,2379){-646,153}...{-1,0}          % *4
  339.       (1229,2419){-258,-21}...{-258,-21}     % 5
  340.       (971,2398){-1,0}...               % 6
  341.       (440,2181){-1,-1}...               % 7
  342.       (312,1929){0,-1}...               % 8
  343.       (329,1804){88,-417}...               % 9
  344.       (353,1702){0,-1}...               % 10
  345.       (317,1583){-1,-1}...{-1,0}          % 11
  346.       (190,1528)--                    % 12
  347.       (190,1528){-1,0}...               % 13
  348.       (117,1564){-1,1}...               % 14
  349.       (54,1768){0,1}...               % 15
  350.       (244,2189){1,1}...{447,68}          % 16
  351.       (958,2523){255,121}...{255,121}     % 17
  352.       (1213,2644){16,-107}...{16,-107}     % 18
  353.       (1229,2537){1,0}...               % 19
  354.       (1807,2489){900,-183}...          % *20
  355.       (2129,2354){1,-1}...               % 21
  356.       (2251,2048){0,-1}...               % 22
  357.       (2075,1617){-1,-1}...{-601,-307}     % 23
  358.       (1812,1417){11,-26}...{11,-26}          % 24
  359.       (1823,1391)--cycle);               % 25
  360.  
  361. n := 10;
  362. t1 := 0;
  363. t2 := 3;
  364. t3 := 5;
  365. t4 := 6;
  366. t5 := 7;
  367. t6 := 8;
  368. t7 := 9;
  369. t8 := 12;
  370. t9 := 16;
  371. t10 := 17;
  372.  
  373. adj_fill.C()                         % fixed x points
  374.      ()                         % fixed y points
  375.      ((3,8), (4,9), (5,3), (6,4), (9,5), (10,6))% tied points
  376.      ((2,8))                         % verticals
  377.      ((4,7), (1,9))                    % horizontals
  378.      ((196,-14){1098,0}...               % 0
  379.       (1294,-14){1,0}...               % 1
  380.       (2222,352){1,1}...               % 2
  381.       (2427,853){0,1}...               % 3
  382.       (2269,1230){-1,1}...{-1,0}          % 4
  383.       (1823,1391){-502,16}...{-502,16}     % 5
  384.       (1321,1407){-1,0}...{0,1}          % 6
  385.       (1229,1455)--                    % 7
  386.       (1216,1291){660,75}...               % 8
  387.       (1466,1303){1,0}...               % 9
  388.       (1796,1263){546,-155}...          % *10
  389.       (2012,1148){1,-1}...               % 11
  390.       (2156,810){0,-1}...               % 12
  391.       (2009,351){-1,-1}...               % 13
  392.       (1752,222){-667,-174}...          % *14
  393.       (1342,177){-1,0}...{-1,0}          % 15
  394.       (759,180){-463,0}...{-463,0}          % 16
  395.       (296,180)--cycle);               % 17
  396.  
  397. endchar(0);
  398.  
  399. "smuc";
  400.  
  401. charbegin( "C", 2031h#, capheight*v#, baseline );
  402. n := 17;
  403. t1 := 0;
  404. t2 := 1;
  405. t3 := 3;
  406. t4 := 5;
  407. t5 := 7;
  408. t6 := 9;
  409. t7 := 12;
  410. t8 := 15;
  411. t9 := 18;
  412. t10 := 19;
  413. t11 := 21;
  414. t12 := 24;
  415. t13 := 27;
  416. t14 := 29;
  417. t15 := 31;
  418. t16 := 33;
  419. t17 := 34;
  420.  
  421. adj_fill.A(10)                         % fixed x points
  422.      (2, 9, 17)                    % fixed y points
  423.      ((1,1), (17,1))                    % tied points
  424.      ((7,12), (5,14), (3,16))          % verticals
  425.      ((8,11), (6,13), (4,15))          % horizontals
  426.      ((914,1881){1,1}...               % 0
  427.       (1031,1922){1,0}...               % 1
  428.       (1146,1879){1,-1}...               % 2
  429.       (1161,1729){-56,-261}...          % 3
  430.       (1192,1557){1,-1}...               % 4
  431.       (1332,1520){1,0}...               % 5
  432.       (1600,1640){1,1}...               % 6
  433.       (1719,2007){0,1}...               % 7
  434.       (1607,2349){-1,1}...               % 8
  435.       (1254,2477){-1,0}...               % 9
  436.       (724,2282){-1,-1}...               % 10
  437.       (509,1875){-291,-1028}...          % *11
  438.       (433,1254){0,-1}...               % 12
  439.       (517,677){324,-990}...               % *13
  440.       (757,264){1,-1}...               % 14
  441.       (1189,71){1,0}...               % 15
  442.       (1569,229){1,1}...{166,754}          % 16
  443.       (1710,537){39,25}...{39,25}          % 17
  444.       (1749,562)--                    % 18
  445.       (1919,389){-219,-467}...          % 19
  446.       (1791,190){-1,-1}...               % 20
  447.       (1099,-56){-1,0}...               % 21
  448.       (474,200){-1,1}...               % 22
  449.       (240,602){-316,961}...               % *23
  450.       (158,1161){0,1}...               % 24
  451.       (254,1833){370,1148}...          % *25
  452.       (528,2309){1,1}...               % 26
  453.       (1320,2592){1,0}...               % 27
  454.       (1851,2424){1,-1}...               % 28
  455.       (1974,2050){0,-1}...               % 29
  456.       (1795,1582){-1,-1}...               % 30
  457.       (1344,1409){-1,0}...               % 31
  458.       (955,1533){-1,1}...               % 32
  459.       (873,1745){0,1}...{1,1}          % 33
  460.       (914,1881)--cycle);               % 34
  461.  
  462. endchar(0);
  463.  
  464. "smud";
  465.  
  466. charbegin( "D", 2875h#, capheight*v#, baseline );
  467. n := 14;
  468. t1 := 0;
  469. t2 := 1;
  470. t3 := 3;
  471. t4 := 9;
  472. t5 := 11;
  473. t6 := 13;
  474. t7 := 14;
  475. t8 := 16;
  476. t9 := 19;
  477. t10 := 20;
  478. t11 := 23;
  479. t12 := 27;
  480. t13 := 28;
  481. t14 := 29;
  482.  
  483. adj_fill.A(1)                         % fixed x points
  484.      (6, 7)                         % fixed y points
  485.      ((6,1), (7,1), (9,2), (10,3), (13,4), (14,5))% tied points
  486.      ((5,8), (3,11))                    % verticals
  487.      ((4,9), (2,12))                    % horizontals
  488.      ((211,16){1078,0}...               % 0
  489.       (1289,16){1,0}...               % 1
  490.       (2311,434){1,1}...               % 2
  491.       (2728,1451){0,1}...               % 3
  492.       (2477,2214){-1,1}...               % 4
  493.       (2002,2471){-1188,347}...{-1,0}     % *5
  494.       (1289,2561){0,75}...{0,75}          % 6
  495.       (1289,2636){-15,23}...{-15,23}          % 7
  496.       (1274,2659){-211,-114}...{-211,-114}     % 8
  497.       (1063,2545){-1,0}...               % 9
  498.       (253,2224){-1,-1}...               % 10
  499.       (78,1814){0,-1}...               % 11
  500.       (132,1607){1,-1}...{1,0}          % 12
  501.       (224,1566)--                    % 13
  502.       (224,1566){1,0}...               % 14
  503.       (331,1624){1,1}...               % 15
  504.       (368,1749){0,1}...               % 16
  505.       (341,1994){0,1}...               % 17
  506.       (425,2202){1,1}...{1,0}          % 18
  507.       (1039,2431){250,-2}...{250,-2}          % 19
  508.       (1289,2429){1,0}...               % 20
  509.       (1829,2362){896,-257}...          % *21
  510.       (2185,2172){1,-1}...               % 22
  511.       (2458,1431){0,-1}...               % 23
  512.       (2379,865){-304,-962}...          % *24
  513.       (2154,469){-1,-1}...               % 25
  514.       (1800,269){-865,-270}...          % *26
  515.       (1289,199){-1,0}...               % 27
  516.       (789,199){-2,0}...{-475,0}          % 28
  517.       (314,199)--cycle);               % 29
  518.  
  519. n := 6;
  520. t1 := 0;
  521. t2 := 3;
  522. t3 := 4;
  523. t4 := 5;
  524. t5 := 6;
  525. t6 := 9;
  526.  
  527. adj_fill.B()                         % fixed x points
  528.      ()                         % fixed y points
  529.      ((1,5), (3,2), (4,3), (6,4))          % tied points
  530.      ((2,5))                         % verticals
  531.      ()                         % horizontals
  532.      ((314,199){1,0}...               % 0
  533.       (879,444){1,1}...               % 1
  534.       (997,739){160,841}...               % *2
  535.       (1039,1285){0,1}...{0,1146}          % 3
  536.       (1039,2431)--                    % 4
  537.       (1289,2429){0,-867}...               % 5
  538.       (1289,1562){0,-1}...               % 6
  539.       (1202,855){-336,-1188}...          % *7
  540.       (953,374){-164,-175}...{-164,-175}     % 8
  541.       (789,199)--cycle);               % 9
  542.  
  543. endchar(0);
  544.  
  545. "smue";
  546.  
  547. charbegin( "E", 2052h#, capheight*v#, baseline );
  548. n := 18;
  549. t1 := 0;
  550. t2 := 2;
  551. t3 := 5;
  552. t4 := 8;
  553. t5 := 10;
  554. t6 := 12;
  555. %t7 := 14;
  556. t7 := 14.5; % DEK
  557. t8 := 16;
  558. t9 := 17;
  559. t10 := 18;
  560. t11 := 21;
  561. t12 := 23;
  562. t13 := 25;
  563. t14 := 28;
  564. t15 := 29;
  565. t16 := 32;
  566. t17 := 34;
  567. t18 := 37;
  568.  
  569. adj_fill.A(1, 4, 14, 15)               % fixed x points
  570.      (8, 10, 18)                    % fixed y points
  571.      ((9,1), (10,1))                    % tied points
  572.      ((7,11), (5,13), (3,16))          % verticals
  573.      ((6,12), (14,15), (2,17))          % horizontals
  574.      ((1865,392){-187,-376}...          % 0
  575.       (1783,252){-1,-1}...               % 1
  576.       (1048,-45){-1,0}...               % 2
  577.       (621,16){-730,235}...               % *3
  578.       (318,190){-1,1}...               % 4
  579.       (157,639){0,1}...               % 5
  580.       (386,1175){1,1}...{524,76}          % 6
  581.       (876,1402){3,38}...{3,38}          % 7
  582.       (879,1440){-273,91}...               % 8
  583.       (592,1607){-1,1}...               % 9
  584.       (455,1997){0,1}...               % 10
  585.       (627,2406){1,1}...               % 11
  586.       (1249,2616){1,0}...               % 12
  587.       (1628,2473){1,-1}...               % 13
  588.       (1718,2239){0,-1}...               % 14
  589.       (1640,2026){-1,-1}...               % 15
  590.       (1495,1942){-1,0}...{-1,1}          % 16
  591.       (1384,1981)--                    % 17
  592.       (1384,1981){-1,1}...               % 18
  593.       (1360,2060){0,1}...               % 19
  594.       (1408,2171){486,715}...          % 20
  595.       (1453,2296){0,1}...               % 21
  596.       (1391,2423){-1,1}...               % 22
  597.       (1145,2499){-1,0}...               % 23
  598.       (867,2387){-1,-1}...               % 24
  599.       (700,1954){0,-1}...               % 25
  600.       (837,1604){1,-1}...               % 26
  601.       (1074,1483){609,-164}...{1,0}          % *27
  602.       (1446,1440){0,-93}...{0,-93}          % 28
  603.       (1446,1347){-1,0}...               % 29
  604.       (945,1295){-806,-199}...          % *30
  605.       (640,1148){-1,-1}...               % 31
  606.       (453,695){0,-1}...               % 32
  607.       (618,244){1,-1}...               % 33
  608.       (1107,90){1,0}...               % 34
  609.       (1527,288){1,1}...{106,609}          % 35
  610.       (1659,557){43,13}...{43,13}          % 36
  611.       (1702,570)--cycle);               % 37
  612.  
  613. endchar(0);
  614.  
  615. "smuf";
  616.  
  617. %charbegin( "F", 2204h#, capheight*v#, baseline );
  618. charbegin( "F", (2204+100)*h#, capheight*v#, baseline ); % DEK
  619. n := 14;
  620. t1 := 0;
  621. t2 := 2;
  622. t3 := 4;
  623. t4 := 5;
  624. t5 := 6;
  625. t6 := 9;
  626. t7 := 11;
  627. t8 := 12;
  628. t9 := 13;
  629. t10 := 15;
  630. t11 := 17;
  631. t12 := 19;
  632. t13 := 22;
  633. t14 := 23;
  634.  
  635. adj_fill.A(1, 12)                    % fixed x points
  636.      (7, 9, 12, 13)                    % fixed y points
  637.      ((3,1), (4,2), (7,3), (8,3))          % tied points
  638.      ((6,10))                    % verticals
  639.      ((5,11), (2,14))               % horizontals
  640.      ((2514,2528){-148,-275}...          % 0
  641.       (2366,2253){-148,-275}...          % 1
  642.       (2203,2127){-1,0}...               % 2
  643.       (2043,2159){-528,155}...{-720,241}     % 3
  644.       (1556,2304){-258,64}...{-258,64}     % 4
  645.       (1298,2368){-584,140}...          % 5
  646.       (1033,2409){-1,0}...               % 6
  647.       (523,2225){-1,-1}...               % 7
  648.       (403,1963){0,-1}...               % 8
  649.       (416,1811){181,-733}...          % 9
  650.       (447,1686){0,-1}...{-1,-1}          % 10
  651.       (407,1570)--                    % 11
  652.       (407,1570){-1,-1}...               % 12
  653.       (303,1516){-1,0}...               % 13
  654.       (181,1570){-1,1}...               % 14
  655.       (128,1738){0,1}...               % 15
  656.       (330,2242){1,1}...               % 16
  657.       (1130,2525){1,0}...{599,-114}          % 17
  658.       (1298,2507){258,93}...{258,93}          % 18
  659.       (1556,2600){0,-126}...{0,-126}          % 19
  660.       (1556,2474){559,-128}...          % 20
  661.       (2112,2361){303,-48}...          % 21
  662.       (2231,2346){1,0}...               % 22
  663.       (2369,2429){84,130}...{84,130}          % 23
  664.       (2453,2559)--cycle);               % 24
  665.  
  666. n := 10;
  667. t1 := 0;
  668. t2 := 1;
  669. t3 := 5;
  670. t4 := 10;
  671. t5 := 11;
  672. t6 := 13;
  673. t7 := 14;
  674. t8 := 16;
  675. t9 := 22;
  676. t10 := 25;
  677.  
  678. adj_fill.B(8)                         % fixed x points
  679.      (2, 10)                         % fixed y points
  680.      ((1,4), (6,2), (7,1), (10,4))          % tied points
  681.      ((6,7))                         % verticals
  682.      ((4,5), (3,9))                    % horizontals
  683.      ((91,421){1,1}...               % 0
  684.       (213,468){1,0}...               % 1
  685.       (287,447){1,-1}...               % 2
  686.       (355,332){170,-416}...               % 3
  687.       (434,202){1,-1}...               % 4
  688.       (704,92){1,0}...               % 5
  689.       (1091,300){1,1}...               % 6
  690.       (1244,571){207,660}...               % *7
  691.       (1298,960){0,1}...{0,309}          % 8
  692.       (1298,1269){-608,0}...{-608,0}          % 9
  693.       (690,1269){69,113}...{69,113}          % 10
  694.       (759,1382){539,0}...{539,0}          % 11
  695.       (1298,1382){0,986}...{0,986}          % 12
  696.       (1298,2368)--                    % 13
  697.       (1556,2304){0,-922}...{0,-922}          % 14
  698.       (1556,1382){535,0}...{535,0}          % 15
  699.       (2091,1382){-103,-113}...{-103,-113}     % 16
  700.       (1988,1269){-432,0}...{-432,0}          % 17
  701.       (1556,1269){0,-168}...               % 18
  702.       (1556,1101){0,-1}...               % 19
  703.       (1487,625){-267,-817}...          % *20
  704.       (1289,284){-1,-1}...               % 21
  705.       (504,-56){-1,0}...               % 22
  706.       (129,104){-1,1}...               % 23
  707.       (39,305){0,1}...{1,1}               % 24
  708.       (91,421)--cycle);               % 25
  709. mathcorr(100h#); % DEK
  710. endchar(0);
  711.  
  712. "smug";
  713.  
  714. %charbegin( "G", 2038h#, capheight*v#, depthy*v#);
  715. charbegin( "G", 2038h#, capheight*v#, 2/3descender*v#); % DEK
  716. n := 13;
  717. t1 := 0;
  718. t2 := 1;
  719. t3 := 3;
  720. t4 := 5;
  721. t5 := 7;
  722. t6 := 9;
  723. t7 := 11;
  724. t8 := 12;
  725. t9 := 15;
  726. t10 := 17;
  727. t11 := 19;
  728. t12 := 21;
  729. t13 := 22;
  730.  
  731. adj_fill.A(8)                         % fixed x points
  732.      (1)                         % fixed y points
  733.      ((1,2), (13,1))                    % tied points
  734.      ((6,9), (4,11), (1,2))               % verticals
  735.      ((7,8), (5,10), (3,12))               % horizontals
  736.      ((1839,1445){-186,-46}...{-186,-46}     % 0
  737.       (1653,1399){-80,-402}...          % 1
  738.       (1526,1106){-1,-1}...               % 2
  739.       (1072,937){-1,0}...               % 3
  740.       (675,1113){-1,1}...               % 4
  741.       (485,1688){0,1}...               % 5
  742.       (722,2290){1,1}...               % 6
  743.       (1160,2462){1,0}...               % 7
  744.       (1492,2339){1,-1}...               % 8
  745.       (1587,2119){0,-1}...               % 9
  746.       (1532,1919){-1,-1}...{-1,0}          % 10
  747.       (1282,1841)--                    % 11
  748.       (1276,1779){596,-122}...          % 12
  749.       (1446,1748){1,0}...               % 13
  750.       (1739,1885){1,1}...               % 14
  751.       (1839,2154){0,1}...               % 15
  752.       (1728,2442){-1,1}...               % 16
  753.       (1255,2585){-1,0}...               % 17
  754.       (486,2329){-1,-1}...               % 18
  755.       (214,1684){0,-1}...               % 19
  756.       (417,1071){1,-1}...               % 20
  757.       (1046,825){1,0}...{307,223}          % 21
  758.       (1572,976)--cycle);               % 22
  759.  
  760. n := 10;
  761. t1 := 0;
  762. t2 := 1;
  763. t3 := 3;
  764. t4 := 7;
  765. t5 := 8;
  766. t6 := 9;
  767. t7 := 12;
  768. t8 := 14;
  769. t9 := 16;
  770. t10 := 17;
  771.  
  772. adj_fill.B()                         % fixed x points
  773.      (1, 9)                         % fixed y points
  774.      ((1,3), (4,2), (5,1), (10,3))          % tied points
  775.      ((4,6), (2,8))                    % verticals
  776.      ((3,7))                         % horizontals
  777.      ((221,73){-1,-1}...               % 0
  778.       (168,-53){0,-1}...               % 1
  779.       (287,-331){1,-1}...               % 2
  780.       (746,-489){1,0}...               % 3
  781.       (1565,-148){1,1}...               % 4
  782.       (1766,272){272,1115}...          % *5
  783.       (1837,967){0,1}...{0,1}          % 6
  784.       (1839,1445)--                    % 7
  785.       (1572,976){0,-1}...               % 8
  786.       (1582,635){10,-341}...               % 9
  787.       (1528,172){-235,-789}...          % *10
  788.       (1347,-154){-1,-1}...               % 11
  789.       (896,-343){-1,0}...               % 12
  790.       (586,-241){-1,1}...               % 13
  791.       (504,-61){-122,625}...               % 14
  792.       (452,77){-1,1}...               % 15
  793.       (355,115){-1,0}...{-1,-1}          % 16
  794.       (221,73)--cycle);               % 17
  795.  
  796. endchar(0);
  797.  
  798. "smuh";
  799.  
  800. %charbegin( "H", 3075h#, capheight*v#, baseline );
  801. charbegin( "H", (3075+50)*h#, capheight*v#, baseline ); % DEK
  802. n := 9;
  803. t1 := 1;
  804. t2 := 2;
  805. t3 := 7;
  806. t4 := 8;
  807. t5 := 9;
  808. t6 := 10;
  809. t7 := 13;
  810. t8 := 16;
  811. t9 := 17;
  812.  
  813. adj_fill.A(9)                         % fixed x points
  814.      (4, 6)                         % fixed y points
  815.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  816.      ((3,7))                         % verticals
  817.      ((2,8))                         % horizontals
  818.      ((1508,2493){-180,-80}...{-180,-80}     % 0
  819.       (1328,2413){-244,0}...{-244,0}          % 1
  820.       (1084,2413){-1,0}...               % 2
  821.       (699,2374){-617,-149}...          % *3
  822.       (467,2264){-1,-1}...               % 4
  823.       (349,2022){0,-1}...               % 5
  824.       (364,1878){185,-848}...          % 6
  825.       (396,1731){0,-1}...{-1,-1}          % 7
  826.       (368,1630)--                    % 8
  827.       (368,1630){-1,-1}...               % 9
  828.       (247,1562){-1,0}...               % 10
  829.       (158,1610){-1,1}...               % 11
  830.       (111,1711){-63,272}...               % *12
  831.       (95,1882){0,1}...               % 13
  832.       (306,2309){1,1}...               % 14
  833.       (627,2493){778,248}...               % *15
  834.       (1084,2557){1,0}...{605,-13}          % 16
  835.       (1512,2544)--cycle);               % 17
  836.  
  837. n := 12;
  838. t1 := 0;
  839. t2 := 1;
  840. t3 := 5;
  841. t4 := 8;
  842. t5 := 8.667;
  843. t6 := 9;
  844. t7 := 10;
  845. t8 := 11;
  846. t9 := 12;
  847. t10 := 15;
  848. t11 := 17;
  849. t12 := 18;
  850.  
  851. adj_fill.B(1, 5, 11)                    % fixed x points
  852.      (2, 12)                         % fixed y points
  853.      ((1,6), (6,1), (7,3), (8,4), (9,5), (12,6))% tied points
  854.      ((4,8))                         % verticals
  855.      ((3,10))                    % horizontals
  856.      ((59,354){1,1}...               % 0
  857.       (163,394){1,0}...               % 1
  858.       (277,367){1,-1}...               % 2
  859.       (327,283){157,-378}...               % 3
  860.       (378,189){1,-1}...               % 4
  861.       (556,123){1,0}...               % 5
  862.       (844,258){1,1}...               % 6
  863.       (1022,663){240,1114}...          % *7
  864.       (1084,1372){0,1}...{-14,861}          % 8
  865.       (1084,2413)--                    % 9
  866.       (1328,2413){0,-979}...               % 10
  867.       (1328,1434){0,-2}...{0,-140}          % 11
  868.       (1328,1294){0,-1}...               % 12
  869.       (1243,680){-328,-1042}...          % *13
  870.       (1000,252){-1,-1}...               % 14
  871.       (396,-41){-1,0}...               % 15
  872.       (112,68){-1,1}...               % 16
  873.       (21,259){0,1}...{1,1}               % 17
  874.       (59,354)--cycle);               % 18
  875.  
  876. n := 4;
  877. t1 := 0;
  878. t2 := 1;
  879. t3 := 2;
  880. t4 := 3;
  881.  
  882. adj_fill.C()                         % fixed x points
  883.      ()                         % fixed y points
  884.      ((1,8), (2,4), (3,5), (4,7))          % tied points
  885.      ()                         % verticals
  886.      ((2,3))                         % horizontals
  887.      ((2175,1434){-847,0}...{-847,0}          % 0
  888.       (1328,1434)--                    % 1
  889.       (1328,1294){828,0}...{828,0}          % 2
  890.       (2156,1294)--cycle);               % 3
  891.  
  892. n := 13;
  893. t1 := 0;
  894. t2 := 2;
  895. t3 := 5;
  896. t4 := 6;
  897. t5 := 7;
  898. t6 := 10;
  899. t7 := 13;
  900. t8 := 14;
  901. t9 := 15;
  902. t10 := 17;
  903. t11 := 21;
  904. t12 := 24;
  905. t13 := 26;
  906.  
  907. adj_fill.D(1, 8)                    % fixed x points
  908.      (9, 13)                         % fixed y points
  909.      ((4,7), (5,8), (7,9), (8,9))          % tied points
  910.      ((3,11))                    % verticals
  911.      ((6,10), (2,12))               % horizontals
  912.      ((3028,332){-179,-290}...          % 0
  913.       (2886,109){-1,-1}...               % 1
  914.       (2542,-47){-1,0}...               % 2
  915.       (2324,46){-1,1}...               % 3
  916.       (2183,343){-190,793}...          % *4
  917.       (2134,839){0,1}...{43,671}          % 5
  918.       (2156,1294){19,140}...{19,140}          % 6
  919.       (2175,1434){100,545}...          % 7
  920.       (2340,2023){399,969}...          % *8
  921.       (2574,2403){1,1}...               % 9
  922.       (2949,2574){1,0}...               % 10
  923.       (3084,2541){1,-1}...               % 11
  924.       (3148,2423){0,-1}...{-1,-1}          % 12
  925.       (3103,2310)--                    % 13
  926.       (3103,2310){-1,-1}...               % 14
  927.       (3007,2255){-1,0}...               % 15
  928.       (2922,2301){-1,1}...               % 16
  929.       (2780,2364){-1,0}...               % 17
  930.       (2638,2309){-1,-1}...               % 18
  931.       (2528,2126){-191.1,-483.1}...          % *19
  932.       (2447,1826){-258,-1384}...          % *20
  933.       (2380,925){0,-1}...               % 21
  934.       (2425,431){172,-779}...          % *22
  935.       (2552,146){1,-1}...               % 23
  936.       (2684,109){1,0}...               % 24
  937.       (2816,199){1,1}...{301,542}          % 25
  938.       (2964,389)--cycle);               % 26
  939.  
  940. mathcorr(50h#); % DEK
  941. endchar(0);
  942.  
  943. "smui"; 
  944.  
  945. %charbegin( 125, 1395h#, capheight*v#, baseline );
  946. %charbegin( 123, 1395h#, capheight*v#, baseline ); % DEK
  947. charbegin( "I", 1395h#, capheight*v#, baseline ); % NGB
  948.  
  949. n := 8;
  950. t1 := 1;
  951. t2 := 2;
  952. t3 := 7;
  953. t4 := 9;
  954. t5 := 10;
  955. t6 := 12;
  956. t7 := 15;
  957. t8 := 16;
  958.  
  959. adj_fill.A(8)                         % fixed x points
  960.      (4, 5)                         % fixed y points
  961.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  962.      ((3,6))                         % verticals
  963.      ((2,7))                         % horizontals
  964.      ((1336,2461){-175,-39}...{-175,-39}     % 0
  965.       (1161,2422){-231,0}...{-231,0}          % 1
  966.       (930,2422){-1,0}...               % 2
  967.       (568,2379){-598,-167}...          % *3
  968.       (332,2255){-1,-1}...               % 4
  969.       (245,2065){0,-1}...               % 5
  970.       (255,1983){154,-518}...          % 6
  971.       (287,1855){0,-1}...               % 7
  972.       (237,1737){-1,-1}...{-1,0}          % 8
  973.       (158,1704)--                    % 9
  974.       (158,1704){-1,0}...               % 10
  975.       (78,1741){-1,1}...               % 11
  976.       (10,1940){0,1}...               % 12
  977.       (160,2300){1,1}...               % 13
  978.       (521,2489){916,255}...               % *14
  979.       (1076,2555){1,0}...{354,-16}          % 15
  980.       (1386,2534)--cycle);               % 16
  981.  
  982. n := 10;
  983. t1 := 0;
  984. t2 := 1;
  985. t3 := 5;
  986. t4 := 8;
  987. t5 := 9;
  988. t6 := 10;
  989. t7 := 11;
  990. t8 := 13;
  991. t9 := 15;
  992. t10 := 16;
  993.  
  994. adj_fill.B(1, 9)                    % fixed x points
  995.      (2, 10)                         % fixed y points
  996.      ((1,4), (5,1), (6,3), (10,4))          % tied points
  997.      ((4,7))                         % verticals
  998.      ((3,8))                         % horizontals
  999.      ((25,377){1,1}...               % 0
  1000.       (130,420){1,0}...               % 1
  1001.       (227,364){1,-1}...               % 2
  1002.       (259,259){176,-742}...               % 3
  1003.       (321,138){1,-1}...               % 4
  1004.       (454,102){1,0}...               % 5
  1005.       (717,234){1,1}...               % 6
  1006.       (875,562){213,867}...               % *7
  1007.       (930,1101){0,1}...{0,1321}          % 8
  1008.       (930,2422)--                    % 9
  1009.       (1161,2422){0,-1295}...          % 10
  1010.       (1161,1127){0,-1}...               % 11
  1011.       (836,168){-1,-1}...               % 12
  1012.       (379,-52){-1,0}...               % 13
  1013.       (92,49){-1,1}...               % 14
  1014.       (0,254){0,1}...{1,1}               % 15
  1015.       (25,377)--cycle);               % 16
  1016.  
  1017. endchar(0);
  1018.  
  1019. "smuj";
  1020.  
  1021. %charbegin( "J", 1674h#, capheight*v#, depthy*v#);
  1022. charbegin( "J", 1674h#, capheight*v#, 2/3descender*v#); % DEK
  1023. n := 16;
  1024. t1 := 0;
  1025. t2 := 2;
  1026. t3 := 4;
  1027. t4 := 5;
  1028. t5 := 6;
  1029. t6 := 7;
  1030. t7 := 10;
  1031. t8 := 12;
  1032. t9 := 14;
  1033. t10 := 15;
  1034. t11 := 18;
  1035. t12 := 20;
  1036. t13 := 24;
  1037. t14 := 29;
  1038. t15 := 31;
  1039. t16 := 33;
  1040.  
  1041. adj_fill.A(10)                         % fixed x points
  1042.      (1, 16)                         % fixed y points
  1043.      ((1,3), (4,1), (5,2), (9,2), (10,1), (16,3))% tied points
  1044.      ((8,11), (6,13), (2,15))          % verticals
  1045.      ((9,10), (7,12), (3,14))          % horizontals
  1046.      ((358,1566){1,0}...               % 0
  1047.       (459,1629){1,1}...               % 1
  1048.       (503,1850){0,1}...               % 2
  1049.       (629,2201){1,1}...{347,45}          % 3
  1050.       (1160,2428){0,-1133}...{0,-1133}     % 4
  1051.       (1160,1295){-12,-126}...{-12,-126}     % 5
  1052.       (1148,1169){0,-295}...               % 6
  1053.       (1160,652){0,-1}...               % 7
  1054.       (1102,167){-225,-801}...          % *8
  1055.       (935,-149){-1,-1}...               % 9
  1056.       (582,-315){-1,0}...               % 10
  1057.       (337,-229){-1,1}...               % 11
  1058.       (250,72){0,1}...               % 12
  1059.       (596,820){1,1}...{752,294}          % 13
  1060.       (1148,1169)--                    % 14
  1061.       (1160,1295){-648,-249}...          % 15
  1062.       (477,873){-1,-1}...               % 16
  1063.       (126,403){-474,-934}...          % *17
  1064.       (3,-61){0,-1}...               % 18
  1065.       (128,-369){1,-1}...               % 19
  1066.       (469,-478){1,0}...               % 20
  1067.       (783,-392){639,330}...               % *21
  1068.       (1108,-148){1,1}...               % 22
  1069.       (1323,242){290,966}...               % *23
  1070.       (1398,818){0,1}...               % 24
  1071.       (1398,2376){0,1}...               % 25
  1072.       (1398,2460){232,78}...{232,78}          % 26
  1073.       (1630,2538){-11,44}...{-11,44}          % 27
  1074.       (1619,2582){-474,8}...               % 28
  1075.       (1398,2581){-1,0}...               % 29
  1076.       (414,2193){-1,-1}...               % 30
  1077.       (207,1765){0,-1}...               % 31
  1078.       (254,1613){1,-1}...{1,0}          % 32
  1079.       (358,1566)--cycle);               % 33
  1080.  
  1081. endchar(0);
  1082.  
  1083. "smuk";
  1084.  
  1085. charbegin( "K", 2847h#, capheight*v#, baseline );
  1086. n := 9;
  1087. t1 := 1;
  1088. t2 := 2;
  1089. t3 := 6;
  1090. t4 := 7;
  1091. t5 := 8;
  1092. t6 := 9;
  1093. t7 := 11;
  1094. t8 := 13;
  1095. t9 := 14;
  1096.  
  1097. adj_fill.A(9)                         % fixed x points
  1098.      (4, 6)                         % fixed y points
  1099.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  1100.      ((3,7))                         % verticals
  1101.      ((2,8))                         % horizontals
  1102.      ((1476,2490){-164,-77}...{-164,-77}     % 0
  1103.       (1312,2413){-254,0}...{-254,0}          % 1
  1104.       (1058,2413){-1,0}...               % 2
  1105.       (446,2204){-1,-1}...               % 3
  1106.       (349,2007){0,-1}...               % 4
  1107.       (359,1875){85,-587}...               % 5
  1108.       (382,1750){0,-1}...{-1,-1}          % 6
  1109.       (349,1616)--                    % 7
  1110.       (349,1616){-1,-1}...               % 8
  1111.       (234,1566){-1,0}...               % 9
  1112.       (131,1608){-1,1}...               % 10
  1113.       (74,1832){0,1}...               % 11
  1114.       (238,2223){1,1}...               % 12
  1115.       (1202,2558){1,0}...{416,-26}          % 13
  1116.       (1498,2540)--cycle);               % 14
  1117.  
  1118. n := 10;
  1119. t1 := 0;
  1120. t2 := 1;
  1121. t3 := 5;
  1122. t4 := 9;
  1123. t5 := 10;
  1124. t6 := 11;
  1125. t7 := 12;
  1126. t8 := 14;
  1127. t9 := 16;
  1128. t10 := 17;
  1129.  
  1130. adj_fill.B(9)                         % fixed x points
  1131.      (2, 10)                         % fixed y points
  1132.      ((1,6), (4,1), (5,3), (6,4), (7,5), (10,6))% tied points
  1133.      ((4,5))                         % verticals
  1134.      ((3,8))                         % horizontals
  1135.      ((45,358){1,1}...               % 0
  1136.       (146,401){1,0}...               % 1
  1137.       (237,384){1,-1}...               % 2
  1138.       (302,299){234,-393}...               % 3
  1139.       (379,194){1,-1}...               % 4
  1140.       (533,128){1,0}...               % 5
  1141.       (836,273){1,1}...               % 6
  1142.       (1000,576){222,757}...{0,1}          % *7
  1143.       (1058,1030){0,1383}...{0,1383}          % 8
  1144.       (1058,2413)--                    % 9
  1145.       (1312,2413){0,-1109}...{0,-1109}     % 10
  1146.       (1312,1304){-12,-108}...{-12,-108}     % 11
  1147.       (1300,1196){0,-1}...               % 12
  1148.       (947,218){-1,-1}...               % 13
  1149.       (401,-30){-1,0}...               % 14
  1150.       (80,82){-1,1}...               % 15
  1151.       (6,255){0,1}...{1,1}               % 16
  1152.       (45,358)--cycle);               % 17
  1153.  
  1154. n := 4;
  1155. t1 := 0;
  1156. t2 := 1;
  1157. t3 := 2;
  1158. t4 := 3;
  1159.  
  1160. adj_fill.C()                         % fixed x points
  1161.      ()                         % fixed y points
  1162.      ((1,8), (2,4), (3,5), (4,7))          % tied points
  1163.      ()                         % verticals
  1164.      ((2,3))                         % horizontals
  1165.      ((1375,1304){-63,0}...{-63,0}          % 0
  1166.       (1312,1304)--                    % 1
  1167.       (1300,1196){100,0}...{100,0}          % 2
  1168.       (1400,1196)--cycle);               % 3
  1169.  
  1170. n := 12;
  1171. t1 := 0;
  1172. t2 := 2;
  1173. t3 := 5;
  1174. t4 := 6;
  1175. t5 := 10;
  1176. t6 := 12;
  1177. t7 := 13;
  1178. t8 := 14;
  1179. t9 := 16;
  1180. t10 := 21;
  1181. t11 := 25;
  1182. t12 := 27;
  1183.  
  1184. adj_fill.D(1, 6, 8)                    % fixed x points
  1185.      (12)                         % fixed y points
  1186.      ((3,7), (4,8), (7,9), (8,9))          % tied points
  1187.      ((4,10))                    % verticals
  1188.      ((5,9), (2,11))                    % horizontals
  1189.      ((2752,329){-199,-580}...          % 0
  1190.       (2615,94){-1,-1}...               % 1
  1191.       (2311,-46){-1,0}...               % 2
  1192.       (2011,69){-1,1}...               % 3
  1193.       (1861,292){-471,904}...{-461,904}     % 4
  1194.       (1400,1196){-25,108}...{-25,108}     % 5
  1195.       (1375,1304){559,763}...          % 6
  1196.       (1934,2067){569,763}...          % 7
  1197.       (2205,2377){1,1}...               % 8
  1198.       (2405,2532){383,209}...          % *9
  1199.       (2588,2586){1,0}...               % 10
  1200.       (2778,2503){1,-1}...               % 11
  1201.       (2849,2351){0,-1}...{-1,-1}          % 12
  1202.       (2786,2218)--                    % 13
  1203.       (2786,2218){-1,-1}...               % 14
  1204.       (2660,2166){-1,0}...               % 15
  1205.       (2562,2249){-181,383}...          % 16
  1206.       (2444,2336){-1,0}...               % 17
  1207.       (2255,2250){-410,-326}...          % *18
  1208.       (2034,2010){-435,-596}...          % 19
  1209.       (1599,1414){-1.144,-1.64}...{-18,-27}     % 20
  1210.       (1581,1387){7,-66}...               % 21
  1211.       (1588,1321){.5728,-1.879}...          % 22
  1212.       (1930,674){342,-647}...          % 23
  1213.       (2255,232){1,-1}...               % 24
  1214.       (2413,154){1,0}...               % 25
  1215.       (2579,217){1,1}...{174,392}          % 26
  1216.       (2685,388)--cycle);               % 27
  1217.  
  1218. endchar(0);
  1219.  
  1220. "smul";
  1221.  
  1222. charbegin( "L", 2449h#, capheight*v#, baseline );
  1223. rot := identity slanted -1/6; % DEK
  1224.  
  1225. n := 7;
  1226. t1 := 0;
  1227. t2 := 8;
  1228. t3 := 10;
  1229. t4 := 11;
  1230. t5 := 13;
  1231. t6 := 15;
  1232. t7 := 19;
  1233.  
  1234. adj_fill.A(7)                         % fixed x points
  1235.      (1)                         % fixed y points
  1236.      ((1,3), (3,1), (4,1), (7,2))          % tied points
  1237.      ((2,5))                         % verticals
  1238.      ((3,6))                         % horizontals
  1239.      ((545,651){457,312}...               % 0
  1240.       (791,854){1,1}...               % 1
  1241.       (936,1132){272,792}...               % *2
  1242.       (1063,1646){171,930}...          % 3
  1243.       (1176,2104){241,705}...          % *4
  1244.       (1304,2351){1,1}...               % 5
  1245.       (1527,2449){1,0}...               % 6
  1246.       (1695,2375){1,-1}...               % 7
  1247.       (1751,2221){0,-1}...               % 8
  1248.       (1770,2100){1,-1}...{1,0}          % 9
  1249.       (1887,2056)--                    % 10
  1250.       (1887,2056){1,0}...               % 11
  1251.       (2019,2134){1,1}...               % 12
  1252.       (2059,2288){0,1}...               % 13
  1253.       (1991,2479){-1,1}...               % 14
  1254.       (1696,2581){-1,0}...               % 15
  1255.       (1146,2383){-1,-1}...               % 16
  1256.       (925,2040){-372,-850}...          % *17
  1257.       (774,1533){-221,-1144}...{-1,-1}     % 18
  1258.       (535,777)--cycle);               % 19
  1259.  
  1260. n := 8;
  1261. t1 := 0;
  1262. t2 := 3;
  1263. t3 := 8;
  1264. t4 := 9;
  1265. t5 := 13;
  1266. t6 := 15;
  1267. t7 := 19;
  1268. t8 := 22;
  1269.  
  1270. adj_fill.B()                         % fixed x points
  1271.      (5, 8)                         % fixed y points
  1272.      ((3,3), (4,2))                    % tied points
  1273.      ((1,8))                         % verticals
  1274.      ((3,6), (2,7))                    % horizontals
  1275. %     ((2125,971){115,-476}...          % 0
  1276. %      (2138,781){0,-1}...               % 1
  1277. %      (2027,410){-1,-1}...               % 2
  1278. %      (1755,265){-1,0}...               % 3
  1279.      (((2125,971){115,-476}...          % 0 % DEK
  1280.       (2138,781){0,-1}...               % 1
  1281.       (2027,410){-1,-1}...               % 2
  1282.       (1755,265){-1,0})slanted1/6{-1,0}...     % 3
  1283.       (1519,306){-553,163}...          % *4
  1284.       (1202,428){-1145,522}...          % 5
  1285.       (800,613){-547,222}...               % *6
  1286.       (655,650){-1,0}...{-504,-93}          % 7
  1287.       (545,651){-10,126}...{-10,126}          % 8
  1288.       (535,777){-1,-1}...               % 9
  1289.       (370,641){-784,-493}...          % 10
  1290.       (225,526){-1,-1}...{-59,-444}          % 11
  1291.       (25,53)--                    % 12
  1292.       (105,11){93,346}...               % 13
  1293.       (270,341){1,1}...               % 14
  1294.       (496,450){1,0}...{0,-12}          % 15
  1295.       (496,438){1,0}...               % 16
  1296.       (1035,208){723,-410}...          % 17
  1297.       (1393,34){613,-233}...               % *18
  1298. %      (1648,-25){1,0}...               % 19
  1299. %      (2054,178){1,1}...               % 20
  1300. %      (2237,746){0,1}...{-86,450}          % 21
  1301. %      (2198,992)--cycle);               % 22
  1302.       {1,0}((1648,-25){1,0}...          % 19 % DEK
  1303.       (2054,178){1,1}...               % 20
  1304.       (2237,746){0,1}...{-86,450}          % 21
  1305.       (2198,992))slanted1/6--cycle);          % 22
  1306.  
  1307. endchar(0);
  1308.  
  1309. "smum";
  1310.  
  1311. charbegin( "M", 3437h#, capheight*v#, baseline );
  1312. n := 10;
  1313. t1 := 0;
  1314. t2 := 1;
  1315. t3 := 3;
  1316. t4 := 6;
  1317. t5 := 7;
  1318. t6 := 8;
  1319. t7 := 9;
  1320. t8 := 12;
  1321. t9 := 14;
  1322. t10 := 15;
  1323.  
  1324. adj_fill.A(1, 9)                    % fixed x points
  1325.      (2, 5, 10)                    % fixed y points
  1326.      ((1,3), (5,1), (6,2), (10,3))          % tied points
  1327.      ((4,7))                         % verticals
  1328.      ((3,8))                         % horizontals
  1329.      ((46,333){1,1}...               % 0
  1330.       (143,375){1,0}...               % 1
  1331.       (286,272){193,-425}...               % 2
  1332.       (439,172){1,0}...               % 3
  1333.       (602,260){1,1}...               % 4
  1334.       (746,550){195,755}...               % *5
  1335.       (797,1015){0,1}...{0,1221}          % 6
  1336.       (797,2236)--                    % 7
  1337.       (935,2097){0,-837}...               % 8
  1338.       (935,1260){0,-1}...               % 9
  1339.       (852,547){-320,-1171}...          % *10
  1340.       (615,89){-1,-1}...               % 11
  1341.       (310,-45){-1,0}...               % 12
  1342.       (68,64){-1,1}...               % 13
  1343.       (-2,213){0,1}...{1,1}               % 14
  1344.       (46,333)--cycle);               % 15
  1345.  
  1346. n := 16;
  1347. t1 := 0;
  1348. t2 := 1;
  1349. t3 := 5;
  1350. t4 := 6;
  1351. t5 := 7;
  1352. t6 := 14;
  1353. t7 := 15;
  1354. t8 := 16;
  1355. t9 := 18;
  1356. t10 := 19;
  1357. t11 := 22;
  1358. t12 := 23;
  1359. t13 := 27;
  1360. t14 := 30;
  1361. t15 := 32;
  1362. t16 := 33;
  1363.  
  1364. adj_fill.B(15)                         % fixed x points
  1365.      (3, 10, 12, 13)                    % fixed y points
  1366.      ((1,6), (4,4), (5,5), (6,2), (7,1), (16,6))% tied points
  1367.      ((9,10))                    % verticals
  1368.      ((8,11), (2,14))               % horizontals
  1369.      ((3367,2300){-1,-1}...               % 0
  1370.       (3241,2242){-1,0}...               % 1
  1371.       (3167,2257){-1,1}...               % 2
  1372.       (3119,2316){-185,394}...          % 3
  1373.       (3094,2372){-1,1}...               % 4
  1374.       (3008,2411){-1,0}...{-1,-1}          % 5
  1375.       (2916,2374){-304,-236}...{-304,-236}     % 6
  1376.       (2612,2138){-214,-219}...          % 7
  1377.       (2115,1307){-795,-2071}...{-68,-511}     % *8
  1378.       (1817,67){-165,-129}...{-165,-129}     % 9
  1379.       (1652,-62){-32,26}...{-32,26}          % 10
  1380.       (1620,-36){-32,274}...               % 11
  1381.       (1351,1309){-685,2133}...          % *12
  1382.       (1159,1780){-415.9,788.2}...{-1,1}     % *13
  1383.       (935,2097){-138,139}...{-138,139}     % 14
  1384.       (797,2236){-209,237}...          % 15
  1385.       (498,2383){-1,0}...               % 16
  1386.       (277,2284){-1,-1}...{-80,-418}          % 17
  1387.       (139,1971)--                    % 18
  1388.       (64,1968){70,514}...               % 19
  1389.       (130,2247){173,459}...               % *20
  1390.       (237,2427){1,1}...               % 21
  1391.       (600,2588){1,0}...               % 22
  1392.       (1018,2403){1,-1}...{10,0}          % 23
  1393.       (1028,2403){1,-1}...               % 24
  1394.       (1494,1683){742,-1735}...{54,-357}     % *25
  1395.       (1770,668){18,-15}...{18,-15}          % 26
  1396.       (1788,653){141,552}...               % 27
  1397.       (2137,1615){826,1649}...          % *28
  1398.       (2614,2302){1,1}...               % 29
  1399.       (3169,2558){1,0}...               % 30
  1400.       (3349,2491){1,-1}...               % 31
  1401.       (3396,2395){0,-1}...{-1,-1}          % 32
  1402.       (3367,2300)--cycle);               % 33
  1403.  
  1404. n := 9;
  1405. t1 := 0;
  1406. t2 := 2;
  1407. t3 := 5;
  1408. t4 := 5.703;
  1409. t5 := 6;
  1410. t6 := 7;
  1411. t7 := 9;
  1412. t8 := 12;
  1413. t9 := 14;
  1414.  
  1415. adj_fill.C(1, 4)                    % fixed x points
  1416.      (9)                         % fixed y points
  1417.      ((5,5), (6,4))                    % tied points
  1418.      ((3,7))                         % verticals
  1419.      ((2,8))                         % horizontals
  1420.      ((3455,282){-285,-419}...          % 0
  1421.       (3274,67){-1,-1}...               % 1
  1422.       (2977,-98){-1,0}...               % 2
  1423.       (2749,1){-1,1}...               % 3
  1424.       (2628,358){-135,1361}...          % *4
  1425.       (2614,1362){0,1}...{32,767}          % 5
  1426.       (2612,2138)--                    % 6
  1427.       (2916,2374){-1,-1}...               % 7
  1428.       (2844,2200){0,-1}...               % 8
  1429.       (2844,1000){0,-1}...               % 9
  1430.       (2881,414){150,-880}...          % *10
  1431.       (2994,120){1,-1}...               % 11
  1432.       (3085,80){1,0}...               % 12
  1433.       (3242,154){1,1}...{257,420}          % 13
  1434.       (3385,337)--cycle);               % 14
  1435.  
  1436. endchar(0);
  1437.  
  1438. "smun";
  1439.  
  1440. %charbegin( "N", 2666h#, capheight*v#, baseline );
  1441. charbegin( "N", (2666+50)*h#, capheight*v#, baseline ); % DEK
  1442. n := 9;
  1443. t1 := 0;
  1444. t2 := 3;
  1445. t3 := 6;
  1446. t4 := 7;
  1447. t5 := 8;
  1448. t6 := 9;
  1449. t7 := 12;
  1450. t8 := 14;
  1451. t9 := 16;
  1452.  
  1453. adj_fill.A(1, 8)                    % fixed x points
  1454.      (1, 4, 9)                    % fixed y points
  1455.      ((1,3), (4,1), (5,2), (9,3))          % tied points
  1456.      ((3,6))                         % verticals
  1457.      ((2,7))                         % horizontals
  1458.      ((147,359){1,0}...               % 0
  1459.       (249,324){1,-1}...               % 1
  1460.       (298,250){205,-325}...               % 2
  1461.       (404,198){1,0}...               % 3
  1462.       (621,319){1,1}...               % 4
  1463.       (753,632){178,877}...               % *5
  1464.       (799,1196){0,1}...{0,957}          % 6
  1465.       (799,2153)--                    % 7
  1466.       (949,1973){0,-573}...               % 8
  1467.       (949,1400){0,-1}...               % 9
  1468.       (869,627){-307,-1244}...          % *10
  1469.       (642,156){-1,-1}...               % 11
  1470.       (278,-33){-1,0}...               % 12
  1471.       (73,43){-1,1}...               % 13
  1472.       (5,186){0,1}...               % 14
  1473.       (65,322){1,1}...{1,0}               % 15
  1474.       (147,359)--cycle);               % 16
  1475.  
  1476. n := 16;
  1477. t1 := 0;
  1478. t2 := 1;
  1479. t3 := 3;
  1480. t4 := 7;
  1481. t5 := 8;
  1482. t6 := 11;
  1483. t7 := 13;
  1484. t8 := 14;
  1485. t9 := 16;
  1486. t10 := 18;
  1487. t11 := 19;
  1488. t12 := 20;
  1489. t13 := 22;
  1490. t14 := 25;
  1491. t15 := 28;
  1492. t16 := 29;
  1493.  
  1494. adj_fill.B(2, 16)                    % fixed x points
  1495.      (1, 7, 15)                    % fixed y points
  1496.      ((1,4), (10,1), (11,2), (16,4))          % tied points
  1497.      ((7,8), (4,13))                    % verticals
  1498.      ((6,9), (5,12), (3,14))               % horizontals
  1499.      ((2838,2337){1,1}...               % 0
  1500.       (2866,2429){0,1}...               % 1
  1501.       (2811,2556){-1,1}...               % 2
  1502.       (2664,2614){-1,0}...               % 3
  1503.       (2367,2492){-1,-1}...               % 4
  1504.       (2252,2231){-157,-717}...          % *5
  1505.       (2210,1775){-2,-522}...{0,-1}          % 6
  1506.       (2220,504){-9,-45}...{-9,-45}          % 7
  1507.       (2211,459){-128,213}...          % 8
  1508.       (1380,1817){-1245,1903}...          % *9
  1509.       (966,2362){-1,1}...               % 10
  1510.       (526,2592){-1,0}...               % 11
  1511.       (159,2469){-1,-1}...{0,-1}          % 12
  1512.       (3,1970)--                    % 13
  1513.       (84,1987){72,365}...               % 14
  1514.       (209,2301){1,1}...               % 15
  1515.       (417,2378){1,0}...               % 16
  1516.       (592,2320){382,-225}...{1,-1}          % *17
  1517.       (799,2153){150,-180}...{150,-180}     % 18
  1518.       (949,1973){389,-526}...{162,-317}     % 19
  1519.       (2177,-52){165,107}...{165,107}     % 20
  1520.       (2342,55){-11,749}...               % 21
  1521.       (2344,1628){7,512}...               % 22
  1522.       (2361,2204){90,784}...               % *23
  1523.       (2434,2412){1,1}...               % 24
  1524.       (2511,2438){1,0}...               % 25
  1525.       (2588,2373){110,-315}...          % 26
  1526.       (2640,2295){1,-1}...               % 27
  1527.       (2718,2281){1,0}...{120,56}          % 28
  1528.       (2838,2337)--cycle);               % 29
  1529. mathcorr(50h#); % DEK
  1530. endchar(0);
  1531.  
  1532. "smuo";
  1533.  
  1534. charbegin( "O", 2420h#, capheight*v#, baseline );
  1535. n := 14;
  1536. t1 := 0;
  1537. %t2 := 2;
  1538. t2 := 1; % DEK
  1539. t3 := 4;
  1540. t4 := 7;
  1541. t5 := 10;
  1542. t6 := 13;
  1543. t7 := 15;
  1544. t8 := 16;
  1545. t9 := 17;
  1546. t10 := 20;
  1547. t11 := 23;
  1548. t12 := 26;
  1549. t13 := 30;
  1550. t14 := 31;
  1551.  
  1552. adj_fill.A(8)                         % fixed x points
  1553.      (1, 7, 14)                    % fixed y points
  1554.      ((1,1), (14,1))                    % tied points
  1555.      ((2,13), (4,11), (6,9))               % verticals
  1556.      ((5,10), (3,12))               % horizontals
  1557.      ((1089,1536){-1,0}...               % 0
  1558.       (958,1593){-1,1}...               % 1
  1559.       (871,1866){0,1}...               % 2
  1560.       (1075,2369){1,1}...               % 3
  1561.       (1515,2537){1,0}...               % 4
  1562.       (1970,2345){1,-1}...               % 5
  1563.       (2166,1968){265,-962}...          % *6
  1564.       (2235,1383){0,-1}...               % 7
  1565.       (2139,702){-369,-1160}...          % *8
  1566.       (1866,223){-1,-1}...               % 9
  1567.       (1072,-79){-1,0}...               % 10
  1568.       (477,202){-1,1}...               % 11
  1569.       (243,600){-316,949}...               % *12
  1570.       (161,1151){0,1}...               % 13
  1571.       (572,2310){1,1}...{282,184}          % 14
  1572.       (752,2447)--                    % 15
  1573.       (803,2400){-1,-1}...               % 16
  1574.       (416,1295){0,-1}...               % 17
  1575.       (487,683){272,-1004}...          % *18
  1576.       (688,291){1,-1}...               % 19
  1577.       (1173,68){1,0}...               % 20
  1578.       (1656,262){1,1}...               % 21
  1579.       (1894,706){321,1115}...          % *22
  1580.       (1977,1377){0,1}...               % 23
  1581.       (1914,1951){-243,933}...          % *24
  1582.       (1734,2310){-1,1}...               % 25
  1583.       (1483,2417){-1,0}...               % 26
  1584.       (1170,2300){-1,-1}...               % 27
  1585.       (1065,2065){0,-1}...               % 28
  1586.       (1198,1790){1,-1}...               % 29
  1587.       (1237,1662){0,-1}...{-1,0}          % 30
  1588.       (1089,1536)--cycle);               % 31
  1589.  
  1590. endchar(0);
  1591.  
  1592. "smup";
  1593.  
  1594. charbegin( "P", 2246h#, capheight*v#, baseline );
  1595. n := 12;
  1596. t1 := 0;
  1597. t2 := 2;
  1598. t3 := 5;
  1599. t4 := 6;
  1600. t5 := 11;
  1601. t6 := 12;
  1602. t7 := 13;
  1603. t8 := 14;
  1604. t9 := 16;
  1605. t10 := 18;
  1606. t11 := 23;
  1607. t12 := 25;
  1608.  
  1609. adj_fill.A(1, 12)                    % fixed x points
  1610.      (6, 8)                         % fixed y points
  1611.      ((1,5), (3,1), (4,2), (6,3), (7,3), (12,4))% tied points
  1612.      ((5,9), (2,11))                    % verticals
  1613.      ((4,10), (1,12))               % horizontals
  1614.      ((1270,1183){1,0}...               % 0
  1615.       (1824,1365){1,1}...               % 1
  1616.       (2010,1878){0,1}...               % 2
  1617.       (1845,2274){-1,1}...               % 3
  1618.       (1616,2397){-575,166}...          % *4
  1619.       (1270,2440){-1,0}...{-235,0}          % 5
  1620.       (1035,2440){-1,0}...               % 6
  1621.       (673,2397){-597,-167}...          % *7
  1622.       (438,2273){-1,-1}...               % 8
  1623.       (301,1987){0,-1}...               % 9
  1624.       (327,1837){147,-622}...          % 10
  1625.       (356,1734){0,-1}...{-1,-1}          % 11
  1626.       (317,1615)--                    % 12
  1627.       (317,1615){-1,-1}...               % 13
  1628.       (210,1566){-1,0}...               % 14
  1629.       (119,1604){-1,1}...               % 15
  1630.       (58,1824){0,1}...               % 16
  1631.       (259,2295){1,1}...{1,0}          % 17
  1632.       (1035,2561){235,96}...{235,96}          % 18
  1633.       (1270,2657){0,-101}...{0,-101}          % 19
  1634.       (1270,2556){1,0}...               % 20
  1635.       (1791,2493){860,-241}...          % *21
  1636.       (2130,2315){1,-1}...               % 22
  1637.       (2259,1904){0,-1}...               % 23
  1638.       (2042,1356){-1,-1}...{-1,0}          % 24
  1639.       (1270,1072)--cycle);               % 25
  1640.  
  1641. n := 10;
  1642. t1 := 0;
  1643. t2 := 2;
  1644. t3 := 4;
  1645. t4 := 8;
  1646. t5 := 9;
  1647. t6 := 10;
  1648. t7 := 11;
  1649. t8 := 14;
  1650. t9 := 16;
  1651. t10 := 18;
  1652.  
  1653. adj_fill.B()                         % fixed x points
  1654.      (1, 10)                         % fixed y points
  1655.      ((1,6), (4,2), (5,1), (6,5), (7,4), (10,6))% tied points
  1656.      ((4,5), (2,9))                    % verticals
  1657.      ((3,8))                         % horizontals
  1658.      ((332,480){1,0}...               % 0
  1659.       (427,458){1,-1}...               % 1
  1660.       (473,275){0,-1}...               % 2
  1661.       (528,115){1,-1}...               % 3
  1662.       (650,78){1,0}...               % 4
  1663.       (878,204){1,1}...               % 5
  1664.       (994,462){157,701}...               % *6
  1665.       (1035,905){0,1}...{0,1535}          % 7
  1666.       (1035,2440)--                    % 8
  1667.       (1270,2440){0,-1257}...          % 9
  1668.       (1270,1183){0,-2}...               % 10
  1669.       (1270,1072){0,-2}...               % 11
  1670.       (1270,852){0,-1}...               % 12
  1671.       (1035,136){-1,-1}...               % 13
  1672.       (562,-41){-1,0}...               % 14
  1673.       (252,80){-1,1}...               % 15
  1674.       (169,311){0,1}...               % 16
  1675.       (225,450){1,1}...{1,0}               % 17
  1676.       (332,480)--cycle);               % 18
  1677.  
  1678. endchar(0);
  1679.  
  1680. "smuq";
  1681.  
  1682. charbegin( "Q", 2253h#, capheight*v#, baseline );
  1683. n := 11;
  1684. t1 := 0;
  1685. t2 := 2;
  1686. t3 := 5;
  1687. t4 := 7;
  1688. t5 := 9;
  1689. t6 := 10;
  1690. t7 := 12;
  1691. t8 := 15;
  1692. t9 := 18;
  1693. t10 := 21;
  1694. t11 := 23;
  1695.  
  1696. adj_fill.A(6, 11)                    % fixed x points
  1697.      (1, 5, 10)                    % fixed y points
  1698.      ((1,2), (11,1))                    % tied points
  1699.      ((4,7), (2,9))                    % verticals
  1700.      ((3,8))                         % horizontals
  1701.      ((1322,291){370,118}...               % 0
  1702.       (1739,548){1,1}...               % 1
  1703.       (2104,1533){0,1}...               % 2
  1704.       (2040,2032){-245,833}...          % *3
  1705.       (1859,2366){-1,1}...               % 4
  1706.       (1225,2601){-1,0}...               % 5
  1707.       (474,2347){-1,-1}...               % 6
  1708.       (168,1514){0,-1}...               % 7
  1709.       (458,792){1,-1}...{1,0}          % 8
  1710.       (930,611)--                    % 9
  1711.       (962,690){-756,178}...               % 10
  1712.       (639,841){-1,1}...               % 11
  1713.       (415,1485){0,1}...               % 12
  1714.       (485,1972){270,833}...               % *13
  1715.       (685,2318){1,1}...               % 14
  1716.       (1191,2482){1,0}...               % 15
  1717.       (1622,2333){1,-1}...               % 16
  1718.       (1785,2019){220,-803}...          % *17
  1719.       (1842,1530){0,-1}...               % 18
  1720.       (1774,940){-262,-967}...          % *19
  1721.       (1580,563){-1,-1}...               % 20
  1722.       (1124,358){-1,0}...               % 21
  1723.       (891,381){-744,103}...{-1,0}          % 22
  1724.       (717,388)--cycle);               % 23
  1725.  
  1726. n := 7;
  1727. t1 := 0;
  1728. t2 := 2;
  1729. t3 := 4;
  1730. t4 := 6;
  1731. t5 := 9;
  1732. t6 := 11;
  1733. t7 := 14;
  1734.  
  1735. adj_fill.B()                         % fixed x points
  1736.      (1, 5)                         % fixed y points
  1737.      ((3,2), (4,1))                    % tied points
  1738.      ()                         % verticals
  1739.      ((4,6), (2,7))                    % horizontals
  1740.      ((2115,483){-152,-425}...          % 0
  1741.       (1969,236){-1,-1}...               % 1
  1742.       (1824,156){-1,0}...               % 2
  1743.       (1683,180){-361,111}...{-361,111}     % 3
  1744.       (1322,291){-434,90}...               % 4
  1745.       (888,381){-341,48}...               % 5
  1746.       (717,388){-1,0}...               % 6
  1747.       (384,276){-1,-1}...{-128,-368}          % 7
  1748.       (217,-59)--                    % 8
  1749.       (295,-97){78,278}...               % 9
  1750.       (404,95){1,1}...               % 10
  1751.       (624,159){1,0}...               % 11
  1752.       (860,132){707,-155}...               % 12
  1753.       (1567,-23){707,-155}...          % 13
  1754.       (1789,-40){1,0}...               % 14
  1755.       (2000,77){1,1}...{115,533}          % 15
  1756.       (2180,448)--cycle);               % 16
  1757.  
  1758. endchar(0);
  1759.  
  1760. "smur";
  1761.  
  1762. charbegin( "R", 2476h#, capheight*v#, baseline );
  1763. n := 15;
  1764. t1 := 0;
  1765. t2 := 1;
  1766. t3 := 3;
  1767. t4 := 6;
  1768. t5 := 7;
  1769. t6 := 11;
  1770. t7 := 12;
  1771. t8 := 13;
  1772. t9 := 14;
  1773. t10 := 16;
  1774. t11 := 18;
  1775. t12 := 23;
  1776. t13 := 25;
  1777. t14 := 26;
  1778. t15 := 27;
  1779.  
  1780. adj_fill.A(1, 15)                    % fixed x points
  1781.      (7, 9)                         % fixed y points
  1782.      ((1,7), (4,1), (5,2), (7,3), (8,3), (13,4), (14,5), (15,6))% tied points
  1783.      ((6,10), (3,12))               % verticals
  1784.      ((5,11), (2,14))               % horizontals
  1785.      ((1303,1254){291,-64}...          % 0
  1786.       (1456,1243){1,0}...               % 1
  1787.       (1855,1406){1,1}...               % 2
  1788.       (2030,1905){0,1}...               % 3
  1789.       (1889,2319){-1,1}...               % 4
  1790.       (1689,2397){-586,104}...{-1,0}          % *5
  1791.       (1303,2423){-249,0}...{-249,0}          % 6
  1792.       (1054,2423){-1,0}...               % 7
  1793.       (448,2207){-1,-1}...               % 8
  1794.       (347,1989){0,-1}...               % 9
  1795.       (363,1867){89,-485}...               % 10
  1796.       (391,1740){0,-1}...{-1,-1}          % 11
  1797.       (344,1626)--                    % 12
  1798.       (344,1626){-1,-1}...               % 13
  1799.       (239,1571){-1,0}...               % 14
  1800.       (149,1614){-1,1}...               % 15
  1801.       (75,1809){0,1}...               % 16
  1802.       (248,2233){1,1}...{1,0}          % 17
  1803.       (1054,2549){249,117}...          % 18
  1804.       (1303,2666){.9051,-.5747}...{0,-106}     % 19
  1805.       (1303,2560){1,0}...               % 20
  1806.       (1837,2512){842,-185}...          % *21
  1807.       (2145,2375){1,-1}...               % 22
  1808.       (2294,1947){0,-1}...               % 23
  1809.       (2108,1439){-1,-1}...{-279,-90}     % 24
  1810.       (1676,1183){-230,-57}...{-230,-57}     % 25
  1811.       (1446,1126){-143,14}...{-143,14}     % 26
  1812.       (1303,1140)--cycle);               % 27
  1813.  
  1814. n := 10;
  1815. t1 := 0;
  1816. t2 := 1;
  1817. t3 := 5;
  1818. t4 := 8;
  1819. t5 := 9;
  1820. t6 := 10;
  1821. t7 := 11;
  1822. t8 := 12;
  1823. t9 := 15;
  1824. t10 := 18;
  1825.  
  1826. adj_fill.B(1)                         % fixed x points
  1827.      (2, 10)                         % fixed y points
  1828.      ((1,8), (5,2), (6,1), (7,7), (8,6), (10,8))% tied points
  1829.      ((4,7))                         % verticals
  1830.      ((3,9))                         % horizontals
  1831.      ((54,372){1,1}...               % 0
  1832.       (157,414){1,0}...               % 1
  1833.       (237,379){1,-1}...               % 2
  1834.       (312,280){157,-276}...               % 3
  1835.       (373,190){1,-1}...               % 4
  1836.       (537,146){1,0}...               % 5
  1837.       (846,284){1,1}...               % 6
  1838.       (1000,586){208,777}...               % *7
  1839.       (1054,1061){0,1}...{0,1362}          % 8
  1840.       (1054,2423)--                    % 9
  1841.       (1303,2423){0,-1169}...{0,-1169}     % 10
  1842.       (1303,1254){0,-114}...{0,-114}          % 11
  1843.       (1303,1140){-140,-910}...          % 12
  1844.       (1167,587){-336,-897}...          % *13
  1845.       (967,243){-1,-1}...               % 14
  1846.       (387,-30){-1,0}...               % 15
  1847.       (112,60){-1,1}...               % 16
  1848.       (12,259){0,1}...{1,1}               % 17
  1849.       (54,372)--cycle);               % 18
  1850.  
  1851. n := 5;
  1852. t1 := 0;
  1853. t2 := 2;
  1854. t3 := 5;
  1855. t4 := 6;
  1856. t5 := 9;
  1857.  
  1858. adj_fill.C()                         % fixed x points
  1859.      (1)                         % fixed y points
  1860.      ((3,4), (4,5))                    % tied points
  1861.      ()                         % verticals
  1862.      ((2,5))                         % horizontals
  1863.      ((2479,412){-160,-535}...          % 0
  1864.       (2390,260){-1,-1}...               % 1
  1865.       (2290,209){-1,0}...               % 2
  1866.       (2170,259){-1,1}...               % 3
  1867.       (1827,809){-151,374}...{-151,374}     % 4
  1868.       (1676,1183)--                    % 5
  1869.       (1446,1126){349,-819}...          % 6
  1870.       (1795,307){349,-819}...          % 7
  1871.       (1990,31){1,-1}...               % 8
  1872.       (2171,-24){1,0}...               % 9
  1873.       (2375,81){1,1}...{190,618}          % 10
  1874.       (2529,370)--cycle);               % 11
  1875.  
  1876. endchar(0);
  1877.  
  1878. "smus";
  1879.  
  1880. charbegin( "S", 1807h#, capheight*v#, baseline );
  1881.  
  1882. n := 22;
  1883. t1 := 0;
  1884. t2 := 1;
  1885. t3 := 3;
  1886. t4 := 5;
  1887. t5 := 7;
  1888. t6 := 9;
  1889. t7 := 13;
  1890. t8 := 15;
  1891. t9 := 17;
  1892. t10 := 19;
  1893. t11 := 20;
  1894. t12 := 23;
  1895. t13 := 25;
  1896. t14 := 27;
  1897. t15 := 32;
  1898. t16 := 34;
  1899. t17 := 35;
  1900. t18 := 36;
  1901. t19 := 38;
  1902. t20 := 40;
  1903. t21 := 42;
  1904. t22 := 43;
  1905.  
  1906. adj_fill.A(11, 18)                    % fixed x points
  1907.      (1, 21)                         % fixed y points
  1908.      ((1,1), (22,1))                    % tied points
  1909. %     ((9,12), (7,14), (6,15), (4,17), (2,20))% verticals
  1910.      ((9,12), (7,14), (6,15), (4,18), (2,20))% verticals % DEK
  1911.      ((10,11), (8,13), (5,16), (3,19))     % horizontals
  1912.      ((887,761){1,1}...               % 0
  1913.       (911,847){0,1}...               % 1
  1914.       (849,976){-1,1}...               % 2
  1915.       (593,1052){-1,0}...               % 3
  1916.       (216,934){-1,-1}...               % 4
  1917.       (72,519){0,-1}...               % 5
  1918.       (222,136){1,-1}...               % 6
  1919.       (724,-63){1,0}...               % 7
  1920.       (1491,254){1,1}...               % 8
  1921.       (1679,774){0,1}...               % 9
  1922.       (1516,1199){-1,1}...               % 10
  1923.       (1054,1490){-882,400}...          % 11
  1924.       (649,1746){-1,1}...               % 12
  1925.       (486,2104){0,1}...               % 13
  1926.       (602,2369){1,1}...               % 14
  1927.       (950,2488){1,0}...               % 15
  1928.       (1241,2384){1,-1}...               % 16
  1929.       (1319,2200){0,-1}...               % 17
  1930.       (1247,2032){-1,-1}...{-1,0}          % 18
  1931.       (1076,1961)--                    % 19
  1932.       (1069,1908){337,-84}...          % 20
  1933.       (1205,1885){1,0}...               % 21
  1934.       (1494,2018){1,1}...               % 22
  1935.       (1563,2207){0,1}...               % 23
  1936.       (1471,2475){-1,1}...               % 24
  1937.       (998,2618){-1,0}...               % 25
  1938.       (388,2413){-1,-1}...               % 26
  1939.       (243,2029){0,-1}...               % 27
  1940.       (438,1570){1,-1}...               % 28
  1941.       (624,1435){481,-280}...          % *29
  1942.       (919,1290){818,-350}...          % 30
  1943.       (1294,1031){1,-1}...               % 31
  1944.       (1411,643){0,-1}...               % 32
  1945.       (1241,249){-1,-1}...               % 33
  1946.       (791,70){-1,0}...               % 34
  1947.       (434,240){-1,1}...               % 35
  1948.       (279,648){0,1}...               % 36
  1949.       (352,879){1,1}...               % 37
  1950.       (510,939){1,0}...               % 38
  1951.       (604,916){1,-1}...               % 39
  1952.       (654,821){67,-285}...               % 40
  1953.       (690,742){1,-1}...               % 41
  1954.       (781,706){1,0}...{1,1}               % 42
  1955.       (887,761)--cycle);               % 43
  1956.  
  1957. endchar(0);
  1958.  
  1959. "smut";
  1960.  
  1961. %charbegin( "T", 2043h#, capheight*v#, baseline );
  1962. charbegin( "T", (2043+80)*h#, capheight*v#, baseline ); % DEK
  1963. n := 12;
  1964. t1 := 0;
  1965. t2 := 2;
  1966. t3 := 4;
  1967. t4 := 6;
  1968. t5 := 8;
  1969. t6 := 9;
  1970. t7 := 11;
  1971. t8 := 16;
  1972. t9 := 17;
  1973. t10 := 18;
  1974. t11 := 19;
  1975. t12 := 21;
  1976.  
  1977. adj_fill.A(12)                         % fixed x points
  1978.      (1, 5, 6)                    % fixed y points
  1979.      ((5,1), (6,1), (9,2), (10,3))          % tied points
  1980.      ((4,7))                         % verticals
  1981.      ((3,8), (2,11))                    % horizontals
  1982.      ((2286,2576){-178,-297}...          % 0
  1983.       (2162,2425){-1,-1}...               % 1
  1984.       (1969,2333){-1,0}...               % 2
  1985.       (1352,2440){-1262,310}...          % 3
  1986.       (793,2547){-1,0}...               % 4
  1987.       (215,2324){-1,-1}...               % 5
  1988.       (-3,1864){0,-1}...               % 6
  1989.       (82,1636){1,-1}...{1,0}          % 7
  1990.       (203,1570)--                    % 8
  1991.       (203,1570){1,0}...               % 9
  1992.       (311,1629){1,1}...               % 10
  1993.       (368,1734){0,1}...               % 11
  1994.       (336,1819){-1,1}...               % 12
  1995.       (249,1926){-118,193}...          % *13
  1996.       (218,2012){0,1}...               % 14
  1997.       (321,2274){1,1}...               % 15
  1998.       (592,2352){1,0}...{287,-80}          % 16
  1999.       (1180,2228){261,-61}...{261,-61}     % 17
  2000.       (1441,2167){542,-111}...          % 18
  2001.       (1871,2096){1,0}...               % 19
  2002.       (2140,2208){1,1}...{227,462}          % 20
  2003.       (2361,2535)--cycle);               % 21
  2004.  
  2005. n := 11;
  2006. t1 := 0;
  2007. t2 := 1;
  2008. t3 := 3;
  2009. t4 := 5;
  2010. t5 := 8;
  2011. t6 := 9;
  2012. t7 := 10;
  2013. t8 := 11;
  2014. t9 := 14;
  2015. t10 := 16;
  2016. t11 := 17;
  2017.  
  2018. adj_fill.B()                         % fixed x points
  2019.      (2, 11)                         % fixed y points
  2020.      ((1,4), (6,2), (7,3), (11,4))          % tied points
  2021.      ((5,8), (3,10))                    % verticals
  2022.      ((4,9))                         % horizontals
  2023.      ((380,432){1,1}...               % 0
  2024.       (490,484){1,0}...               % 1
  2025.       (603,429){1,-1}...               % 2
  2026.       (624,302){-53,-458}...               % 3
  2027.       (663,129){1,-1}...               % 4
  2028.       (791,83){1,0}...               % 5
  2029.       (1016,181){1,1}...               % 6
  2030.       (1137,459){164,765}...               % *7
  2031.       (1180,946){0,1}...{0,1282}          % 8
  2032.       (1180,2228)--                    % 9
  2033.       (1441,2167){0,-995}...               % 10
  2034.       (1441,1172){0,-1}...               % 11
  2035.       (1368,558){-282,-1013}...          % *12
  2036.       (1159,159){-1,-1}...               % 13
  2037.       (701,-42){-1,0}...               % 14
  2038.       (405,61){-1,1}...               % 15
  2039.       (324,310){0,1}...{1,1}               % 16
  2040.       (380,432)--cycle);               % 17
  2041. mathcorr(150h#); % DEK
  2042. endchar(0);
  2043.  
  2044. "smuu";
  2045.  
  2046. charbegin( "U", 2444h#, capheight*v#, baseline );
  2047. n := 12;
  2048. t1 := 0;
  2049. t2 := 2;
  2050. t3 := 5;
  2051. t4 := 7;
  2052. t5 := 10;
  2053. t6 := 13;
  2054. t7 := 14;
  2055. t8 := 17;
  2056. t9 := 19;
  2057. t10 := 21;
  2058. t11 := 24;
  2059. t12 := 26;
  2060.  
  2061. adj_fill.A(12)                         % fixed x points
  2062.      (1, 6)                         % fixed y points
  2063.      ((1,2), (12,1))                    % tied points
  2064.      ((6,7), (4,9), (3,10))               % verticals
  2065.      ((5,8), (2,11))                    % horizontals
  2066.      ((1631,541){-188,-239}...          % 0
  2067.       (1438,326){-1,-1}...               % 1
  2068.       (1008,99){-1,0}...               % 2
  2069.       (775,192){-1,1}...               % 3
  2070.       (668,394){-145,510}...               % *4
  2071.       (630,702){0,1}...               % 5
  2072.       (703,1238){94,470}...               % 6
  2073.       (801,2006){0,1}...               % 7
  2074.       (769,2307){-123,486}...          % *8
  2075.       (678,2492){-1,1}...               % 9
  2076.       (422,2583){-1,0}...               % 10
  2077.       (138,2482){-1,-1}...               % 11
  2078.       (-6,2071){0,-1}...{62,-437}          % 12
  2079.       (16,1802)--                    % 13
  2080.       (118,1836){-20,322}...               % 14
  2081.       (100,2050){0,1}...               % 15
  2082.       (201,2330){1,1}...               % 16
  2083.       (319,2374){1,0}...               % 17
  2084.       (434,2321){1,-1}...               % 18
  2085.       (549,1952){0,-1}...               % 19
  2086.       (458,1231){-92,-435}...          % 20
  2087.       (375,536){0,-1}...               % 21
  2088.       (405,269){116,-436}...               % *22
  2089.       (491,100){1,-1}...               % 23
  2090.       (850,-58){1,0}...               % 24
  2091.       (1503,246){1,1}...{163,190}          % 25
  2092.       (1643,390)--cycle);               % 26
  2093.  
  2094. n := 9;
  2095. t1 := 0;
  2096. t2 := 2;
  2097. t3 := 5;
  2098. t4 := 9;
  2099. t5 := 10;
  2100. t6 := 12;
  2101. t7 := 13;
  2102. t8 := 15;
  2103. t9 := 17;
  2104.  
  2105. adj_fill.B(4, 9)                    % fixed x points
  2106.      (1, 5)                         % fixed y points
  2107.      ((6,2), (7,1))                    % tied points
  2108.      ((3,6))                         % verticals
  2109.      ((2,8))                         % horizontals
  2110.      ((2396,404){-209,-413}...          % 0
  2111.       (2268,216){-1,-1}...               % 1
  2112.       (2126,153){-1,0}...               % 2
  2113.       (2026,213){-1,1}...               % 3
  2114.       (1913,464){-153,682}...          % *4
  2115.       (1873,895){0,1}...               % 5
  2116.       (1966,2026){69,343}...               % 6
  2117.       (2047,2292){194,438}...          % *7
  2118.       (2160,2464){338,317}...{461,259}     % 8
  2119.       (2279,2546)--                    % 9
  2120.       (2216,2585){-360,-148}...{-211,-137}     % 10
  2121.       (1752,2334){-83,-828}...{0,-1}          % 11
  2122.       (1631,541){12,-151}...{12,-151}     % 12
  2123.       (1643,390){92,-413}...               % 13
  2124.       (1816,16){1,-1}...               % 14
  2125.       (1997,-57){1,0}...               % 15
  2126.       (2283,71){1,1}...{149,331}          % 16
  2127.       (2452,358)--cycle);               % 17
  2128.  
  2129. endchar(0);
  2130.  
  2131. "smuv";
  2132.  
  2133. charbegin( "V", 2261h#, capheight*v#, baseline );
  2134. n := 12;
  2135. t1 := 0;
  2136. t2 := 2;
  2137. t3 := 4;
  2138. t4 := 7;
  2139. t5 := 12;
  2140. t6 := 15;
  2141. t7 := 16;
  2142. t8 := 18;
  2143. t9 := 24;
  2144. t10 := 27;
  2145. t11 := 29;
  2146. t12 := 31;
  2147.  
  2148. adj_fill.A(12)                         % fixed x points
  2149.      (1, 7)                         % fixed y points
  2150.      ()                         % tied points
  2151.      ((6,7), (3,10))                    % verticals
  2152.      ((5,8), (4,9), (2,11))               % horizontals
  2153.      ((1382,2046){81,405}...               % 0
  2154.       (1531,2364){1,1}...               % 1
  2155.       (1713,2417){1,0}...               % 2
  2156.       (1916,2330){1,-1}...               % 3
  2157.       (2000,2054){-.05228,-1.896}...          % 4
  2158.       (1912,1642){-324,-886}...          % *5
  2159.       (1676,1168){-464,-750}...{-464,-750}     % 6
  2160.       (1212,418){-42,-11}...{-42,-11}     % 7
  2161.       (1170,407){-255,1414}...          % 8
  2162.       (915,1821){-255,1414}...          % 9
  2163.       (804,2267){-247,696}...          % *10
  2164.       (668,2517){-1,1}...               % 11
  2165.       (453,2615){-1,0}...               % 12
  2166.       (181,2501){-1,-1}...               % 13
  2167.       (67,2300){-182,-518}...{-66,-581}     % *14
  2168.       (-1,1983)--                    % 15
  2169.       (87,1972){79,420}...               % 16
  2170.       (196,2302){1,1}...               % 17
  2171.       (333,2357){1,0}...               % 18
  2172.       (444,2304){1,-1}...               % 19
  2173.       (634,1926){363,-1134}...          % *20
  2174.       (807,1170){253,-1428}...{21,-344}     % 21
  2175.       (973,-19){25,-33}...{25,-33}          % 22
  2176.       (998,-52){190,104}...{190,104}          % 23
  2177.       (1188,52){275,635}...               % 24
  2178.       (1731,1034){661,1089}...          % 25
  2179.       (2134,1766){530,1162}...          % *26
  2180.       (2261,2196){0,1}...               % 27
  2181.       (2140,2510){-1,1}...               % 28
  2182.       (1831,2624){-1,0}...               % 29
  2183.       (1487,2482){-1,-1}...{-65,-404}     % 30
  2184.       (1300,2059)--cycle);               % 31
  2185.  
  2186. endchar(0);
  2187.  
  2188. "smuw";
  2189.  
  2190. charbegin( "W", 3463h#, capheight*v#, baseline );
  2191. n := 16;
  2192. t1 := 0;
  2193. t2 := 1;
  2194. t3 := 4;
  2195. t4 := 6;
  2196. t5 := 8;
  2197. t6 := 11;
  2198. t7 := 15;
  2199. t8 := 19;
  2200. t9 := 21;
  2201. t10 := 22;
  2202. t11 := 25;
  2203. t12 := 30;
  2204. t13 := 37;
  2205. t14 := 41;
  2206. t15 := 43;
  2207. t16 := 45;
  2208.  
  2209. adj_fill.A(16)                         % fixed x points
  2210.      (1, 4, 7, 10, 12, 13)               % fixed y points
  2211.      ()                         % tied points
  2212.      ((9,10), (5,6), (3,14))               % verticals
  2213.      ((8,11), (2,15))               % horizontals
  2214.      ((2657,2285){232,288}...          % 0
  2215.       (2909,2427){1,0}...               % 1
  2216.       (3108,2318){1,-1}...               % 2
  2217.       (3177,2179){93,-363}...          % *3
  2218.       (3201,1955){0,-1}...               % 4
  2219.       (3050,1348){-593,-1506}...{-553,-980}     % *5
  2220.       (2608,449){-212,809}...          % 6
  2221.       (2311,1256){-544,1163}...          % 7
  2222.       (2050,2260){0,1}...{172,813}          % 8
  2223.       (2083,2585){-45,30}...{-45,30}          % 9
  2224.       (2038,2615){-205,-124}...{-205,-124}     % 10
  2225.       (1833,2491){0,-1}...               % 11
  2226.       (1719,1877){-448,-1417}...          % *12
  2227.       (1385,1074){-301,-605}...{-301,-605}     % 13
  2228.       (1084,469){-33,0}...{-33,0}          % 14
  2229.       (1051,469){-4,314}...               % 15
  2230.       (948,1799){-369,2005}...          % *16
  2231.       (835,2218){-266.1,675.4}...          % *17
  2232.       (682,2474){-1,1}...               % 18
  2233.       (430,2602){-1,0}...               % 19
  2234.       (174,2511){-1,-1}...{0,-1}          % 20
  2235.       (-7,1986)--                    % 21
  2236.       (80,1980){65,420}...               % 22
  2237.       (129,2179){121,323}...               % *23
  2238.       (201,2303){1,1}...               % 24
  2239.       (311,2349){1,0}...               % 25
  2240.       (454,2270){1,-1}...               % 26
  2241.       (621,1987){284.4,-749.1}...          % *27
  2242.       (738,1521){376,-2275}...{0,-1}          % *28
  2243.       (830,-5){43,-28}...{43,-28}          % 29
  2244.       (873,-33){189,95}...               % 30
  2245.       (1033,37){189,95}...               % *31
  2246.       (1062,62){200,400}...               % 32
  2247.       (1470,991){230,591}...{161,325}     % 33
  2248.       (1836,1795){213,-625}...          % 34
  2249.       (2125,1051){358,-797}...{36,-559}     % 35
  2250.       (2408,-3){34,-19}...{34,-19}          % 36
  2251.       (2442,-22){171,84}...{171,84}          % 37
  2252.       (2613,62){235,665}...               % 38
  2253.       (3048,1023){528,1005}...          % 39
  2254.       (3358,1691){415,1098}...          % *40
  2255.       (3463,2121){0,1}...               % 41
  2256.       (3327,2503){-1,1}...               % 42
  2257.       (3080,2625){-1,0}...               % 43
  2258.       (2680,2439){-1,-1}...{-240,-333}     % 44
  2259.       (2592,2315)--cycle);               % 45
  2260.  
  2261. endchar(0);
  2262.  
  2263. "smux";
  2264.  
  2265. charbegin( "X", 2454h#, capheight*v#, baseline );
  2266. n := 15;
  2267. t1 := 0;
  2268. t2 := 2;
  2269. t3 := 5;
  2270. t4 := 6;
  2271. t5 := 10;
  2272. t6 := 14;
  2273. t7 := 15;
  2274. t8 := 16;
  2275. t9 := 17;
  2276. t10 := 19;
  2277. t11 := 21;
  2278. t12 := 24;
  2279. t13 := 25;
  2280. t14 := 28;
  2281. t15 := 30;
  2282.  
  2283. adj_fill.A(1)                         % fixed x points
  2284.      (7, 9, 15)                    % fixed y points
  2285.      ((3,1), (4,2), (7,3), (8,3), (12,4), (13,5))% tied points
  2286.      ((6,10))                    % verticals
  2287.      ((5,11), (2,14))               % horizontals
  2288.      ((2354,596){0,-1}...               % 0
  2289.       (2143,111){-1,-1}...               % 1
  2290.       (1819,-32){-1,0}...               % 2
  2291.       (1546,61){-1,1}...               % 3
  2292.       (1393,336){-307,783}...{-181,741}     % *4
  2293.       (1239,844){-25,281}...{-25,281}     % 5
  2294.       (1214,1125){-59,457}...          % 6
  2295.       (1052,1997){-368,1311}...          % *7
  2296.       (956,2269){-206.5,439.1}...          % *8
  2297.       (846,2436){-1,1}...               % 9
  2298.       (646,2507){-1,0}...               % 10
  2299.       (415,2433){-1,-1}...               % 11
  2300.       (351,2294){0,-1}...               % 12
  2301.       (360,2189){131,-551}...          % 13
  2302.       (399,2047){0,-1}...{-1,-1}          % 14
  2303.       (360,1954)--                    % 15
  2304.       (360,1954){-1,-1}...               % 16
  2305.       (256,1906){-1,0}...               % 17
  2306.       (160,1948){-1,1}...               % 18
  2307.       (112,2138){0,1}...               % 19
  2308.       (247,2455){1,1}...               % 20
  2309.       (743,2632){1,0}...               % 21
  2310.       (1105,2513){1,-1}...               % 22
  2311.       (1266,2203){276,-856}...{51,-375}     % *23
  2312.       (1381,1657){40,-346}...{40,-346}     % 24
  2313.       (1421,1311){88,-588}...          % 25
  2314.       (1578,607){366,-1102}...          % *26
  2315.       (1787,209){1,-1}...               % 27
  2316.       (1951,156){1,0}...               % 28
  2317.       (2116,244){1,1}...{46,523}          % 29
  2318.       (2270,612)--cycle);               % 30
  2319.  
  2320. n := 7;
  2321. t1 := 0;
  2322. t2 := 3;
  2323. t3 := 6;
  2324. t4 := 7;
  2325. t5 := 8;
  2326. t6 := 12;
  2327. t7 := 15;
  2328.  
  2329. adj_fill.B()                         % fixed x points
  2330.      (3, 5)                         % fixed y points
  2331.      ((1,4), (3,6), (4,6), (7,5))          % tied points
  2332.      ()                         % verticals
  2333.      ((2,6))                         % horizontals
  2334.      ((1381,1657){188,517}...          % 0
  2335.       (1599,2146){456,819}...          % *1
  2336.       (1837,2476){1,1}...               % 2
  2337.       (2178,2630){1,0}...               % 3
  2338.       (2406,2548){1,-1}...               % 4
  2339.       (2465,2412){0,-1}...{-1,-1}          % 5
  2340.       (2427,2302)--                    % 6
  2341.       (2427,2302){-1,-1}...               % 7
  2342.       (2320,2234){-1,0}...               % 8
  2343.       (2250,2257){-1,1}...               % 9
  2344.       (2214,2321){-144,356}...          % 10
  2345.       (2169,2379){-1,1}...               % 11
  2346.       (2049,2426){-1,0}...               % 12
  2347.       (1874,2353){-1,-1}...               % 13
  2348.       (1613,1941){-453,-1042}...{-104,-498}     % *14
  2349.       (1421,1311)--cycle);               % 15
  2350.  
  2351. n := 7;
  2352. t1 := 0;
  2353. t2 := 2;
  2354. t3 := 5;
  2355. t4 := 6;
  2356. t5 := 7;
  2357. t6 := 11;
  2358. t7 := 14;
  2359.  
  2360. adj_fill.C()                         % fixed x points
  2361.      (3, 5)                         % fixed y points
  2362.      ((1,1), (3,7), (4,7), (7,2))          % tied points
  2363.      ()                         % verticals
  2364.      ((2,6))                         % horizontals
  2365.      ((1239,844){-155,-440}...          % 0
  2366.       (859,159){-1,-1}...               % 1
  2367.       (407,-45){-1,0}...               % 2
  2368.       (166,46){-1,1}...               % 3
  2369.       (79,236){0,1}...{1,1}               % 4
  2370.       (112,349)--                    % 5
  2371.       (112,349){1,1}...               % 6
  2372.       (220,408){1,0}...               % 7
  2373.       (315,371){1,-1}...               % 8
  2374.       (375,252){147,-627}...               % 9
  2375.       (425,167){1,-1}...               % 10
  2376.       (537,125){1,0}...               % 11
  2377.       (771,241){1,1}...               % 12
  2378.       (1003,584){443,884}...{135,431}     % *13
  2379.       (1214,1125)--cycle);               % 14
  2380.  
  2381. endchar(0);
  2382.  
  2383. "smuy";
  2384.  
  2385. charbegin( "Y", 2006h#, capheight*v#, baseline );
  2386. n := 10;
  2387. t1 := 0;
  2388. t2 := 3;
  2389. t3 := 7;
  2390. t4 := 9;
  2391. t5 := 11;
  2392. t6 := 12;
  2393. t7 := 13;
  2394. t8 := 16;
  2395. t9 := 19;
  2396. t10 := 20;
  2397.  
  2398. adj_fill.A(1, 5, 10)                    % fixed x points
  2399.      (1, 6)                         % fixed y points
  2400.      ((1,2), (10,1))                    % tied points
  2401.      ((3,8))                         % verticals
  2402.      ((4,7), (2,9))                    % horizontals
  2403.      ((1488,1693){-46,-368}...          % 0
  2404.       (1331,1444){-1,-1}...               % 1
  2405.       (1089,1255){-459,-256}...          % *2
  2406.       (872,1188){-1,0}...               % 3
  2407.       (670,1277){-1,1}...               % 4
  2408.       (606,1415){-86,374}...               % *5
  2409.       (584,1651){0,1}...               % 6
  2410.       (605,2311){0,1}...               % 7
  2411.       (552,2552){-1,1}...               % 8
  2412.       (440,2602){-1,0}...               % 9
  2413.       (168,2450){-1,-1}...{-284,-432}     % 10
  2414.       (-9,2214)--                    % 11
  2415.       (64,2179){353,348}...               % 12
  2416.       (289,2339){1,0}...               % 13
  2417.       (344,2318){1,-1}...               % 14
  2418.       (360,2267){11,-245}...               % *15
  2419.       (355,2073){0,-1}...               % 16
  2420.       (345,1518){0,-1}...               % 17
  2421.       (455,1140){1,-1}...               % 18
  2422.       (729,1009){1,0}...{256,332}          % 19
  2423.       (1488,1444)--cycle);               % 20
  2424.  
  2425. n := 11;
  2426. t1 := 2;
  2427. t2 := 4;
  2428. t3 := 6;
  2429. t4 := 9;
  2430. t5 := 10;
  2431. t6 := 13;
  2432. t7 := 15;
  2433. t8 := 18;
  2434. t9 := 19;
  2435. t10 := 20;
  2436. t11 := 21;
  2437.  
  2438. adj_fill.B(4)                         % fixed x points
  2439.      ()                         % fixed y points
  2440.      ((4,3), (5,4), (8,4), (9,3), (10,1), (11,2))% tied points
  2441.      ((3,6), (1,9))                    % verticals
  2442.      ((4,5), (2,7))                    % horizontals
  2443.      ((1697,2589){50,-39}...{50,-39}          % 0
  2444.       (1747,2550){-9,-343}...          % 1
  2445.       (1717,921){0,-1}...               % 2
  2446.       (1310,-259){-1,-1}...               % 3
  2447.       (767,-511){-1,0}...               % 4
  2448.       (492,-412){-1,1}...               % 5
  2449.       (384,-163){0,1}...               % 6
  2450.       (491,170){413,718}...               % *7
  2451.       (797,555){1,1}...{405,244}          % 8
  2452.       (1488,1024)--                    % 9
  2453.       (1476,872){-491,-196}...          % 10
  2454.       (930,526){-1,-1}...               % 11
  2455.       (704,224){-306,-595}...          % *12
  2456.       (624,-69){0,-1}...               % 13
  2457.       (681,-301){1,-1}...               % 14
  2458.       (894,-386){1,0}...               % 15
  2459.       (1166,-247){1,1}...               % 16
  2460.       (1395,193){310,1119}...{0,1}          % *17
  2461.       (1476,872){12,152}...{12,152}          % 18
  2462.       (1488,1024){0,420}...{0,420}          % 19
  2463.       (1488,1444){0,249}...{0,249}          % 20
  2464.       (1488,1693){0,1}...{0,1}          % 21
  2465.       (1493,2472)--cycle);               % 22
  2466.  
  2467. endchar(0);
  2468.  
  2469. "smuz";
  2470.  
  2471. charbegin( "Z", 2232h#, capheight*v#, baseline );
  2472. n := 11;
  2473. t1 := 0;
  2474. t2 := 1;
  2475. t3 := 3;
  2476. t4 := 7;
  2477. t5 := 8;
  2478. t6 := 9;
  2479. t7 := 10;
  2480. t8 := 12;
  2481. t9 := 14;
  2482. t10 := 18;
  2483. t11 := 19;
  2484.  
  2485. adj_fill.A(11)                         % fixed x points
  2486.      (5, 7)                         % fixed y points
  2487.      ((1,3), (5,1), (6,1), (11,2))          % tied points
  2488.      ((4,8))                         % verticals
  2489.      ((3,9), (2,10))                    % horizontals
  2490.      ((1521,2054){-329,-103}...          % 0
  2491.       (1420,2047){-1,0}...               % 1
  2492.       (1017,2265){-654,457}...          % 2
  2493.       (713,2393){-1,0}...               % 3
  2494.       (503,2313){-1,-1}...               % 4
  2495.       (404,2114){0,-1}...               % 5
  2496.       (445,1980){219,-514}...          % 6
  2497.       (499,1843){0,-1}...{-1,-1}          % 7
  2498.       (468,1748)--                    % 8
  2499.       (468,1748){-1,-1}...               % 9
  2500.       (354,1691){-1,0}...               % 10
  2501.       (236,1742){-1,1}...               % 11
  2502.       (192,1927){0,1}...               % 12
  2503.       (426,2396){1,1}...               % 13
  2504.       (830,2593){1,0}...               % 14
  2505.       (999,2548){397,-176}...          % *15
  2506.       (1227,2417){715,-486}...          % 16
  2507.       (1495,2239){385,-220}...          % *17
  2508.       (1612,2197){1,0}...{1,1}          % 18
  2509.       (1697,2254)--cycle);               % 19
  2510.  
  2511. n := 4;
  2512. t1 := 3;
  2513. t2 := 4;
  2514. t3 := 14;
  2515. t4 := 15;
  2516.  
  2517. adj_fill.B()                         % fixed x points
  2518.      ()                         % fixed y points
  2519.      ((1,3), (2,2), (3,4), (4,5))          % tied points
  2520.      ()                         % verticals
  2521.      ()                         % horizontals
  2522.      ((133,43){-19,53}...{-19,53}          % 0
  2523.       (114,96){1283,1773}...               % 1
  2524.       (1397,1869){1283,1773}...          % 2
  2525.       (1521,2054){284,519}...{176,200}     % 3
  2526.       (1697,2254){1,1}...               % 4
  2527.       (1762,2341){103,222}...          % 5
  2528.       (1816,2465){105,65}...{32,5}          % 6
  2529.       (1848,2470){30,-7}...{30,-7}          % 7
  2530.       (1878,2463)--                    % 8
  2531.       (1935,2412){17,-23}...{17,-23}          % 9
  2532.       (1952,2389){1,-30}...               % 10
  2533.       (1953,2359){-27,-112}...          % 11
  2534.       (1909,2310){-162,-174}...{-126,-136}     % 12
  2535.       (1783,2174){-1269,-1743}...{-247,-387}     % 13
  2536.       (514,431){-129,-193}...{-129,-193}     % 14
  2537.       (385,238){-1,-1}...               % 15
  2538.       (350,189){-163,-257}...{-108,-182}     % 16
  2539.       (242,7){-46,-9}...{-46,-9}          % 17
  2540.       (196,-2)--cycle);               % 18
  2541.  
  2542. n := 10;
  2543. t1 := 0;
  2544. t2 := 2;
  2545. t3 := 6;
  2546. t4 := 9;
  2547. t5 := 10;
  2548. t6 := 11;
  2549. t7 := 12;
  2550. t8 := 16;
  2551. t9 := 18;
  2552. t10 := 20;
  2553.  
  2554. adj_fill.C()                         % fixed x points
  2555.      (1, 10)                         % fixed y points
  2556.      ((1,6), (5,4), (6,5), (10,6))          % tied points
  2557.      ((2,9))                         % verticals
  2558.      ((4,7), (3,8))                    % horizontals
  2559.      ((2050,707){-1,0}...               % 0
  2560.       (1956,675){-1,-1}...               % 1
  2561.       (1906,577){0,-1}...               % 2
  2562.       (1964,442){127,-196}...          % 3
  2563.       (2019,304){0,-1}...               % 4
  2564.       (1992,188){-1,-1}...               % 5
  2565.       (1806,99){-1.848,-.1074}...          % 6
  2566.       (1628,160){-411,220}...          % 7
  2567.       (1217,380){-411,220}...          % 8
  2568.       (827,511){-1,0}...{-502,-206}          % 9
  2569.       (514,431)--                    % 10
  2570.       (385,238){1,1}...               % 11
  2571.       (617,328){1,0}...               % 12
  2572.       (831,280){521,-190}...               % *13
  2573.       (1138,138){267,-143}...          % 14
  2574.       (1405,-5){267,-143}...               % 15
  2575.       (1623,-61){1.898,.1195}...          % 16
  2576.       (2085,122){1,1}...               % 17
  2577.       (2238,477){0,1}...               % 18
  2578.       (2161,657){-1,1}...{-1,0}          % 19
  2579.       (2050,707)--cycle);               % 20
  2580.  
  2581. endchar(0);
  2582.  
  2583. % PUNCTUATION
  2584. set_stem_round(155,157,160,180,188,201);
  2585. more_side(0); % DEK
  2586.  
  2587. "smminus";
  2588.  
  2589. %charbegin( 0, 1824h#, lcbody*v#, baseline );
  2590. charbegin( 0, 2800h#, (1233+925)*v#, (1233-925)*v#); % DEK
  2591.  
  2592. n := 0;
  2593.  
  2594. adj_fill.A()                         % fixed x points
  2595.      ()                         % fixed y points
  2596.      ()                         % tied points
  2597.      ()                         % verticals
  2598.      ()                         % horizontals
  2599. %     ((1754,1018){-1650,0}...{-1650,0}     % 0
  2600. %      (104,1018)--                    % 1
  2601. %      (70,874){1651,0}...{1651,0}          % 2
  2602. %      (1721,874)--cycle);               % 3
  2603.      ((2614,1018){-1650,0}...{-1650,0}     % 0 % DEK
  2604.       (230,1018)--                    % 1
  2605.       (170,874){1651,0}...{1651,0}          % 2
  2606.       (2564,874)--cycle);               % 3
  2607.  
  2608. endchar(0);
  2609.  
  2610. "smapproximation";
  2611.  
  2612. charbegin( 24, 2042h#, lcbody*v#, baseline );
  2613. n := 6;
  2614. t1 := 0;
  2615. t2 := 2;
  2616. t3 := 6;
  2617. t4 := 10;
  2618. t5 := 12;
  2619. t6 := 15;
  2620.  
  2621. adj_fill.A()                         % fixed x points
  2622.      (1, 4)                         % fixed y points
  2623.      ()                         % tied points
  2624.      ()                         % verticals
  2625.      ((3,5), (2,6))                    % horizontals
  2626.      ((1894,1066){-76,-330}...          % 0
  2627.       (1779,886){-209,-184}...          % 1
  2628.       (1586,809){-1,0}...               % 2
  2629.       (1312,907){-271,170}...          % 3
  2630.       (1041,1077){-271,170}...          % 4
  2631.       (749,1233){-502,207}...          % *5
  2632.       (539,1284){-342,-6}...               % 6
  2633.       (409,1258){-390,-140}...          % 7
  2634.       (241,1133){-328,-369}...{-217,-426}     % *8
  2635.       (81,889)--                    % 9
  2636.       (153,860){140,262}...               % 10
  2637.       (293,1068){186,142}...               % 11
  2638.       (496,1127){1,0}...               % 12
  2639.       (791,1024){366,-233}...          % 13
  2640.       (1157,791){366,-233}...          % 14
  2641.       (1546,657){1,0}...               % 15
  2642.       (1781,757){243,204}...{117,271}     % 16
  2643.       (1962,1019)--cycle);               % 17
  2644.  
  2645. endchar(0);
  2646.  
  2647. "smand";
  2648.  
  2649. charbegin( 94, 2870h#, capheight*v#, baseline*v#);
  2650. n := 0;
  2651.  
  2652. adj_fill.A()                         % fixed x points
  2653.      ()                         % fixed y points
  2654.      ()                         % tied points
  2655.      ()                         % verticals
  2656.      ()                         % horizontals
  2657.      ((2843,6){-1347,2632}...{-1347,2632}     % 0
  2658.       (1496,2638){-34,5}...{-34,5}          % 1
  2659.       (1462,2643){-1421,-2605}...{-1421,-2605}% 2
  2660.       (41,38){42,-40}...{42,-40}          % 3
  2661.       (83,-2)--                    % 4
  2662.       (315,6){1137,2275}...{1137,2275}     % 5
  2663.       (1452,2281){1126,-2313}...{1126,-2313}     % 6
  2664.       (2578,-32)--cycle);               % 7
  2665.  
  2666. endchar(0);
  2667.  
  2668. "smor";
  2669.  
  2670. charbegin( 95, 2870h#, capheight*v#, baseline*v#);
  2671. n := 0;
  2672.  
  2673. adj_fill.A()                         % fixed x points
  2674.      ()                         % fixed y points
  2675.      ()                         % tied points
  2676.      ()                         % verticals
  2677.      ()                         % horizontals
  2678.      ((2783,2545){14,-16}...{14,-16}          % 0
  2679.       (2797,2529){-1385,-2573}...{-1385,-2573}% 1
  2680.       (1412,-44){-55,-2}...{-55,-2}          % 2
  2681.       (1357,-46){-1334,2551}...{-1334,2551}     % 3
  2682.       (23,2505)--                    % 4
  2683.       (279,2545){1129,-2265}...{1129,-2265}     % 5
  2684.       (1408,280){1141,2265}...{1141,2265}     % 6
  2685.       (2549,2545)--cycle);               % 7
  2686.  
  2687. endchar(0);
  2688.  
  2689. "smleftbrace";
  2690.  
  2691. %charbegin( 102, 1185h#, programem*v#, descender*v#);
  2692. charbegin( 102, 1185h#, .75programem*v#, .25programem*v#); % DEK
  2693.  
  2694. n := 7;
  2695. t1 := 0;
  2696. t2 := 1;
  2697. t3 := 4;
  2698. t4 := 8;
  2699. t5 := 9;
  2700. t6 := 13;
  2701. t7 := 16;
  2702.  
  2703. adj_fill.A(1, 4, 5)                    % fixed x points
  2704.      (1)                         % fixed y points
  2705.      ((1,2), (7,1))                    % tied points
  2706.      ((3,6))                         % verticals
  2707.      ((4,5), (2,7))                    % horizontals
  2708.      ((-12,959){39,97}...{39,97}          % 0
  2709.       (27,1056){1,0}...               % 1
  2710.       (305,1127){264,243}...               % 2
  2711.       (384,1343){95,773}...               % *3
  2712.       (400,1900){0,1}...               % 4
  2713.       (404,2295){49,477}...               % 5
  2714.       (495,2582){213,279}...               % 6
  2715.       (624,2675){245,80}...{1,0}          % 7
  2716.       (1081,2701)--                    % 8
  2717.       (1081,2635){-1,0}...               % 9
  2718.       (763,2598){-200,-64}...          % 10
  2719.       (665,2510){-116,-192}...          % 11
  2720.       (612,2354){-53,-336}...          % 12
  2721.       (588,1918){0,-1}...               % 13
  2722.       (564,1463){-95,-702}...          % *14
  2723.       (493,1216){-145,-219}...{-283,-54}     % 15
  2724.       (190,1011)--cycle);               % 16
  2725.  
  2726. n := 6;
  2727. t1 := 0;
  2728. t2 := 4;
  2729. t3 := 7;
  2730. t4 := 8;
  2731. t5 := 11;
  2732. t6 := 15;
  2733.  
  2734. adj_fill.B(1, 6)                    % fixed x points
  2735.      ()                         % fixed y points
  2736.      ((3,1), (4,2))                    % tied points
  2737.      ((2,5))                         % verticals
  2738.      ((3,4), (1,6))                    % horizontals
  2739.      ((1081,-594){-1,0}...               % 0
  2740.       (786,-562){-238,72}...               % 1
  2741.       (673,-474){-142,210}...          % 2
  2742.       (619,-329){-50,298}...               % 3
  2743.       (587,110){0,1}...               % 4
  2744.       (549,587){-146,759}...               % *5
  2745.       (441,869){-200,243}...{-449,99}     % 6
  2746.       (190,1011)--                    % 7
  2747.       (-12,959){1,0}...               % 8
  2748.       (190,937){324,-86}...               % *9
  2749.       (312,873){184,-204}...               % 10
  2750.       (404,124){0,-1}...               % 11
  2751.       (414,-266){41,-369}...               % 12
  2752.       (509,-551){170,-186}...          % 13
  2753.       (652,-635){351,-88}...{1,0}          % 14
  2754.       (1081,-657)--cycle);               % 15
  2755.  
  2756. endchar(0);
  2757.  
  2758. "smrightbrace";
  2759.  
  2760. %charbegin( 103, 1185h#, programem*v#, descender*v#);
  2761. charbegin( 103, 1185h#, .75programem*v#, .25programem*v#); % DEK
  2762.  
  2763. n := 7;
  2764. t1 := 0;
  2765. t2 := 1;
  2766. t3 := 5;
  2767. t4 := 8;
  2768. t5 := 9;
  2769. t6 := 13;
  2770. t7 := 16;
  2771.  
  2772. adj_fill.A(2, 4, 5)                    % fixed x points
  2773.      (1)                         % fixed y points
  2774.      ((1,2), (7,1))                    % tied points
  2775.      ((3,6))                         % verticals
  2776.      ((4,5), (2,7))                    % horizontals
  2777.      ((1138,972){51,89}...{51,89}          % 0
  2778.       (1189,1061){-1,0}...               % 1
  2779.       (960,1094){-363,123}...          % *2
  2780.       (826,1184){-194,295}...          % 3
  2781.       (771,1398){-65,744}...               % *4
  2782.       (761,1928){0,1}...               % 5
  2783.       (661,2599){-331,393}...          % 6
  2784.       (462,2686){-583,118}...{-1,0}          % *7
  2785.       (78,2717)--                    % 8
  2786.       (78,2653){1,0}...               % 9
  2787.       (325,2631){385,-83}...               % *10
  2788.       (463,2570){229,-240}...          % 11
  2789.       (545,2351){109,-647}...          % *12
  2790.       (572,1923){0,-1}...               % 13
  2791.       (610,1448){149,-750}...          % *14
  2792.       (721,1173){230,-260}...{225,-57}     % 15
  2793.       (996,1012)--cycle);               % 16
  2794.  
  2795. n := 6;
  2796. t1 := 0;
  2797. t2 := 3;
  2798. t3 := 6;
  2799. t4 := 7;
  2800. t5 := 10;
  2801. t6 := 13;
  2802.  
  2803. adj_fill.B(1, 6)                    % fixed x points
  2804.      ()                         % fixed y points
  2805.      ((3,1), (4,2))                    % tied points
  2806.      ((2,5))                         % verticals
  2807.      ((3,4), (1,6))                    % horizontals
  2808.      ((78,-589){1,0}...               % 0
  2809.       (334,-570){400,75}...               % *1
  2810.       (478,-514){247,220}...               % 2
  2811.       (584,113){0,1}...               % 3
  2812.       (621,600){142,757}...               % *4
  2813.       (726,870){347,374}...{384,85}          % 5
  2814.       (996,1012)--                    % 6
  2815.       (1138,972){-1,0}...               % 7
  2816.       (875,905){-234,-204}...          % 8
  2817.       (797,695){-91,-784}...               % *9
  2818.       (784,121){0,-1}...               % 10
  2819.       (756,-330){-114,-680}...          % *11
  2820.       (670,-559){-267,-277}...{-1,0}          % 12
  2821.       (78,-656)--cycle);               % 13
  2822.  
  2823. endchar(0);
  2824.  
  2825. "smverticalbar";
  2826.  
  2827. %charbegin( 106, 790h#, programem*v#, baseline*v#);
  2828. charbegin( 106, 790h#, .75programem*v#, .25programem*v#); % DEK
  2829.  
  2830. n := 0;
  2831.  
  2832. adj_fill.A()                         % fixed x points
  2833.      ()                         % fixed y points
  2834.      ()                         % tied points
  2835.      ()                         % verticals
  2836.      ()                         % horizontals
  2837. %     ((320,2604){0,-2736}...{0,-2736}     % 0
  2838. %      (320,-132)--                    % 1
  2839. %      (447,-90){0,2753}...{0,2753}          % 2
  2840. %      (447,2663)--cycle);               % 3
  2841.      ((320,2660){0,-2736}...{0,-2736}     % 0 % DEK
  2842.       (320,-635)--                    % 1
  2843.       (447,-590){0,2753}...{0,2753}          % 2
  2844.       (447,2730)--cycle);               % 3
  2845.  
  2846. endchar(0);
  2847.  
  2848. "smbackslash";
  2849.  
  2850. %charbegin( 110, 1843h#, programem*v#, descender*v#);
  2851. charbegin( 110, 1858h#, .75programem*v#, .25programem*v#); % DEK
  2852.  
  2853. numeric a[],b[],alpha,beta;
  2854. pair vec;
  2855. .5[b0,b3]=.75programem-120;  .5[b1,b2]=-.25programem+250;
  2856. b0-b3=-63; b1-b2=-85;
  2857. .5[a0,a3]=206; .5[a1,a2]=1650;
  2858. vec=(.5[a0-a1,a3-a2],.5[b0-b1,b3-b2]);
  2859. (a3,b3)-(a2,b2)=alpha*vec;
  2860. (a1,b1)=beta*vec+(a2,b2)+145*(unitvector vec rotated 90);
  2861.  
  2862. n := 0;
  2863.  
  2864. adj_fill.A()                         % fixed x points
  2865.      ()                         % fixed y points
  2866.      ()                         % tied points
  2867.      ()                         % verticals
  2868.      ()                         % horizontals
  2869. %     ((1740,-277){-1745,2961}...{-1745,2961}     % 0
  2870. %      (-5,2684)--                    % 1
  2871. %      (95,2731){1753,-2989}...{1753,-2989}     % 2
  2872. %      (1848,-258)--cycle);               % 3
  2873.      ((a0,b0)--                    % 0 % DEK
  2874.       (a1,b1)--                    % 1
  2875.       (a2,b2)--                    % 2
  2876.       (a3,b3)--cycle);               % 3
  2877.  
  2878. endchar(0);
  2879.  
  2880. "smss";          %medium section sign, \s
  2881.  
  2882. charbegin( 120, 1907h#, depthy*v#, baseline*v#);
  2883.  
  2884. n := 13;
  2885. t1 := 0;
  2886. t2 := 1;
  2887. t3 := 4;
  2888. t4 := 5;
  2889. t5 := 6;
  2890. t6 := 8;
  2891. t7 := 11;
  2892. t8 := 13;
  2893. t9 := 14;
  2894. t10 := 17;
  2895. t11 := 19;
  2896. t12 := 24;
  2897. t13 := 25;
  2898.  
  2899. adj_fill.A()                         % fixed x points
  2900.      (8, 13)                         % fixed y points
  2901.      ((1,3), (3,1), (4,2))               % tied points
  2902.      ((7,9), (5,11), (2,12))               % verticals
  2903.      ((6,10))                    % horizontals
  2904.      ((1426,616){198,265}...               % 0
  2905.       (1504,859){0,1}...               % 1
  2906.       (1370,1129){-1,1}...               % 2
  2907.       (1013,1336){-579,265}...          % 3
  2908.       (519,1615){-249,293}...          % 4
  2909.       (442,1716){-66,219}...               % 5
  2910.       (404,1941){0,1}...               % 6
  2911.       (585,2418){1,1}...               % 7
  2912.       (1031,2594){1,0}...               % 8
  2913.       (1237,2570){338,-91}...          % *9
  2914.       (1369,2503){1,-1}...               % 10
  2915.       (1469,2302){0,-1}...{-57,-276}          % 11
  2916.       (1446,2164)--                    % 12
  2917.       (1228,2088){-54,38}...{-54,38}          % 13
  2918.       (1174,2126){0,1}...               % 14
  2919.       (1155,2297){-73,279}...          % *15
  2920.       (1101,2405){-1,1}...               % 16
  2921.       (922,2474){-1,0}...               % 17
  2922.       (708,2364){-1,-1}...               % 18
  2923.       (614,2077){0,-1}...               % 19
  2924.       (709,1828){1,-1}...               % 20
  2925.       (780,1776){404,-234}...          % *21
  2926.       (1113,1594){1.733,-.9989}...          % 22
  2927.       (1533,1353){1,-1}...               % 23
  2928.       (1668,1053){0,-1}...{-330,-344}     % 24
  2929.       (1478,555)--cycle);               % 25
  2930.  
  2931. n := 11;
  2932. t1 := 0;
  2933. t2 := 2;
  2934. t3 := 4;
  2935. t4 := 8;
  2936. t5 := 9;
  2937. t6 := 10;
  2938. t7 := 11;
  2939. t8 := 14;
  2940. t9 := 15;
  2941. t10 := 17;
  2942. t11 := 19;
  2943.  
  2944. adj_fill.B()                         % fixed x points
  2945.      (1)                         % fixed y points
  2946.      ((5,2), (6,1), (8,3))               % tied points
  2947.      ((4,7), (3,9), (1,11))               % verticals
  2948.      ((2,10))                    % horizontals
  2949.      ((496,195){1,-482}...               % 0
  2950.       (618,-166){1,-1}...               % 1
  2951.       (911,-270){1,0}...               % 2
  2952.       (1225,-126){1,1}...               % 3
  2953.       (1321,178){0,1}...               % 4
  2954.       (1211,417){-1,1}...               % 5
  2955.       (797,650){-1113,520}...          % 6
  2956.       (399,886){-1,1}...               % 7
  2957.       (264,1250){0,1}...{301,424}          % 8
  2958.       (442,1716)--                    % 9
  2959.       (519,1615){-364,-450}...          % 10
  2960.       (406,1379){0,-1}...               % 11
  2961.       (504,1154){1,-1}...               % 12
  2962.       (904,912){843,-393}...               % 13
  2963.       (1426,616){235,-235}...          % 14
  2964.       (1544,277){0,-1}...               % 15
  2965.       (1351,-195){-1,-1}...               % 16
  2966.       (876,-395){-1,0}...               % 17
  2967.       (349,-223){-1,1}...{-60,553}          % 18
  2968.       (207,86)--cycle);               % 19
  2969.  
  2970. endchar(0);
  2971.  
  2972. "rmnot";     %logical not sign
  2973.  
  2974. charbegin( 58, 2534h#, lcbody*v#, baseline*v#);
  2975. n := 4;
  2976. t1 := 1;
  2977. t2 := 2;
  2978. t3 := 3;
  2979. t4 := 7;
  2980.  
  2981. adj_fill.A()                         % fixed x points
  2982.      (4)                         % fixed y points
  2983.      ()                         % tied points
  2984.      ((1,2))                         % verticals
  2985.      ((2,3))                         % horizontals
  2986.      ((2325,764){0,749}...{0,749}          % 0
  2987.       (2325,1513){-2231,0}...{-2231,0}     % 1
  2988.       (94,1513)--                    % 2
  2989.       (94,1361){1941,0}...               % 3
  2990.       (2035,1361){1,0}...               % 4
  2991.       (2122,1355){1.473,-.9487}...          % 5
  2992.       (2149,1305){76,-698}...{55,-543}     % 6
  2993.       (2204,762)--cycle);               % 7
  2994.  
  2995. endchar(0);
  2996.  
  2997. % Fraktur copied from EUFMCH
  2998. set_stem_round(240,250,267,267,290,315);
  2999. more_side(100h#); % DEK
  3000.  
  3001. "FMUR";
  3002.  
  3003. charbegin( 60,2866h#, capheight*v#, baseline*v#);
  3004. n := 14;
  3005. t1 := 0;
  3006. t2 := 1;
  3007. t3 := 5;
  3008. t4 := 7;
  3009. t5 := 9;
  3010. t6 := 11;
  3011. t7 := 12;
  3012. t8 := 13;
  3013. t9 := 15;
  3014. t10 := 19;
  3015. t11 := 21;
  3016. t12 := 24;
  3017. t13 := 29;
  3018. t14 := 31;
  3019.  
  3020. adj_fill.A(7, 14)                    % fixed x points
  3021.      (1, 8)                         % fixed y points
  3022.      ((12,1))                    % tied points
  3023.      ((6,9), (5,10), (3,12))               % verticals
  3024.      ((4,11), (2,13))               % horizontals
  3025.      ((59,0){3,4}...                    % 0
  3026.       (335,158){1,0}...{1,-1}          % 1
  3027.       (611,-39){155,130}...{5,4}          % 2
  3028.       (1221,473){2,3}...               % 3
  3029.       (1441,1012){75,320}...               % *4
  3030.       (1517,1734){0,1}...               % 5
  3031.       (1281,2403){-1,1}...               % 6
  3032.       (827,2600){-1,0}...               % 7
  3033.       (225,2332){-1,-1}...               % 8
  3034.       (0,1872){0,-1}...               % 9
  3035.       (158,1576){3,-4}...               % 10
  3036.       (315,1320){0,-1}...{-7,-4}          % 11
  3037.       (99,1024)--                    % 12
  3038.       (177,965){5,3}...               % 13
  3039.       (480,1212){105,125}...               % *14
  3040.       (591,1458){0,1}...               % 15
  3041.       (545,1595){-45,80}...               % *16
  3042.       (414,1773){-8,9}...               % 17
  3043.       (282,1951){-45,80}...               % *18
  3044.       (236,2088){0,1}...               % 19
  3045.       (339,2293){1,1}...               % 20
  3046.       (591,2384){1,0}...               % 21
  3047.       (965,2206){1,-1}...               % 22
  3048.       (1140,1888){60,-200}...          % *23
  3049.       (1202,1418){0,-1}...               % 24
  3050.       (1172,903){-30,-215}...          % *25
  3051.       (1084,571){-3,-6}...{-5,-3}          % 26
  3052.       (768,236){-7,8}...               % 27
  3053.       (605,398){-70,55}...               % *28
  3054.       (493,453){-1,0}...               % 29
  3055.       (270,349){-125,-100}...{-3,-4}          % *30
  3056.       (0,59)--cycle);               % 31
  3057.  
  3058. n := 6;
  3059. t1 := 0;
  3060. t2 := 6;
  3061. t3 := 8;
  3062. t4 := 9;
  3063. t5 := 11;
  3064. t6 := 15;
  3065.  
  3066. adj_fill.B()                         % fixed x points
  3067.      (4)                         % fixed y points
  3068.      ((1,5), (3,2), (4,3), (6,4))          % tied points
  3069.      ()                         % verticals
  3070.      ((2,5), (1,6))                    % horizontals
  3071.      ((2837,1970){-10,-2}...               % 0
  3072.       (2664,1961){-70,10}...               % *1
  3073.       (2561,2009){-3,4}...               % 2
  3074.       (2542,2063){-10,60}...               % *3
  3075.       (2522,2246){-1,8}...               % 4
  3076.       (2443,2502){-5,6}...               % 5
  3077.       (2226,2600){-1,0}...               % 6
  3078.       (1655,2325){-1,-1}...{-5,-6}          % 7
  3079.       (1478,2128)--                    % 8
  3080.       (1517,1891){2,4}...               % 9
  3081.       (1753,2266){1,1}...               % 10
  3082.       (1990,2384){1,0}...               % 11
  3083.       (2147,2285){1,-2}...               % 12
  3084.       (2206,2088){1,-7}...               % 13
  3085.       (2266,1832){1,-1}...{9,-1}          % 14
  3086.       (2403,1773)--cycle);               % 15
  3087.  
  3088. n := 7;
  3089. t1 := 0;
  3090. t2 := 1;
  3091. t3 := 2;
  3092. t4 := 3;
  3093. t5 := 4;
  3094. t6 := 5;
  3095. t7 := 9;
  3096.  
  3097. adj_fill.C(5, 6)                    % fixed x points
  3098.      ()                         % fixed y points
  3099.      ((1,11), (3,6), (4,7), (5,8), (6,9), (7,10))% tied points
  3100.      ((2,7))                         % verticals
  3101.      ()                         % horizontals
  3102.      ((2541,630){-2,6}...{-1,24}          % 0
  3103.       (2482,1359){-7,6}...               % 1
  3104.       (2147,1497){-1,0}...               % 2
  3105.       (1852,1497){-1.932,-.3624}...{-90,-35}     % 3
  3106.       (1497,1359)--                    % 4
  3107.       (1497,1261){4,1}...               % 5
  3108.       (1832,1320){1,0}...               % 6
  3109.       (2128,1221){1,-1}...               % 7
  3110.       (2206,1103){1,-5}...{-1,-21}          % 8
  3111.       (2226,394)--cycle);               % 9
  3112.  
  3113. n := 4;
  3114. t1 := 0;
  3115. t2 := 1;
  3116. t3 := 2;
  3117. t4 := 5;
  3118.  
  3119. adj_fill.D()                         % fixed x points
  3120.      ()                         % fixed y points
  3121.      ((1,7), (2,4), (3,5), (4,6))          % tied points
  3122.      ()                         % verticals
  3123.      ()                         % horizontals
  3124.      ((1852,1497){2,1}...               % 0
  3125.       (2403,1773){5,3}...{110,50}          % 1
  3126.       (2837,1970)--                    % 2
  3127.       (2876,1911){-8,-3}...               % 3
  3128.       (2561,1773){-7,-4}...{-5,-4}          % 4
  3129.       (2147,1497)--cycle);               % 5
  3130.  
  3131. n := 4;
  3132. t1 := 0;
  3133. t2 := 1;
  3134. t3 := 2;
  3135. t4 := 3;
  3136.  
  3137. adj_fill.E()                         % fixed x points
  3138.      ()                         % fixed y points
  3139.      ((1,2), (2,1), (3,1), (4,3))          % tied points
  3140.      ()                         % verticals
  3141.      ()                         % horizontals
  3142.      ((1478,2128){-70,-180}...{-70,-180}     % 0
  3143.       (1202,1418)--                    % 1
  3144.       (1202,1418){80,120}...{80,120}          % 2
  3145.       (1517,1891)--cycle);               % 3
  3146.  
  3147. n := 4;
  3148. t1 := 0;
  3149. t2 := 1;
  3150. t3 := 2;
  3151. t4 := 3;
  3152.  
  3153. adj_fill.F()                         % fixed x points
  3154.      ()                         % fixed y points
  3155.      ((1,8), (2,1), (3,1), (4,9))          % tied points
  3156.      ()                         % verticals
  3157.      ()                         % horizontals
  3158.      ((1497,1359){-75,15}...{-75,15}          % 0
  3159.       (1202,1418)--                    % 1
  3160.       (1202,1418){75,-40}...{75,-40}          % 2
  3161.       (1497,1261)--cycle);               % 3
  3162.  
  3163. n := 4;
  3164. t1 := 0;
  3165. t2 := 1;
  3166. t3 := 2;
  3167. t4 := 4;
  3168.  
  3169. adj_fill.G()                         % fixed x points
  3170.      ()                         % fixed y points
  3171.      ((1,13), (2,10), (3,11), (4,12))     % tied points
  3172.      ()                         % verticals
  3173.      ()                         % horizontals
  3174.      ((2463,-39){-60,110}...{-60,110}     % 0
  3175.       (2226,394)--                    % 1
  3176.       (2541,630){2,-6}...               % 2
  3177.       (2643,397){50,-80}...{1,0}          % *3
  3178.       (2738,315)--cycle);               % 4
  3179.  
  3180. n := 2;
  3181. t1 := 1;
  3182. t2 := 2;
  3183.  
  3184. adj_fill.H()                         % fixed x points
  3185.      ()                         % fixed y points
  3186.      ((1,13), (2,12))               % tied points
  3187.      ()                         % verticals
  3188.      ()                         % horizontals
  3189.      ((2955,335){-125,-95}...{-125,-95}     % 0
  3190.       (2463,-39)--                    % 1
  3191.       (2738,315){1,0}...{5,2}          % 2
  3192.       (2955,394)--cycle);               % 3
  3193.  
  3194. endchar(0);
  3195.  
  3196. "FMUI";
  3197.  
  3198. charbegin( 61,1853h#, capheight*v#, baseline*v#);
  3199.  
  3200. n := 6;
  3201. t1 := 0;
  3202. t2 := 2;
  3203. t3 := 4;
  3204. t4 := 8;
  3205. t5 := 10;
  3206. t6 := 12;
  3207.  
  3208. adj_fill.A()                         % fixed x points
  3209.      (1, 4)                         % fixed y points
  3210.      ()                         % tied points
  3211.      ()                         % verticals
  3212.      ((3,5), (2,6))                    % horizontals
  3213.      ((1832,2541){-200,-155}...          % 0
  3214.       (1612,2395){-95,-50}...          % *1
  3215.       (1458,2344){-1,0}...               % 2
  3216.       (1261,2403){-200,95}...          % 3
  3217.       (690,2600){-1,0}...               % 4
  3218.       (315,2443){-9,-10}...               % 5
  3219.       (167,2204){-77,-160}...{-100,-295}     % *6
  3220.       (12,1812)--                    % 7
  3221.       (79,1773){100,265}...               % 8
  3222.       (315,2167){1,1}...               % 9
  3223.       (611,2285){1,0}...               % 10
  3224.       (821,2242){175,-55}...{200,-75}     % *11
  3225.       (1300,2069){200,105}...{200,185}     % 12
  3226.       (1872,2482)--cycle);               % 13
  3227.  
  3228. n := 9;
  3229. t1 := 0;
  3230. t2 := 1;
  3231. t3 := 1.202;
  3232. t4 := 3;
  3233. t5 := 6;
  3234. t6 := 9;
  3235. t7 := 10;
  3236. t8 := 14;
  3237. t9 := 16;
  3238.  
  3239. adj_fill.B(1, 7)                    % fixed x points
  3240.      (2, 3, 6)                    % fixed y points
  3241.      ()                         % tied points
  3242.      ((5,8))                         % verticals
  3243.      ((4,9))                         % horizontals
  3244.      ((39,59){100,140}...{200,180}          % 0
  3245.       (433,493){200,325}...               % 1
  3246.       (630,236){1,-1}...               % 2
  3247.       (867,138){1,0}...               % 3
  3248.       (1143,276){1,1}...               % 4
  3249.       (1259,495){40,140}...               % *5
  3250.       (1300,827){0,1}...               % 6
  3251.       (1261,1300){-25,200}...{25,200}     % 7
  3252.       (1241,1773){200,225}...{200,125}     % 8
  3253.       (1734,2206)--                    % 9
  3254.       (1793,2187){-200,-190}...          % 10
  3255.       (1603,1962){-65,-105}...{0,-1}          % *11
  3256.       (1537,1773){5,-60}...               % 12
  3257.       (1556,1537){30,-200}...          % 13
  3258.       (1615,965){0,-1}...               % 14
  3259.       (1399,335){-1,-1}...               % 15
  3260.       (611,-39){-1,0}...{-100,90}          % 16
  3261.       (256,138){-50,-35}...{-50,-35}          % 17
  3262.       (59,0)--cycle);               % 18
  3263.  
  3264. endchar(0);
  3265.  
  3266. endinput;
  3267. %%% characters which have been eliminated:
  3268.  
  3269. "smcong";
  3270. % by DEK, not HZ!
  3271. % actually there's a bug: distance between bars won't be equal after rounding
  3272. % so I'm not using this character
  3273. charbegin( oct"021", 2800h#, (810+925)*v#, (810-925)*v#);
  3274.  
  3275. n := 2;
  3276. t1 := 1;
  3277. t2 := 2;
  3278.  
  3279. adj_fill.A()                         % fixed x points
  3280.      ()                         % fixed y points
  3281.      ()                         % tied points
  3282.      ()                         % verticals
  3283.      ((1,2))                         % horizontals
  3284.      ((2684,1727){-1650,0}...{-1650,0}     % 0
  3285.       (234,1727)--                    % 1
  3286.       (200,1583){1651,0}...{1651,0}          % 2
  3287.       (2651,1583)--cycle);               % 3
  3288.  
  3289. n := 2;
  3290. t1 := 1;
  3291. t2 := 2;
  3292.  
  3293. adj_fill.B()                         % fixed x points
  3294.      ()                         % fixed y points
  3295.      ()                         % tied points
  3296.      ()                         % verticals
  3297.      ((1,2))                         % horizontals
  3298.      ((2684,997){-1650,0}...{-1650,0}     % 0
  3299.       (234,997)--                    % 1
  3300.       (200,853){1651,0}...{1651,0}          % 2
  3301.       (2651,853)--cycle);               % 3
  3302.  
  3303. n := 2;
  3304. t1 := 1;
  3305. t2 := 2;
  3306.  
  3307. adj_fill.C()                         % fixed x points
  3308.      ()                         % fixed y points
  3309.      ()                         % tied points
  3310.      ()                         % verticals
  3311.      ((1,2))                         % horizontals
  3312.      ((2684,267){-1650,0}...{-1650,0}     % 0
  3313.       (234,267)--                    % 1
  3314.       (200,123){1651,0}...{1651,0}          % 2
  3315.       (2651,123)--cycle);               % 3
  3316.  
  3317. endchar(0);
  3318.  
  3319.  
  3320. "smlessthanorequal";
  3321. % by DEK, not HZ!
  3322. charbegin( oct"024", 2800h#, (1430+925)*v#, (1430-925)*v#);
  3323.  
  3324. n := 0;
  3325.  
  3326. numeric a[],b[],alpha[],beta[];
  3327. pair vec[];
  3328. a6=a8=a10=2493; a7=a9=347; .5[b6,b8]=b7; .5[b6,b10]=925; b6-b8=2000;
  3329. b8-b10=b7-b9=860;
  3330. vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
  3331. vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
  3332. (a2,b2)=(a6,b6)+55vec3; (a3,b3)=(a6,b6)-75vec3;
  3333. (a0,b0)=(a8,b8)-75vec4; (a5,b5)=(a8,b8)+75vec4;
  3334. (a1,b1)=(a6,b6)+75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
  3335. (a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;
  3336.  
  3337. adj_fill.A()                         % fixed x points
  3338.      ()                         % fixed y points
  3339.      ()                         % tied points
  3340.      ()                         % verticals
  3341.      ()                         % horizontals
  3342.      ((a0,b0)--                    % 0
  3343.       (a1,b1)--                    % 1
  3344.       (a2,b2)--                    % 2
  3345.       (a3,b3)--                    % 3
  3346.       (a4,b4)--                    % 4
  3347.       (a5,b5)--cycle);               % 5
  3348.  
  3349. adj_fill.B()                         % fixed x points
  3350.      ()                         % fixed y points
  3351.      ()                         % tied points
  3352.      ()                         % verticals
  3353.      ()                         % horizontals
  3354.      (((a10,b10)-75vec4)--               % 0
  3355.       ((a9-60,b9)-75vec4)--               % 1
  3356.       ((a9,b9)+75vec4)--               % 2
  3357.       ((a10,b10)+75vec4)--cycle);          % 3
  3358.  
  3359. endchar(0);
  3360.  
  3361. "smgreaterthanorequal";
  3362. % by DEK, not HZ!
  3363. charbegin( oct"025", 2800h#, (1430+925)*v#, (1430-925)*v#);
  3364.  
  3365. n := 0;
  3366.  
  3367. numeric a[],b[],alpha[],beta[];
  3368. pair vec[];
  3369. a6=a8=a10=307; a7=a9=2453; .5[b6,b8]=b7; .5[b6,b10]=925; b6-b8=2000;
  3370. b8-b10=b7-b9=860;
  3371. vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
  3372. vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
  3373. (a2,b2)=(a6,b6)-55vec3; (a3,b3)=(a6,b6)+75vec3;
  3374. (a0,b0)=(a8,b8)+75vec4; (a5,b5)=(a8,b8)-75vec4;
  3375. (a1,b1)=(a6,b6)-75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
  3376. (a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;
  3377.  
  3378. adj_fill.A()                         % fixed x points
  3379.      ()                         % fixed y points
  3380.      ()                         % tied points
  3381.      ()                         % verticals
  3382.      ()                         % horizontals
  3383.      ((a0,b0)--                    % 0
  3384.       (a1,b1)--                    % 1
  3385.       (a2,b2)--                    % 2
  3386.       (a3,b3)--                    % 3
  3387.       (a4,b4)--                    % 4
  3388.       (a5,b5)--cycle);               % 5
  3389.  
  3390. adj_fill.B()                         % fixed x points
  3391.      ()                         % fixed y points
  3392.      ()                         % tied points
  3393.      ()                         % verticals
  3394.      ()                         % horizontals
  3395.      (((a10,b10)+75vec4)--               % 0
  3396.       ((a9+60,b9)+75vec4)--               % 1
  3397.       ((a9,b9)-75vec4)--               % 2
  3398.       ((a10,b10)-75vec4)--cycle);          % 3
  3399.  
  3400. endchar(0);
  3401.  
  3402. % ALTERNATE CHARACTERS
  3403. set_stem_round(230,350,270,270,290,310);
  3404.  
  3405. "smuio";
  3406.  
  3407. %charbegin( "I", 1615h#, capheight*v#, baseline );
  3408. charbegin( 123, 1615h#, capheight*v#, baseline ); %NGB
  3409. n := 15;
  3410. t1 := 0;
  3411. t2 := 4;
  3412. t3 := 6;
  3413. t4 := 9;
  3414. t5 := 12;
  3415. t6 := 14;
  3416. t7 := 16;
  3417. t8 := 17;
  3418. t9 := 19;
  3419. t10 := 21;
  3420. t11 := 24;
  3421. t12 := 26;
  3422. t13 := 28;
  3423. t14 := 30;
  3424. t15 := 31;
  3425.  
  3426. adj_fill.A(13)                         % fixed x points
  3427.      (3, 7, 8, 12)                    % fixed y points
  3428.      ((1,2), (7,1), (8,1), (15,2))          % tied points
  3429.      ((6,9), (4,11), (2,14))               % verticals
  3430.      ((5,10))                    % horizontals
  3431.      ((839,1440){-1,-1}...               % 0
  3432.       (819,1450){-1,-1}...               % 1
  3433.       (718,1400){-1,0}...               % 2
  3434.       (623,1430){-1,1}...               % 3
  3435.       (531,1683){0,1}...               % 4
  3436.       (779,2243){1,1}...{417,49}          % 5
  3437.       (1391,2555){12,-30}...               % 6
  3438.       (1403,2525){-.2671,-1.698}...{-73,-88}     % 7
  3439.       (1330,2437){0,-1141}...          % 8
  3440.       (1330,1296){0,-1}...               % 9
  3441.       (1250,623){-306,-1108}...          % *10
  3442.       (1024,188){-1,-1}...               % 11
  3443.       (551,-49){-1,0}...               % 12
  3444.       (147,96){-1,1}...               % 13
  3445.       (47,319){0,1}...               % 14
  3446.       (96,450){1,1}...{1,0}               % 15
  3447.       (242,511)--                    % 16
  3448.       (242,511){1,0}...               % 17
  3449.       (345,461){1,-1}...               % 18
  3450.       (365,333){0,-1}...               % 19
  3451.       (433,177){1,-1}...               % 20
  3452.       (624,98){1,0}...               % 21
  3453.       (888,231){1,1}...               % 22
  3454.       (1043,582){210,963}...               % *23
  3455.       (1098,1194){0,1}...{0,1131}          % 24
  3456.       (1098,2325){-42,13}...{-42,13}          % 25
  3457.       (1056,2338){-441,-195}...          % 26
  3458.       (886,2210){-1,-1}...               % 27
  3459.       (732,1861){0,-1}...               % 28
  3460.       (846,1643){1,-1}...               % 29
  3461.       (868,1536){0,-1}...{-1,-1}          % 30
  3462.       (839,1440)--cycle);               % 31
  3463.  
  3464. endchar(0);
  3465.  
  3466.  
  3467. "smuib";      % '174
  3468.  
  3469. %charbegin( 126, 1431h#, capheight*v#, baseline );
  3470. charbegin( 124, 1431h#, capheight*v#, baseline ); % DEK
  3471. n := 9;
  3472. t1 := 1;
  3473. t2 := 2;
  3474. t3 := 7;
  3475. t4 := 8;
  3476. t5 := 9;
  3477. t6 := 10;
  3478. t7 := 12;
  3479. t8 := 15;
  3480. t9 := 16;
  3481.  
  3482. adj_fill.A(9)                         % fixed x points
  3483.      (4, 6)                         % fixed y points
  3484.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  3485.      ((3,7))                         % verticals
  3486.      ((2,8))                         % horizontals
  3487.      ((1273,2465){-262,-67}...{-262,-67}     % 0
  3488.       (1011,2398){-241,0}...{-241,0}          % 1
  3489.       (770,2398){-658,-114}...          % 2
  3490.       (494,2330){-433,-153}...          % *3
  3491.       (337,2245){-1,-1}...               % 4
  3492.       (245,2062){0,-1}...               % 5
  3493.       (259,1946){155,-849}...          % 6
  3494.       (286,1840){0,-1}...{-1,-1}          % 7
  3495.       (253,1767)--                    % 8
  3496.       (253,1767){-1,-1}...               % 9
  3497.       (154,1711){-1,0}...               % 10
  3498.       (62,1742){-1,1}...               % 11
  3499.       (-1,1878){0,1}...               % 12
  3500.       (166,2278){1,1}...               % 13
  3501.       (513,2474){845,265}...               % *14
  3502.       (1011,2543){1,0}...{577,-34}          % 15
  3503.       (1313,2532)--cycle);               % 16
  3504.  
  3505. n := 6;
  3506. t1 := 0;
  3507. t2 := 2;
  3508. t3 := 3;
  3509. t4 := 4;
  3510. t5 := 5;
  3511. t6 := 7;
  3512.  
  3513. adj_fill.B(1)                         % fixed x points
  3514.      ()                         % fixed y points
  3515.      ((1,5), (3,1), (4,3), (6,4))          % tied points
  3516.      ((2,5))                         % verticals
  3517.      ()                         % horizontals
  3518.      ((425,177){1,0}...               % 0
  3519.       (683,251){1,1}...               % 1
  3520.       (770,941){0,1}...{0,1457}          % 2
  3521.       (770,2398)--                    % 3
  3522.       (1011,2398){0,-1483}...          % 4
  3523.       (1011,915){0,-1}...               % 5
  3524.       (950,466){-323,-557}...{-1,-1}          % 6
  3525.       (750,177)--cycle);               % 7
  3526.  
  3527. n := 3;
  3528. t1 := 0;
  3529. t2 := 1;
  3530. t3 := 6;
  3531.  
  3532. adj_fill.C()                         % fixed x points
  3533.      ()                         % fixed y points
  3534.      ((1,5), (2,4))                    % tied points
  3535.      ()                         % verticals
  3536.      ((2,3))                         % horizontals
  3537.      ((425,177){325,0}...{325,0}          % 0
  3538.       (750,177){261,0}...               % 1
  3539.       (1011,177){1,0}...{626,169}          % 2
  3540.       (1397,226)--                    % 3
  3541.       (1428,186){-362,-291}...          % 4
  3542.       (770,2){-1,0}...{-449,0}          % 5
  3543.       (321,2)--cycle);               % 6
  3544.  
  3545. endchar(0);
  3546.  
  3547.