home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 April / VPR9904A.BIN / Wintex / Ams / jamstex.lzh / AMSFONTS / SOURCES / EULER / EUFMCH.MF < prev    next >
Text File  |  1993-02-25  |  215KB  |  6,393 lines

  1. %% @metafontfile{
  2. %%     filename="eufmch.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="6393",
  24. %%     keywords="amsfonts, tex, metafont , euler ",
  25. %%     abstract="This is the driver file for use with 
  26. %%            the Euler Fraktur medium font in AMSFonts 2.1."
  27. %%     }
  28. %
  29. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  30. % Euler Fraktur Medium
  31.  
  32. % ----- This font is set up as Text Font, \textfont0, page 427 of TeXbook
  33. % however, there are some alternate characters in nonstandard positions
  34.  
  35. mode_setup;
  36. font_coding_scheme "TeX text subset";
  37.  
  38. %     EULER FRAKTUR 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 =     2560;
  48.       lcbody    =     1760;     % same for medium and bold.
  49.       dotheight =     capheight; %     dotheight =     2600;
  50.      theight       =     2300;   % measured to lowest of the 3 top lines.
  51.      lfigheight =     capheight;
  52.      nfigbody  =     lcbody;
  53.      nfigascender =     ascender;
  54.      nfigdescender =     descender;
  55.  
  56. % the next lines added since everything was digitized too high! --- DEK
  57. extra_beginchar:=extra_beginchar & "rot:=initrot;";
  58. transform initrot; initrot:=identity;
  59.  
  60. input eubase;
  61.  
  62. % ses individual character widths for medium lower case
  63.  
  64. %        20h# means 20 bitpad units.
  65.  
  66. lefta# = 0h#;     righta# = 0h#;
  67. leftb# = 0h#;     rightb# = 0h#;
  68. leftc# = 0h#;     rightc# = 0h#;
  69. leftd# = 0h#;     rightd# = 0h#;
  70. lefte# = 0h#;     righte# = 50h#;
  71. leftf# = 0h#;     rightf# = 0h#;
  72. leftg# = 0h#;     rightg# = 0h#;
  73. lefth# = 0h#;     righth# = 0h#;
  74. lefti# = 0h#;     righti# = 0h#;
  75. leftj# = 0h#;     rightj# = 0h#;
  76. leftk# = 0h#;     rightk# = 0h#;
  77. leftl# = 0h#;     rightl# = 0h#;
  78. %leftm# = 0h#;     rightm# = 0h#;
  79. leftm# = -50h#;     rightm# = 0h#;
  80. %leftn# = 0h#;     rightn# = -50h#;
  81. leftn# = -50h#;     rightn# = -50h#;
  82. %lefto# = -50h#;     righto# = 0h#;
  83. lefto# = -100h#;     righto# = 0h#; % DEK
  84. leftp# = 0h#;     rightp# = 0h#;
  85. %leftq# = 0h#;     rightq# = 0h#;
  86. leftq# = -50h#;     rightq# = 0h#; % DEK
  87. leftr# = 0h#;     rightr# = 0h#;
  88. lefts# = 0h#;     rights# = 0h#;
  89. leftt# = 0h#;     rightt# = 0h#;
  90. leftu# = 0h#;     rightu# = 0h#;
  91. leftv# = 0h#;     rightv# = 0h#;
  92. leftw# = 0h#;     rightw# = 0h#;
  93. leftx# = 0h#;     rightx# = 0h#;
  94. lefty# = 0h#;     righty# = 0h#;
  95. leftz# = 0h#;     rightz# = 0h#;
  96.  
  97.  
  98. % MEDIUM NON-LINING FIGURES
  99. no_stem_round;
  100.  
  101. "rmn0";
  102.  
  103. charbegin( "0", 1858h#, nfigbody*v#, baseline );
  104.  
  105. n := 10;
  106. t1 := 0;
  107. t2 := 2;
  108. t3 := 4;
  109. t4 := 6;
  110. t5 := 8;
  111. t6 := 9;
  112. t7 := 11;
  113. t8 := 13;
  114. t9 := 15;
  115. t10 := 17;
  116.  
  117. adj_fill.A(1, 6)                    % fixed x points
  118.      ()                         % fixed y points
  119.      ((1,1), (5,1), (6,2), (10,2))          % tied points
  120.      ((4,7), (2,9))                    % verticals
  121.      ((5,6), (3,8), (1,10))               % horizontals
  122.      ((965,1825){-404,-220}...          % 0
  123.       (467,1446){-1,-1}...               % 1
  124.       (153,731){0,-1}...               % 2
  125.       (373,122){1,-1}...               % 3
  126.       (787,-47){1,0}...               % 4
  127.       (1360,240){1,1}...               % 5
  128.       (1686,961){0,1}...               % 6
  129.       (1411,1559){-1,1}...{-522,155}          % 7
  130.       (965,1825)--                    % 8
  131.       (816,1533){351,-77}...               % 9
  132.       (1192,1333){1,-1}...               % 10
  133.       (1410,785){0,-1}...               % 11
  134.       (1265,337){-1,-1}...               % 12
  135.       (972,220){-1,0}...               % 13
  136.       (650,350){-1,1}...               % 14
  137.       (440,922){0,1}...               % 15
  138.       (576,1359){335,337}...{232,154}     % 16
  139.       (816,1533)--cycle);               % 17
  140.  
  141. endchar(0);
  142.  
  143. "rmn1";
  144.  
  145. charbegin( "1", 1858h#, nfigbody*v#, baseline );
  146. n := 6;
  147. t1 := 0;
  148. t2 := 2;
  149. t3 := 5;
  150. t4 := 6;
  151. t5 := 9;
  152. t6 := 11;
  153.  
  154. adj_fill.A(3)                         % fixed x points
  155.      (6)                         % fixed y points
  156.      ((1,2), (6,1))                    % tied points
  157.      ((2,5))                         % verticals
  158.      ((3,4))                         % horizontals
  159.      ((1128,188){-1,1}...               % 0
  160.       (1111,249){-9,228}...               % 1
  161.       (1099,849){0,1}...{100,774}          % 2
  162.       (1142,1705){-36,29}...{-36,29}          % 3
  163.       (1106,1734){-222,-23}...{-1,0}          % 4
  164.       (382,1701)--                    % 5
  165.       (383,1601){443,-52}...               % 6
  166.       (640,1558){383,-127}...          % 7
  167.       (758,1447){63,-262}...               % 8
  168.       (784,961){0,-1}...               % 9
  169.       (778,251){-30,-344}...{-1,-1}          % 10
  170.       (763,180)--cycle);               % 11
  171.  
  172. n := 6;
  173. t1 := 0;
  174. t2 := 2;
  175. t3 := 3;
  176. t4 := 4;
  177. t5 := 5;
  178. t6 := 7;
  179.  
  180. adj_fill.B()                         % fixed x points
  181.      ()                         % fixed y points
  182.      ((2,2), (3,1))                    % tied points
  183.      ((1,5))                         % verticals
  184.      ((4,6))                         % horizontals
  185.      ((1702,171){-175,-9}...               % 0
  186.       (1172,160){-423,12}...{-1,1}          % 1
  187.       (1128,188){-365,-8}...{-365,-8}     % 2
  188.       (763,180){-1,-1}...               % 3
  189.       (702,160){-134,1}...{-465,9}          % 4
  190.       (172,161)--                    % 5
  191.       (172,-4){708,23}...               % 6
  192.       (933,24){1,0}...{229,-13}          % 7
  193.       (1698,-2)--cycle);               % 8
  194.  
  195. endchar(0);
  196.  
  197. "rmn2";
  198.  
  199. charbegin( "2", 1858h#, nfigbody*v#, baseline );
  200. n := 10;
  201. t1 := 2;
  202. t2 := 3.14;
  203. t3 := 7;
  204. t4 := 9;
  205. t5 := 11;
  206. t6 := 12;
  207. t7 := 13;
  208. t8 := 15;
  209. t9 := 18;
  210. t10 := 19;
  211.  
  212. adj_fill.A(2, 5, 9)                    % fixed x points
  213.      (6)                         % fixed y points
  214.      ()                         % tied points
  215.      ((3,8))                         % verticals
  216.      ((4,7), (1,10))                    % horizontals
  217.      ((1794,248){-35,23}...{-35,23}          % 0
  218.       (1759,271){-377,-13}...          % 1
  219.       (712,241){-1047,-30}...          % 2
  220.       (651,263){-.4666,1.22}...          % 3
  221.       (665,289){276,278}...               % 4
  222.       (1234,943){760,1089}...          % *5
  223.       (1377,1189){191.1,434.6}...          % *6
  224.       (1425,1378){0,1}...               % 7
  225.       (1319,1635){-1,1}...               % 8
  226.       (1045,1754){-1,0}...               % 9
  227.       (738,1669){-661,-331}...{-307,-268}     % *10
  228.       (384,1423)--                    % 11
  229.       (422,1359){456,262}...               % 12
  230.       (837,1536){1,0}...               % 13
  231.       (1042,1453){1,-1}...               % 14
  232.       (1144,1233){0,-1}...               % 15
  233.       (999,875){-557,-824}...          % *16
  234.       (587,409){-367,-346}...{-312,-286}     % 17
  235.       (220,63){4,-59}...{4,-59}          % 18
  236.       (224,4){1,0}...{1,0}               % 19
  237.       (1702,4)--cycle);               % 20
  238.  
  239. endchar(0);
  240.  
  241. "rmn3";
  242.  
  243. charbegin( "3", 1858h#, nfigbody*v#, descender*v#);
  244. n := 15;
  245. t1 := 0;
  246. t2 := 1;
  247. t3 := 3;
  248. t4 := 6;
  249. t5 := 8;
  250. t6 := 10;
  251. t7 := 12;
  252. t8 := 13;
  253. t9 := 15;
  254. t10 := 17;
  255. t11 := 20;
  256. t12 := 21;
  257. t13 := 24;
  258. t14 := 26;
  259. t15 := 27;
  260.  
  261. adj_fill.A(1, 7)                    % fixed x points
  262.      (8, 15)                         % fixed y points
  263.      ()                         % tied points
  264.      ((5,10), (4,11), (3,13))          % verticals
  265.      ((6,9), (11,12), (2,14))          % horizontals
  266.      ((142,-522){361,-211}...          % 0
  267.       (669,-675){1,0}...               % 1
  268.       (1359,-397){1,1}...               % 2
  269.       (1591,154){0,1}...               % 3
  270.       (1416,586){-1,1}...{-265,3}          % 4
  271.       (958,745){-10,33}...{-10,33}          % 5
  272.       (948,778){215,86}...               % 6
  273.       (1273,999){1,1}...               % 7
  274.       (1424,1361){0,1}...               % 8
  275.       (1307,1644){-1,1}...               % 9
  276.       (979,1755){-1,0}...               % 10
  277.       (697,1682){-582,-283}...{-348,-318}     % *11
  278.       (397,1472)--                    % 12
  279.       (473,1423){329,249}...               % 13
  280.       (641,1527){302,140}...               % *14
  281.       (775,1563){1,0}...               % 15
  282.       (1030,1468){1,-1}...               % 16
  283.       (1133,1205){0,-1}...               % 17
  284.       (1007,941){-1,-1}...               % 18
  285.       (790,814){-535,-186}...{-390,-24}     % *19
  286.       (472,755){0,-125}...{0,-125}          % 20
  287.       (472,630){316,13}...               % 21
  288.       (872,606){638,-130}...               % *22
  289.       (1110,500){1,-1}...               % 23
  290.       (1249,107){0,-1}...               % 24
  291.       (1045,-406){-1,-1}...               % 25
  292.       (627,-553){-1,0}...{-436,217}          % 26
  293.       (198,-423)--cycle);               % 27
  294.  
  295. endchar(0);
  296.  
  297. "rmn4";
  298.  
  299. %This 4 lightened up inside by Dave on Apr 30, 1985
  300. vshift := 10;
  301. hshift := 20;
  302.  
  303. charbegin( "4", 1858h#, nfigbody*v#, descender*v#);
  304. n := 12;
  305. t1 := 0;
  306. t2 := 1;
  307. t3 := 4;
  308. t4 := 5;
  309. t5 := 7;
  310. t6 := 8;
  311. t7 := 9;
  312. t8 := 11;
  313. t9 := 12;
  314. t10 := 13;
  315. t11 := 14;
  316. t12 := 15;
  317.  
  318. adj_fill.A(1, 5)                    % fixed x points
  319.      (2, 11)                         % fixed y points
  320.      ((5,1), (6,2), (10,2), (11,1), (12,3))     % tied points
  321.      ((4,7), (2,9))                    % verticals
  322.      ((5,6), (3,8))                    % horizontals
  323.      ((1783,168){-312,-31}...{-391,-10}     % 0
  324.       (1421,148){-12,332}...{21,798}          % 1
  325.       (1423,1751){-18,12}...{-18,12}          % 2
  326.       (1405,1763){-300,-96}...{-300,-96}     % 3
  327.       (1105,1667){-1067,-1584}...{-1067,-1584}% 4
  328.       (38,83){3,-86}...{3,-86}          % 5
  329.       (41,-3){1073,0}...{1073,0}          % 6
  330.       (1114+hshift,-3)--               % 7
  331.       (1114+hshift,152){-799,0}...{-799,0}     % 8
  332.       (307,152){-16,0}...{-16,0}          % 9
  333.       (291,152){340,653}...{209,261}          % 10
  334.       (1041+hshift,1340+vshift){44,-7}...{44,-7}          % 11
  335.       (1085+hshift,1340+vshift){82,-810}...     % 12
  336.       (1114+hshift,152){0,-1}...{0,-1}     % 13
  337.       (1114+hshift,0){1,0}...          % 14
  338.       (1432,0){2,0}...{320,0}          % 15
  339.       (1752,-3)--cycle);               % 16
  340.  
  341. n := 2;
  342. t1 := 2;
  343. t2 := 3;
  344.  
  345. adj_fill.B()                         % fixed x points
  346.      ()                         % fixed y points
  347.      ((1,1), (2,3))                    % tied points
  348.      ((1,2))                         % verticals
  349.      ()                         % horizontals
  350.       (((1131+hshift),-710){-43,34}...{-43,34}          % 0
  351.       ((1088+hshift),-676){49,516}...{0,1}          % 1
  352.       ((1114+hshift),-3)--                    % 2
  353.       (1432,-3){0,-1}...{29,-457}          % 3
  354.       (1440,-598)--cycle);               % 4
  355.  
  356. endchar(0);
  357.  
  358. "rmn5";
  359.  
  360. charbegin( "5", 1858h#, nfigbody*v#, descender*v#);
  361. n := 13;
  362. t1 := 1;
  363. t2 := 3;
  364. t3 := 5;
  365. t4 := 7;
  366. t5 := 9;
  367. t6 := 10;
  368. t7 := 11;
  369. t8 := 12;
  370. t9 := 14;
  371. t10 := 16;
  372. t11 := 18;
  373. t12 := 19;
  374. t13 := 20;
  375.  
  376. adj_fill.A(6, 13)                    % fixed x points
  377.      (7)                         % fixed y points
  378.      ()                         % tied points
  379.      ((4,9), (2,11))                    % verticals
  380.      ((5,8), (3,10), (1,12))               % horizontals
  381.      ((1469,1399){-959,0}...               % 0
  382.       (510,1399){-1,0}...               % 1
  383.       (448,1355){0,-1}...{0,-652}          % 2
  384.       (448,703){32,-17}...{32,-17}          % 3
  385.       (480,686){176,81}...               % 4
  386.       (957,795){1,0}...               % 5
  387.       (1446,623){1,-1}...               % 6
  388.       (1630,156){0,-1}...               % 7
  389.       (1406,-404){-1,-1}...               % 8
  390.       (579,-682){-1,0}...{-497,212}          % 9
  391.       (175,-588)--                    % 10
  392.       (217,-495){579,-227}...          % 11
  393.       (579,-569){1,0}...               % 12
  394.       (1032,-411){1,1}...               % 13
  395.       (1239,84){0,1}...               % 14
  396.       (1095,501){-1,1}...               % 15
  397.       (764,626){-1,0}...{-294,-317}          % 16
  398.       (365,423){-67,41}...{-67,41}          % 17
  399.       (298,464){0,1}...{0,1}               % 18
  400.       (298,1694){1,0}...{1258,0}          % 19
  401.       (1556,1694)--cycle);               % 20
  402.  
  403. endchar(0);
  404.  
  405. "rml6";
  406.  
  407. charbegin( "6", 1858h#, lfigheight*v#, baseline );
  408. n := 14;
  409. t1 := 2;
  410. t2 := 4;
  411. t3 := 5;
  412. t4 := 8;
  413. t5 := 10;
  414. t6 := 12;
  415. t7 := 13;
  416. t8 := 14;
  417. t9 := 16;
  418. t10 := 18;
  419. t11 := 20;
  420. t12 := 22;
  421. t13 := 25;
  422. t14 := 26;
  423.  
  424. adj_fill.A(8, 14)                    % fixed x points
  425.      (7)                         % fixed y points
  426.      ((2,1), (3,2), (7,2), (8,1))          % tied points
  427.      ((5,10), (3,12))               % verticals
  428.      ((6,9), (4,11), (1,13))               % horizontals
  429.      ((1670,2346){-28,-19}...{-28,-19}     % 0
  430.       (1642,2327){-249,110}...          % 1
  431.       (1420,2372){-1,0}...               % 2
  432.       (830,2101){-297,-275}...{-5,-523}     % 3
  433.       (477,1134){15,-161}...{15,-161}     % 4
  434.       (492,973){23,-345}...               % 5
  435.       (571,513){237,-751}...               % *6
  436.       (729,222){1,-1}...               % 7
  437.       (972,118){1,0}...               % 8
  438.       (1300,232){1,1}...               % 9
  439.       (1451,635){0,1}...               % 10
  440.       (1282,1033){-1,1}...               % 11
  441.       (946,1161){-1,0}...{-381,-288}          % 12
  442.       (492,973)--                    % 13
  443.       (477,1134){27,-4}...{27,-4}          % 14
  444.       (504,1130){379,308}...               % 15
  445.       (1186,1394){1,0}...               % 16
  446.       (1569,1234){1,-1}...               % 17
  447.       (1744,781){0,-1}...               % 18
  448.       (1478,207){-1,-1}...               % 19
  449.       (875,-48){-1,0}...               % 20
  450.       (425,126){-1,1}...               % 21
  451.       (167,879){0,1}...               % 22
  452.       (661,2133){376,379}...               % 23
  453.       (1107,2472){877,458}...          % *24
  454.       (1538,2591){1,0}...{216,-75}          % 25
  455.       (1703,2555)--cycle);               % 26
  456.  
  457. endchar(0);
  458.  
  459. "rmn7";
  460.  
  461. charbegin( "7", 1858h#, nfigbody*v#, descender*v#);
  462. n := 4;
  463. t1 := 0;
  464. t2 := 4;
  465. t3 := 5;
  466. t4 := 10;
  467.  
  468. adj_fill.A()                         % fixed x points
  469.      (1, 4)                         % fixed y points
  470.      ()                         % tied points
  471.      ()                         % verticals
  472.      ((2,3))                         % horizontals
  473.      ((149,-670){-11,49}...{-11,49}          % 0
  474.       (138,-621){222,310}...               % 1
  475.       (1465,1394){404,641}...{-21,18}     % 2
  476.       (1444,1412){-1,0}...{-824,-23}          % 3
  477.       (216,1412)--                    % 4
  478.       (334,1732){503,-63}...               % 5
  479.       (1099,1694){1,0}...{1,0}          % 6
  480.       (1844,1694){0,-59}...{0,-59}          % 7
  481.       (1844,1635){-426,-602}...          % 8
  482.       (1003,374){-1427,-2305}...{-209,-427}     % *9
  483.       (417,-670)--cycle);               % 10
  484.  
  485. endchar(0);
  486.  
  487. "fml8";
  488.  
  489. charbegin( "8", 1858h#, lfigheight*v#, baseline );
  490. n := 19;
  491. t1 := 0;
  492. t2 := 2;
  493. t3 := 4;
  494. t4 := 6;
  495. t5 := 8;
  496. t6 := 9;
  497. t7 := 11;
  498. t8 := 14;
  499. t9 := 16;
  500. t10 := 18;
  501. t11 := 19;
  502. t12 := 21;
  503. t13 := 23;
  504. t14 := 25;
  505. t15 := 26;
  506. t16 := 29;
  507. t17 := 31;
  508. t18 := 33;
  509. t19 := 35;
  510.  
  511. adj_fill.A(1, 11)                    % fixed x points
  512.      (10, 19)                    % fixed y points
  513.      ((1,1), (5,1), (6,2), (11,3), (15,3), (19,2))% tied points
  514.      ((9,12), (7,14), (4,16), (2,18))     % verticals
  515.      ((8,13), (3,17))               % horizontals
  516.      ((871,1229){385,-257}...          % 0
  517.       (1200,1012){1,-1}...               % 1
  518.       (1385,623){0,-1}...               % 2
  519.       (1247,251){-1,-1}...               % 3
  520.       (905,135){-1,0}...               % 4
  521.       (615,241){-1,1}...               % 5
  522.       (456,656){0,1}...               % 6
  523.       (589,1032){1,1}...{361,189}          % 7
  524.       (871,1229){255,219}...{255,219}     % 8
  525.       (1126,1448){416,250}...          % 9
  526.       (1479,1757){482,652}...          % *10
  527.       (1608,2100){0,1}...               % 11
  528.       (1475,2439){-1,1}...               % 12
  529.       (1266,2555){-535,172}...{-579,37}     % *13
  530.       (940,2611){-391,-151}...          % 14
  531.       (495,2360){-349,-310}...          % 15
  532.       (328,1960){0,-1}...               % 16
  533.       (442,1633){429,-628}...{385,-257}     % *17
  534.       (757,1332)--                    % 18
  535.       (1012,1538){-384,275}...          % 19
  536.       (716,1817){-402,542}...          % *20
  537.       (610,2080){0,1}...               % 21
  538.       (660,2291){208,285}...{261,200}     % 22
  539.       (827,2423){444,-10}...               % 23
  540.       (1195,2296){1,-1}...               % 24
  541.       (1295,2010){0,-1}...{-276,-190}     % 25
  542.       (1012,1538){-262,-221}...{-262,-221}     % 26
  543.       (750,1317){-366,-211}...          % 27
  544.       (306,1007){-1,-1}...               % 28
  545.       (147,581){0,-1}...               % 29
  546.       (323,132){1,-1}...               % 30
  547.       (812,-37){1,0}...               % 31
  548.       (1517,249){1,1}...               % 32
  549.       (1707,730){0,1}...               % 33
  550.       (1536,1135){-1,1}...{-384,275}          % 34
  551.       (1126,1448)--cycle);               % 35
  552.  
  553. endchar(0);
  554.  
  555. "rmn9";
  556.  
  557. charbegin( "9", 1858h#, nfigbody*v#, descender*v#);
  558. n := 14;
  559. t1 := 0;
  560. t2 := 2;
  561. t3 := 6;
  562. t4 := 8;
  563. t5 := 10;
  564. t6 := 11;
  565. t7 := 12;
  566. t8 := 13;
  567. t9 := 15;
  568. t10 := 17;
  569. t11 := 19;
  570. t12 := 20;
  571. t13 := 21;
  572. t14 := 24;
  573.  
  574. adj_fill.A(6, 14)                    % fixed x points
  575.      (7)                         % fixed y points
  576.      ((6,1), (7,2), (12,2), (13,1))          % tied points
  577.      ((4,9), (2,11))                    % verticals
  578.      ((5,8), (3,10), (1,14))               % horizontals
  579.      ((267,-672){1,0}...               % 0
  580.       (1307,-302){1,1}...               % 1
  581.       (1730,740){0,1}...               % 2
  582.       (1662,1206){-260,798}...          % *3
  583.       (1470,1538){-1,1}...               % 4
  584.       (1226,1678){-604,200}...{-531,22}     % *5
  585.       (866,1738){-293,-138}...          % 6
  586.       (288,1396){-1,-1}...               % 7
  587.       (101,865){0,-1}...               % 8
  588.       (324,287){1,-1}...{370,-28}          % 9
  589.       (754,125){249,64}...{497,267}          % 10
  590.       (1302,350)--                    % 11
  591.       (1256,464){-1,-1}...               % 12
  592.       (909,348){-1,0}...               % 13
  593.       (628,464){-1,1}...               % 14
  594.       (430,976){0,1}...               % 15
  595.       (600,1459){1,1}...               % 16
  596.       (790,1538){1,0}...               % 17
  597.       (1143,1403){1,-1}...               % 18
  598.       (1367,753){0,-1}...{-1,-1}          % 19
  599.       (1256,464){46,-114}...{46,-114}     % 20
  600.       (1302,350){19,-11}...{19,-11}          % 21
  601.       (1321,339){-74,-379}...          % 22
  602.       (1032,-299){-1,-1}...{-1,0}          % 23
  603.       (265,-569)--cycle);               % 24
  604.  
  605. endchar(0);
  606.  
  607. % LOWER CASE
  608. set_stem_round(240,250,267,267,290,315);
  609. initrot:=identity shifted(0,-60v);
  610. more_side(100h#); % DEK
  611.  
  612. "fmla";
  613.  
  614. charbegin( "a", 1653h#, lcbody*v#, baseline );
  615.  
  616. n := 7;
  617. t1 := 0;
  618. t2 := 2;
  619. t3 := 3;
  620. t4 := 4;
  621. t5 := 5;
  622. t6 := 6;
  623. t7 := 9;
  624.  
  625. adj_fill.A(1)                         % fixed x points
  626.      ()                         % fixed y points
  627.      ((3,1), (4,2), (5,3), (6,4))          % tied points
  628.      ((2,7))                         % verticals
  629.      ()                         % horizontals
  630.      ((1739,368){-454,-409}...{-454,-409}     % 0
  631.       (1285,-41){-160,271}...{-160,271}     % 1
  632.       (1125,230){-10,593}...{-29,609}     % 2
  633.       (1116,396){0,117}...{0,117}          % 3
  634.       (1116,513){-4,897}...{-4,897}          % 4
  635.       (1112,1410){72,244}...{72,244}          % 5
  636.       (1184,1654)--                    % 6
  637.       (1432,1781){29,-22}...{29,-22}          % 7
  638.       (1461,1759){-124,-809}...          % 8
  639.       (1393,1007){0,-1}...{12,-411}          % 9
  640.       (1410,502){132,-169}...{132,-169}     % 10
  641.       (1542,333){180,89}...{180,89}          % 11
  642.       (1722,422)--cycle);               % 12
  643.  
  644. n := 6;
  645. t1 := 0;
  646. t2 := 2;
  647. t3 := 5;
  648. t4 := 6;
  649. t5 := 9;
  650. t6 := 13;
  651.  
  652. adj_fill.B()                         % fixed x points
  653.      ()                         % fixed y points
  654.      ((1,1), (3,4), (4,3), (6,2))          % tied points
  655.      ((2,5))                         % verticals
  656.      ()                         % horizontals
  657.      ((1116,396){-645,-468}...{-645,-468}     % 0
  658.       (471,-72){-138,145}...{-346,438}     % 1
  659.       (149,299){-15,275}...{158,688}          % 2
  660.       (216,1411){625,393}...{625,393}     % 3
  661.       (841,1804){198,-141}...{190,-38}     % 4
  662.       (1184,1654)--                    % 5
  663.       (1112,1410){-1,0}...{-353,103}          % 6
  664.       (590,1512){-337,-354}...          % 7
  665.       (460,1153){-142,-1003}...{26,-401}     % *8
  666.       (448,509){316,-431}...               % 9
  667.       (671,269){137,-137}...               % 10
  668.       (694,267){1.948,.2212}...          % 11
  669.       (728,278){384,234}...{390,249}          % 12
  670.       (1116,513)--cycle);               % 13
  671.  
  672. endchar(0);
  673.  
  674. "fmlb";
  675.  
  676. charbegin( "b",1700h#, ascender*v#, baseline );
  677.  
  678. %rot := identity shifted (60h,0v);
  679. rot := rot shifted (60h,0v); % DEK
  680.  
  681. n := 9;
  682. t1 := 5;
  683. t2 := 9;
  684. t3 := 12;
  685. t4 := 13;
  686. t5 := 15;
  687. t6 := 20;
  688. t7 := 21;
  689. t8 := 22;
  690. t9 := 25;
  691.  
  692. adj_fill.A(4, 9)                    % fixed x points
  693.      ()                         % fixed y points
  694.      ((3,1), (4,2), (7,2), (8,1))          % tied points
  695.      ((2,5), (1,6))                    % verticals
  696.      ()                         % horizontals
  697.      ((783,2597){-442,-321}...{-442,-321}     % 0
  698.       (341,2276){-32,-14}...{-32,-14}     % 1
  699.       (309,2262){-61,283}...{-61,283}     % 2
  700.       (248,2545){-65,-14}...{-65,-14}     % 3
  701.       (183,2531){22,-441}...               % 4
  702.       (210,1197){0,-1}...{-115,-621}          % 5
  703.       (160,324){268,-288}...{419,-375}     % 6
  704.       (567,-56){329,151}...{552,358}          % 7
  705.       (1408,420){60,295}...{-34,746}          % 8
  706.       (1472,1574){-205,93}...{-457,267}     % 9
  707.       (1038,1798){-153,-94}...{-421,-351}     % 10
  708.       (519,1404){-21,8}...{-21,8}          % 11
  709.       (498,1412)--                    % 12
  710.       (497,1292){557,397}...{370,174}     % 13
  711.       (853,1487){493,-199}...{180,-98}     % 14
  712.       (1166,1350){62,-697}...          % 15
  713.       (1184,901){0,-1}...               % 16
  714.       (1147,523){-143,-603}...          % *17
  715.       (1041,298){-1,-1}...               % 18
  716.       (894,214){-1,0}...{-221,223}          % 19
  717.       (499,514){0,1}...{-2,778}          % 20
  718.       (497,1292){1,120}...               % 21
  719.       (498,1412){-23,576}...               % 22
  720.       (499,1887){19,381}...               % 23
  721.       (736,2454){111,97}...{243,191}          % 24
  722.       (847,2551)--cycle);               % 25
  723.  
  724. endchar(0);
  725.  
  726. "fmlc";
  727.  
  728. charbegin( "c",1242h#, lcbody*v#, baseline );
  729. n := 4;
  730. t1 := 0;
  731. %t2 := 4;
  732. t2 := 3; % DEK
  733. t3 := 6;
  734. %t4 := 9;
  735. t4 := 10; % DEK
  736.  
  737. adj_fill.A(1, 3)                    % fixed x points
  738.      ()                         % fixed y points
  739.      ()                         % tied points
  740.      ((2,4))                         % verticals
  741.      ()                         % horizontals
  742.      ((1228,401){-635,-449}...{-635,-449}     % 0
  743.       (593,-48){-229,192}...{-477,556}     % 1
  744.       (184,369){-24,346}...               % 2
  745.       (167,970){28,1034}...{153,704}          % *3
  746.       (212,1403){609,382}...{609,382}     % 4
  747.       (821,1785){423,-35}...{481,-311}     % 5
  748.       (1221,1622)--                    % 6
  749.       (1030,1329){-36,-10}...          % 7
  750.       (994,1319){-387,335}...{-1,0}          % 8
  751.       (558,1503){-245,-438}...          % 9
  752.       (480,1167){-76,-908}...{21,-334}     % *10
  753.       (482,595){468,-529}...{239,-219}     % 11
  754.       (809,275){238,69}...{481,275}          % 12
  755.       (1197,463)--cycle);               % 13
  756.  
  757. endchar(0);
  758.  
  759. "fmld";
  760.  
  761. charbegin( "d",1646h#, theight*v#, baseline );
  762. n := 7;
  763. t1 := 0;
  764. t2 := 2.392;
  765. t3 := 4;
  766. t4 := 6;
  767. t5 := 10;
  768. t6 := 13;
  769. t7 := 18.32;
  770.  
  771. adj_fill.A(1, 2, 5)                    % fixed x points
  772.      ()                         % fixed y points
  773.      ()                         % tied points
  774.      ((4,6), (3,7))                    % verticals
  775.      ()                         % horizontals
  776.      ((-53,2068){285,160}...{632,293}     % 0
  777.       (441,2318){557,-157}...{536,-424}     % 1
  778.       (1480,1742){14,-387}...          % 2
  779.       (1466,962){-121,-1299}...{-208,-521}     % *3
  780.       (1359,443){-666,-507}...{-666,-507}     % 4
  781.       (693,-64){-296,195}...{-467,541}     % 5
  782.       (180,359){-24,437}...               % 6
  783.       (194,1216){66,732}...               % 7
  784.       (194,1300){253,240}...{384,254}     % 8
  785.       (681,1715)--                    % 9
  786.       (751,1700){-357,-351}...          % 10
  787.       (595,1510){-10,-11}...               % 11
  788.       (512,1342){-275,-649}...{39,-454}     % 12
  789.       (489,558){381,-473}...               % 13
  790.       (656,408){433,-311}...               % *14
  791.       (922,247){237,-125}...               % 15
  792.       (968,240){1.751,.4972}...          % 16
  793.       (1008,274){189,301}...               % 17
  794.       (1181,820){138,1263}...{-61,336}     % *18
  795.       (1146,1537){-450,471}...          % 19
  796.       (664,1940){-892,545}...          % *20
  797.       (254,2082){-1,0}...               % 21
  798.       (166,2077){-168,-66}...{-168,-66}     % 22
  799.       (-2,2011)--cycle);               % 23
  800.  
  801. endchar(0);
  802.  
  803. "fmle";
  804.  
  805. charbegin( "e", 1233h# + lefte# + righte#, lcbody*v#, baseline );
  806. n := 8;
  807. t1 := 0;
  808. %t2 := 3;
  809. t2 := 2.4; % DEK
  810. t3 := 5;
  811. t4 := 6;
  812. t5 := 7;
  813. t6 := 8;
  814. t7 := 12;
  815. t8 := 13;
  816.  
  817. adj_fill.A(1, 3, 6)                    % fixed x points
  818.      ()                         % fixed y points
  819.      ((4,1), (5,2), (7,2), (8,1))          % tied points
  820.      ((2,7))                         % verticals
  821.      ()                         % horizontals
  822.      ((1225,383){-292,-231}...{-577,-352}     % 0
  823.       (600,-54){-371,338}...{-505,634}     % 1
  824.       (179,375){-64,601}...{110,684}          % 2
  825.       (209,1415){600,373}...{600,373}     % 3
  826.       (809,1788){296,-372}...{368,-257}     % 4
  827.       (1248,1385){-203,-191}...{-544,-435}     % 5
  828.       (459,673)--                    % 6
  829.       (451,839){597,358}...{319,342}          % 7
  830.       (945,1219){-402,253}...          % 8
  831.       (552,1527){-399,397}...          % 9
  832.       (522,1512){-1.277,-1.371}...          % 10
  833.       (486,1425){-153,-567}...{0,-1}          % 11
  834.       (451,839){8,-166}...{8,-166}          % 12
  835.       (459,673){0,-1}...{26,-342}          % 13
  836.       (464,572){528,-547}...{227,-108}     % 14
  837.       (846,284){418,86}...               % 15
  838.       (898,294){308,148}...{308,148}          % 16
  839.       (1206,442)--cycle);               % 17
  840.  
  841. endchar(lefte#);
  842.  
  843. "fmlf";
  844. % I switched this with character 2, for better discrimination with RM --- DEK
  845. charbegin( "f", 1008h#, ascender*v#, descender*v#);
  846.  
  847. n := 10;
  848. t1 := 1;
  849. t2 := 6;
  850. t3 := 7;
  851. t4 := 9;
  852. t5 := 11;
  853. t6 := 12;
  854. t7 := 15;
  855. t8 := 17;
  856. t9 := 18;
  857. t10 := 22;
  858.  
  859. adj_fill.A(3, 5, 9)                    % fixed x points
  860.      (6)                         % fixed y points
  861.      ()                         % tied points
  862.      ((4,7))                         % verticals
  863.      ((2,3), (1,10), (8,9))               % horizontals
  864.      ((1018,2508){-325,-210}...          % 0
  865.       (874,2459){-1,0}...{-581,435}          % 1
  866.       (615,2581){-386,-410}...{-399,-631}     % 2
  867.       (241,2115){0,-1}...               % 3
  868.       (263,1954){135,-626}...          % *4
  869.       (376,1489){209,-871}...{-237,0}     % 5
  870.       (139,1489){-128,-129}...{-128,-129}     % 6
  871.       (11,1360){365,0}...{365,0}          % 7
  872.       (376,1360){0,-1289}...               % 8
  873.       (376,71){0,-1}...               % 9
  874.       (359,-250){-104,-1067}...{-138,-499}     % 10
  875.       (221,-749)--                    % 11
  876.       (310,-760){0,6}...               % 12
  877.       (310,-754){.4624,1.887}...{291,558}     % 13
  878.       (601,-196){179,596}...               % 14
  879.       (651,212){0,1}...{0,1}               % 15
  880.       (651,1360){1,0}...{342,0}          % 16
  881.       (993,1360){106,129}...{106,129}     % 17
  882.       (1099,1489){-448,21}...          % 18
  883.       (651,1510){0,1}...               % 19
  884.       (539,1917){-249,592}...{0,1}          % 20
  885.       (457,2269){579,-132}...{1,0}          % 21
  886.       (819,2225){224,250}...{224,250}     % 22
  887.       (1043,2475)--cycle);               % 23
  888.  
  889. endchar(0);
  890.  
  891. "fmlg";
  892.  
  893. charbegin( "g",1665h#, lcbody*v#, descender*v#);
  894.  
  895. n := 12;
  896. t1 := 0;
  897. t2 := 1;
  898. t3 := 3;
  899. t4 := 6;
  900. t5 := 7;
  901. t6 := 8;
  902. t7 := 9;
  903. t8 := 10;
  904. t9 := 13;
  905. t10 := 15;
  906. t11 := 16;
  907. t12 := 21;
  908.  
  909. adj_fill.A(10, 12)                    % fixed x points
  910.      (1, 8)                         % fixed y points
  911.      ((1,6), (2,1), (4,2), (5,3), (6,4), (7,5))% tied points
  912.      ((5,9))                         % verticals
  913.      ((3,11))                    % horizontals
  914.      ((442,-15){7,-136}...{7,-136}          % 0
  915.       (449,-151){1,-1}...               % 1
  916.       (729,-365){543,-289}...          % *2
  917.       (992,-440){1,0}...               % 3
  918.       (1192,-360){1,1}...               % 4
  919.       (1250,-143){0,1}...{-161,835}          % 5
  920.       (1160,405){-3,111}...{-3,111}          % 6
  921.       (1157,516){1,302}...{62,702}          % 7
  922.       (1192,1360){59,271}...{59,271}          % 8
  923.       (1251,1631){267,150}...{267,150}     % 9
  924.       (1518,1781)--                    % 10
  925.       (1540,1758){-282,-600}...          % 11
  926.       (1471,1410){-84,-1142}...          % *12
  927.       (1456,616){0,-1}...               % 13
  928.       (1476,462){129,-620}...{107,-468}     % *14
  929.       (1585,-4){-492,-617}...{-240,-227}     % 15
  930.       (980,-683){-375,-111}...          % 16
  931.       (848,-714){-1,0}...               % 17
  932.       (506,-634){-719,310}...{-321,252}     % *18
  933.       (129,-404){-129,-69}...{-129,-69}     % 19
  934.       (0,-473){-39,50}...{-39,50}          % 20
  935.       (-39,-423)--cycle);               % 21
  936.  
  937. n := 8;
  938. t1 := 0;
  939. t2 := 1;
  940. t3 := 2;
  941. t4 := 3;
  942. t5 := 6;
  943. t6 := 7;
  944. t7 := 9;
  945. t8 := 12;
  946.  
  947. adj_fill.B()                         % fixed x points
  948.      ()                         % fixed y points
  949.      ((1,2), (2,1), (3,6), (5,5), (6,4), (8,3))% tied points
  950.      ((4,7))                         % verticals
  951.      ((5,6))                         % horizontals
  952.      ((1160,405){-123,-88}...{-491,-428}     % 0
  953.       (449,-151){-7,136}...{-7,136}          % 1
  954.       (442,-15){-254,315}...{-254,315}     % 2
  955.       (188,300){-22,304}...{105,690}          % 3
  956.       (231,1422){210,148}...{597,345}     % 4
  957.       (829,1800){295,-197}...{354,-80}     % 5
  958.       (1251,1631)--                    % 6
  959.       (1192,1360){-395,49}...{-291,97}     % 7
  960.       (559,1499){-284,-530}...          % 8
  961.       (473,1022){0,-1}...{28,-315}          % 9
  962.       (491,520){376,-454}...{330,-299}     % 10
  963.       (750,253){407,263}...{407,263}          % 11
  964.       (1157,516)--cycle);               % 12
  965.  
  966. endchar(0);
  967.  
  968. "fmlh";
  969.  
  970. charbegin( "h",1730h#, ascender*v#, descender*v#);
  971. n := 5;
  972. t1 := 3.406;
  973. t2 := 6;
  974. t3 := 8;
  975. t4 := 9;
  976. t5 := 11;
  977.  
  978. adj_fill.A(2, 5)                    % fixed x points
  979.      ()                         % fixed y points
  980.      ((3,1), (4,2))                    % tied points
  981.      ((1,3))                         % verticals
  982.      ()                         % horizontals
  983.      ((780,2611){-347,-224}...{-446,-328}     % 0
  984.       (334,2283){-89,282}...               % 1
  985.       (245,2565){-1.282,.7616}...{-46,-9}     % 2
  986.       (199,2556){24,-409}...{-34,-581}     % 3
  987.       (182,302){261,-350}...{182,-317}     % 4
  988.       (385,-35)--                    % 5
  989.       (689,243){-248,338}...{-81,162}     % 6
  990.       (508,509){0,1}...{0,811}          % 7
  991.       (508,1320){0,114}...{0,114}          % 8
  992.       (508,1434){0,1}...               % 9
  993.       (508,1922){0,1}...{267,234}          % 10
  994.       (843,2568)--cycle);               % 11
  995.  
  996. n := 8;
  997. t1 := 0;
  998. t2 := 3;
  999. t3 := 5;
  1000. t4 := 6;
  1001. t5 := 7;
  1002. t6 := 8;
  1003. t7 := 10;
  1004. t8 := 14;
  1005.  
  1006. adj_fill.B(8)                         % fixed x points
  1007.      (1)                         % fixed y points
  1008.      ((4,2), (5,1))                    % tied points
  1009.      ((2,7))                         % verticals
  1010.      ((3,6))                         % horizontals
  1011.      ((830,-701){218,220}...{320,430}     % 0
  1012.       (1411,-54){118,405}...               % 1
  1013.       (1484,369){97,1024}...               % *2
  1014.       (1508,970){0,1}...{-46,708}          % 3
  1015.       (1484,1604){-183,57}...{-314,292}     % 4
  1016.       (1055,1830){-160,-113}...{-475,-374}     % 5
  1017.       (508,1434)--                    % 6
  1018.       (508,1320){460,298}...               % 7
  1019.       (854,1504){1,0}...{207,-152}          % 8
  1020.       (1179,1368){63,-834}...          % 9
  1021.       (1216,773){0,-1}...               % 10
  1022.       (1180,102){-141,-1074}...          % *11
  1023.       (1075,-301){-373,-702}...          % 12
  1024.       (982,-419){-246,-201}...{-246,-201}     % 13
  1025.       (736,-620)--cycle);               % 14
  1026.  
  1027. endchar(0);
  1028.  
  1029. "fmli";
  1030.  
  1031. charbegin( "i",833h#, dotheight*v#, baseline );
  1032. n := 4;
  1033. t1 := 3.948;
  1034. t2 := 7;
  1035. t3 := 10.56;
  1036. t4 := 13;
  1037.  
  1038. adj_fill.A(2, 4)                    % fixed x points
  1039.      ()                         % fixed y points
  1040.      ()                         % tied points
  1041.      ((1,3))                         % verticals
  1042.      ()                         % horizontals
  1043.      ((867,436){-502,-256}...          % 0
  1044.       (703,358){-164,-78}...{-193,-8}     % 1
  1045.       (671,338){-1,1}...               % 2
  1046.       (560,510){-150,531}...               % 3
  1047.       (517,945){4,1105}...{91,772}          % *4
  1048.       (564,1615){-120,86}...{-259,276}     % 5
  1049.       (342,1816){-192,-174}...{-365,-295}     % 6
  1050.       (-48,1475)--                    % 7
  1051.       (1,1427){486,278}...{228,72}          % 8
  1052.       (155,1505){410,-322}...{113,-133}     % 9
  1053.       (232,1419){74,-746}...{-49,-397}     % 10
  1054.       (238,263){197,-282}...{197,-282}     % 11
  1055.       (435,-19){423,323}...{296,277}          % 12
  1056.       (891,367)--cycle);               % 13
  1057.  
  1058. n := 4;
  1059. t1 := 0;
  1060. t2 := 2;
  1061. t3 := 3;
  1062. t4 := 5;
  1063.  
  1064. adj_fill.B()                         % fixed x points
  1065.      ()                         % fixed y points
  1066.      ((1,2), (2,1), (3,1), (4,2))          % tied points
  1067.      ()                         % verticals
  1068.      ()                         % horizontals
  1069.      ((380,2116){-295,270}...{-368,433}     % 0
  1070.       (165,2344){145,143}...{219,252}     % 1
  1071.       (390,2557)--                    % 2
  1072.       (390,2557){402,-472}...{229,-185}     % 3
  1073.       (592,2340){-212,-224}...{-212,-224}     % 4
  1074.       (380,2116)--cycle);               % 5
  1075.  
  1076. endchar(0);
  1077.  
  1078. "fmlj";
  1079.  
  1080. charbegin( "j",840h#, dotheight*v#, baseline );
  1081. n := 4;
  1082. t1 := 3;
  1083. t2 := 5;
  1084. t3 := 10;
  1085. t4 := 13;
  1086.  
  1087. adj_fill.A(2, 4)                    % fixed x points
  1088.      ()                         % fixed y points
  1089.      ()                         % tied points
  1090.      ((1,3))                         % verticals
  1091.      ()                         % horizontals
  1092.      ((-29,-711){551,607}...               % 0
  1093.       (522,-104){551,607}...               % 1
  1094.       (604,157){35,591}...{-10,831}          % 2
  1095.       (624,1623){-191,136}...{-417,431}     % 3
  1096.       (384,1817){-392,-352}...{-392,-352}     % 4
  1097.       (-8,1465)--                    % 5
  1098.       (44,1418){130,84}...               % 6
  1099.       (174,1502){130,84}...               % 7
  1100.       (192,1497){116,-81}...               % 8
  1101.       (299,1362){209,-621}...          % 9
  1102.       (336,812){0,-1}...               % 10
  1103.       (271,-185){-183,-568}...          % 11
  1104.       (175,-358){-281,-283}...{-313,-230}     % 12
  1105.       (-135,-620)--cycle);               % 13
  1106.  
  1107. n := 4;
  1108. t1 := 0;
  1109. t2 := 2;
  1110. t3 := 3;
  1111. t4 := 5;
  1112.  
  1113. adj_fill.B()                         % fixed x points
  1114.      ()                         % fixed y points
  1115.      ((1,2), (2,1), (3,1), (4,2))          % tied points
  1116.      ()                         % verticals
  1117.      ()                         % horizontals
  1118.      ((364,2113){-253,215}...{-321,407}     % 0
  1119.       (163,2340){226,211}...{226,211}     % 1
  1120.       (389,2551)--                    % 2
  1121.       (389,2551){388,-525}...{242,-237}     % 3
  1122.       (576,2334){-212,-221}...{-212,-221}     % 4
  1123.       (364,2113)--cycle);               % 5
  1124.  
  1125. endchar(0);
  1126.  
  1127. "fmlk";
  1128.  
  1129. charbegin( "k",1242h#, ascender*v#, baseline );
  1130.  
  1131. n := 16;
  1132. t1 := 0;
  1133. t2 := 1;
  1134. t3 := 2;
  1135. t4 := 3;
  1136. t5 := 4;
  1137. t6 := 5;
  1138. t7 := 6;
  1139. t8 := 7;
  1140. t9 := 9;
  1141. t10 := 11;
  1142. t11 := 12;
  1143. t12 := 15;
  1144. t13 := 16;
  1145. t14 := 17;
  1146. t15 := 19;
  1147. t16 := 20;
  1148.  
  1149. adj_fill.A(6, 10, 13)                    % fixed x points
  1150.      (1, 9, 11, 15)                    % fixed y points
  1151.      ((1,5), (2,1), (3,2), (4,3), (5,4), (16,5))% tied points
  1152.      ((8,12))                    % verticals
  1153.      ((6,7), (13,14))               % horizontals
  1154.      ((270,2550){90,-269}...               % 0
  1155.       (360,2281){.7074,-1.869}...{161,-380}     % 1
  1156.       (521,1901){0,-572}...{0,-572}          % 2
  1157.       (521,1329){321,0}...{321,0}          % 3
  1158.       (842,1329){340,0}...{340,0}          % 4
  1159.       (1182,1329){-100,-124}...{-100,-124}     % 5
  1160.       (1082,1205){-525,0}...{-525,0}          % 6
  1161.       (557,1205){0,-670}...{0,-670}          % 7
  1162.       (557,535){208,-211}...{278,-201}     % 8
  1163.       (843,283){359,178}...{359,178}          % 9
  1164.       (1202,461)--                    % 10
  1165.       (1242,413){-645,-572}...{-232,-154}     % 11
  1166.       (620,-35){-394,351}...{-394,351}     % 12
  1167.       (226,316){151,551}...               % 13
  1168.       (250,530){20,889}...{0,1}          % *14
  1169.       (246,1205){-258,0}...{-258,0}          % 15
  1170.       (-12,1205){101,124}...{101,124}     % 16
  1171.       (89,1329){157,0}...{157,0}          % 17
  1172.       (246,1329){-29,1213}...{-52,496}     % 18
  1173.       (217,2542){53,8}...{53,8}          % 19
  1174.       (270,2550)--cycle);               % 20
  1175.  
  1176. n := 2;
  1177. t1 := 1;
  1178. t2 := 2;
  1179.  
  1180. adj_fill.B()                         % fixed x points
  1181.      ()                         % fixed y points
  1182.      ((1,1), (2,2))                    % tied points
  1183.      ()                         % verticals
  1184.      ()                         % horizontals
  1185.      ((810,2610){-241,-137}...{-413,-347}     % 0
  1186.       (360,2281)--                    % 1
  1187.       (521,1901){56,694}...               % 2
  1188.       (620,2292){163,285}...{231,211}     % 3
  1189.       (892,2577)--cycle);               % 4
  1190.  
  1191. n := 6;
  1192. t1 := 0;
  1193. t2 := 2;
  1194. t3 := 7;
  1195. t4 := 8;
  1196. t5 := 11;
  1197. t6 := 13;
  1198.  
  1199. adj_fill.C()                         % fixed x points
  1200.      ()                         % fixed y points
  1201.      ((1,3), (3,3), (4,2), (6,4))          % tied points
  1202.      ((2,5))                         % verticals
  1203.      ()                         % horizontals
  1204.      ((521,1329){1,0}...               % 0
  1205.       (862,1477){282,335}...               % 1
  1206.       (965,1712){0,1}...               % 2
  1207.       (920,1838){-172,265}...{-447,380}     % *3
  1208.       (793,1977){-424,-212}...          % 4
  1209.       (603,1820){-159,-270}...          % 5
  1210.       (542,1627){-82,-491}...{0,-1}          % *6
  1211.       (521,1329)--                    % 7
  1212.       (521,1901){364,282}...{235,158}     % 8
  1213.       (1009,2224){352,-336}...          % 9
  1214.       (1173,2024){222,-378}...          % *10
  1215.       (1231,1846){0,-1}...               % 11
  1216.       (1162,1666){-320,-337}...{-320,-337}     % 12
  1217.       (842,1329)--cycle);               % 13
  1218.  
  1219. endchar(0);
  1220.  
  1221. "fmll";
  1222.  
  1223. charbegin( "l",835h#, ascender*v#, baseline );
  1224.  
  1225. slidex := 20;
  1226.  
  1227. n := 4;
  1228. t1 := 0;
  1229. t2 := 2;
  1230. t3 := 6;
  1231. t4 := 8.531;
  1232.  
  1233. adj_fill.A(1, 3)                    % fixed x points
  1234.      ()                         % fixed y points
  1235.      ()                         % tied points
  1236.      ((2,4))                         % verticals
  1237.      ()                         % horizontals
  1238.      ((924,2554){-311,-265}...          % 0
  1239.       (700,2328){-441,-616}...          % 1
  1240.       (555-slidex,1764){-15,-1272}...{-12,-1279}     % 2
  1241.       (585-slidex,492){153,-242}...{174,-144}     % 3
  1242.       (720,339){170,90}...{170,90}          % 4
  1243.       (890,429)--                    % 5
  1244.       (909,370){-461,-384}...{-461,-384}     % 6
  1245.       (448,-14){-188,282}...{-188,282}     % 7
  1246.       (260,268){38,664}...{-17,309}          % 8
  1247.       (266,2521){50,27}...{50,27}          % 9
  1248.       (316,2548){91,-282}...{91,-282}     % 10
  1249.       (407,2266){496,375}...{198,126}     % 11
  1250.       (879,2598)--cycle);               % 12
  1251.  
  1252. endchar(0);
  1253.  
  1254. "fmlm";
  1255.  
  1256. charbegin( "m",2689h#+leftm#+rightm#, lcbody*v#, baseline );
  1257.  
  1258. n := 5;
  1259. t1 := 0;
  1260. t2 := 3;
  1261. t3 := 4;
  1262. t4 := 7;
  1263. %t5 := 10;
  1264. t5 := 10.6; % DEK
  1265.  
  1266. adj_fill.A(1, 4)                    % fixed x points
  1267.      ()                         % fixed y points
  1268.      ((2,2), (3,1))                    % tied points
  1269.      ((3,5))                         % verticals
  1270.      ()                         % horizontals
  1271.      ((753,237){-163,215}...               % 0
  1272.       (590,452){-182,215}...               % 1
  1273.       (571,624){0,1}...{0,1}               % 2
  1274.       (571,1345){0,105}...{0,105}          % 3
  1275.       (571,1450){0,1}...               % 4
  1276.       (571,1615){-131,99}...{-185,191}     % 5
  1277.       (386,1806){-410,-343}...{-410,-343}     % 6
  1278.       (-24,1463)--                    % 7
  1279.       (20,1418){159,90}...{159,90}          % 8
  1280.       (179,1508){96,-98}...{96,-98}          % 9
  1281.       (275,1410){0,-1}...{-78,-563}          % 10
  1282.       (279,269){165,-291}...{165,-291}     % 11
  1283.       (444,-22)--cycle);               % 12
  1284.  
  1285. n := 7;
  1286. t1 := 0;
  1287. t2 := 2;
  1288. t3 := 3;
  1289. t4 := 4;
  1290. t5 := 7;
  1291. t6 := 8;
  1292. %t7 := 10;
  1293. t7 := 11; % DEK
  1294.  
  1295. adj_fill.B(1)                         % fixed x points
  1296.      ()                         % fixed y points
  1297.      ((3,3), (4,4), (5,1), (6,2))          % tied points
  1298.      ((2,7))                         % verticals
  1299.      ()                         % horizontals
  1300.      ((1670,233){-170,246}...          % 0
  1301.       (1500,479){-184,246}...          % 1
  1302.       (1486,558){0,1}...{0,1}          % 2
  1303.       (1486,1359){0,105}...{0,105}          % 3
  1304.       (1486,1464){0,1}...{0,1}          % 4
  1305.       (1486,1607){-236,76}...{-505,311}     % 5
  1306.       (1040,1819){-469,-369}...{-469,-369}     % 6
  1307.       (571,1450)--                    % 7
  1308.       (571,1345){264,150}...{264,150}     % 8
  1309.       (835,1495){503,-136}...{224,-191}     % 9
  1310.       (1187,1345){74,-693}...          % 10
  1311.       (1224,696){-11,-1114}...{-106,-435}     % *11
  1312.       (1176,231){325,-401}...{150,-297}     % 12
  1313.       (1352,-35)--cycle);               % 13
  1314.  
  1315. n := 4;
  1316. t1 := 2;
  1317. t2 := 5;
  1318. t3 := 6;
  1319. t4 := 9.5;
  1320.  
  1321. adj_fill.C()                         % fixed x points
  1322.      ()                         % fixed y points
  1323.      ((2,4), (3,3))                    % tied points
  1324.      ((1,4))                         % verticals
  1325.      ()                         % horizontals
  1326.      ((2718,444){-178,-111}...{-108,-48}     % 0
  1327.       (2531,352){-60,64}...{-76,114}          % 1
  1328.       (2397,527){-12,260}...{63,745}          % 2
  1329.       (2412,1605){-154,45}...{-462,248}     % 3
  1330.       (1962,1814){-165,-136}...{-545,-368}     % 4
  1331.       (1486,1464)--                    % 5
  1332.       (1486,1359){402,275}...{255,129}     % 6
  1333.       (1729,1502){574,-136}...          % 7
  1334.       (2068,1381){220,-130}...          % 8
  1335.       (2099,1326){73,-417}...{-62,-302}     % 9
  1336.       (2080,282){385,-511}...{160,-301}     % 10
  1337.       (2284,-9){458,390}...{458,390}          % 11
  1338.       (2742,381)--cycle);               % 12
  1339.  
  1340. endchar(leftm#);
  1341.  
  1342. "fmln";
  1343.  
  1344. charbegin( "n", 1850h# + leftn# + rightn#, lcbody*v#, baseline );
  1345.  
  1346. n := 4;
  1347. t1 := 3;
  1348. t2 := 4;
  1349. t3 := 7;
  1350. %t4 := 10;
  1351. t4 := 10.5; % DEK
  1352.  
  1353. adj_fill.A(3)                         % fixed x points
  1354.      ()                         % fixed y points
  1355.      ((1,2), (2,1))                    % tied points
  1356.      ((2,4))                         % verticals
  1357.      ()                         % horizontals
  1358.      ((759,254){-147,198}...               % 0
  1359.       (612,452){-147,198}...               % 1
  1360.       (602,555){0,1}...{0,1}               % 2
  1361.       (602,1322){0,97}...{0,97}          % 3
  1362.       (602,1419){0,1}...               % 4
  1363.       (602,1632){-96,73}...{-136,147}     % 5
  1364.       (400,1800){-151,-118}...{-385,-333}     % 6
  1365.       (15,1467)--                    % 7
  1366.       (66,1420){128,76}...{128,76}          % 8
  1367.       (194,1496){88,-87}...{88,-87}          % 9
  1368.       (282,1409){30,-803}...{-107,-604}     % 10
  1369.       (258,229){494,-549}...{125,-219}     % 11
  1370.       (439,-24)--cycle);               % 12
  1371.  
  1372. n := 5;
  1373. t1 := 4;
  1374. t2 := 7;
  1375. t3 := 8;
  1376. t4 := 10.4;
  1377. t5 := 13;
  1378.  
  1379. adj_fill.B(5)                         % fixed x points
  1380.      ()                         % fixed y points
  1381.      ((2,1), (3,2))                    % tied points
  1382.      ((1,4))                         % verticals
  1383.      ()                         % horizontals
  1384.      ((1844,456){-125,-73}...          % 0
  1385.       (1719,383){-125,-73}...          % 1
  1386.       (1683,364){-1,0}...               % 2
  1387.       (1633,381){-108,149}...{-98,149}     % 3
  1388.       (1536,531){-4,325}...{74,743}          % 4
  1389.       (1553,1603){-255,94}...{-473,326}     % 5
  1390.       (1134,1818){-532,-399}...{-532,-399}     % 6
  1391.       (602,1419)--                    % 7
  1392.       (602,1322){263,158}...{263,158}     % 8
  1393.       (865,1480){456,-42}...{331,-171}     % 9
  1394.       (1217,1383){35,-805}...{-59,-331}     % 10
  1395.       (1203,302){206,-311}...{206,-311}     % 11
  1396.       (1409,-9){444,394}...{444,394}          % 12
  1397.       (1853,385)--cycle);               % 13
  1398.  
  1399. endchar(leftn#);
  1400.  
  1401. "fmlo";
  1402.  
  1403. charbegin( "o", 1710h# + lefto# + righto#, lcbody*v#, baseline );
  1404.  
  1405. n := 8;
  1406. t1 := 0;
  1407. t2 := 2;
  1408. t3 := 5;
  1409. t4 := 6;
  1410. t5 := 7;
  1411. %t6 := 9;
  1412. t6 := 9.7; % DEK
  1413. t7 := 12;
  1414. t8 := 15;
  1415.  
  1416. adj_fill.A(1, 5)                    % fixed x points
  1417.      ()                         % fixed y points
  1418.      ((1,1), (4,1), (5,2), (8,2))          % tied points
  1419.      ((3,6), (2,7))                    % verticals
  1420.      ()                         % horizontals
  1421.      ((611,-45){220,90}...{500,320}          % 0
  1422.       (1448,401){72,328}...{-57,658}          % 1
  1423.       (1508,1594){-291,65}...{-488,334}     % 2
  1424.       (961,1841){-345,-261}...{-643,-360}     % 3
  1425.       (310,1407){-42,-330}...{11,-655}     % 4
  1426.       (246,310){195,-242}...{537,-467}     % 5
  1427.       (611,-45)--                    % 6
  1428.       (992,221){-198,30}...               % 7
  1429.       (782,312){-426,294}...{-284,341}     % *8
  1430.       (566,515){-97,564}...               % 9
  1431.       (536,1122){112,1016}...{197,251}     % *10
  1432.       (678,1531){578,-210}...{245,-18}     % 11
  1433.       (1234,1377){33,-559}...          % 12
  1434.       (1217,685){-160,-1085}...          % *13
  1435.       (1074,292){-316,-348}...{-173,14}     % 14
  1436.       (992,221)--cycle);               % 15
  1437.  
  1438. endchar(lefto#);
  1439.  
  1440. "fmlp";
  1441.  
  1442. %charbegin( "p",1653h#, theight*v#, descender*v#);
  1443. charbegin( "p",1653h#, 1/3[lcbody,theight]*v#, descender*v#); % DEK
  1444.  
  1445. raisey := 50;
  1446.  
  1447. n := 4;
  1448. t1 := 1;
  1449. t2 := 5;
  1450. t3 := 6;
  1451. t4 := 7;
  1452.  
  1453. adj_fill.A(4)                         % fixed x points
  1454.      ()                         % fixed y points
  1455.      ((2,1), (3,2))                    % tied points
  1456.      ((1,2))                         % verticals
  1457.      ()                         % horizontals
  1458.      ((-15,100+raisey){221,191}...{1,0}          % 0
  1459.       (222,183+raisey){0,-1}...{-32,-696}          % 1
  1460.       (189,-689){54,-35}...{54,-35}          % 2
  1461.       (243,-724)--                    % 3
  1462.       (526,-570){-38,747}...{0,1}          % 4
  1463.       (510,147){-288,252}...{-288,252}     % 5
  1464.       (222,399+raisey){-381,-296}...{-203,-188}     % 6
  1465.       (-55,150+raisey)--cycle);               % 7
  1466.  
  1467. n := 10;
  1468. t1 := 2;
  1469. t2 := 5;
  1470. t3 := 6;
  1471. %t4 := 10;
  1472. t4 := 9.5; % DEK
  1473. t5 := 12;
  1474. t6 := 13;
  1475. %t7 := 15;
  1476. t7 := 15.5; % DEK
  1477. t8 := 18;
  1478. t9 := 19;
  1479. t10 := 20;
  1480.  
  1481. adj_fill.B(1, 5)                    % fixed x points
  1482.      (1)                         % fixed y points
  1483.      ((2,2), (3,1), (5,3), (6,4), (9,4), (10,3))% tied points
  1484.      ((4,7), (2,8))                    % verticals
  1485.      ()                         % horizontals
  1486.      ((363,2050){-252,-246}...          % 0
  1487.       (81,1702){-177,-287}...          % 1
  1488.       (54,1622){0,-1}...               % 2
  1489.       (74,1570){271,-416}...{148,-209}     % 3
  1490.       (222,1361){0,-1}...{0,-962}          % 4
  1491.       (222,399+raisey){288,-252}...{288,-252}     % 5
  1492.       (510,147+raisey){324,-60}...{537,-439}     % 6
  1493.       (911,-6){496,395}...{496,395}          % 7
  1494.       (1407,389){146,394}...               % 8
  1495.       (1485,858){66,1204}...{-48,728}     % *9
  1496.       (1473,1593){-252,91}...{-538,417}     % 10
  1497.       (1035,1827){-215,-169}...{-469,-314}     % 11
  1498.       (510,1438)--                    % 12
  1499.       (514,1314){401,306}...{276,87}          % 13
  1500.       (845,1496){554,-195}...{138,-72}     % 14
  1501.       (1168,1367){71,-756}...          % 15
  1502.       (1183,695){-86,-1107}...{-166,-322}     % *16
  1503.       (1082,260){-479,231}...{-130,-2}     % 17
  1504.       (513,399+raisey){1,919}...{1,919}          % 18
  1505.       (514,1314){-4,124}...{-4,124}          % 19
  1506.       (510,1438){8,124}...{0,1}          % 20
  1507.       (518,1562){-1,1}...               % 21
  1508.       (392,1722){-170,300}...          % *22
  1509.       (348,1862){0,1}...{269,318}          % 23
  1510.       (414,2017)--cycle);               % 24
  1511.  
  1512. endchar(0);
  1513.  
  1514. "fmlq";
  1515.  
  1516. charbegin( "q",1661h#+leftq#+rightq#, lcbody*v#, descender*v#);
  1517.  
  1518. n := 5;
  1519. t1 := 2;
  1520. t2 := 3;
  1521. t3 := 4;
  1522. t4 := 5;
  1523. t5 := 8;
  1524.  
  1525. adj_fill.A()                         % fixed x points
  1526.      ()                         % fixed y points
  1527.      ((1,4), (2,1), (3,2), (4,3))          % tied points
  1528.      ((2,5))                         % verticals
  1529.      ()                         % horizontals
  1530.      ((1175,-750){-71,62}...{-71,62}          % 0
  1531.       (1104,-688){26,352}...{7,833}          % 1
  1532.       (1143,412){-11,108}...{-11,108}     % 2
  1533.       (1132,520){-7,225}...{45,721}          % 3
  1534.       (1150,1418){59,241}...{59,241}          % 4
  1535.       (1209,1659)--                    % 5
  1536.       (1466,1835){32,-26}...{32,-26}          % 6
  1537.       (1498,1809){-133,-744}...          % 7
  1538.       (1428,580){-12,-776}...{30,-317}     % 8
  1539.       (1454,-604)--cycle);               % 9
  1540.  
  1541. n := 6;
  1542. t1 := 0;
  1543. t2 := 3;
  1544. t3 := 5;
  1545. t4 := 6;
  1546. t5 := 8;
  1547. t6 := 13;
  1548.  
  1549. adj_fill.B()                         % fixed x points
  1550.      ()                         % fixed y points
  1551.      ((1,3), (3,4), (4,1), (6,2))          % tied points
  1552.      ((2,5))                         % verticals
  1553.      ()                         % horizontals
  1554.      ((1209,1659){-118,23}...{-346,210}     % 0
  1555.       (864,1809){-267,-217}...{-365,-201}     % 1
  1556.       (254,1425){-96,-406}...{41,-721}     % 2
  1557.       (181,302){308,-349}...{308,-349}     % 3
  1558.       (489,-47){335,210}...{612,505}          % 4
  1559.       (1143,412)--                    % 5
  1560.       (1132,520){-405,-247}...{-405,-247}     % 6
  1561.       (727,273){-320,294}...               % 7
  1562.       (486,522){-1,1}...               % 8
  1563.       (463,591){-24,277}...               % *9
  1564.       (462,799){0,1}...               % 10
  1565.       (496,1229){133,734}...{162,291}     % *11
  1566.       (595,1533){480,-153}...{428,-22}     % 12
  1567.       (1150,1418)--cycle);               % 13
  1568.  
  1569. endchar(leftq#);
  1570.  
  1571. "fmlr";
  1572.  
  1573. charbegin( "r",1241h#, lcbody*v#, baseline );
  1574. n := 6;
  1575. t1 := 3;
  1576. t2 := 4;
  1577. t3 := 5;
  1578. t4 := 8;
  1579. t5 := 14;
  1580. t6 := 17;
  1581.  
  1582. adj_fill.A(4, 6)                    % fixed x points
  1583.      ()                         % fixed y points
  1584.      ((2,1), (3,2))                    % tied points
  1585.      ((1,5))                         % verticals
  1586.      ()                         % horizontals
  1587.      ((1171,437){-329,-156}...{-329,-156}     % 0
  1588.       (842,281){-235,187}...               % 1
  1589.       (645,471){-267,340}...               % *2
  1590.       (575,621){0,1}...               % 3
  1591.       (575,1317){0,2}...{0,157}          % 4
  1592.       (575,1474){0,116}...               % 5
  1593.       (575,1590){-341,283}...{-311,321}     % 6
  1594.       (329,1815){-265,-211}...{-346,-351}     % 7
  1595.       (-43,1468)--                    % 8
  1596.       (1,1434){140,58}...{140,58}          % 9
  1597.       (141,1492){258,-207}...          % 10
  1598.       (246,1410){190,-169}...          % 11
  1599.       (259,1377){1,-1}...               % 12
  1600.       (277,1253){19,-397}...               % 13
  1601.       (293,793){0,-1}...{-56,-427}          % 14
  1602.       (259,337){500,-515}...{219,-177}     % 15
  1603.       (639,-18){543,384}...{543,384}          % 16
  1604.       (1182,366)--cycle);               % 17
  1605.  
  1606. n := 2;
  1607. t1 := 4;
  1608. t2 := 5;
  1609.  
  1610. adj_fill.B()                         % fixed x points
  1611.      ()                         % fixed y points
  1612.      ((1,2), (2,1))                    % tied points
  1613.      ()                         % verticals
  1614.      ()                         % horizontals
  1615.      ((1330,1571){-361,-129}...          % 0
  1616.       (1222,1531){-1,0}...               % 1
  1617.       (1110,1603){-245,266}...{-285,524}     % *2
  1618.       (977,1797){-402,-323}...{-402,-323}     % 3
  1619.       (575,1474)--                    % 4
  1620.       (575,1317){155,148}...{155,148}     % 5
  1621.       (730,1465){529,-470}...          % 6
  1622.       (894,1342){287,-166}...          % *7
  1623.       (1017,1299){1,0}...               % 8
  1624.       (1138,1337){1,1}...{318,305}          % 9
  1625.       (1335,1518)--cycle);               % 10
  1626.  
  1627. endchar(0);
  1628.  
  1629. "fmls";
  1630.  
  1631. charbegin( "s",1439h#, lcbody*v#, baseline );
  1632. n := 18;
  1633. t1 := 0;
  1634. t2 := 2;
  1635. t3 := 4.676;
  1636. t4 := 5;
  1637. t5 := 7;
  1638. t6 := 9;
  1639. t7 := 12;
  1640. t8 := 16;
  1641. t9 := 17;
  1642. t10 := 18;
  1643. t11 := 19;
  1644. t12 := 20;
  1645. t13 := 21;
  1646. t14 := 23;
  1647. t15 := 25;
  1648. %t16 := 26;
  1649. t16 := 26.5; % DEK
  1650. t17 := 30;
  1651. t18 := 31;
  1652.  
  1653. adj_fill.A(1, 10)                    % fixed x points
  1654.      (3, 4, 9, 12, 14, 18)               % fixed y points
  1655.      ()                         % tied points
  1656.      ((7,13), (5,16))               % verticals
  1657.      ((8,11), (6,15), (2,17))          % horizontals
  1658.      ((-167,144){162,183}...               % 0
  1659.       (71,386){234,230}...               % 1
  1660.       (318,471){1,0}...               % 2
  1661.       (584,388){301,-199}...               % 3
  1662.       (885,189){372,-261}...               % 4
  1663.       (921,183){1.489,.6999}...          % 5
  1664.       (953,238){99,311}...               % 6
  1665.       (996,578){0,1}...               % 7
  1666.       (950,844){-1,1}...               % 8
  1667.       (824,924){-1,0}...               % 9
  1668.       (675,888){-379,-207}...{-468,-260}     % 10
  1669.       (296,681){-198,248}...{-246,471}     % 11
  1670.       (153,911){5,481}...{34,758}          % 12
  1671.       (158,1455){565,376}...{565,376}     % 13
  1672.       (723,1831){311,-219}...          % 14
  1673.       (1010,1642){1,-1}...               % 15
  1674.       (1118,1609){1,0}...{317,260}          % 16
  1675.       (1392,1764)--                    % 17
  1676.       (1407,1691){-342,-289}...{-342,-289}     % 18
  1677.       (1065,1402){-485,30}...{-309,129}     % 19
  1678.       (476,1553){-213,-337}...          % 20
  1679.       (429,1304){0,-1}...               % 21
  1680.       (474,1034){156,-369}...          % 22
  1681.       (549,955){1,0}...               % 23
  1682.       (610,963){456,208}...{456,208}          % 24
  1683.       (1066,1171){372,-132}...{145,-130}     % 25
  1684.       (1273,1031){45,-631}...{-76,-275}     % 26
  1685.       (1226,245){-611,-263}...{-262,-161}     % 27
  1686.       (634,-51){-424,395}...               % 28
  1687.       (364,159){-476,284}...               % *29
  1688.       (158,233){-1,0}...{-400,-334}          % 30
  1689.       (-133,98)--cycle);               % 31
  1690.  
  1691. endchar(0);
  1692.  
  1693. "fmlt";
  1694.  
  1695. %charbegin( "t",1033h#, ascender*v#, baseline );
  1696. charbegin( "t",1033h#, theight*v#, baseline ); % DEK
  1697. n := 13;
  1698. t1 := 0;
  1699. t2 := 3;
  1700. t3 := 4;
  1701. t4 := 5;
  1702. t5 := 6;
  1703. t6 := 8.753;
  1704. t7 := 11;
  1705. t8 := 12;
  1706. t9 := 14;
  1707. t10 := 15;
  1708. t11 := 16;
  1709. t12 := 17;
  1710. t13 := 19;
  1711.  
  1712. adj_fill.A(1, 3, 7, 10)                    % fixed x points
  1713.      (6, 8, 13)                    % fixed y points
  1714.      ()                         % tied points
  1715.      ((5,9), (2,12))                    % verticals
  1716.      ((10,11), (3,4))               % horizontals
  1717.      ((794,2381){-99,-97}...               % 0
  1718.       (695,2284){-99,-97}...               % 1
  1719.       (668,2212){-49,-282}...{0,-1}          % 2
  1720.       (627,1501){390,0}...{390,0}          % 3
  1721.       (1017,1501){-110,-134}...{-110,-134}     % 4
  1722.       (907,1367){-284,0}...{-284,0}          % 5
  1723.       (623,1367){0,-1}...{22,-635}          % 6
  1724.       (629,515){242,-222}...               % 7
  1725.       (859,329){254,-145}...               % 8
  1726.       (943,314){422,79}...{236,115}          % 9
  1727.       (1179,429)--                    % 10
  1728.       (1192,347){-507,-364}...{-507,-364}     % 11
  1729.       (685,-17){-372,308}...{-372,308}     % 12
  1730.       (313,291){50,516}...{10,1076}          % 13
  1731.       (323,1367){-325,0}...{-325,0}          % 14
  1732.       (-2,1367){133,134}...{133,134}          % 15
  1733.       (131,1501){197,0}...{197,0}          % 16
  1734.       (328,1501){0,1}...{-15,297}          % 17
  1735.       (331,2123){414,307}...{414,307}     % 18
  1736.       (745,2430)--cycle);               % 19
  1737.  
  1738. endchar(0);
  1739.  
  1740. "fmlu";
  1741.  
  1742. charbegin( "u",1715h#, lcbody*v#, baseline );
  1743.  
  1744. n := 4;
  1745. t1 := 0;
  1746. t2 := 3;
  1747. t3 := 4;
  1748. t4 := 8;
  1749.  
  1750. adj_fill.A(1)                         % fixed x points
  1751.      ()                         % fixed y points
  1752.      ((2,2), (3,1))                    % tied points
  1753.      ((3,4))                         % verticals
  1754.      ()                         % horizontals
  1755.      ((1800,386){-238,-193}...{-456,-432}     % 0
  1756.       (1351,-7){-30,6}...{-30,6}          % 1
  1757.       (1321,-1){-123,312}...{-312,431}     % 2
  1758.       (1135,347){6,111}...{6,111}          % 3
  1759.       (1141,458){17,273}...{-36,856}          % 4
  1760.       (1143,1629)--                    % 5
  1761.       (1459,1793){25,-25}...{25,-25}          % 6
  1762.       (1484,1768){-94,-768}...          % 7
  1763.       (1424,891){0,-1}...               % 8
  1764.       (1450,545){108,-446}...          % 9
  1765.       (1520,397){181,-254}...          % 10
  1766.       (1617,373){321,118}...{509,246}     % 11
  1767.       (1778,442)--cycle);               % 12
  1768.  
  1769. n := 9;
  1770. t1 := 0;
  1771. t2 := 2;
  1772. t3 := 6;
  1773. t4 := 8;
  1774. t5 := 10;
  1775. t6 := 11;
  1776. t7 := 13;
  1777. t8 := 15;
  1778. t9 := 16;
  1779.  
  1780. adj_fill.B(5)                         % fixed x points
  1781.      ()                         % fixed y points
  1782.      ((1,2), (9,1))                    % tied points
  1783.      ((3,7))                         % verticals
  1784.      ((4,6), (2,8))                    % horizontals
  1785.      ((1135,347){-311,-154}...          % 0
  1786.       (633,10){-310,-305}...               % 1
  1787.       (579,-24){-1.768,-.1456}...          % 2
  1788.       (529,-3){-238,188}...{-543,132}     % 3
  1789.       (103,238){272,290}...               % 4
  1790.       (226,531){166,800}...               % *5
  1791.       (269,1038){0,1}...               % 6
  1792.       (232,1339){-142,487}...{-262,227}     % *7
  1793.       (127,1525){-143,-75}...{-143,-75}     % 8
  1794.       (-16,1450)--                    % 9
  1795.       (-70,1487){411,328}...{411,328}     % 10
  1796.       (341,1815){407,-511}...{336,-243}     % 11
  1797.       (532,1619){13,-852}...               % 12
  1798.       (529,1037){-14,-398}...{-124,-420}     % 13
  1799.       (439,443){363,-170}...{363,-170}     % 14
  1800.       (802,273){339,185}...{339,185}          % 15
  1801.       (1141,458)--cycle);               % 16
  1802.  
  1803. endchar(0);
  1804.  
  1805. "fmlv";
  1806.  
  1807. %charbegin( "v",1695h#, theight*v#, baseline );
  1808. charbegin( "v",1695h#, 1/3[lcbody,theight]*v#, baseline ); % DEK
  1809.  
  1810. n := 8;
  1811. t1 := 4;
  1812. t2 := 8;
  1813. t3 := 10;
  1814. t4 := 11;
  1815. t5 := 13;
  1816. t6 := 20;
  1817. t7 := 21;
  1818. t8 := 22;
  1819.  
  1820. adj_fill.A(3)                         % fixed x points
  1821.      ()                         % fixed y points
  1822.      ((3,1), (4,2), (7,2), (8,1))          % tied points
  1823.      ((2,5), (1,6))                    % verticals
  1824.      ()                         % horizontals
  1825.      ((346,2022){-311,-419}...          % 0
  1826.       (203,1828){-531,-810}...          % 1
  1827.       (105,1600){0,-1}...{251,-346}          % 2
  1828.       (243,1374){14,-371}...{-50,-646}     % 3
  1829.       (242,295){203,-161}...{366,-390}     % 4
  1830.       (611,-44){795,423}...{795,423}          % 5
  1831.       (1406,379){189,448}...               % 6
  1832.       (1496,844){95,1220}...{-32,752}     % *7
  1833.       (1501,1599){-261,104}...{-568,375}     % 8
  1834.       (1075,1826){-543,-393}...{-543,-393}     % 9
  1835.       (532,1433)--                    % 10
  1836.       (549,1332){375,281}...{306,125}     % 11
  1837.       (883,1526){449,-96}...{239,-214}     % 12
  1838.       (1200,1384){61,-518}...          % 13
  1839.       (1215,699){-124,-1074}...          % *14
  1840.       (1164,461){-138.8,-388.8}...          % *15
  1841.       (1076,310){-1,-1}...               % 16
  1842.       (954,241){-1,0}...               % 17
  1843.       (807,298){-138,105}...               % 18
  1844.       (669,403){-499,368}...               % 19
  1845.       (538,635){-31,673}...{15,471}          % 20
  1846.       (549,1332){-17,101}...{-17,101}     % 21
  1847.       (532,1433){-5,129}...{-5,129}          % 22
  1848.       (527,1562){-418,406}...          % 23
  1849.       (400,1720){-172,300}...          % *24
  1850.       (355,1862){0,1}...{324,558}          % 25
  1851.       (409,2012)--cycle);               % 26
  1852.  
  1853.  
  1854.  
  1855. endchar(0);
  1856.  
  1857. "fmlw";
  1858.  
  1859. %charbegin( "w",2664h#, theight*v#, baseline );
  1860. charbegin( "w",2664h#, 1/3[lcbody,theight]*v#, baseline ); % DEK
  1861. n := 6;
  1862. t1 := 2;
  1863. t2 := 6;
  1864. t3 := 13;
  1865. t4 := 14;
  1866. t5 := 15;
  1867. t6 := 17;
  1868.  
  1869. adj_fill.A(2, 6)                    % fixed x points
  1870.      ()                         % fixed y points
  1871.      ((3,1), (4,2))                    % tied points
  1872.      ((1,5))                         % verticals
  1873.      ()                         % horizontals
  1874.      ((406,-39){-196,335}...{-405,385}     % 0
  1875.       (189,254){66,428}...               % 1
  1876.       (226,825){0,1}...               % 2
  1877.       (214,1338){-20,342}...               % 3
  1878.       (185,1418){-186,245}...          % 4
  1879.       (94,1550){-162,248}...               % 5
  1880.       (66,1639){0,1}...               % 6
  1881.       (93,1701){203,317}...{304,302}          % 7
  1882.       (360,2031)--                    % 8
  1883.       (410,2018){-193,-320}...          % 9
  1884.       (350,1846){0,-1}...               % 10
  1885.       (423,1680){350,-623}...{167,-165}     % 11
  1886.       (522,1570){4,-119}...{4,-119}          % 12
  1887.       (526,1451){-10,-103}...{-10,-103}     % 13
  1888.       (516,1348){-34,-712}...          % 14
  1889.       (510,646){0,-1}...               % 15
  1890.       (583,386){181,-287}...{228,-266}     % 16
  1891.       (685,239)--cycle);               % 17
  1892.  
  1893. n := 15;
  1894. t1 := 0;
  1895. t2 := 1;
  1896. t3 := 3;
  1897. t4 := 6;
  1898. t5 := 8;
  1899. t6 := 9;
  1900. t7 := 10;
  1901. t8 := 13;
  1902. t9 := 14;
  1903. %t10 := 18;
  1904. t10 := 18.5; % DEK
  1905. t11 := 20;
  1906. t12 := 21;
  1907. t13 := 21.76;
  1908. t14 := 23;
  1909. t15 := 24;
  1910.  
  1911. adj_fill.B(1, 13)                    % fixed x points
  1912.      ()                         % fixed y points
  1913.      ((1,3), (6,3), (7,4), (8,1), (9,2), (15,4))% tied points
  1914.      ((5,10), (3,12))               % verticals
  1915.      ((4,11), (2,14))               % horizontals
  1916.      ((1447,1325){319,159}...{319,159}     % 0
  1917.       (1766,1484){421,-108}...{484,-312}     % 1
  1918.       (2112,1347){68,-481}...          % 2
  1919.       (2142,1036){0,-1}...               % 3
  1920.       (2111,531){-126,-755}...          % *4
  1921.       (2016,281){-1,-1}...               % 5
  1922.       (1929,223){-1,0}...               % 6
  1923.       (1558,388){-477,378}...          % 7
  1924.       (1449,608){-30,392}...{34,856}          % 8
  1925.       (1447,1325){0,98}...{0,98}          % 9
  1926.       (1447,1423){5,136}...{5,136}          % 10
  1927.       (1452,1559){-276,126}...{-455,301}     % 11
  1928.       (978,1811){-177,-169}...{-412,-295}     % 12
  1929.       (526,1451)--                    % 13
  1930.       (516,1348){423,276}...               % 14
  1931.       (742,1481){318,190}...               % 15
  1932.       (799,1499){1.937,.12}...          % 16
  1933.       (875,1485){386,-190}...{227,-150}     % 17
  1934.       (1134,1323){80,-803}...{-33,-375}     % 18
  1935.       (1123,231){521,-256}...{431,-267}     % 19
  1936.       (1619,-44){692,370}...{692,370}     % 20
  1937.       (2311,326){199,576}...{-23,478}     % 21
  1938.       (2438,1560){-376,168}...{-209,124}     % 22
  1939.       (1972,1804){-525,-381}...{-525,-381}     % 23
  1940.       (1447,1423)--cycle);               % 24
  1941.  
  1942. endchar(0);
  1943.  
  1944. "fmlx";
  1945.  
  1946. charbegin( "x",1239h#, lcbody*v#, descender*v#);
  1947. n := 7;
  1948. t1 := 3;
  1949. t2 := 4;
  1950. t3 := 5;
  1951. t4 := 11;
  1952. t5 := 13;
  1953. t6 := 14;
  1954. t7 := 15;
  1955.  
  1956. adj_fill.A(2, 4)                    % fixed x points
  1957.      ()                         % fixed y points
  1958.      ((1,4), (2,1), (5,2), (6,3))          % tied points
  1959.      ((3,7))                         % verticals
  1960.      ()                         % horizontals
  1961.      ((-48,1455){236,244}...{465,395}     % 0
  1962.       (335,1809){178,-157}...{342,-257}     % 1
  1963.       (616,1567){-4,-117}...{-4,-117}     % 2
  1964.       (612,1450){10,-130}...{10,-130}     % 3
  1965.       (622,1320){-59,-276}...          % 4
  1966.       (599,1128){-16,-523}...{47,-719}     % 5
  1967.       (621,494){247,-266}...               % 6
  1968.       (854,293){269,-184}...               % 7
  1969.       (904,280){1.918,.05877}...          % 8
  1970.       (953,296){265,139}...{265,139}          % 9
  1971.       (1218,435)--                    % 10
  1972.       (1227,357){-550,-389}...{-550,-389}     % 11
  1973.       (677,-32){-384,432}...{-239,174}     % 12
  1974.       (365,241){-61,61}...{-61,61}          % 13
  1975.       (304,302){59,466}...               % 14
  1976.       (326,771){0,1}...{-29,374}          % 15
  1977.       (300,1367){-419,438}...          % 16
  1978.       (190,1469){-279,173}...          % 17
  1979.       (152,1489){-1.831,.1431}...          % 18
  1980.       (108,1474){-107,-53}...{-465,-324}     % 19
  1981.       (1,1421)--cycle);               % 20
  1982.  
  1983. n := 2;
  1984. t1 := 2;
  1985. t2 := 3;
  1986.  
  1987. adj_fill.B()                         % fixed x points
  1988.      ()                         % fixed y points
  1989.      ((1,4), (2,1))                    % tied points
  1990.      ()                         % verticals
  1991.      ()                         % horizontals
  1992.      ((1243,1505){-268,192}...{-295,484}     % 0
  1993.       (1015,1780){-403,-330}...{-403,-330}     % 1
  1994.       (612,1450)--                    % 2
  1995.       (622,1320){216,255}...               % 3
  1996.       (772,1466){124,115}...{244,-79}     % 4
  1997.       (1020,1316)--cycle);               % 5
  1998.  
  1999. n := 2;
  2000. t1 := 4;
  2001. t2 := 5;
  2002.  
  2003. adj_fill.C()                         % fixed x points
  2004.      ()                         % fixed y points
  2005.      ((1,3), (2,2))                    % tied points
  2006.      ()                         % verticals
  2007.      ()                         % horizontals
  2008.      ((356,-636){-326,78}...               % 0
  2009.       (14,-474){-1,1}...               % 1
  2010.       (-63,-301){0,1}...               % 2
  2011.       (32,-52){367,603}...{400,446}          % *3
  2012.       (304,302)--                    % 4
  2013.       (365,241){-358,-331}...          % 5
  2014.       (200,43){-223,-381}...               % *6
  2015.       (142,-140){0,-1}...               % 7
  2016.       (231,-336){1,-1}...{369,-76}          % 8
  2017.       (563,-468){2,-35}...{2,-35}          % 9
  2018.       (565,-503)--cycle);               % 10
  2019.  
  2020. endchar(0);
  2021.  
  2022. "fmly";
  2023.  
  2024. charbegin( "y",1647h#, lcbody*v#, descender*v#);
  2025. n := 5;
  2026. t1 := 2;
  2027. t2 := 5;
  2028. t3 := 10;
  2029. t4 := 11;
  2030. t5 := 13;
  2031.  
  2032. adj_fill.A(2, 5)                    % fixed x points
  2033.      ()                         % fixed y points
  2034.      ((3,1), (4,2))                    % tied points
  2035.      ((1,4))                         % verticals
  2036.      ()                         % horizontals
  2037.      ((384,-38){-137,236}...{-329,408}     % 0
  2038.       (172,274){89,350}...               % 1
  2039.       (228,1002){0,1}...               % 2
  2040.       (219,1318){-27,435}...{-16,42}          % 3
  2041.       (203,1360){-145,205}...{-215,420}     % 4
  2042.       (68,1576){75,191}...{289,411}          % 5
  2043.       (318,2015)--                    % 6
  2044.       (379,2001){-125,-235}...          % 7
  2045.       (328,1840){0,-1}...{165,-194}          % 8
  2046.       (504,1552){0,-1}...{0,-1}          % 9
  2047.       (504,1409){0,-108}...{0,-108}          % 10
  2048.       (504,1301){0,-1}...{0,-1}          % 11
  2049.       (504,471){221,-331}...{141,-175}     % 12
  2050.       (700,226)--cycle);               % 13
  2051.  
  2052. n := 5;
  2053. t1 := 3;
  2054. t2 := 6;
  2055. t3 := 7;
  2056. t4 := 10;
  2057. t5 := 14;
  2058.  
  2059. adj_fill.B(5)                         % fixed x points
  2060.      ()                         % fixed y points
  2061.      ((2,1), (3,2))                    % tied points
  2062.      ((1,4))                         % verticals
  2063.      ()                         % horizontals
  2064.      ((720,-750){599,584}...               % 0
  2065.       (1319,-166){516,554}...          % 1
  2066.       (1405,-25){116,400}...               % 2
  2067.       (1495,854){0,1}...{-29,806}          % 3
  2068.       (1476,1591){-398,150}...{-659,394}     % 4
  2069.       (1050,1810){-546,-401}...{-546,-401}     % 5
  2070.       (504,1409)--                    % 6
  2071.       (504,1301){469,346}...{267,113}     % 7
  2072.       (869,1506){429,-117}...{209,-124}     % 8
  2073.       (1155,1379){76,-677}...          % 9
  2074.       (1194,760){0,-1}...               % 10
  2075.       (1170,206){-94,-922}...          % *11
  2076.       (1100,-162){-179,-522}...          % 12
  2077.       (927,-457){-1,-1}...{-208,-100}     % 13
  2078.       (580,-686)--cycle);               % 14
  2079.  
  2080. endchar(0);
  2081.  
  2082. "fmlz";
  2083.  
  2084. charbegin( "z",1246h#, lcbody*v#, descender*v#);
  2085. n := 12;
  2086. t1 := 0;
  2087. t2 := 2;
  2088. t3 := 6;
  2089. t4 := 8;
  2090. t5 := 10;
  2091. t6 := 14;
  2092. t7 := 19;
  2093. t8 := 21;
  2094. t9 := 23;
  2095. t10 := 25;
  2096. t11 := 30;
  2097. t12 := 32;
  2098.  
  2099. adj_fill.A(6, 12)                    % fixed x points
  2100.      ()                         % fixed y points
  2101.      ((1,1), (9,1))                    % tied points
  2102.      ((3,10), (5,7), (2,11), (4,8))          % verticals
  2103.      ()                         % horizontals
  2104.      ((666,605){-1,-1}...               % 0
  2105.       (185,78){-792,-976}...{-290,-527}     % *1
  2106.       (-126,-371){93,-483}...          % 2
  2107.       (9,-583){470,-344}...{1,0}          % 3
  2108.       (465,-734){509,426}...{509,426}     % 4
  2109.       (974,-308){102,386}...               % 5
  2110.       (1062,298){0,1}...{-175,649}          % 6
  2111.       (1009,793){-426,262}...{-580,201}     % 7
  2112.       (619,966){278,329}...               % 8
  2113.       (897,1295){278,329}...               % 9
  2114.       (951,1429){0,1}...               % 10
  2115.       (919,1525){-125,211}...          % *11
  2116.       (826,1640){-1,1}...{-491,244}          % 12
  2117.       (572,1803){-322,-225}...{-425,-430}     % 13
  2118.       (34,1343)--                    % 14
  2119.       (74,1299){256,206}...               % 15
  2120.       (320,1472){218,131}...               % 16
  2121.       (413,1496){1,0}...               % 17
  2122.       (548,1437){1,-1}...               % 18
  2123.       (656,1226){0,-1}...               % 19
  2124.       (528,1017){-269,-247}...          % 20
  2125.       (259,770){-.7128,-1.676}...{1,-42}     % 21
  2126.       (260,728){570,-49}...{252,-112}     % 22
  2127.       (666,605){68,-64}...{68,-64}          % 23
  2128.       (734,541){155,-534}...               % 24
  2129.       (787,135){0,-1}...               % 25
  2130.       (759,-253){-109,-594}...          % *26
  2131.       (678,-459){-1,-1}...               % 27
  2132.       (576,-509){-1,0}...               % 28
  2133.       (247,-367){-1,1}...               % 29
  2134.       (168,-211){0,1}...               % 30
  2135.       (314,118){557,752}...{422,360}          % *31
  2136.       (725,541)--cycle);               % 32
  2137.  
  2138. endchar(0);
  2139.  
  2140. % UPPER CASE
  2141.  
  2142. "FMUA";
  2143.  
  2144. charbegin( "A", 2457h#, capheight*v#, baseline*v#);
  2145.  
  2146. n := 5;
  2147. t1 := 0;
  2148. t2 := 2;
  2149. t3 := 3;
  2150. t4 := 6;
  2151. t5 := 9;
  2152.  
  2153. adj_fill.A(1, 4)                    % fixed x points
  2154.      ()                         % fixed y points
  2155.      ((2,1))                         % tied points
  2156.      ((3,5))                         % verticals
  2157.      ()                         % horizontals
  2158.      ((2522,374){-135,-105}...{-135,-105}     % 0
  2159.       (1990,-39){-60,140}...{-60,140}     % 1
  2160.       (1753,512){0,1}...               % 2
  2161.       (1753,1812){0,1}...{-1,16}          % 3
  2162.       (1734,2285){120,90}...{120,90}          % 4
  2163.       (2206,2640)--                    % 5
  2164.       (2266,2600){-1,-1}...               % 6
  2165.       (2108,2443){-2,-3}...               % 7
  2166.       (2069,2325){-1,-10}...               % 8
  2167.       (2049,1458){0,-1}...               % 9
  2168.       (2069,788){1,-21}...               % 10
  2169.       (2088,670){2,-5}...               % 11
  2170.       (2246,355){3,-4}...               % 12
  2171.       (2325,355){2,1}...{2,1}          % 13
  2172.       (2502,433)--cycle);               % 14
  2173.  
  2174. n := 7;
  2175. t1 := 1;
  2176. t2 := 2;
  2177. t3 := 4;
  2178. t4 := 6;
  2179. t5 := 7;
  2180. t6 := 9;
  2181. t7 := 10;
  2182.  
  2183. adj_fill.B()                         % fixed x points
  2184.      (3, 5, 7)                    % fixed y points
  2185.      ((1,3), (2,2), (4,1))               % tied points
  2186.      ()                         % verticals
  2187.      ((2,6))                         % horizontals
  2188.      ((20,236){4,3}...               % 0
  2189.       (433,552){4,3}...               % 1
  2190.       (749,630){1,0}...               % 2
  2191.       (1044,473){1,-1}...{1,-1}          % 3
  2192.       (1221,296){135,85}...{135,85}          % 4
  2193.       (1753,630)--                    % 5
  2194.       (1753,512){-190,-140}...{-190,-140}     % 6
  2195.       (1005,-39){-3,5}...               % 7
  2196.       (827,197){-1,1}...               % 8
  2197.       (512,355){-1,0}...{-5,-3}          % 9
  2198.       (79,197)--cycle);               % 10
  2199.  
  2200. n := 12;
  2201. t1 := 0;
  2202. t2 := 2;
  2203. t3 := 4;
  2204. t4 := 6;
  2205. t5 := 9;
  2206. t6 := 11;
  2207. t7 := 12;
  2208. t8 := 14;
  2209. t9 := 18;
  2210. t10 := 20;
  2211. t11 := 22;
  2212. t12 := 24;
  2213.  
  2214. adj_fill.C(6)                         % fixed x points
  2215.      (7)                         % fixed y points
  2216.      ((1,2), (12,3))                    % tied points
  2217.      ((5,8), (4,9), (2,11))               % verticals
  2218.      ((3,10))                    % horizontals
  2219.      ((749,630){160,155}...{160,155}          % 0
  2220.       (1379,1241){2,4}...               % 1
  2221.       (1556,1970){0,1}...               % 2
  2222.       (1379,2443){-1,1}...               % 3
  2223.       (906,2600){-1,0}...               % 4
  2224.       (177,2305){-1,-1}...               % 5
  2225.       (-20,1931){0,-1}...               % 6
  2226.       (158,1576){1,-1}...               % 7
  2227.       (274,1439){40,-60}...               % *8
  2228.       (315,1340){0,-1}...               % 9
  2229.       (252,1189){-60,-75}...{-5,-3}          % *10
  2230.       (79,1044)--                    % 11
  2231.       (138,1005){2,1}...               % 12
  2232.       (454,1237){110,125}...               % *13
  2233.       (571,1497){0,1}...               % 14
  2234.       (520,1636){-50,80}...               % *15
  2235.       (374,1812){-1,1}...               % 16
  2236.       (258,1950){-40,60}...               % *17
  2237.       (217,2049){0,1}...               % 18
  2238.       (315,2266){1,1}...               % 19
  2239.       (630,2403){1,0}...               % 20
  2240.       (1084,2206){1,-1}...               % 21
  2241.       (1261,1734){0,-1}...               % 22
  2242.       (1103,1162){-4,-5}...{-4,-3}          % 23
  2243.       (433,552)--cycle);               % 24
  2244.  
  2245. endchar(0);
  2246.  
  2247. "FMUB";
  2248.  
  2249. charbegin( "B",3073h#, capheight*v#, baseline*v#);
  2250.  
  2251. n := 14;
  2252. t1 := 0;
  2253. t2 := 2;
  2254. t3 := 3;
  2255. t4 := 4;
  2256. t5 := 6;
  2257. t6 := 8;
  2258. t7 := 11;
  2259. t8 := 13;
  2260. t9 := 14;
  2261. t10 := 16;
  2262. t11 := 20;
  2263. t12 := 22;
  2264. t13 := 25;
  2265. t14 := 28;
  2266.  
  2267. adj_fill.A(8, 14)                    % fixed x points
  2268.      (9, 14)                         % fixed y points
  2269.      ((1,4), (3,1), (4,2), (14,3))          % tied points
  2270.      ((7,10), (6,11), (2,13))          % verticals
  2271.      ((5,12))                    % horizontals
  2272.      ((1024,493){110,85}...{110,85}          % 0
  2273.       (1458,827){2,4}...               % 1
  2274.       (1596,1537){0,1}...               % 2
  2275.       (1576,2009){-1,5}...               % 3
  2276.       (1497,2226){-3,5}...               % 4
  2277.       (1320,2443){-1,1}...               % 5
  2278.       (887,2620){-1,0}...               % 6
  2279.       (256,2305){-1,-1}...               % 7
  2280.       (79,1931){0,-1}...               % 8
  2281.       (217,1615){3,-4}...               % 9
  2282.       (362,1420){45,-70}...               % *10
  2283.       (394,1340){0,-1}...               % 11
  2284.       (331,1186){-60,-75}...{-7,-4}          % *12
  2285.       (158,1044)--                    % 13
  2286.       (217,1005){7,3}...               % 14
  2287.       (546,1227){115,125}...               % *15
  2288.       (670,1497){0,1}...               % 16
  2289.       (624,1631){-45,80}...               % *17
  2290.       (493,1812){-6,7}...               % 18
  2291.       (376,1973){-40,70}...               % *19
  2292.       (335,2088){0,1}...               % 20
  2293.       (433,2285){1,1}...               % 21
  2294.       (650,2364){1,0}...               % 22
  2295.       (1024,2206){1,-1}...               % 23
  2296.       (1221,1812){1,-5}...               % 24
  2297.       (1261,1379){0,-1}...               % 25
  2298.       (1241,1026){-20,-140}...          % *26
  2299.       (1182,827){-2,-3}...{-5,-3}          % 27
  2300.       (709,414)--cycle);               % 28
  2301.  
  2302. n := 9;
  2303. t1 := 0;
  2304. t2 := 1.282;
  2305. t3 := 2;
  2306. t4 := 5;
  2307. t5 := 7;
  2308. t6 := 8;
  2309. t7 := 10;
  2310. t8 := 14;
  2311. t9 := 15;
  2312.  
  2313. adj_fill.B()                         % fixed x points
  2314.      (2)                         % fixed y points
  2315.      ((1,7), (5,2), (6,1), (8,5), (9,6))     % tied points
  2316.      ()                         % verticals
  2317.      ((4,7), (3,9))                    % horizontals
  2318.      ((2916,1970){-8,-3}...               % 0
  2319.       (2754,1930){-65,-5}...               % *1
  2320.       (2660,1950){-1,1}...               % 2
  2321.       (2561,2206){-1,5}...               % 3
  2322.       (2463,2522){-1,1}...               % 4
  2323.       (2226,2600){-1,0}...               % 5
  2324.       (1773,2443){-3,-2}...{-1,-1}          % 6
  2325.       (1497,2226)--                    % 7
  2326.       (1576,2009){1,3}...               % 8
  2327.       (1714,2266){1,1}...               % 9
  2328.       (2009,2403){1,0}...               % 10
  2329.       (2187,2325){1,-1}...               % 11
  2330.       (2266,2049){1,-6}...               % 12
  2331.       (2325,1830){35,-80}...               % *13
  2332.       (2403,1734){11,-3}...{35,-10}          % 14
  2333.       (2541,1694)--cycle);               % 15
  2334.  
  2335. n := 5;
  2336. t1 := 0;
  2337. t2 := 2;
  2338. t3 := 3;
  2339. t4 := 5;
  2340. t5 := 6;
  2341.  
  2342. adj_fill.C()                         % fixed x points
  2343.      ()                         % fixed y points
  2344.      ((1,9), (2,5), (3,7), (4,6), (5,8))     % tied points
  2345.      ()                         % verticals
  2346.      ()                         % horizontals
  2347.      ((1576,1379){3,1}...               % 0
  2348.       (2009,1537){2,1}...               % 1
  2349.       (2403,1734){4,2}...{130,60}          % 2
  2350.       (2916,1970)--                    % 3
  2351.       (2935,1891){-5,-2}...               % 4
  2352.       (2541,1694){-4,-3}...{-3,-2}          % 5
  2353.       (2206,1478)--cycle);               % 6
  2354.  
  2355. n := 12;
  2356. t1 := 0;
  2357. t2 := 1;
  2358. t3 := 3;
  2359. t4 := 6;
  2360. t5 := 8;
  2361. t6 := 9;
  2362. t7 := 10;
  2363. t8 := 11;
  2364. t9 := 13;
  2365. t10 := 15;
  2366. t11 := 17;
  2367. t12 := 18;
  2368.  
  2369. adj_fill.D()                         % fixed x points
  2370.      (1, 7)                         % fixed y points
  2371.      ((5,8), (6,9), (11,4), (12,3))          % tied points
  2372.      ((4,9))                         % verticals
  2373.      ((5,8), (3,10), (2,11))               % horizontals
  2374.      ((315,39){3,2}...               % 0
  2375.       (827,236){1,0}...               % 1
  2376.       (1379,79){5,-2}...               % 2
  2377.       (1891,-39){1,0}...               % 3
  2378.       (2128,0){8,3}...{5,4}               % 4
  2379.       (2738,433){2,4}...               % 5
  2380.       (2857,887){0,1}...               % 6
  2381.       (2699,1300){-1,1}...               % 7
  2382.       (2206,1478){-1,0}...{-160,-25}          % 8
  2383.       (1576,1379)--                    % 9
  2384.       (1576,1261){4,2}...               % 10
  2385.       (1872,1320){1,0}...               % 11
  2386.       (2384,1123){1,-1}...               % 12
  2387.       (2541,709){0,-1}...               % 13
  2388.       (2384,296){-1,-1}...               % 14
  2389.       (2128,197){-1,0}...               % 15
  2390.       (1655,335){-5,2}...               % 16
  2391.       (1024,493){-1,0}...               % 17
  2392.       (709,414){-5,-3}...{-5,-3}          % 18
  2393.       (256,138)--cycle);               % 19
  2394.  
  2395. endchar(0);
  2396.  
  2397. "FMUC";
  2398.  
  2399. charbegin( "C",2068h#, capheight*v#, baseline*v#);
  2400.  
  2401. n := 9;
  2402. t1 := 0;
  2403. t2 := 1;
  2404. t3 := 3;
  2405. t4 := 6;
  2406. t5 := 7;
  2407. t6 := 8;
  2408. t7 := 9;
  2409. t8 := 11;
  2410. t9 := 13;
  2411.  
  2412. adj_fill.A(1, 5, 6)                    % fixed x points
  2413.      (6)                         % fixed y points
  2414.      ((1,2), (9,1))                    % tied points
  2415.      ((3,8))                         % verticals
  2416.      ((4,7), (2,9))                    % horizontals
  2417.      ((1005,2226){-30,15}...{-30,15}          % 0
  2418.       (887,2285){-200,-90}...{-200,-150}     % 1
  2419.       (276,1911){-100,-205}...          % 2
  2420.       (118,1241){0,-1}...               % 3
  2421.       (200,693){80,-240}...               % *4
  2422.       (433,296){1,-1}...{200,40}          % 5
  2423.       (1596,0){200,150}...{200,125}          % 6
  2424.       (2128,355)--                    % 7
  2425.       (2128,453){-110,-55}...{-110,-55}     % 8
  2426.       (1694,236){-100,-10}...          % 9
  2427.       (709,552){-1,1}...               % 10
  2428.       (414,1399){0,1}...               % 11
  2429.       (591,1990){8,10}...{200,5}          % 12
  2430.       (926,2147)--cycle);               % 13
  2431.  
  2432. n := 6;
  2433. t1 := 4;
  2434. t2 := 5;
  2435. t3 := 7;
  2436. t4 := 9;
  2437. t5 := 12;
  2438. t6 := 18;
  2439.  
  2440. adj_fill.B(4, 6)                    % fixed x points
  2441.      ()                         % fixed y points
  2442.      ((1,2), (2,1))                    % tied points
  2443.      ((3,5))                         % verticals
  2444.      ()                         % horizontals
  2445.      ((2147,2226){-200,-65}...          % 0
  2446.       (1931,2206){-1,1}...               % 1
  2447.       (1877,2299){-40,100}...{-70,200}     % *2
  2448.       (1773,2600){-200,-75}...{-200,-140}     % 3
  2449.       (1005,2226){-20,-20}...{-20,-20}     % 4
  2450.       (926,2147){-50,-200}...          % 5
  2451.       (946,1812){55,-200}...               % 6
  2452.       (1024,1418){0,-1}...               % 7
  2453.       (965,1162){-1,-1}...{-200,-45}          % 8
  2454.       (690,1005)--                    % 9
  2455.       (737,946){200,30}...               % 10
  2456.       (1261,1182){1,1}...               % 11
  2457.       (1379,1537){0,1}...               % 12
  2458.       (1300,1931){-40,200}...          % 13
  2459.       (1279,2162){5,95}...{8,10}          % *14
  2460.       (1320,2305){1,1}...{200,65}          % 15
  2461.       (1438,2384){100,-160}...{200,-120}     % 16
  2462.       (1734,2009){200,25}...{200,95}          % 17
  2463.       (2147,2147)--cycle);               % 18
  2464.  
  2465. endchar(0);
  2466.  
  2467. "FMUD";
  2468.  
  2469. charbegin( "D",2879h#, capheight*v#, baseline*v#);
  2470.  
  2471. n := 6;
  2472. t1 := 0;
  2473. t2 := 2;
  2474. t3 := 6;
  2475. t4 := 7;
  2476. t5 := 13;
  2477. t6 := 14;
  2478.  
  2479. adj_fill.A(1)                         % fixed x points
  2480.      ()                         % fixed y points
  2481.      ((1,2), (6,1))                    % tied points
  2482.      ((3,4), (2,5))                    % verticals
  2483.      ()                         % horizontals
  2484.      ((2226,552){4,6}...               % 0
  2485.       (2343,848){40,180}...               % *1
  2486.       (2384,1261){0,1}...               % 2
  2487.       (2128,1990){-1,1}...               % 3
  2488.       (1182,2325){-1,0}...               % 4
  2489.       (335,2029){-1,-1}...{-1,-9}          % 5
  2490.       (79,1418)--                    % 6
  2491.       (0,1458){0,1}...               % 7
  2492.       (315,2285){1,1}...               % 8
  2493.       (717,2518){245,80}...               % *9
  2494.       (1281,2600){1,0}...               % 10
  2495.       (1941,2508){285,-90}...          % *11
  2496.       (2403,2246){1,-1}...               % 12
  2497.       (2660,1576){0,-1}...{-3,-7}          % 13
  2498.       (2443,552)--cycle);               % 14
  2499.  
  2500. n := 7;
  2501. t1 := 0;
  2502. t2 := 1;
  2503. t3 := 3;
  2504. t4 := 5;
  2505. t5 := 6;
  2506. t6 := 7;
  2507. t7 := 10;
  2508.  
  2509. adj_fill.B()                         % fixed x points
  2510.      (1)                         % fixed y points
  2511.      ((1,5), (2,3), (4,2), (5,1), (7,4))     % tied points
  2512.      ()                         % verticals
  2513.      ((3,6))                         % horizontals
  2514.      ((414,552){1,0}...               % 0
  2515.       (827,532){5,-1}...               % 1
  2516.       (1300,394){8,-3}...               % 2
  2517.       (1793,236){1,0}...               % 3
  2518.       (2012,320){110,80}...{4,6}          % *4
  2519.       (2226,552)--                    % 5
  2520.       (2443,552){-1,-1}...               % 6
  2521.       (1635,-39){-1,0}...               % 7
  2522.       (1261,79){-5,2}...               % 8
  2523.       (788,236){-7,2}...{-1,0}          % 9
  2524.       (473,296)--cycle);               % 10
  2525.  
  2526. n := 3;
  2527. t1 := 1;
  2528. t2 := 2;
  2529. t3 := 4;
  2530.  
  2531. adj_fill.C()                         % fixed x points
  2532.      (3)                         % fixed y points
  2533.      ((1,5), (2,4))                    % tied points
  2534.      ()                         % verticals
  2535.      ((1,2))                         % horizontals
  2536.      ((20,59){1,2}...{6,5}               % 0
  2537.       (414,552)--                    % 1
  2538.       (473,296){-1,0}...               % 2
  2539.       (267,216){-100,-75}...{-3,-5}          % *3
  2540.       (79,0)--cycle);               % 4
  2541.  
  2542. n := 7;
  2543. t1 := 0;
  2544. t2 := 2;
  2545. t3 := 5;
  2546. t4 := 9;
  2547. t5 := 12;
  2548. t6 := 14;
  2549. t7 := 16;
  2550.  
  2551. adj_fill.D(4)                         % fixed x points
  2552.      ()                         % fixed y points
  2553.      ((1,5), (7,3))                    % tied points
  2554.      ((3,5), (2,6))                    % verticals
  2555.      ()                         % horizontals
  2556.      ((414,552){1,0}...               % 0
  2557.       (832,655){150,90}...               % *1
  2558.       (1005,906){0,1}...               % 2
  2559.       (887,1182){-5,6}...               % 3
  2560.       (712,1398){-55,80}...               % *4
  2561.       (670,1497){0,1}...               % 5
  2562.       (721,1665){50,90}...               % *6
  2563.       (867,1852){1,1}...{6,3}          % 7
  2564.       (1261,2128)--                    % 8
  2565.       (1320,2088){-3,-2}...               % 9
  2566.       (1182,1970){-1,-1}...               % 10
  2567.       (1051,1813){-45,-70}...          % *11
  2568.       (1005,1694){0,-1}...               % 12
  2569.       (1162,1418){7,-10}...               % 13
  2570.       (1340,1084){0,-1}...               % 14
  2571.       (1201,799){-130,-140}...{-2,-1}     % *15
  2572.       (827,532)--cycle);               % 16
  2573.  
  2574. endchar(0);
  2575.  
  2576. "FMUE";
  2577.  
  2578. charbegin( "E",2254h#, capheight*v#, baseline*v#);
  2579. %.............................................................Points
  2580.  
  2581.  
  2582. n := 9;
  2583. t1 := 0;
  2584. t2 := 1;
  2585. t3 := 3;
  2586. t4 := 6;
  2587. t5 := 7;
  2588. t6 := 8;
  2589. t7 := 9;
  2590. t8 := 11;
  2591. t9 := 13;
  2592.  
  2593. adj_fill.A(1, 5, 6)                    % fixed x points
  2594.      (6)                         % fixed y points
  2595.      ((1,2), (9,1))                    % tied points
  2596.      ((3,8))                         % verticals
  2597.      ((4,7), (2,9))                    % horizontals
  2598.      ((1103,2226){-30,15}...{-30,15}          % 0
  2599.       (985,2285){-200,-90}...{-200,-150}     % 1
  2600.       (374,1911){-100,-205}...          % 2
  2601.       (217,1241){0,-1}...               % 3
  2602.       (299,693){80,-240}...               % *4
  2603.       (532,296){1,-1}...{200,40}          % 5
  2604.       (1694,0){200,150}...{200,125}          % 6
  2605.       (2226,355)--                    % 7
  2606.       (2226,453){-110,-55}...{-110,-55}     % 8
  2607.       (1793,236){-100,-10}...          % 9
  2608.       (808,552){-1,1}...               % 10
  2609.       (512,1399){0,1}...               % 11
  2610.       (690,1990){8,10}...{200,5}          % 12
  2611.       (1024,2147)--cycle);               % 13
  2612.  
  2613. n := 8;
  2614. t1 := 4;
  2615. t2 := 5;
  2616. t3 := 5.352;
  2617. t4 := 6;
  2618. t5 := 10;
  2619. t6 := 14;
  2620. t7 := 15;
  2621. t8 := 21;
  2622.  
  2623. adj_fill.B(3, 5, 8)                    % fixed x points
  2624.      ()                         % fixed y points
  2625.      ((1,2), (2,1), (6,3), (7,4))          % tied points
  2626.      ((4,6))                         % verticals
  2627.      ()                         % horizontals
  2628.      ((2246,2226){-200,-65}...          % 0
  2629.       (2029,2206){-1,1}...               % 1
  2630.       (1976,2299){-40,100}...{-70,200}     % *2
  2631.       (1872,2600){-200,-75}...{-200,-140}     % 3
  2632.       (1103,2226){-20,-20}...{-20,-20}     % 4
  2633.       (1024,2147){-50,-200}...          % 5
  2634.       (1044,1812){55,-200}...          % 6
  2635.       (1126,1332){5,-190}...               % *7
  2636.       (1113,1165){-15.84,-68.14}...{-1,-1}     % *8
  2637.       (1064,1064){-10,-7}...{-200,-32}     % 9
  2638.       (768,926)--                    % 10
  2639.       (827,867){200,30}...               % 11
  2640.       (1123,943){125,50}...               % *12
  2641.       (1320,1064){1,1}...               % 13
  2642.       (1478,1320){100,395}...          % 14
  2643.       (1478,1418){0,1}...               % 15
  2644.       (1399,1931){-40,200}...          % 16
  2645.       (1377,2162){5,95}...{8,10}          % *17
  2646.       (1418,2305){1,1}...{200,65}          % 18
  2647.       (1537,2384){100,-160}...{200,-120}     % 19
  2648.       (1832,2009){200,25}...{200,95}          % 20
  2649.       (2246,2147)--cycle);               % 21
  2650.  
  2651. n := 2;
  2652. t1 := 2;
  2653. t2 := 3;
  2654.  
  2655. adj_fill.C()                         % fixed x points
  2656.      ()                         % fixed y points
  2657.      ((1,4), (2,3))                    % tied points
  2658.      ()                         % verticals
  2659.      ()                         % horizontals
  2660.      ((2167,1359){-200,120}...{-190,260}     % 0
  2661.       (1852,1655){-95,-60}...{-95,-60}     % 1
  2662.       (1478,1418)--                    % 2
  2663.       (1478,1320){200,180}...          % 3
  2664.       (1615,1379){1,0}...               % 4
  2665.       (1673,1358){70,-45}...{200,-130}     % *5
  2666.       (1891,1202)--cycle);               % 6
  2667.  
  2668. endchar(0);
  2669.  
  2670. "FMUF";
  2671.  
  2672. %charbegin( "F",2063h#, capheight*v#, depthy*v#);
  2673. charbegin( "F",2063h#, capheight*v#, 2/3descender*v#); % DEK
  2674.  
  2675. n := 8;
  2676. t1 := 0;
  2677. t2 := 1;
  2678. t3 := 4;
  2679. t4 := 7;
  2680. t5 := 9;
  2681. t6 := 11;
  2682. t7 := 12;
  2683. t8 := 13;
  2684.  
  2685. adj_fill.A()                         % fixed x points
  2686.      (1, 4)                         % fixed y points
  2687.      ((6,1), (7,2))                    % tied points
  2688.      ()                         % verticals
  2689.      ((3,5), (2,8))                    % horizontals
  2690.      ((2167,2443){-200,-210}...          % 0
  2691.       (1852,2206){-1,0}...               % 1
  2692.       (1615,2285){-200,120}...          % 2
  2693.       (1162,2520){-195,80}...          % *3
  2694.       (847,2600){-1,0}...               % 4
  2695.       (355,2403){-1,-1}...{-20,-200}          % 5
  2696.       (118,1812)--                    % 6
  2697.       (177,1773){40,200}...               % 7
  2698.       (374,2226){1,1}...               % 8
  2699.       (630,2344){1,0}...               % 9
  2700.       (919,2274){175,-70}...{200,-120}     % *10
  2701.       (1320,2069){35,-20}...{35,-20}          % 11
  2702.       (1458,1990){200,-125}...          % 12
  2703.       (1694,1911){1,0}...               % 13
  2704.       (1892,2021){120,110}...{200,275}     % *14
  2705.       (2167,2344)--cycle);               % 15
  2706.  
  2707. n := 15;
  2708. t1 := 0;
  2709. t2 := 1.492;
  2710. t3 := 4;
  2711. t4 := 7;
  2712. t5 := 9;
  2713. t6 := 13;
  2714. t7 := 15;
  2715. t8 := 16;
  2716. t9 := 18;
  2717. t10 := 20;
  2718. t11 := 21;
  2719. t12 := 23;
  2720. t13 := 25;
  2721. t14 := 28;
  2722. t15 := 30;
  2723.  
  2724. adj_fill.B(1)                         % fixed x points
  2725.      ()                         % fixed y points
  2726.      ((7,1), (8,2), (10,3), (11,4))          % tied points
  2727.      ((3,14), (5,12), (6,9))               % verticals
  2728.      ((2,15), (4,13))               % horizontals
  2729.      ((-59,670){175,120}...               % 0
  2730.       (307,850){150,40}...               % *1
  2731.       (532,827){8,-10}...               % 2
  2732.       (612,612){15,-130}...               % *3
  2733.       (591,315){-45,-200}...               % 4
  2734.       (570,-25){20,-145}...               % *5
  2735.       (670,-256){1,-1}...               % 6
  2736.       (906,-374){1,0}...               % 7
  2737.       (1241,-217){1,1}...               % 8
  2738.       (1399,197){0,1}...               % 9
  2739.       (1314,451){-85,165}...               % *10
  2740.       (1064,847){-200,280}...          % 11
  2741.       (842,1197){-75,145}...               % *12
  2742.       (768,1418){0,1}...               % 13
  2743.       (915,1734){140,165}...{200,125}     % *14
  2744.       (1320,2069)--                    % 15
  2745.       (1458,1990){-200,-50}...          % 16
  2746.       (1160,1834){-105,-100}...          % *17
  2747.       (1044,1596){0,-1}...               % 18
  2748.       (1100,1407){55,-115}...{200,-280}     % *19
  2749.       (1261,1143){10,-20}...{10,-20}          % 20
  2750.       (1300,1064){200,-260}...          % 21
  2751.       (1593,627){100,-185}...          % *22
  2752.       (1694,335){0,-1}...               % 23
  2753.       (1478,-177){-1,-1}...               % 24
  2754.       (709,-512){-1,0}...               % 25
  2755.       (394,-374){-1,1}...               % 26
  2756.       (295,-140){-25,155}...               % *27
  2757.       (296,236){25,200}...               % 28
  2758.       (304,489){-10,100}...               % *29
  2759.       (256,630){-1,1}...               % 30
  2760.       (135,657){-75,-10}...{-200,-120}     % *31
  2761.       (-39,591)--cycle);               % 32
  2762.  
  2763. n := 4;
  2764. t1 := 1;
  2765. t2 := 2;
  2766. t3 := 3;
  2767. t4 := 4;
  2768.  
  2769. adj_fill.C()                         % fixed x points
  2770.      ()                         % fixed y points
  2771.      ((2,3), (3,4))                    % tied points
  2772.      ()                         % verticals
  2773.      ((1,4))                         % horizontals
  2774.      ((1911,1281){-70,200}...{-200,210}     % 0
  2775.       (1714,1576){-115,-110}...{-115,-110}     % 1
  2776.       (1261,1143)--                    % 2
  2777.       (1300,1064){200,160}...          % 3
  2778.       (1556,1221){1,0}...{110,-200}          % 4
  2779.       (1753,1064)--cycle);               % 5
  2780.  
  2781. endchar(0);
  2782.  
  2783. "FMUG";
  2784.  
  2785. charbegin( "G",2708h#, capheight*v#, baseline*v#);
  2786.  
  2787. n := 7;
  2788. t1 := 1;
  2789. t2 := 2;
  2790. t3 := 2.378;
  2791. t4 := 4;
  2792. t5 := 6;
  2793. t6 := 9;
  2794. t7 := 10;
  2795.  
  2796. adj_fill.A(3, 5)                    % fixed x points
  2797.      ()                         % fixed y points
  2798.      ((1,4), (2,1), (6,2), (7,3))          % tied points
  2799.      ((4,6))                         % verticals
  2800.      ()                         % horizontals
  2801.      ((1438,2502){-110,-70}...{-110,-70}     % 0
  2802.       (1005,2226){-10,-15}...{-10,-15}     % 1
  2803.       (965,2167){-6,-20}...               % 2
  2804.       (985,1675){5,-20}...               % 3
  2805.       (1035,1325){0,-145}...               % *4
  2806.       (985,1103){-100,-145}...{-20,-5}     % 5
  2807.       (709,906)--                    % 6
  2808.       (768,847){200,35}...               % 7
  2809.       (1261,1064){1,1}...{-15,200}          % 8
  2810.       (1379,1517){-5,25}...{-5,25}          % 9
  2811.       (1359,1615){-40,200}...          % 10
  2812.       (1281,2128){0,1}...{200,175}          % 11
  2813.       (1478,2463)--cycle);               % 12
  2814.  
  2815. n := 8;
  2816. t1 := 0;
  2817. t2 := 1;
  2818. t3 := 3;
  2819. t4 := 4;
  2820. t5 := 10;
  2821. t6 := 12;
  2822. t7 := 15;
  2823. t8 := 16;
  2824.  
  2825. adj_fill.B(1)                         % fixed x points
  2826.      (5, 8)                         % fixed y points
  2827.      ((1,6), (3,2), (4,3), (8,5))          % tied points
  2828.      ((2,7))                         % verticals
  2829.      ((3,6))                         % horizontals
  2830.      ((1970,414){1,1}...               % 0
  2831.       (2206,1005){0,1}...               % 1
  2832.       (2088,1340){-1,1}...{-20,-5}          % 2
  2833.       (1379,1517){-5,25}...{-5,25}          % 3
  2834.       (1359,1615){200,120}...{200,195}     % 4
  2835.       (1931,2049){-200,90}...{-45,100}     % 5
  2836.       (1576,2384)--                    % 6
  2837.       (1832,2620){1,-2}...               % 7
  2838.       (2006,2390){95,-80}...               % *8
  2839.       (2206,2305){1,0}...{100,110}          % 9
  2840.       (2344,2364){5,-20}...{5,-20}          % 10
  2841.       (2364,2285){-160,-140}...{-160,-140}     % 11
  2842.       (1734,1734){200,17}...               % 12
  2843.       (2092,1718){150,-32}...          % *13
  2844.       (2325,1608){1,-1}...               % 14
  2845.       (2529,1182){0,-1}...{-200,-195}     % 15
  2846.       (2187,414)--cycle);               % 16
  2847.  
  2848. n := 8;
  2849. t1 := 0;
  2850. t2 := 1;
  2851. t3 := 3;
  2852. t4 := 4;
  2853. t5 := 5;
  2854. t6 := 7;
  2855. t7 := 9;
  2856. t8 := 11;
  2857.  
  2858. adj_fill.C(1)                         % fixed x points
  2859.      (1)                         % fixed y points
  2860.      ((1,8), (4,6), (5,5), (8,7))          % tied points
  2861.      ((2,7))                         % verticals
  2862.      ((3,6))                         % horizontals
  2863.      ((630,2009){-1,-1}...               % 0
  2864.       (433,1418){0,-1}...               % 1
  2865.       (749,532){1,-1}...               % 2
  2866.       (1458,217){1,0}...{1,1}          % 3
  2867.       (1970,414)--                    % 4
  2868.       (2187,414){-20,-13}...{-20,-16}     % 5
  2869.       (1615,20){-20,-7}...               % 6
  2870.       (1261,-39){-1,0}...               % 7
  2871.       (473,276){-1,1}...               % 8
  2872.       (138,1241){0,1}...               % 9
  2873.       (183,1642){45,175}...{155,200}          % *10
  2874.       (315,1931)--cycle);               % 11
  2875.  
  2876. n := 4;
  2877. t1 := 0;
  2878. t2 := 1;
  2879. t3 := 2;
  2880. t4 := 4;
  2881.  
  2882. adj_fill.D()                         % fixed x points
  2883.      ()                         % fixed y points
  2884.      ((1,1), (2,8), (3,7), (4,4))          % tied points
  2885.      ()                         % verticals
  2886.      ()                         % horizontals
  2887.      ((965,2167){-200,-45}...{-1,-1}          % 0
  2888.       (630,2009)--                    % 1
  2889.       (315,1931){150,90}...{150,90}          % 2
  2890.       (906,2285){25,-15}...{25,-15}          % 3
  2891.       (1005,2226)--cycle);               % 4
  2892.  
  2893. endchar(0);
  2894.  
  2895. "FMUH";
  2896.  
  2897. %charbegin( "H",2467h#, capheight*v#, descender*v#);
  2898. charbegin( "H",2467h#, capheight*v#, 1/3descender*v#); % DEK
  2899. n := 14;
  2900. t1 := 0;
  2901. t2 := 2;
  2902. t3 := 5;
  2903. t4 := 8;
  2904. t5 := 10;
  2905. t6 := 11;
  2906. t7 := 12;
  2907. t8 := 13;
  2908. t9 := 16;
  2909. t10 := 18;
  2910. t11 := 19;
  2911. t12 := 20;
  2912. t13 := 24;
  2913. t14 := 25;
  2914.  
  2915. adj_fill.A(1, 6, 14)                    % fixed x points
  2916.      (1, 7)                         % fixed y points
  2917.      ((10,1), (11,2))               % tied points
  2918.      ((3,12), (4,9))                    % verticals
  2919.      ((2,13), (5,8))                    % horizontals
  2920.      ((1911,2522){-200,-145}...          % 0
  2921.       (1663,2345){-90,-55}...          % *1
  2922.       (1556,2305){-1,0}...{-1,1}          % 2
  2923.       (1084,2529){-200,-140}...          % 3
  2924.       (548,2058){-185,-222}...          % *4
  2925.       (355,1655){0,-1}...               % 5
  2926.       (435,1349){80,-200}...               % *6
  2927.       (670,867){110,-200}...               % 7
  2928.       (788,552){0,-1}...{-200,-180}          % 8
  2929.       (650,276){-200,205}...               % 9
  2930.       (355,433){-1,0}...{-200,-230}          % 10
  2931.       (-98,59)--                    % 11
  2932.       (-59,0){200,185}...               % 12
  2933.       (197,177){1,0}...               % 13
  2934.       (344,120){80,-55}...{200,-240}          % *14
  2935.       (512,-39){200,205}...{200,260}          % 15
  2936.       (985,532){90,200}...               % 16
  2937.       (1004,775){-20,150}...{-80,200}     % *17
  2938.       (906,1123){-15,40}...{-15,40}          % 18
  2939.       (847,1281){-95,200}...               % 19
  2940.       (662,1812){0,1}...               % 20
  2941.       (715,2002){52,105}...{195,230}          % *21
  2942.       (867,2226){2,-1}...               % 22
  2943.       (1176,2094){135,-45}...          % *23
  2944.       (1399,2049){1,0}...{1,1}          % 24
  2945.       (1911,2443)--cycle);               % 25
  2946.  
  2947. n := 10;
  2948. t1 := 0;
  2949. t2 := 1;
  2950. t3 := 5;
  2951. t4 := 8;
  2952. t5 := 10;
  2953. t6 := 11;
  2954. t7 := 12;
  2955. t8 := 14;
  2956. t9 := 16;
  2957. t10 := 17;
  2958.  
  2959. adj_fill.B(10)                         % fixed x points
  2960.      (1)                         % fixed y points
  2961.      ((5,1), (6,2))                    % tied points
  2962.      ((3,8))                         % verticals
  2963.      ((4,7), (2,9))                    % horizontals
  2964.      ((1438,-98){1,-2}...               % 0
  2965.       (1655,-236){1,0}...               % 1
  2966.       (1770,-183){55,50}...               % *2
  2967.       (1872,-39){95,200}...               % 3
  2968.       (1945,267){25,205}...               % *4
  2969.       (1970,768){0,1}...               % 5
  2970.       (1924,1179){-45,170}...          % *6
  2971.       (1793,1438){-1,1}...               % 7
  2972.       (1458,1556){-1,0}...               % 8
  2973.       (1170,1440){-140,-110}...{-115,-200}     % *9
  2974.       (906,1123)--                    % 10
  2975.       (847,1281){200,210}...{200,115}     % 11
  2976.       (1517,1793){1,0}...{200,-150}          % 12
  2977.       (2187,1596){55,-200}...          % 13
  2978.       (2285,946){0,-1}...{-90,-200}          % 14
  2979.       (2128,0){-195,-180}...               % 15
  2980.       (1517,-433){-1,0}...{-200,205}          % 16
  2981.       (1261,-335)--cycle);               % 17
  2982.  
  2983. endchar(0);
  2984.  
  2985. "FMUI";
  2986.  
  2987. charbegin( "I",1853h#, capheight*v#, baseline*v#);
  2988.  
  2989. n := 6;
  2990. t1 := 0;
  2991. t2 := 2;
  2992. t3 := 4;
  2993. t4 := 8;
  2994. t5 := 10;
  2995. t6 := 12;
  2996.  
  2997. adj_fill.A()                         % fixed x points
  2998.      (1, 4)                         % fixed y points
  2999.      ()                         % tied points
  3000.      ()                         % verticals
  3001.      ((3,5), (2,6))                    % horizontals
  3002.      ((1832,2541){-200,-155}...          % 0
  3003.       (1612,2395){-95,-50}...          % *1
  3004.       (1458,2344){-1,0}...               % 2
  3005.       (1261,2403){-200,95}...          % 3
  3006.       (690,2600){-1,0}...               % 4
  3007.       (315,2443){-9,-10}...               % 5
  3008.       (167,2204){-77,-160}...{-100,-295}     % *6
  3009.       (12,1812)--                    % 7
  3010.       (79,1773){100,265}...               % 8
  3011.       (315,2167){1,1}...               % 9
  3012.       (611,2285){1,0}...               % 10
  3013.       (821,2242){175,-55}...{200,-75}     % *11
  3014.       (1300,2069){200,105}...{200,185}     % 12
  3015.       (1872,2482)--cycle);               % 13
  3016.  
  3017. n := 9;
  3018. t1 := 0;
  3019. t2 := 1;
  3020. t3 := 1.202;
  3021. t4 := 3;
  3022. t5 := 6;
  3023. t6 := 9;
  3024. t7 := 10;
  3025. t8 := 14;
  3026. t9 := 16;
  3027.  
  3028. adj_fill.B(1, 7)                    % fixed x points
  3029.      (2, 3, 6)                    % fixed y points
  3030.      ()                         % tied points
  3031.      ((5,8))                         % verticals
  3032.      ((4,9))                         % horizontals
  3033.      ((39,59){100,140}...{200,180}          % 0
  3034.       (433,493){200,325}...               % 1
  3035.       (630,236){1,-1}...               % 2
  3036.       (867,138){1,0}...               % 3
  3037.       (1143,276){1,1}...               % 4
  3038.       (1259,495){40,140}...               % *5
  3039.       (1300,827){0,1}...               % 6
  3040.       (1261,1300){-25,200}...{25,200}     % 7
  3041.       (1241,1773){200,225}...{200,125}     % 8
  3042.       (1734,2206)--                    % 9
  3043.       (1793,2187){-200,-190}...          % 10
  3044.       (1603,1962){-65,-105}...{0,-1}          % *11
  3045.       (1537,1773){5,-60}...               % 12
  3046.       (1556,1537){30,-200}...          % 13
  3047.       (1615,965){0,-1}...               % 14
  3048.       (1399,335){-1,-1}...               % 15
  3049.       (611,-39){-1,0}...{-100,90}          % 16
  3050.       (256,138){-50,-35}...{-50,-35}          % 17
  3051.       (59,0)--cycle);               % 18
  3052.  
  3053. endchar(0);
  3054.  
  3055. "FMUJ";
  3056.  
  3057. %charbegin( "J",1845h#, capheight*v#, depthy*v#);
  3058. charbegin( "J",1845h#, capheight*v#, 2/3descender*v#); % DEK
  3059.  
  3060. n := 5;
  3061. t1 := 1;
  3062. t2 := 5;
  3063. t3 := 8;
  3064. t4 := 10;
  3065. t5 := 12;
  3066.  
  3067. adj_fill.A()                         % fixed x points
  3068.      (3)                         % fixed y points
  3069.      ()                         % tied points
  3070.      ()                         % verticals
  3071.      ((2,4), (1,5))                    % horizontals
  3072.      ((1832,2325){-2,-1}...               % 0
  3073.       (1458,2206){-1,0}...               % 1
  3074.       (1328,2247){-75,40}...               % *2
  3075.       (1162,2364){-20,17}...               % 3
  3076.       (916,2539){-110,60}...               % *4
  3077.       (729,2600){-1,0}...               % 5
  3078.       (392,2417){-160,-170}...{-8,-20}     % *6
  3079.       (99,1931)--                    % 7
  3080.       (158,1891){11,20}...               % 8
  3081.       (380,2179){115,100}...               % *9
  3082.       (611,2285){1,0}...               % 10
  3083.       (946,2128){10,-8}...{200,-35}          % 11
  3084.       (1241,1970){200,65}...{2,1}          % 12
  3085.       (1832,2246)--cycle);               % 13
  3086.  
  3087. n := 13;
  3088. t1 := 0;
  3089. t2 := 1;
  3090. t3 := 3;
  3091. t4 := 5;
  3092. t5 := 8;
  3093. t6 := 10;
  3094. t7 := 12;
  3095. t8 := 14;
  3096. t9 := 16;
  3097. t10 := 18;
  3098. t11 := 20;
  3099. t12 := 22;
  3100. t13 := 24;
  3101.  
  3102. adj_fill.B(7, 13)                    % fixed x points
  3103.      (1)                         % fixed y points
  3104.      ()                         % tied points
  3105.      ((2,12), (3,11), (5,9))               % verticals
  3106.      ((4,10), (6,8))                    % horizontals
  3107.      ((1635,2029){-200,-165}...{-145,-200}     % 0
  3108.       (1123,1497){-3,-20}...               % 1
  3109.       (1221,788){5,-20}...               % 2
  3110.       (1320,197){0,-1}...               % 3
  3111.       (1182,-197){-1,-1}...               % 4
  3112.       (926,-295){-1,0}...               % 5
  3113.       (670,-197){-1,1}...               % 6
  3114.       (597,-32){-25,115}...               % *7
  3115.       (571,256){0,1}...               % 8
  3116.       (512,532){-1,1}...               % 9
  3117.       (335,591){-1,0}...               % 10
  3118.       (123,530){-120,-60}...{-200,-165}     % *11
  3119.       (-138,355)--                    % 12
  3120.       (-114,296){200,105}...               % 13
  3121.       (99,355){1,0}...               % 14
  3122.       (236,276){110,-200}...               % 15
  3123.       (296,-20){25,-200}...               % 16
  3124.       (414,-335){1,-1}...               % 17
  3125.       (788,-453){1,0}...               % 18
  3126.       (1340,-197){1,1}...               % 19
  3127.       (1596,374){0,1}...               % 20
  3128.       (1478,1044){-4,20}...               % 21
  3129.       (1418,1478){0,1}...               % 22
  3130.       (1490,1707){70,130}...{200,225}     % *23
  3131.       (1694,1990)--cycle);               % 24
  3132.  
  3133. endchar(0);
  3134.  
  3135. "FMUK";
  3136.  
  3137. charbegin( "K",2275h#, capheight*v#, baseline*v#);
  3138.  
  3139. n := 15;
  3140. t1 := 0;
  3141. t2 := 2;
  3142. t3 := 4.188;
  3143. t4 := 5;
  3144. t5 := 6;
  3145. t6 := 7;
  3146. t7 := 8;
  3147. t8 := 11;
  3148. t9 := 12;
  3149. t10 := 13;
  3150. t11 := 15;
  3151. t12 := 17;
  3152. t13 := 19;
  3153. t14 := 21;
  3154. t15 := 24;
  3155.  
  3156. adj_fill.A(9)                         % fixed x points
  3157.      (1, 10)                         % fixed y points
  3158.      ((4,1), (5,2), (6,3), (7,4))          % tied points
  3159.      ((7,12), (3,13), (1,15))          % verticals
  3160.      ((8,11), (2,14))               % horizontals
  3161.      ((2069,1891){0,1}...               % 0
  3162.       (1931,2226){-1,1}...               % 1
  3163.       (1418,2384){-1,0}...               % 2
  3164.       (946,2206){-1,-1}...               % 3
  3165.       (804,1873){-20,-200}...{7,-20}          % *4
  3166.       (867,1418){5,-40}...{5,-40}          % 5
  3167.       (887,1261){8,-20}...{32,-200}          % 6
  3168.       (965,926){0,-25}...{0,-25}          % 7
  3169.       (965,827){0,-1}...{-35,-200}          % 8
  3170.       (946,532){-2,-3}...               % 9
  3171.       (620,155){-170,-145}...{-200,-55}     % *10
  3172.       (276,-39){-7,1}...{-20,29}          % 11
  3173.       (-39,177)--                    % 12
  3174.       (197,453){10,-27}...               % 13
  3175.       (310,267){65,-65}...               % *14
  3176.       (453,197){1,0}...               % 15
  3177.       (611,256){1,1}...               % 16
  3178.       (709,591){0,1}...               % 17
  3179.       (611,1143){-6,20}...{1,20}          % 18
  3180.       (493,1694){7,20}...               % 19
  3181.       (867,2266){1,1}...               % 20
  3182.       (1635,2581){1,0}...               % 21
  3183.       (1973,2517){140,-60}...{12,-20}     % *22
  3184.       (2187,2344){15,-200}...{-6,-20}     % 23
  3185.       (2128,1911)--cycle);               % 24
  3186.  
  3187. n := 6;
  3188. t1 := 0;
  3189. t2 := 1;
  3190. t3 := 5;
  3191. t4 := 9;
  3192. t5 := 13;
  3193. t6 := 14;
  3194.  
  3195. adj_fill.B()                         % fixed x points
  3196.      ()                         % fixed y points
  3197.      ((1,4), (5,5), (6,3))               % tied points
  3198.      ()                         % verticals
  3199.      ((3,4), (2,5))                    % horizontals
  3200.      ((965,827){20,9}...               % 0
  3201.       (1300,906){1,0}...               % 1
  3202.       (1537,827){1,-1}...               % 2
  3203.       (1675,355){3,-20}...               % 3
  3204.       (1778,73){70,-100}...               % *4
  3205.       (1950,-39){1,0}...               % 5
  3206.       (2158,37){120,75}...{1,1}          % *6
  3207.       (2423,256)--                    % 7
  3208.       (2423,335){-200,-155}...          % 8
  3209.       (2167,256){-1,0}...               % 9
  3210.       (2036,328){-55,65}...               % *10
  3211.       (1950,512){-45,200}...{-12,20}          % 11
  3212.       (1793,1005){-20,11}...{-1,0}          % 12
  3213.       (1615,1064){-165,-35}...{-165,-35}     % 13
  3214.       (965,926)--cycle);               % 14
  3215.  
  3216. n := 6;
  3217. t1 := 0;
  3218. t2 := 4;
  3219. t3 := 6;
  3220. t4 := 7;
  3221. t5 := 9;
  3222. t6 := 14;
  3223.  
  3224. adj_fill.C()                         % fixed x points
  3225.      ()                         % fixed y points
  3226.      ((1,3), (3,2), (4,1), (6,5))          % tied points
  3227.      ()                         % verticals
  3228.      ((2,5))                         % horizontals
  3229.      ((965,926){200,80}...{200,80}          % 0
  3230.       (1753,1241){-200,175}...          % 1
  3231.       (1635,1478){-65,200}...          % 2
  3232.       (1537,1627){-1,1}...               % 3
  3233.       (1399,1675){-1,0}...               % 4
  3234.       (1139,1564){-130,-105}...{-12,-20}     % *5
  3235.       (887,1261)--                    % 6
  3236.       (867,1418){200,215}...               % 7
  3237.       (1286,1782){195,125}...          % *8
  3238.       (1635,1911){1,0}...               % 9
  3239.       (1793,1852){1,-1}...               % 10
  3240.       (1931,1537){5,-20}...{200,85}          % 11
  3241.       (2206,1399){-5,-20}...{-5,-20}          % 12
  3242.       (2187,1320){-145,-65}...{-145,-65}     % 13
  3243.       (1615,1064)--cycle);               % 14
  3244.  
  3245. endchar(0);
  3246.  
  3247. "FMUL";
  3248.  
  3249. charbegin( "L",2266h#, capheight*v#, baseline*v#);
  3250.  
  3251. n := 7;
  3252. t1 := 1;
  3253. t2 := 2;
  3254. t3 := 4;
  3255. t4 := 6;
  3256. t5 := 10;
  3257. t6 := 13;
  3258. t7 := 14;
  3259.  
  3260. adj_fill.A()                         % fixed x points
  3261.      (4, 7)                         % fixed y points
  3262.      ((1,2), (2,1))                    % tied points
  3263.      ()                         % verticals
  3264.      ((3,5), (1,6))                    % horizontals
  3265.      ((20,59){100,240}...{200,240}          % 0
  3266.       (296,552){105,-5}...{105,-5}          % 1
  3267.       (709,532){220,-90}...               % 2
  3268.       (1224,355){230,-60}...               % *3
  3269.       (1615,296){1,0}...               % 4
  3270.       (2049,433){1,1}...{80,285}          % 5
  3271.       (2226,788)--                    % 6
  3272.       (2285,749){-100,-550}...          % 7
  3273.       (2178,319){-60,-170}...          % *8
  3274.       (2049,79){-1,-1}...               % 9
  3275.       (1655,-39){-1,0}...               % 10
  3276.       (1218,35){-265,75}...               % *11
  3277.       (611,256){-200,85}...               % 12
  3278.       (374,315){-1,0}...{-200,-330}          % 13
  3279.       (79,-20)--cycle);               % 14
  3280.  
  3281. n := 12;
  3282. t1 := 0;
  3283. t2 := 3;
  3284. t3 := 6;
  3285. t4 := 9;
  3286. t5 := 12;
  3287. t6 := 15;
  3288. t7 := 16;
  3289. t8 := 19;
  3290. t9 := 22;
  3291. t10 := 24;
  3292. t11 := 27;
  3293. t12 := 28;
  3294.  
  3295. adj_fill.B(6, 7)                    % fixed x points
  3296.      ()                         % fixed y points
  3297.      ((1,2), (12,1))                    % tied points
  3298.      ((5,8), (3,10), (2,11))               % verticals
  3299.      ((6,7), (4,9))                    % horizontals
  3300.      ((296,552){200,30}...               % 0
  3301.       (570,621){115,45}...               % *1
  3302.       (749,729){1,1}...               % 2
  3303.       (827,926){0,1}...               % 3
  3304.       (670,1300){-100,185}...          % 4
  3305.       (538,1587){-45,125}...               % *5
  3306.       (493,1793){0,1}...               % 6
  3307.       (564,2025){70,125}...               % *7
  3308.       (768,2285){1,1}...               % 8
  3309.       (1556,2600){1,0}...               % 9
  3310.       (1931,2482){1,-1}...               % 10
  3311.       (2005,2314){20,-110}...          % *11
  3312.       (2009,2049){-60,-540}...          % 12
  3313.       (1990,1846){0,-70}...               % *13
  3314.       (2009,1773){1,-1}...{1,0}          % 14
  3315.       (2206,1734)--                    % 15
  3316.       (2206,1655){-100,-25}...{-100,-25}     % 16
  3317.       (1812,1556){-260,115}...          % 17
  3318.       (1694,1635){-1,1}...               % 18
  3319.       (1675,1950){70,610}...               % 19
  3320.       (1674,2183){-15,95}...               % *20
  3321.       (1615,2325){-1,1}...               % 21
  3322.       (1300,2423){-1,0}...               % 22
  3323.       (906,2266){-1,-1}...               % 23
  3324.       (788,1990){0,-1}...               % 24
  3325.       (828,1781){40,-125}...               % *25
  3326.       (946,1497){100,-205}...{-30,-415}     % 26
  3327.       (1084,985){-95,-115}...{180,135}     % 27
  3328.       (709,532)--cycle);               % 28
  3329.  
  3330. endchar(0);
  3331.  
  3332. "FMUM";
  3333.  
  3334. charbegin( "M",3686h#, capheight*v#, baseline*v#);
  3335.  
  3336. n := 15;
  3337. t1 := 0;
  3338. t2 := 1;
  3339. t3 := 5;
  3340. t4 := 6;
  3341. t5 := 7;
  3342. t6 := 9;
  3343. t7 := 12;
  3344. t8 := 14;
  3345. t9 := 15;
  3346. t10 := 17;
  3347. t11 := 21;
  3348. t12 := 23;
  3349. t13 := 26;
  3350. t14 := 31;
  3351. t15 := 33;
  3352.  
  3353. adj_fill.A(8, 15)                    % fixed x points
  3354.      (1, 9)                         % fixed y points
  3355.      ((4,1))                         % tied points
  3356.      ((7,10), (6,11), (3,13))          % verticals
  3357.      ((5,12), (2,14))               % horizontals
  3358.      ((39,0){3,4}...                    % 0
  3359.       (296,158){1,0}...               % 1
  3360.       (434,106){80,-50}...{1,-1}          % *2
  3361.       (611,-39){160,140}...{160,140}          % 3
  3362.       (1241,512){3,5}...               % 4
  3363.       (1517,1714){0,1}...               % 5
  3364.       (1458,2167){-1,3}...               % 6
  3365.       (847,2600){-1,0}...               % 7
  3366.       (217,2325){-1,-1}...               % 8
  3367.       (0,1911){0,-1}...               % 9
  3368.       (51,1767){50,-90}...               % *10
  3369.       (197,1556){4,-5}...               % 11
  3370.       (335,1320){0,-1}...               % 12
  3371.       (266,1163){-65,-75}...{-2,-1}          % *13
  3372.       (79,1024)--                    % 14
  3373.       (158,965){2,1}...               % 15
  3374.       (488,1202){115,125}...               % *16
  3375.       (611,1458){0,1}...               % 17
  3376.       (565,1606){-45,85}...               % *18
  3377.       (433,1793){-6,7}...               % 19
  3378.       (302,1974){-45,80}...               % *20
  3379.       (256,2108){0,1}...               % 21
  3380.       (355,2285){1,1}...               % 22
  3381.       (571,2364){1,0}...               % 23
  3382.       (946,2226){1,-1}...               % 24
  3383.       (1135,1893){65,-205}...          % *25
  3384.       (1202,1418){0,-1}...               % 26
  3385.       (1145,793){-55,-250}...          % *27
  3386.       (985,433){-1,-1}...{-9,-5}          % 28
  3387.       (768,256){-1,1}...               % 29
  3388.       (587,402){-85,50}...               % *30
  3389.       (433,453){-1,0}...               % 31
  3390.       (226,348){-110,-100}...{-3,-5}          % *32
  3391.       (0,59)--cycle);               % 33
  3392.  
  3393. n := 10;
  3394. t1 := 2;
  3395. t2 := 5;
  3396. t3 := 6;
  3397. t4 := 8;
  3398. t5 := 10;
  3399. t6 := 11;
  3400. t7 := 13;
  3401. t8 := 16;
  3402. t9 := 19.57;
  3403. t10 := 21;
  3404.  
  3405. adj_fill.B(10)                         % fixed x points
  3406.      (6)                         % fixed y points
  3407.      ((3,2), (5,1))                    % tied points
  3408.      ((2,8))                         % verticals
  3409.      ((4,7), (1,9))                    % horizontals
  3410.      ((1359,0){1,1}...               % 0
  3411.       (1482,102){55,35}...               % *1
  3412.       (1576,138){1,0}...{7,-6}          % 2
  3413.       (1832,-20){115,140}...{115,140}     % 3
  3414.       (2285,532){3,7}...               % 4
  3415.       (2522,1675){0,1}...               % 5
  3416.       (2482,2029){-1,6}...               % 6
  3417.       (2305,2423){-1,1}...               % 7
  3418.       (2069,2502){-1,0}...               % 8
  3419.       (1635,2344){-3,-2}...{-4,-5}          % 9
  3420.       (1458,2167)--                    % 10
  3421.       (1497,2009){3,7}...               % 11
  3422.       (1615,2187){1,1}...               % 12
  3423.       (1812,2285){1,0}...               % 13
  3424.       (2069,2167){2,-3}...               % 14
  3425.       (2157,1889){30,-190}...          % *15
  3426.       (2187,1418){0,-1}...               % 16
  3427.       (2128,611){-1,-4}...{-5,-4}          % 17
  3428.       (1970,315){-3,2}...               % 18
  3429.       (1773,433){-4,1}...               % 19
  3430.       (1635,433){-4,-2}...{-3,-4}          % 20
  3431.       (1320,79)--cycle);               % 21
  3432.  
  3433. n := 6;
  3434. t1 := 0;
  3435. t2 := 1;
  3436. t3 := 5;
  3437. t4 := 8;
  3438. t5 := 10;
  3439. t6 := 14;
  3440.  
  3441. adj_fill.C()                         % fixed x points
  3442.      (2, 6)                         % fixed y points
  3443.      ((1,4), (4,2), (6,3))               % tied points
  3444.      ()                         % verticals
  3445.      ((3,5))                         % horizontals
  3446.      ((3782,2167){-8,-3}...               % 0
  3447.       (3616,2133){-70,0}...               % *1
  3448.       (3507,2167){-1,1}...               % 2
  3449.       (3428,2325){-1,3}...               % 3
  3450.       (3329,2541){-9,10}...               % 4
  3451.       (3152,2620){-1,0}...               % 5
  3452.       (2719,2443){-10,-7}...{-3,-4}          % 6
  3453.       (2443,2199)--                    % 7
  3454.       (2482,2029){2,4}...               % 8
  3455.       (2679,2285){9,8}...               % 9
  3456.       (2935,2384){1,0}...               % 10
  3457.       (3054,2344){5,-4}...               % 11
  3458.       (3152,2128){1,-3}...               % 12
  3459.       (3231,1931){1,-1}...{5,-1}          % 13
  3460.       (3310,1872)--cycle);               % 14
  3461.  
  3462. n := 6;
  3463. t1 := 0;
  3464. t2 := 3;
  3465. t3 := 5;
  3466. t4 := 6;
  3467. t5 := 10;
  3468. t6 := 14;
  3469.  
  3470. adj_fill.D(1, 6)                    % fixed x points
  3471.      ()                         % fixed y points
  3472.      ((3,3), (4,4))                    % tied points
  3473.      ((2,5))                         % verticals
  3474.      ()                         % horizontals
  3475.      ((3704,355){-135,-100}...{-135,-100}     % 0
  3476.       (3172,-39){-55,100}...{-55,100}     % 1
  3477.       (2955,355){0,180}...{0,180}          % 2
  3478.       (2955,1064){0,1}...{1,5}          % 3
  3479.       (3014,1537){2,3}...               % 4
  3480.       (3310,1872){7,6}...{120,75}          % 5
  3481.       (3782,2167)--                    % 6
  3482.       (3782,2108){-4,-2}...{-1,-1}          % 7
  3483.       (3369,1812){-1,-2}...               % 8
  3484.       (3280,1511){-30,-185}...          % *9
  3485.       (3251,1084){0,-1}...               % 10
  3486.       (3290,571){1,-3}...               % 11
  3487.       (3408,355){2,-3}...               % 12
  3488.       (3467,335){7,2}...{2,1}          % 13
  3489.       (3704,433)--cycle);               % 14
  3490.  
  3491. endchar(0);
  3492.  
  3493. "FMUN";
  3494.  
  3495. charbegin( "N",2881h#, capheight*v#, baseline*v#);
  3496.  
  3497. n := 16;
  3498. t1 := 0;
  3499. t2 := 2;
  3500. t3 := 5;
  3501. t4 := 6;
  3502. t5 := 7;
  3503. t6 := 9;
  3504. t7 := 12;
  3505. t8 := 15;
  3506. t9 := 17;
  3507. t10 := 18;
  3508. t11 := 20;
  3509. t12 := 23;
  3510. t13 := 25;
  3511. t14 := 28;
  3512. t15 := 31;
  3513. t16 := 33;
  3514.  
  3515. adj_fill.A(1, 9)                    % fixed x points
  3516.      (10, 16)                    % fixed y points
  3517.      ((4,1), (5,2))                    % tied points
  3518.      ((8,11), (7,12), (3,14), (6,13))     % verticals
  3519.      ((6,13), (2,15))               % horizontals
  3520.      ((374,158){100,-135}...               % 0
  3521.       (690,-20){1,0}...               % 1
  3522.       (827,20){100,65}...               % 2
  3523.       (1340,414){100,85}...               % 3
  3524.       (1399,512){100,195}...               % 4
  3525.       (1556,1359){0,1}...{-50,320}          % 5
  3526.       (1517,1832){-10,55}...{-10,55}          % 6
  3527.       (1478,2049){-75,245}...          % 7
  3528.       (1261,2423){-1,1}...               % 8
  3529.       (808,2600){-1,0}...               % 9
  3530.       (256,2364){-1,-1}...               % 10
  3531.       (67,2118){-65,-120}...               % *11
  3532.       (0,1891){0,-1}...               % 12
  3533.       (41,1750){40,-80}...               % *13
  3534.       (158,1576){140,-170}...          % 14
  3535.       (315,1300){0,-1}...               % 15
  3536.       (256,1162){-1,-1}...{-125,-70}          % 16
  3537.       (99,1044)--                    % 17
  3538.       (158,985){140,85}...               % 18
  3539.       (493,1221){1,1}...               % 19
  3540.       (611,1478){0,1}...               % 20
  3541.       (414,1793){-200,235}...          % 21
  3542.       (297,1959){-40,75}...               % *22
  3543.       (256,2088){0,1}...               % 23
  3544.       (355,2285){1,1}...               % 24
  3545.       (611,2384){1,0}...               % 25
  3546.       (946,2226){1,-1}...               % 26
  3547.       (1193,1758){85,-300}...          % *27
  3548.       (1281,1044){0,-1}...               % 28
  3549.       (1240,609){-40,-175}...          % *29
  3550.       (1123,355){-1,-1}...               % 30
  3551.       (867,217){-1,0}...               % 31
  3552.       (709,276){-1,1}...{-50,225}          % 32
  3553.       (611,453)--cycle);               % 33
  3554.  
  3555. n := 8;
  3556. t1 := 0;
  3557. t2 := 1;
  3558. t3 := 2;
  3559. t4 := 7;
  3560. t5 := 9;
  3561. t6 := 10;
  3562. t7 := 12;
  3563. t8 := 16;
  3564.  
  3565. adj_fill.B()                         % fixed x points
  3566.      (2)                         % fixed y points
  3567.      ((1,4), (5,2), (6,1), (8,3))          % tied points
  3568.      ()                         % verticals
  3569.      ((4,7), (3,8))                    % horizontals
  3570.      ((2935,2088){0,15}...{0,15}          % 0
  3571.       (2935,2147){-100,-50}...          % 1
  3572.       (2778,2108){-1,0}...               % 2
  3573.       (2660,2167){-1,1}...               % 3
  3574.       (2600,2325){-70,210}...          % 4
  3575.       (2502,2522){-1,1}...               % 5
  3576.       (2387,2580){-75,20}...               % *6
  3577.       (2206,2600){-1,0}...               % 7
  3578.       (1682,2332){-8,-10}...{-90,-125}     % 8
  3579.       (1478,2049)--                    % 9
  3580.       (1517,1832){100,225}...          % 10
  3581.       (1773,2246){1,1}...               % 11
  3582.       (2069,2384){1,0}...               % 12
  3583.       (2206,2325){1,-1}...               % 13
  3584.       (2305,2147){50,-170}...          % 14
  3585.       (2403,1891){1,-1}...{1,0}          % 15
  3586.       (2522,1872)--cycle);               % 16
  3587.  
  3588. n := 6;
  3589. t1 := 0;
  3590. t2 := 4;
  3591. t3 := 7;
  3592. t4 := 8;
  3593. t5 := 11;
  3594. t6 := 15;
  3595.  
  3596. adj_fill.C(1, 6)                    % fixed x points
  3597.      ()                         % fixed y points
  3598.      ((3,4), (4,3))                    % tied points
  3599.      ((2,5))                         % verticals
  3600.      ()                         % horizontals
  3601.      ((2955,414){-100,-80}...          % 0
  3602.       (2738,315){-1,0}...               % 1
  3603.       (2679,335){-1,1}...               % 2
  3604.       (2533,624){-50,190}...               % *3
  3605.       (2482,1084){0,1}...               % 4
  3606.       (2541,1734){50,240}...               % 5
  3607.       (2620,1852){100,85}...{80,60}          % 6
  3608.       (2935,2088)--                    % 7
  3609.       (2522,1872){-100,-105}...          % 8
  3610.       (2266,1576){-100,-140}...          % 9
  3611.       (2226,1497){-50,-200}...          % 10
  3612.       (2206,1064){0,-1}...               % 11
  3613.       (2226,473){10,-240}...               % 12
  3614.       (2226,374){100,-180}...{60,-100}     % 13
  3615.       (2463,-20){125,90}...{100,80}          % 14
  3616.       (2955,335)--cycle);               % 15
  3617.  
  3618. endchar(0);
  3619.  
  3620. "FMUO";
  3621.  
  3622. %charbegin( "O",2862h#, programem*v#, baseline );
  3623. charbegin( "O",2862h#, capheight*v#, baseline ); % DEK
  3624.  
  3625. n := 7;
  3626. t1 := 0;
  3627. t2 := 1;
  3628. t3 := 5;
  3629. t4 := 8;
  3630. t5 := 10;
  3631. t6 := 13;
  3632. t7 := 15;
  3633.  
  3634. adj_fill.A(1, 4)                    % fixed x points
  3635.      ()                         % fixed y points
  3636.      ((1,2), (7,1))                    % tied points
  3637.      ((3,5), (2,6))                    % verticals
  3638.      ()                         % horizontals
  3639.      ((276,453){6,2}...               % 0
  3640.       (591,827){0,1}...               % 1
  3641.       (551,984){-40,90}...               % *2
  3642.       (433,1182){-5,7}...               % 3
  3643.       (242,1456){-60,100}...               % *4
  3644.       (197,1576){0,1}...               % 5
  3645.       (329,1929){125,170}...{5,3}          % *6
  3646.       (690,2246)--                    % 7
  3647.       (768,2206){-4,-3}...               % 8
  3648.       (580,2022){-65,-90}...               % *9
  3649.       (512,1852){0,-1}...               % 10
  3650.       (557,1668){45,-110}...               % *11
  3651.       (690,1418){5,-8}...               % 12
  3652.       (867,1024){0,-1}...               % 13
  3653.       (774,767){-90,-140}...{-9,-8}          % *14
  3654.       (512,473)--cycle);               % 15
  3655.  
  3656. n := 13;
  3657. t1 := 0;
  3658. t2 := 1;
  3659. t3 := 4;
  3660. t4 := 6;
  3661. t5 := 10;
  3662. t6 := 13;
  3663. t7 := 14;
  3664. t8 := 15;
  3665. t9 := 16;
  3666. t10 := 18;
  3667. t11 := 21;
  3668. t12 := 25;
  3669. t13 := 28;
  3670.  
  3671. adj_fill.B()                         % fixed x points
  3672.      (7, 8)                         % fixed y points
  3673.      ((1,2), (2,1), (13,3))               % tied points
  3674.      ((6,9), (4,11))                    % verticals
  3675.      ((5,10), (3,12), (1,13))          % horizontals
  3676.      ((276,453){60,5}...               % 0
  3677.       (512,473){1,0}...               % 1
  3678.       (638,446){120,-40}...               % *2
  3679.       (985,315){8,-3}...               % 3
  3680.       (1576,197){1,0}...               % 4
  3681.       (2214,611){4,9}...               % 5
  3682.       (2325,1281){0,1}...               % 6
  3683.       (2263,1765){-60,205}...          % *7
  3684.       (2088,2088){-1,1}...               % 8
  3685.       (1849,2219){-150,45}...          % *9
  3686.       (1497,2266){-1,0}...               % 10
  3687.       (1182,2254){-1,0}...               % 11
  3688.       (973,2303){-75,43}...               % *12
  3689.       (887,2423){0,1}...{3,4}          % 13
  3690.       (1143,2758)--                    % 14
  3691.       (1202,2758){-2,-3}...               % 15
  3692.       (1182,2620){6,-7}...               % 16
  3693.       (1300,2561){8,-2}...               % 17
  3694.       (1773,2510){12,-1}...               % 18
  3695.       (2150,2434){160,-57}...          % *19
  3696.       (2403,2285){1,-1}...               % 20
  3697.       (2660,1537){0,-1}...               % 21
  3698.       (2572,893){-85,-270}...          % *22
  3699.       (2325,473){-9,-8}...               % 23
  3700.       (1792,93){-250,-130}...          % *24
  3701.       (1340,-39){-1,0}...               % 25
  3702.       (749,79){-5,2}...               % 26
  3703.       (552,158){-6,2}...{-1,0}          % 27
  3704.       (355,197)--cycle);               % 28
  3705.  
  3706. n := 2;
  3707. t1 := 1;
  3708. t2 := 2;
  3709.  
  3710. adj_fill.C()                         % fixed x points
  3711.      ()                         % fixed y points
  3712.      ((1,2), (2,3))                    % tied points
  3713.      ()                         % verticals
  3714.      ()                         % horizontals
  3715.      ((-59,59){3,4}...{1,1}               % 0
  3716.       (276,453)--                    % 1
  3717.       (355,197){-1,0}...{-2,-3}          % 2
  3718.       (0,0)--cycle);                    % 3
  3719.  
  3720. endchar(0);
  3721.  
  3722. "FMUP";
  3723.  
  3724. charbegin( "P",2864h#, capheight*v#, descender*v#);
  3725.  
  3726. n := 14;
  3727. t1 := 0;
  3728. t2 := 1;
  3729. t3 := 2;
  3730. t4 := 3;
  3731. t5 := 5;
  3732. t6 := 7;
  3733. t7 := 10;
  3734. t8 := 12;
  3735. t9 := 13;
  3736. t10 := 15;
  3737. t11 := 17;
  3738. t12 := 19;
  3739. t13 := 22;
  3740. t14 := 24;
  3741.  
  3742. adj_fill.A(8)                         % fixed x points
  3743.      (1, 9)                         % fixed y points
  3744.      ((1,5), (2,1), (3,2), (4,3), (14,4))     % tied points
  3745.      ((7,10), (6,11), (3,13))          % verticals
  3746.      ((5,12))                    % horizontals
  3747.      ((1458,-492){-1,8}...               % 0
  3748.       (1418,197){0,1}...               % 1
  3749.       (1418,1852){0,1}...               % 2
  3750.       (1399,2088){-1,5}...               % 3
  3751.       (1202,2482){-1,1}...               % 4
  3752.       (788,2620){-1,0}...               % 5
  3753.       (236,2364){-1,-1}...               % 6
  3754.       (0,1891){0,-1}...               % 7
  3755.       (41,1753){40,-80}...               % *8
  3756.       (158,1576){4,-5}...               % 9
  3757.       (315,1320){0,-1}...               % 10
  3758.       (252,1177){-60,-75}...{-3,-2}          % *11
  3759.       (79,1024)--                    % 12
  3760.       (158,985){2,1}...               % 13
  3761.       (474,1223){110,130}...               % *14
  3762.       (591,1497){0,1}...               % 15
  3763.       (394,1812){-4,5}...               % 16
  3764.       (236,2088){0,1}...               % 17
  3765.       (335,2305){1,1}...               % 18
  3766.       (571,2403){1,0}...               % 19
  3767.       (926,2246){1,-1}...               % 20
  3768.       (1072,1977){50,-170}...          % *21
  3769.       (1123,1576){0,-1}...               % 22
  3770.       (1123,296){0,-1}...{-1,-7}          % 23
  3771.       (1084,-394)--cycle);               % 24
  3772.  
  3773. n := 2;
  3774. t1 := 1;
  3775. t2 := 2;
  3776.  
  3777. adj_fill.B()                         % fixed x points
  3778.      ()                         % fixed y points
  3779.      ((1,4), (2,5))                    % tied points
  3780.      ()                         % verticals
  3781.      ()                         % horizontals
  3782.      ((1024,-709){1,2}...{1,7}          % 0
  3783.       (1084,-394)--                    % 1
  3784.       (1458,-492){-4,-3}...{-90,-65}          % 2
  3785.       (1103,-749)--cycle);               % 3
  3786.  
  3787. n := 8;
  3788. t1 := 0;
  3789. t2 := 2;
  3790. t3 := 4;
  3791. t4 := 6;
  3792. t5 := 7;
  3793. t6 := 9;
  3794. t7 := 11;
  3795. t8 := 13;
  3796.  
  3797. adj_fill.C(1)                         % fixed x points
  3798.      ()                         % fixed y points
  3799.      ((1,7), (4,3), (5,2), (8,6))          % tied points
  3800.      ((2,7))                         % verticals
  3801.      ((3,6), (1,8))                    % horizontals
  3802.      ((2857,2049){-3,-1}...               % 0
  3803.       (2600,2069){-1,1}...               % 1
  3804.       (2561,2206){-1,8}...               % 2
  3805.       (2463,2541){-1,1}...               % 3
  3806.       (2266,2620){-1,0}...               % 4
  3807.       (1615,2325){-7,-6}...{-3,-4}          % 5
  3808.       (1399,2088)--                    % 6
  3809.       (1418,1852){2,4}...               % 7
  3810.       (1773,2305){4,3}...               % 8
  3811.       (2009,2403){1,0}...               % 9
  3812.       (2187,2344){1,-1}...               % 10
  3813.       (2246,2108){1,-16}...               % 11
  3814.       (2305,1872){1,-1}...{5,-1}          % 12
  3815.       (2443,1773)--cycle);               % 13
  3816.  
  3817. n := 13;
  3818. t1 := 0;
  3819. t2 := 2;
  3820. t3 := 5;
  3821. t4 := 7;
  3822. t5 := 10;
  3823. t6 := 12;
  3824. t7 := 13;
  3825. t8 := 17;
  3826. t9 := 19;
  3827. t10 := 21;
  3828. t11 := 23;
  3829. t12 := 24;
  3830. t13 := 26;
  3831.  
  3832. adj_fill.D(1)                         % fixed x points
  3833.      (13)                         % fixed y points
  3834.      ((6,6), (7,7), (11,1))               % tied points
  3835.      ((5,8), (4,9))                    % verticals
  3836.      ((3,10), (2,12))               % horizontals
  3837.      ((335,79){1,2}...               % 0
  3838.       (591,473){1,1}...               % 1
  3839.       (946,630){1,0}...               % 2
  3840.       (1418,512){3,-1}...               % 3
  3841.       (1957,335){190,-55}...               % *4
  3842.       (2167,296){1,0}...               % 5
  3843.       (2403,394){1,1}...               % 6
  3844.       (2482,591){0,1}...               % 7
  3845.       (2437,763){-45,100}...               % *8
  3846.       (2305,985){-5,7}...               % 9
  3847.       (2128,1340){0,1}...               % 10
  3848.       (2210,1539){80,110}...               % *11
  3849.       (2443,1773){5,4}...{105,70}          % 12
  3850.       (2857,2049)--                    % 13
  3851.       (2876,1990){-4,-2}...               % 14
  3852.       (2561,1773){-1,-1}...               % 15
  3853.       (2444,1636){-40,-60}...          % *16
  3854.       (2403,1537){0,-1}...               % 17
  3855.       (2541,1221){2,-3}...               % 18
  3856.       (2679,847){0,-1}...               % 19
  3857.       (2364,197){-6,-5}...               % 20
  3858.       (1970,20){-1,0}...               % 21
  3859.       (1853,42){-140,45}...               % *22
  3860.       (1418,197){-6,2}...               % 23
  3861.       (827,355){-1,0}...               % 24
  3862.       (571,236){-1,-1}...{-3,-4}          % 25
  3863.       (374,0)--cycle);               % 26
  3864.  
  3865. endchar(0);
  3866.  
  3867. "FMUQ";
  3868.  
  3869. %charbegin( "Q",2862h#, programem*v#, descender*v#);
  3870. charbegin( "Q",2862h#, capheight*v#, 1/5descender*v#); % DEK
  3871.  
  3872. n := 7;
  3873. t1 := 0;
  3874. t2 := 1;
  3875. t3 := 5;
  3876. t4 := 8;
  3877. t5 := 10;
  3878. t6 := 13;
  3879. t7 := 15;
  3880.  
  3881. adj_fill.A(1, 4)                    % fixed x points
  3882.      ()                         % fixed y points
  3883.      ((1,2), (7,1))                    % tied points
  3884.      ((3,5), (2,6))                    % verticals
  3885.      ()                         % horizontals
  3886.      ((276,453){6,2}...               % 0
  3887.       (591,827){0,1}...               % 1
  3888.       (551,984){-40,90}...               % *2
  3889.       (433,1182){-5,7}...               % 3
  3890.       (242,1456){-60,100}...               % *4
  3891.       (197,1576){0,1}...               % 5
  3892.       (329,1929){125,170}...{5,3}          % *6
  3893.       (690,2246)--                    % 7
  3894.       (768,2206){-4,-3}...               % 8
  3895.       (580,2022){-65,-90}...               % *9
  3896.       (512,1852){0,-1}...               % 10
  3897.       (557,1668){45,-110}...               % *11
  3898.       (690,1418){5,-8}...               % 12
  3899.       (867,1024){0,-1}...               % 13
  3900.       (774,767){-90,-140}...{-9,-8}          % *14
  3901.       (512,473)--cycle);               % 15
  3902.  
  3903. n := 13;
  3904. t1 := 0;
  3905. t2 := 1;
  3906. t3 := 4;
  3907. t4 := 6;
  3908. t5 := 10;
  3909. t6 := 13;
  3910. t7 := 15;
  3911. t8 := 16;
  3912. t9 := 17;
  3913. t10 := 19;
  3914. t11 := 22;
  3915. t12 := 25;
  3916. t13 := 28;
  3917.  
  3918. adj_fill.B()                         % fixed x points
  3919.      (7, 8)                         % fixed y points
  3920.      ((1,2), (2,1), (13,3))               % tied points
  3921.      ((6,9), (4,11))                    % verticals
  3922.      ((5,10), (3,12), (2,13))          % horizontals
  3923.      ((276,453){60,5}...               % 0
  3924.       (512,473){1,0}...               % 1
  3925.       (638,446){120,-40}...               % *2
  3926.       (985,315){8,-3}...               % 3
  3927.       (1576,197){1,0}...               % 4
  3928.       (2214,611){4,9}...               % 5
  3929.       (2325,1281){0,1}...               % 6
  3930.       (2263,1765){-60,205}...          % *7
  3931.       (2088,2088){-1,1}...               % 8
  3932.       (1849,2219){-150,45}...          % *9
  3933.       (1497,2266){-1,0}...               % 10
  3934.       (1182,2254){-1,0}...               % 11
  3935.       (973,2303){-75,43}...               % *12
  3936.       (887,2423){0,1}...               % 13
  3937.       (924,2508){65,85}...{5,6}          % *14
  3938.       (1143,2758)--                    % 15
  3939.       (1202,2758){-2,-3}...               % 16
  3940.       (1182,2620){6,-7}...               % 17
  3941.       (1300,2561){8,-2}...               % 18
  3942.       (1773,2510){12,-1}...               % 19
  3943.       (2150,2434){160,-57}...          % *20
  3944.       (2403,2285){1,-1}...               % 21
  3945.       (2660,1537){0,-1}...{-2,-3}          % 22
  3946.       (2325,473){-9,-8}...               % 23
  3947.       (1792,93){-250,-130}...          % *24
  3948.       (1340,-39){-1,0}...               % 25
  3949.       (749,79){-5,2}...               % 26
  3950.       (552,158){-6,2}...{-1,0}          % 27
  3951.       (355,197)--cycle);               % 28
  3952.  
  3953. n := 2;
  3954. t1 := 1;
  3955. t2 := 2;
  3956.  
  3957. adj_fill.C()                         % fixed x points
  3958.      ()                         % fixed y points
  3959.      ((1,2), (2,3))                    % tied points
  3960.      ()                         % verticals
  3961.      ()                         % horizontals
  3962.      ((-59,59){3,4}...{1,1}               % 0
  3963.       (276,453)--                    % 1
  3964.       (355,197){-1,0}...{-2,-3}          % 2
  3965.       (0,0)--cycle);                    % 3
  3966.  
  3967. n := 0;
  3968.  
  3969. adj_fill.D()                         % fixed x points
  3970.      ()                         % fixed y points
  3971.      ()                         % tied points
  3972.      ()                         % verticals
  3973.      ()                         % horizontals
  3974.      ((2797,138){-3,-2}...               % 0
  3975.       (2522,39){-1,0}...               % 1
  3976.       (2343,112){-100,70}...{-6,7}          % *2
  3977.       (2128,315)--                    % 3
  3978.       (1773,118){8,-8}...               % 4
  3979.       (2010,-49){150,-80}...{9,-3}          % *5
  3980.       (2364,-197){7,4}...{6,4}          % 6
  3981.       (2797,39)--cycle);               % 7
  3982.  
  3983. endchar(0);
  3984.  
  3985. "FMUR";
  3986.  
  3987. charbegin( "R",2866h#, capheight*v#, baseline*v#);
  3988. n := 14;
  3989. t1 := 0;
  3990. t2 := 1;
  3991. t3 := 5;
  3992. t4 := 7;
  3993. t5 := 9;
  3994. t6 := 11;
  3995. t7 := 12;
  3996. t8 := 13;
  3997. t9 := 15;
  3998. t10 := 19;
  3999. t11 := 21;
  4000. t12 := 24;
  4001. t13 := 29;
  4002. t14 := 31;
  4003.  
  4004. adj_fill.A(7, 14)                    % fixed x points
  4005.      (1, 8)                         % fixed y points
  4006.      ((12,1))                    % tied points
  4007.      ((6,9), (5,10), (3,12))               % verticals
  4008.      ((4,11), (2,13))               % horizontals
  4009.      ((59,0){3,4}...                    % 0
  4010.       (335,158){1,0}...{1,-1}          % 1
  4011.       (611,-39){155,130}...{5,4}          % 2
  4012.       (1221,473){2,3}...               % 3
  4013.       (1441,1012){75,320}...               % *4
  4014.       (1517,1734){0,1}...               % 5
  4015.       (1281,2403){-1,1}...               % 6
  4016.       (827,2600){-1,0}...               % 7
  4017.       (225,2332){-1,-1}...               % 8
  4018.       (0,1872){0,-1}...               % 9
  4019.       (158,1576){3,-4}...               % 10
  4020.       (315,1320){0,-1}...{-7,-4}          % 11
  4021.       (99,1024)--                    % 12
  4022.       (177,965){5,3}...               % 13
  4023.       (480,1212){105,125}...               % *14
  4024.       (591,1458){0,1}...               % 15
  4025.       (545,1595){-45,80}...               % *16
  4026.       (414,1773){-8,9}...               % 17
  4027.       (282,1951){-45,80}...               % *18
  4028.       (236,2088){0,1}...               % 19
  4029.       (339,2293){1,1}...               % 20
  4030.       (591,2384){1,0}...               % 21
  4031.       (965,2206){1,-1}...               % 22
  4032.       (1140,1888){60,-200}...          % *23
  4033.       (1202,1418){0,-1}...               % 24
  4034.       (1172,903){-30,-215}...          % *25
  4035.       (1084,571){-3,-6}...{-5,-3}          % 26
  4036.       (768,236){-7,8}...               % 27
  4037.       (605,398){-70,55}...               % *28
  4038.       (493,453){-1,0}...               % 29
  4039.       (270,349){-125,-100}...{-3,-4}          % *30
  4040.       (0,59)--cycle);               % 31
  4041.  
  4042. n := 6;
  4043. t1 := 0;
  4044. t2 := 6;
  4045. t3 := 8;
  4046. t4 := 9;
  4047. t5 := 11;
  4048. t6 := 15;
  4049.  
  4050. adj_fill.B()                         % fixed x points
  4051.      (4)                         % fixed y points
  4052.      ((1,5), (3,2), (4,3), (6,4))          % tied points
  4053.      ()                         % verticals
  4054.      ((2,5), (1,6))                    % horizontals
  4055.      ((2837,1970){-10,-2}...               % 0
  4056.       (2664,1961){-70,10}...               % *1
  4057.       (2561,2009){-3,4}...               % 2
  4058.       (2542,2063){-10,60}...               % *3
  4059.       (2522,2246){-1,8}...               % 4
  4060.       (2443,2502){-5,6}...               % 5
  4061.       (2226,2600){-1,0}...               % 6
  4062.       (1655,2325){-1,-1}...{-5,-6}          % 7
  4063.       (1478,2128)--                    % 8
  4064.       (1517,1891){2,4}...               % 9
  4065.       (1753,2266){1,1}...               % 10
  4066.       (1990,2384){1,0}...               % 11
  4067.       (2147,2285){1,-2}...               % 12
  4068.       (2206,2088){1,-7}...               % 13
  4069.       (2266,1832){1,-1}...{9,-1}          % 14
  4070.       (2403,1773)--cycle);               % 15
  4071.  
  4072. n := 7;
  4073. t1 := 0;
  4074. t2 := 1;
  4075. t3 := 2;
  4076. t4 := 3;
  4077. t5 := 4;
  4078. t6 := 5;
  4079. t7 := 9;
  4080.  
  4081. adj_fill.C(5, 6)                    % fixed x points
  4082.      ()                         % fixed y points
  4083.      ((1,11), (3,6), (4,7), (5,8), (6,9), (7,10))% tied points
  4084.      ((2,7))                         % verticals
  4085.      ()                         % horizontals
  4086.      ((2541,630){-2,6}...{-1,24}          % 0
  4087.       (2482,1359){-7,6}...               % 1
  4088.       (2147,1497){-1,0}...               % 2
  4089.       (1852,1497){-1.932,-.3624}...{-90,-35}     % 3
  4090.       (1497,1359)--                    % 4
  4091.       (1497,1261){4,1}...               % 5
  4092.       (1832,1320){1,0}...               % 6
  4093.       (2128,1221){1,-1}...               % 7
  4094.       (2206,1103){1,-5}...{-1,-21}          % 8
  4095.       (2226,394)--cycle);               % 9
  4096.  
  4097. n := 4;
  4098. t1 := 0;
  4099. t2 := 1;
  4100. t3 := 2;
  4101. t4 := 5;
  4102.  
  4103. adj_fill.D()                         % fixed x points
  4104.      ()                         % fixed y points
  4105.      ((1,7), (2,4), (3,5), (4,6))          % tied points
  4106.      ()                         % verticals
  4107.      ()                         % horizontals
  4108.      ((1852,1497){2,1}...               % 0
  4109.       (2403,1773){5,3}...{110,50}          % 1
  4110.       (2837,1970)--                    % 2
  4111.       (2876,1911){-8,-3}...               % 3
  4112.       (2561,1773){-7,-4}...{-5,-4}          % 4
  4113.       (2147,1497)--cycle);               % 5
  4114.  
  4115. n := 4;
  4116. t1 := 0;
  4117. t2 := 1;
  4118. t3 := 2;
  4119. t4 := 3;
  4120.  
  4121. adj_fill.E()                         % fixed x points
  4122.      ()                         % fixed y points
  4123.      ((1,2), (2,1), (3,1), (4,3))          % tied points
  4124.      ()                         % verticals
  4125.      ()                         % horizontals
  4126.      ((1478,2128){-70,-180}...{-70,-180}     % 0
  4127.       (1202,1418)--                    % 1
  4128.       (1202,1418){80,120}...{80,120}          % 2
  4129.       (1517,1891)--cycle);               % 3
  4130.  
  4131. n := 4;
  4132. t1 := 0;
  4133. t2 := 1;
  4134. t3 := 2;
  4135. t4 := 3;
  4136.  
  4137. adj_fill.F()                         % fixed x points
  4138.      ()                         % fixed y points
  4139.      ((1,8), (2,1), (3,1), (4,9))          % tied points
  4140.      ()                         % verticals
  4141.      ()                         % horizontals
  4142.      ((1497,1359){-75,15}...{-75,15}          % 0
  4143.       (1202,1418)--                    % 1
  4144.       (1202,1418){75,-40}...{75,-40}          % 2
  4145.       (1497,1261)--cycle);               % 3
  4146.  
  4147. n := 4;
  4148. t1 := 0;
  4149. t2 := 1;
  4150. t3 := 2;
  4151. t4 := 4;
  4152.  
  4153. adj_fill.G()                         % fixed x points
  4154.      ()                         % fixed y points
  4155.      ((1,13), (2,10), (3,11), (4,12))     % tied points
  4156.      ()                         % verticals
  4157.      ()                         % horizontals
  4158.      ((2463,-39){-60,110}...{-60,110}     % 0
  4159.       (2226,394)--                    % 1
  4160.       (2541,630){2,-6}...               % 2
  4161.       (2643,397){50,-80}...{1,0}          % *3
  4162.       (2738,315)--cycle);               % 4
  4163.  
  4164. n := 2;
  4165. t1 := 1;
  4166. t2 := 2;
  4167.  
  4168. adj_fill.H()                         % fixed x points
  4169.      ()                         % fixed y points
  4170.      ((1,13), (2,12))               % tied points
  4171.      ()                         % verticals
  4172.      ()                         % horizontals
  4173.      ((2955,335){-125,-95}...{-125,-95}     % 0
  4174.       (2463,-39)--                    % 1
  4175.       (2738,315){1,0}...{5,2}          % 2
  4176.       (2955,394)--cycle);               % 3
  4177.  
  4178. endchar(0);
  4179.  
  4180. "FMUS";
  4181.  
  4182. charbegin( "S",2868h#, capheight*v#, baseline*v#);
  4183. n := 16;
  4184. t1 := 0;
  4185. t2 := 2;
  4186. t3 := 4;
  4187. t4 := 6;
  4188. t5 := 8;
  4189. t6 := 10;
  4190. t7 := 12;
  4191. t8 := 14;
  4192. t9 := 15;
  4193. t10 := 17;
  4194. t11 := 19;
  4195. t12 := 21;
  4196. t13 := 23;
  4197. t14 := 25;
  4198. t15 := 27;
  4199. t16 := 29;
  4200.  
  4201. adj_fill.A(1, 8)                    % fixed x points
  4202.      (9)                         % fixed y points
  4203.      ((1,2), (16,1))                    % tied points
  4204.      ((7,10), (4,13), (2,15))          % verticals
  4205.      ((5,12), (6,11), (3,14), (1,16))     % horizontals
  4206.      ((1458,2620){-200,-40}...          % 0
  4207.       (532,2167){-1,-1}...               % 1
  4208.       (142,1202){0,-1}...               % 2
  4209.       (504,236){1,-1}...               % 3
  4210.       (1281,-39){1,0}...               % 4
  4211.       (2384,355){1,1}...               % 5
  4212.       (2679,1084){0,1}...               % 6
  4213.       (2561,1418){-1,1}...               % 7
  4214.       (2167,1576){-1,0}...               % 8
  4215.       (1694,1497){-200,-45}...          % 9
  4216.       (1261,1418){-1,0}...               % 10
  4217.       (1084,1478){-1,1}...               % 11
  4218.       (1024,1635){0,1}...               % 12
  4219.       (1084,1812){1,1}...{200,55}          % 13
  4220.       (1202,1891)--                    % 14
  4221.       (1154,1938){-200,-55}...          % 15
  4222.       (867,1773){-1,-1}...               % 16
  4223.       (749,1497){0,-1}...               % 17
  4224.       (847,1281){1,-1}...               % 18
  4225.       (1103,1202){1,0}...               % 19
  4226.       (1537,1261){200,40}...               % 20
  4227.       (1950,1320){1,0}...               % 21
  4228.       (2266,1202){1,-1}...               % 22
  4229.       (2403,835){0,-1}...               % 23
  4230.       (2226,374){-1,-1}...               % 24
  4231.       (1576,158){-1,0}...               % 25
  4232.       (788,473){-1,1}...               % 26
  4233.       (414,1458){0,1}...               % 27
  4234.       (670,2147){1,1}...{1,0}          % 28
  4235.       (1143,2384)--cycle);               % 29
  4236.  
  4237. n := 4;
  4238. t1 := 0;
  4239. t2 := 2;
  4240. t3 := 3;
  4241. t4 := 6;
  4242.  
  4243. adj_fill.B()                         % fixed x points
  4244.      ()                         % fixed y points
  4245.      ((1,4), (2,2), (3,1), (4,3))          % tied points
  4246.      ()                         % verticals
  4247.      ((1,4))                         % horizontals
  4248.      ((2325,2246){-1,0}...               % 0
  4249.       (2050,2322){-220,95}...{-200,105}     % *1
  4250.       (1458,2620)--                    % 2
  4251.       (1143,2384){1,0}...               % 3
  4252.       (1354,2329){135,-55}...          % *4
  4253.       (1675,2167){200,-115}...{200,-20}     % 5
  4254.       (2147,1950)--cycle);               % 6
  4255.  
  4256. n := 2;
  4257. t1 := 2;
  4258. t2 := 3;
  4259.  
  4260. adj_fill.C()                         % fixed x points
  4261.      ()                         % fixed y points
  4262.      ((1,4), (2,3))                    % tied points
  4263.      ()                         % verticals
  4264.      ()                         % horizontals
  4265.      ((2648,2529){-120,-425}...          % 0
  4266.       (2541,2325){-1,-1}...{-1,0}          % 1
  4267.       (2325,2246)--                    % 2
  4268.       (2147,1950){220,85}...               % 3
  4269.       (2522,2167){1,1}...{100,375}          % 4
  4270.       (2699,2482)--cycle);               % 5
  4271.  
  4272. endchar(0);
  4273.  
  4274. "FMUT";
  4275.  
  4276. charbegin( "T",2277h#, capheight*v#, baseline*v#);
  4277.  
  4278. n := 12;
  4279. t1 := 0;
  4280. t2 := 1;
  4281. t3 := 3;
  4282. t4 := 5;
  4283. t5 := 6;
  4284. t6 := 7;
  4285. t7 := 8;
  4286. t8 := 10;
  4287. t9 := 11;
  4288. t10 := 12;
  4289. t11 := 12.9;
  4290. t12 := 15;
  4291.  
  4292. adj_fill.A(1, 6, 12)                    % fixed x points
  4293.      (1, 5)                         % fixed y points
  4294.      ((9,1), (10,2))                    % tied points
  4295.      ((4,7))                         % verticals
  4296.      ((3,8), (2,11))                    % horizontals
  4297.      ((2403,2660){-200,-220}...          % 0
  4298.       (2009,2463){-1,0}...               % 1
  4299.       (1576,2522){-200,40}...          % 2
  4300.       (946,2600){-1,0}...               % 3
  4301.       (276,2344){-1,-1}...               % 4
  4302.       (20,1812){0,-1}...{200,-155}          % 5
  4303.       (177,1418)--                    % 6
  4304.       (414,1655){-200,80}...               % 7
  4305.       (177,1970){0,1}...               % 8
  4306.       (276,2206){1,1}...               % 9
  4307.       (729,2364){1,0}...{200,-70}          % 10
  4308.       (1320,2266){40,-10}...{40,-10}          % 11
  4309.       (1478,2226){200,-35}...          % 12
  4310.       (1889,2189){170,5}...{200,120}          % *13
  4311.       (2147,2246){65,85}...{65,85}          % 14
  4312.       (2403,2581)--cycle);               % 15
  4313.  
  4314. n := 8;
  4315. t1 := 0;
  4316. t2 := 2;
  4317. t3 := 5;
  4318. t4 := 7;
  4319. t5 := 8;
  4320. t6 := 10;
  4321. t7 := 14;
  4322. t8 := 16;
  4323.  
  4324. adj_fill.B(1)                         % fixed x points
  4325.      ()                         % fixed y points
  4326.      ((1,4), (4,1), (5,2), (8,3))          % tied points
  4327.      ((3,6), (2,7))                    % verticals
  4328.      ()                         % horizontals
  4329.      ((1044,473){200,125}...               % 0
  4330.       (1246,648){70,90}...               % *1
  4331.       (1320,827){0,1}...               % 2
  4332.       (1274,963){-45,80}...               % *3
  4333.       (1143,1143){-200,230}...{-35,200}     % 4
  4334.       (867,1556){45,200}...               % 5
  4335.       (1019,1899){115,180}...{1,1}          % *6
  4336.       (1320,2266)--                    % 7
  4337.       (1478,2226){-200,-135}...          % 8
  4338.       (1232,2000){-85,-115}...          % *9
  4339.       (1143,1773){0,-1}...               % 10
  4340.       (1183,1641){40,-75}...               % *11
  4341.       (1300,1478){200,-230}...          % 12
  4342.       (1505,1202){70,-120}...          % *13
  4343.       (1576,1005){0,-1}...               % 14
  4344.       (1468,760){-105,-145}...{-200,-180}     % *15
  4345.       (1162,433)--cycle);               % 16
  4346.  
  4347. n := 8;
  4348. t1 := 2;
  4349. t2 := 4;
  4350. t3 := 6;
  4351. t4 := 8;
  4352. t5 := 9;
  4353. t6 := 10;
  4354. t7 := 11;
  4355. t8 := 13;
  4356.  
  4357. adj_fill.C()                         % fixed x points
  4358.      (3, 8)                         % fixed y points
  4359.      ((5,4), (6,3))                    % tied points
  4360.      ()                         % verticals
  4361.      ((2,4), (1,7))                    % horizontals
  4362.      ((2187,493){-200,-230}...          % 0
  4363.       (1857,162){-160,-135}...{-200,-95}     % *1
  4364.       (1556,-39){-200,25}...               % 2
  4365.       (1103,138){-200,110}...          % 3
  4366.       (768,236){-1,0}...               % 4
  4367.       (568,181){-115,-55}...{-200,-155}     % *5
  4368.       (315,20)--                    % 6
  4369.       (276,79){200,210}...{200,165}          % 7
  4370.       (729,493){200,15}...{200,-55}          % 8
  4371.       (1044,473){30,-10}...{30,-10}          % 9
  4372.       (1162,433){200,-90}...               % 10
  4373.       (1655,276){1,0}...               % 11
  4374.       (1883,347){125,70}...{200,195}          % *12
  4375.       (2147,552)--cycle);               % 13
  4376.  
  4377. endchar(0);
  4378.  
  4379. "FMUU";
  4380.  
  4381. charbegin( "U",2191h#, capheight*v#, baseline*v#);
  4382.  
  4383. n := 7;
  4384. t1 := 0;
  4385. t2 := 2;
  4386. t3 := 5;
  4387. t4 := 9;
  4388. t5 := 11;
  4389. t6 := 14;
  4390. t7 := 16;
  4391.  
  4392. adj_fill.A(1, 4)                    % fixed x points
  4393.      ()                         % fixed y points
  4394.      ((1,2), (7,1))                    % tied points
  4395.      ((3,5), (2,6))                    % verticals
  4396.      ()                         % horizontals
  4397.      ((99,433){9,1}...               % 0
  4398.       (355,611){1,1}...               % 1
  4399.       (493,985){0,1}...               % 2
  4400.       (447,1185){-45,120}...               % *3
  4401.       (315,1458){-4,7}...               % 4
  4402.       (118,1931){0,1}...               % 5
  4403.       (195,2139){75,120}...               % *6
  4404.       (414,2403){1,1}...{5,3}          % 7
  4405.       (709,2640)--                    % 8
  4406.       (749,2581){-4,-3}...               % 9
  4407.       (591,2443){-1,-1}...               % 10
  4408.       (433,2108){0,-1}...               % 11
  4409.       (571,1714){1,-2}...               % 12
  4410.       (704,1394){45,-145}...               % *13
  4411.       (749,1143){0,-1}...{-1,-2}          % 14
  4412.       (690,867){-90,-105}...{-90,-105}     % 15
  4413.       (335,453)--cycle);               % 16
  4414.  
  4415. n := 6;
  4416. t1 := 2;
  4417. t2 := 3;
  4418. t3 := 4;
  4419. t4 := 7;
  4420. t5 := 9;
  4421. t6 := 14;
  4422.  
  4423. adj_fill.B(2, 4, 6)                    % fixed x points
  4424.      ()                         % fixed y points
  4425.      ((1,4), (2,3))                    % tied points
  4426.      ((3,5))                         % verticals
  4427.      ()                         % horizontals
  4428.      ((2364,355){-135,-100}...{-135,-100}     % 0
  4429.       (1832,-39){-60,130}...{-60,130}     % 1
  4430.       (1596,473){-5,50}...{-5,50}          % 2
  4431.       (1576,670){2,6}...               % 3
  4432.       (1596,985){0,1}...{-1,13}          % 4
  4433.       (1556,2266){120,85}...{120,85}          % 5
  4434.       (2029,2600)--                    % 6
  4435.       (2088,2561){-1,-1}...               % 7
  4436.       (1931,2325){-1,-3}...               % 8
  4437.       (1872,1773){0,-1}...               % 9
  4438.       (1872,1024){0,-1}...               % 10
  4439.       (1891,788){1,-5}...               % 11
  4440.       (2049,394){6,-7}...               % 12
  4441.       (2167,355){7,1}...{5,3}          % 13
  4442.       (2364,433)--cycle);               % 14
  4443.  
  4444. n := 8;
  4445. t1 := 1;
  4446. t2 := 2;
  4447. t3 := 4;
  4448. t4 := 6;
  4449. t5 := 7;
  4450. t6 := 9;
  4451. t7 := 11;
  4452. t8 := 13;
  4453.  
  4454. adj_fill.C()                         % fixed x points
  4455.      (8)                         % fixed y points
  4456.      ((1,2), (2,1), (4,3), (5,4))          % tied points
  4457.      ()                         % verticals
  4458.      ((3,6), (1,7))                    % horizontals
  4459.      ((-197,99){75,85}...{75,85}          % 0
  4460.       (99,433){9,1}...               % 1
  4461.       (335,453){1,0}...               % 2
  4462.       (690,355){5,-2}...               % 3
  4463.       (1064,236){1,0}...               % 4
  4464.       (1359,394){1,1}...{2,6}          % 5
  4465.       (1576,670)--                    % 6
  4466.       (1596,473){-110,-110}...{-110,-110}     % 7
  4467.       (1162,39){-5,-4}...               % 8
  4468.       (946,-39){-1,0}...               % 9
  4469.       (473,79){-5,2}...               % 10
  4470.       (39,197){-1,0}...               % 11
  4471.       (-46,156){-50,-40}...{-4,-5}          % *12
  4472.       (-158,39)--cycle);               % 13
  4473.  
  4474. endchar(0);
  4475.  
  4476. "FMUV";
  4477.  
  4478. charbegin( "V",2878h#, capheight*v#, baseline*v#);
  4479.  
  4480. n := 12;
  4481. t1 := 0;
  4482. t2 := 2;
  4483. t3 := 4;
  4484. t4 := 7;
  4485. t5 := 10;
  4486. t6 := 12;
  4487. t7 := 13;
  4488. t8 := 15;
  4489. t9 := 19;
  4490. t10 := 21;
  4491. t11 := 24;
  4492. t12 := 27;
  4493.  
  4494. adj_fill.A(6, 12)                    % fixed x points
  4495.      (1, 7, 12)                    % fixed y points
  4496.      ((1,3), (2,1), (12,2))               % tied points
  4497.      ((5,8), (4,9), (2,11))               % verticals
  4498.      ((3,10))                    % horizontals
  4499.      ((985,611){80,70}...{80,70}          % 0
  4500.       (1300,887){1,2}...               % 1
  4501.       (1517,1852){0,1}...               % 2
  4502.       (1300,2443){-1,1}...               % 3
  4503.       (847,2600){-1,0}...               % 4
  4504.       (256,2364){-1,-1}...               % 5
  4505.       (67,2118){-65,-120}...               % *6
  4506.       (0,1891){0,-1}...               % 7
  4507.       (51,1752){50,-85}...               % *8
  4508.       (197,1556){7,-8}...               % 9
  4509.       (335,1320){0,-1}...               % 10
  4510.       (271,1179){-60,-70}...{-9,-5}          % *11
  4511.       (99,1044)--                    % 12
  4512.       (158,985){9,5}...               % 13
  4513.       (489,1234){115,125}...               % *14
  4514.       (611,1478){0,1}...               % 15
  4515.       (570,1610){-40,75}...               % *16
  4516.       (453,1773){-7,8}...               % 17
  4517.       (307,1973){-50,90}...               % *18
  4518.       (256,2128){0,1}...               % 19
  4519.       (335,2285){1,1}...               % 20
  4520.       (591,2384){1,0}...               % 21
  4521.       (1005,2206){1,-1}...               % 22
  4522.       (1151,1948){50,-160}...          % *23
  4523.       (1202,1576){0,-1}...               % 24
  4524.       (1172,1135){-30,-180}...          % *25
  4525.       (1084,867){-2,-3}...{-1,0}          % 26
  4526.       (670,630)--cycle);               % 27
  4527.  
  4528. n := 5;
  4529. t1 := 0;
  4530. t2 := 3;
  4531. t3 := 7;
  4532. t4 := 10;
  4533. t5 := 12;
  4534.  
  4535. adj_fill.B()                         % fixed x points
  4536.      (5)                         % fixed y points
  4537.      ((1,5), (3,1), (5,4))               % tied points
  4538.      ()                         % verticals
  4539.      ((2,4))                         % horizontals
  4540.      ((2955,2364){-2,-1}...               % 0
  4541.       (2776,2354){-100,25}...          % *1
  4542.       (2561,2463){-4,3}...               % 2
  4543.       (2206,2600){-1,0}...               % 3
  4544.       (1964,2518){-135,-80}...          % *4
  4545.       (1675,2285){-1,-1}...{-5,-6}          % 5
  4546.       (1478,2088)--                    % 6
  4547.       (1517,1852){4,9}...               % 7
  4548.       (1753,2206){1,1}...               % 8
  4549.       (1881,2308){60,35}...               % *9
  4550.       (1990,2344){1,0}...               % 10
  4551.       (2325,2206){3,-2}...{1,0}          % 11
  4552.       (2620,2088)--cycle);               % 12
  4553.  
  4554. n := 12;
  4555. t1 := 1;
  4556. t2 := 2;
  4557. t3 := 6;
  4558. t4 := 9;
  4559. t5 := 11;
  4560. t6 := 13;
  4561. t7 := 14;
  4562. t8 := 17;
  4563. t9 := 19;
  4564. t10 := 23;
  4565. t11 := 27;
  4566. t12 := 28;
  4567.  
  4568. adj_fill.C()                         % fixed x points
  4569.      (12)                         % fixed y points
  4570.      ((1,2), (2,3), (6,4), (7,5))          % tied points
  4571.      ((5,8), (4,9))                    % verticals
  4572.      ((3,10), (1,11))               % horizontals
  4573.      ((197,217){7,8}...{8,5}               % 0
  4574.       (670,630){1,0}...               % 1
  4575.       (985,611){1,0}...               % 2
  4576.       (1123,569){115,-55}...               % *3
  4577.       (1438,394){7,-4}...               % 4
  4578.       (1760,232){135,-55}...               % *5
  4579.       (1970,177){1,0}...               % 6
  4580.       (2226,276){1,1}...               % 7
  4581.       (2314,476){30,140}...               % *8
  4582.       (2344,827){0,1}...               % 9
  4583.       (2325,1143){-1,12}...               % 10
  4584.       (2305,1517){0,1}...{3,10}          % 11
  4585.       (2344,1773){70,80}...{70,80}          % 12
  4586.       (2620,2088){85,70}...{85,70}          % 13
  4587.       (2955,2364)--                    % 14
  4588.       (2955,2305){-3,-2}...               % 15
  4589.       (2797,2167){-1,-1}...               % 16
  4590.       (2581,1675){0,-1}...               % 17
  4591.       (2620,1300){1,-6}...               % 18
  4592.       (2679,867){0,-1}...               % 19
  4593.       (2600,532){-1,-2}...               % 20
  4594.       (2443,315){-4,-3}...               % 21
  4595.       (2009,0){-4,-3}...               % 22
  4596.       (1812,-39){-1,0}...               % 23
  4597.       (1570,11){-140,50}...               % *24
  4598.       (1261,158){-7,4}...               % 25
  4599.       (912,334){-145,60}...               % *26
  4600.       (690,394){-1,0}...{-7,-8}          % 27
  4601.       (236,158)--cycle);               % 28
  4602.  
  4603. endchar(0);
  4604.  
  4605. "FMUW";
  4606.  
  4607. charbegin( "W",3673h#, capheight*v#, baseline*v#);
  4608.  
  4609. n := 14;
  4610. t1 := 0;
  4611. t2 := 3;
  4612. t3 := 4;
  4613. t4 := 6;
  4614. t5 := 8;
  4615. t6 := 11;
  4616. t7 := 13;
  4617. t8 := 14;
  4618. t9 := 16;
  4619. t10 := 20;
  4620. t11 := 22;
  4621. t12 := 25;
  4622. t13 := 27.97;
  4623. t14 := 28;
  4624.  
  4625. adj_fill.A(7, 14)                    % fixed x points
  4626.      (1, 8, 13)                    % fixed y points
  4627.      ((1,4), (2,1), (3,2), (14,3))          % tied points
  4628.      ((6,9), (5,10), (2,12))               % verticals
  4629.      ((4,11))                    % horizontals
  4630.      ((788,453){105,80}...{105,80}          % 0
  4631.       (1202,768){135,200}...               % 1
  4632.       (1407,1275){70,305}...{0,1}          % *2
  4633.       (1478,1970){-5,45}...{-5,45}          % 3
  4634.       (1458,2147){-70,200}...          % 4
  4635.       (1261,2463){-1,1}...               % 5
  4636.       (887,2600){-1,0}...               % 6
  4637.       (256,2344){-1,-1}...               % 7
  4638.       (20,1891){0,-1}...               % 8
  4639.       (71,1738){50,-90}...               % *9
  4640.       (217,1537){200,-230}...          % 10
  4641.       (335,1320){0,-1}...               % 11
  4642.       (276,1162){-1,-1}...{-200,-105}     % 12
  4643.       (99,1044)--                    % 13
  4644.       (177,985){200,80}...               % 14
  4645.       (473,1202){1,1}...               % 15
  4646.       (611,1478){0,1}...               % 16
  4647.       (565,1619){-45,80}...               % *17
  4648.       (433,1793){-200,215}...          % 18
  4649.       (317,1951){-40,75}...               % *19
  4650.       (276,2088){0,1}...               % 20
  4651.       (355,2285){1,1}...               % 21
  4652.       (630,2384){1,0}...               % 22
  4653.       (1005,2206){1,-1}...               % 23
  4654.       (1136,1957){45,-160}...          % *24
  4655.       (1182,1576){0,-1}...               % 25
  4656.       (1121,1048){-60,-220}...          % *26
  4657.       (946,709){-1,-1}...{-200,5}          % 27
  4658.       (473,512)--cycle);               % 28
  4659.  
  4660. n := 4;
  4661. t1 := 0;
  4662. t2 := 1;
  4663. t3 := 2;
  4664. t4 := 3;
  4665.  
  4666. adj_fill.B()                         % fixed x points
  4667.      ()                         % fixed y points
  4668.      ((1,6), (2,2), (3,1), (4,5))          % tied points
  4669.      ()                         % verticals
  4670.      ()                         % horizontals
  4671.      ((1970,2600){-200,-150}...{-200,-220}     % 0
  4672.       (1458,2147)--                    % 1
  4673.       (1478,1970){100,160}...{200,180}     % 2
  4674.       (1753,2285)--cycle);               % 3
  4675.  
  4676. n := 13;
  4677. t1 := 0;
  4678. t2 := 2;
  4679. t3 := 4;
  4680. t4 := 5;
  4681. t5 := 6;
  4682. t6 := 8;
  4683. t7 := 9;
  4684. t8 := 10;
  4685. t9 := 11;
  4686. t10 := 13;
  4687. t11 := 16;
  4688. t12 := 17;
  4689. t13 := 18;
  4690.  
  4691. adj_fill.C()                         % fixed x points
  4692.      (1)                         % fixed y points
  4693.      ((4,7), (5,8), (6,9), (7,10), (8,6), (9,5), (12,4), (13,3))% tied points
  4694.      ((6,10))                    % verticals
  4695.      ((3,11), (2,13))               % horizontals
  4696.      ((79,0){200,205}...               % 0
  4697.       (287,175){95,60}...               % *1
  4698.       (453,236){1,0}...               % 2
  4699.       (768,99){200,-120}...{200,15}          % 3
  4700.       (1300,-39){200,135}...{200,95}          % 4
  4701.       (1734,197){75,60}...{75,60}          % 5
  4702.       (2029,433){140,200}...{200,195}     % 6
  4703.       (2305,788){60,200}...{-20,300}          % 7
  4704.       (2403,1970){-10,40}...{-10,40}          % 8
  4705.       (2364,2128){-100,210}...{-200,210}     % 9
  4706.       (1970,2600)--                    % 10
  4707.       (1753,2285){200,-90}...          % 11
  4708.       (2040,1963){100,-225}...          % *12
  4709.       (2147,1399){0,-1}...               % 13
  4710.       (2091,817){-55,-235}...          % *14
  4711.       (1931,473){-1,-1}...               % 15
  4712.       (1359,217){-1,0}...{-200,155}          % 16
  4713.       (788,453){-80,15}...{-80,15}          % 17
  4714.       (473,512){-200,-155}...{-170,-200}     % 18
  4715.       (20,79)--cycle);               % 19
  4716.  
  4717. n := 10;
  4718. t1 := 0;
  4719. t2 := 2;
  4720. t3 := 5;
  4721. t4 := 11;
  4722. t5 := 13;
  4723. t6 := 14;
  4724. t7 := 16;
  4725. t8 := 23;
  4726. t9 := 27.39;
  4727. t10 := 29;
  4728.  
  4729. adj_fill.D()                         % fixed x points
  4730.      ()                         % fixed y points
  4731.      ((1,8), (5,9), (6,10), (10,7))          % tied points
  4732.      ((3,8))                         % verticals
  4733.      ((4,7), (2,9))                    % horizontals
  4734.      ((2029,433){1,0}...               % 0
  4735.       (2640,217){200,-95}...               % 1
  4736.       (2837,177){1,0}...               % 2
  4737.       (3113,355){120,200}...               % 3
  4738.       (3175,649){10,210}...               % *4
  4739.       (3152,1182){-20,200}...          % 5
  4740.       (3135,1557){5,155}...               % *6
  4741.       (3172,1793){.6872,1.755}...          % 7
  4742.       (3211,1853){65,75}...{65,75}          % *8
  4743.       (3428,2088){-1,0}...               % 9
  4744.       (3152,2226){-200,130}...          % 10
  4745.       (2837,2344){-1,0}...               % 11
  4746.       (2630,2245){-110,-95}...{-200,-315}     % *12
  4747.       (2403,1970)--                    % 13
  4748.       (2364,2128){200,215}...          % 14
  4749.       (2749,2477){170,120}...          % *15
  4750.       (3034,2600){1,0}...               % 16
  4751.       (3213,2555){105,-45}...          % *17
  4752.       (3448,2423){200,-135}...{200,90}     % 18
  4753.       (3802,2384){-5,-20}...{-5,-20}          % 19
  4754.       (3782,2305){-225,-165}...          % 20
  4755.       (3487,1990){-2,-4}...               % 21
  4756.       (3433,1757){-10,-145}...          % *22
  4757.       (3448,1418){25,-200}...          % 23
  4758.       (3487,847){0,-1}...               % 24
  4759.       (3451,575){-35,-115}...          % *25
  4760.       (3349,394){-200,-190}...{-200,-125}     % 26
  4761.       (2837,0){-200,-60}...               % 27
  4762.       (2285,39){-200,85}...{-1,0}          % 28
  4763.       (1734,197)--cycle);               % 29
  4764.  
  4765. endchar(0);
  4766.  
  4767. "FMUX";
  4768.  
  4769. charbegin( "X",2463h#, capheight*v#, baseline*v#);
  4770.  
  4771. n := 12;
  4772. t1 := 0;
  4773. t2 := 1;
  4774. t3 := 5;
  4775. t4 := 7;
  4776. t5 := 8;
  4777. t6 := 11;
  4778. t7 := 12;
  4779. t8 := 13;
  4780. t9 := 15;
  4781. t10 := 18;
  4782. t11 := 21;
  4783. t12 := 22;
  4784.  
  4785. adj_fill.A(1, 7)                    % fixed x points
  4786.      (8, 12)                         % fixed y points
  4787.      ((3,1), (4,2), (5,3), (10,4))          % tied points
  4788.      ((4,10))                    % verticals
  4789.      ((6,9), (2,11))                    % horizontals
  4790.      ((0,177){2,-3}...               % 0
  4791.       (315,-20){1,0}...               % 1
  4792.       (464,21){90,40}...               % *2
  4793.       (670,138){6,4}...               % 3
  4794.       (1064,473){1,1}...               % 4
  4795.       (1221,630){1,1}...               % 5
  4796.       (1353,920){45,200}...               % *6
  4797.       (1399,1418){0,1}...               % 7
  4798.       (1379,1970){-1,4}...               % 8
  4799.       (1287,2253){-50,115}...          % *9
  4800.       (1182,2423){-1,1}...{-15,1}          % 10
  4801.       (737,2600){-139,-150}...{-139,-150}     % 11
  4802.       (189,2009)--                    % 12
  4803.       (256,1950){2,3}...               % 13
  4804.       (433,2147){1,1}...               % 14
  4805.       (749,2285){1,0}...               % 15
  4806.       (985,2167){1,-1}...               % 16
  4807.       (1123,1812){1,-7}...               % 17
  4808.       (1143,1418){0,-1}...               % 18
  4809.       (1123,985){-1,-5}...               % 19
  4810.       (867,414){-1,-1}...               % 20
  4811.       (512,236){-1,0}...{-1,2}          % 21
  4812.       (217,433)--cycle);               % 22
  4813.  
  4814. n := 7;
  4815. t1 := 2;
  4816. t2 := 4;
  4817. t3 := 5;
  4818. t4 := 7;
  4819. t5 := 20;
  4820. t6 := 23;
  4821. t7 := 24;
  4822.  
  4823. adj_fill.B(7)                         % fixed x points
  4824.      (7)                         % fixed y points
  4825.      ((2,1), (3,4), (4,3), (5,2))          % tied points
  4826.      ((3,5))                         % verticals
  4827.      ((1,6))                         % horizontals
  4828.      ((2403,335){-105,-85}...{-105,-85}     % 0
  4829.       (1990,0){-7,-2}...               % 1
  4830.       (1812,-39){-1,0}...               % 2
  4831.       (1478,99){-1,1}...               % 3
  4832.       (1221,630){-1,5}...               % 4
  4833.       (1143,1418){0,1}...               % 5
  4834.       (1186,1578){60,140}...               % *6
  4835.       (1379,1970){1,2}...               % 7
  4836.       (1596,2285){1,1}...{5,2}          % 8
  4837.       (2076,2608){1,-2}...               % 9
  4838.       (2200,2353){43,-82}...               % *10
  4839.       (2246,2285){1,-1}...               % 11
  4840.       (2364,2234){1,0}...{2,1}          % 12
  4841.       (2522,2293)--                    % 13
  4842.       (2522,2226){-95,-55}...{-95,-55}     % 14
  4843.       (2147,2009){-9,4}...               % 15
  4844.       (1950,2147){-1,1}...{-2,5}          % 16
  4845.       (1797,2332){-3,-2}...               % 17
  4846.       (1655,2195){-3,-4}...               % 18
  4847.       (1497,1911){-2,-5}...               % 19
  4848.       (1399,1418){0,-1}...               % 20
  4849.       (1438,867){2,-8}...               % 21
  4850.       (1675,394){1,-1}...               % 22
  4851.       (2009,256){1,0}...{3,2}          % 23
  4852.       (2403,414)--cycle);               % 24
  4853.  
  4854. n := 2;
  4855. t1 := 1;
  4856. t2 := 4;
  4857.  
  4858. adj_fill.C()                         % fixed x points
  4859.      ()                         % fixed y points
  4860.      ((1,4))                         % tied points
  4861.      ()                         % verticals
  4862.      ((1,2))                         % horizontals
  4863.      ((2049,1418){-230,0}...               % 0
  4864.       (1143,1418){-2,0}...{-130,0}          % 1
  4865.       (630,1418)--                    % 2
  4866.       (493,1261){7,1}...               % 3
  4867.       (1281,1300){1,0}...{8,-1}          % 4
  4868.       (1911,1261)--cycle);               % 5
  4869.  
  4870. endchar(0);
  4871.  
  4872. "FMUY";
  4873.  
  4874. charbegin( "Y",2884h#, capheight*v#, descender*v#);
  4875.  
  4876. n := 12;
  4877. t1 := 0;
  4878. t2 := 2;
  4879. t3 := 4;
  4880. t4 := 7;
  4881. t5 := 10;
  4882. t6 := 12;
  4883. t7 := 13;
  4884. t8 := 15;
  4885. t9 := 18;
  4886. t10 := 20;
  4887. t11 := 23;
  4888. t12 := 26;
  4889.  
  4890. adj_fill.A(6, 12)                    % fixed x points
  4891.      (1, 7, 12)                    % fixed y points
  4892.      ((1,3), (2,1), (12,2))               % tied points
  4893.      ((5,8), (4,9), (2,11))               % verticals
  4894.      ((3,10))                    % horizontals
  4895.      ((827,473){105,90}...{105,90}          % 0
  4896.       (1241,827){2,3}...               % 1
  4897.       (1497,1852){0,1}...               % 2
  4898.       (1261,2482){-1,1}...               % 3
  4899.       (867,2600){-1,0}...               % 4
  4900.       (276,2364){-1,-1}...               % 5
  4901.       (72,2109){-70,-120}...               % *6
  4902.       (0,1891){0,-1}...               % 7
  4903.       (46,1770){45,-75}...               % *8
  4904.       (177,1596){7,-8}...               % 9
  4905.       (355,1340){0,-1}...               % 10
  4906.       (292,1206){-60,-75}...{-4,-3}          % *11
  4907.       (118,1044)--                    % 12
  4908.       (177,985){5,3}...               % 13
  4909.       (495,1238){110,125}...               % *14
  4910.       (611,1478){0,1}...               % 15
  4911.       (560,1617){-50,85}...               % *16
  4912.       (414,1812){-7,8}...               % 17
  4913.       (276,2108){0,1}...               % 18
  4914.       (355,2285){1,1}...               % 19
  4915.       (630,2384){1,0}...               % 20
  4916.       (985,2226){1,-1}...               % 21
  4917.       (1145,1943){55,-175}...          % *22
  4918.       (1202,1537){0,-1}...               % 23
  4919.       (1135,1047){-65,-210}...          % *24
  4920.       (946,709){-1,-1}...{-1,0}          % 25
  4921.       (433,512)--cycle);               % 26
  4922.  
  4923. n := 9;
  4924. t1 := 0;
  4925. t2 := 2;
  4926. t3 := 6;
  4927. t4 := 8;
  4928. t5 := 11;
  4929. t6 := 13;
  4930. t7 := 15;
  4931. t8 := 19;
  4932. t9 := 20;
  4933.  
  4934. adj_fill.B(1)                         % fixed x points
  4935.      (9)                         % fixed y points
  4936.      ((5,1))                         % tied points
  4937.      ((3,7))                         % verticals
  4938.      ((4,6), (2,8))                    % horizontals
  4939.      ((749,-492){2,-5}...               % 0
  4940.       (930,-679){125,-65}...               % *1
  4941.       (1241,-749){1,0}...               % 2
  4942.       (1753,-591){7,4}...{2,3}          % 3
  4943.       (2403,0){2,4}...               % 4
  4944.       (2580,568){60,335}...               % *5
  4945.       (2640,1320){0,1}...{-1,5}          % 6
  4946.       (2581,2266){-3,2}...{-4,5}          % 7
  4947.       (2187,2600){-2,-1}...               % 8
  4948.       (1793,2344){-5,-4}...{-1,-1}          % 9
  4949.       (1478,2069)--                    % 10
  4950.       (1497,1852){1,2}...               % 11
  4951.       (1694,2128){1,1}...{13,8}          % 12
  4952.       (1911,2285){7,-3}...{8,-9}          % 13
  4953.       (2246,2009){1,-3}...               % 14
  4954.       (2344,1221){0,-1}...               % 15
  4955.       (2299,484){-45,-310}...          % *16
  4956.       (2167,0){-1,-2}...               % 17
  4957.       (1950,-315){-1,-1}...               % 18
  4958.       (1418,-571){-1,0}...{-1,7}          % 19
  4959.       (1024,-197)--cycle);               % 20
  4960.  
  4961. n := 7;
  4962. t1 := 1;
  4963. t2 := 2;
  4964. t3 := 4;
  4965. t4 := 5;
  4966. t5 := 8;
  4967. t6 := 10;
  4968. t7 := 11;
  4969.  
  4970. adj_fill.C()                         % fixed x points
  4971.      (4, 7)                         % fixed y points
  4972.      ((1,2), (2,3))                    % tied points
  4973.      ()                         % verticals
  4974.      ((1,6), (3,5))                    % horizontals
  4975.      ((39,79){4,6}...{8,7}               % 0
  4976.       (433,512){1,0}...               % 1
  4977.       (827,473){11,-2}...               % 2
  4978.       (1084,374){2,-1}...               % 3
  4979.       (1379,276){1,0}...{6,7}          % 4
  4980.       (1694,453)--                    % 5
  4981.       (1726,394){-3,-4}...               % 6
  4982.       (1458,80){-113,-105}...          % *7
  4983.       (1281,-20){-1,0}...               % 8
  4984.       (906,99){-11,5}...               % 9
  4985.       (473,256){-1,0}...{-3,-5}          % 10
  4986.       (79,0)--cycle);               % 11
  4987.  
  4988. endchar(0);
  4989.  
  4990. "FMUZ";
  4991.  
  4992. %charbegin( "Z",2029h#, capheight*v#, depthy*v#);
  4993. charbegin( "Z",2029h#, capheight*v#, 2/3descender*v#); % DEK
  4994.  
  4995. n := 10;
  4996. t1 := 0;
  4997. t2 := 2;
  4998. t3 := 6;
  4999. t4 := 8;
  5000. t5 := 9;
  5001. t6 := 10;
  5002. t7 := 11;
  5003. t8 := 12;
  5004. t9 := 17;
  5005. t10 := 19;
  5006.  
  5007. adj_fill.A(1, 4, 7)                    % fixed x points
  5008.      (1, 5, 6, 10)                    % fixed y points
  5009.      ((1,2), (10,1))                    % tied points
  5010.      ((2,9))                         % verticals
  5011.      ((3,8))                         % horizontals
  5012.      ((729,1438){18,1}...               % 0
  5013.       (1143,1655){1,1}...               % 1
  5014.       (1320,2069){0,1}...               % 2
  5015.       (1261,2206){-1,1}...               % 3
  5016.       (1044,2285){-1,0}...               % 4
  5017.       (788,2266){-14,-1}...               % 5
  5018.       (493,2246){-1,0}...               % 6
  5019.       (276,2305){-1,1}...{0,1}          % 7
  5020.       (236,2403){65,90}...{65,90}          % 8
  5021.       (493,2758)--                    % 9
  5022.       (552,2758){-2,-3}...               % 10
  5023.       (552,2600){1,-1}...               % 11
  5024.       (827,2541){1,0}...               % 12
  5025.       (1044,2549){23,1}...               % 13
  5026.       (1221,2561){1,0}...               % 14
  5027.       (1417,2541){80,-20}...               % *15
  5028.       (1537,2482){1,-1}...               % 16
  5029.       (1635,2266){0,-1}...               % 17
  5030.       (1418,1773){-1,-1}...{-10,-6}          % 18
  5031.       (1005,1438)--cycle);               % 19
  5032.  
  5033. n := 11;
  5034. t1 := 1;
  5035. t2 := 4;
  5036. t3 := 5;
  5037. t4 := 7;
  5038. t5 := 10;
  5039. t6 := 11;
  5040. t7 := 14;
  5041. t8 := 17;
  5042. t9 := 20;
  5043. t10 := 22;
  5044. t11 := 24;
  5045.  
  5046. adj_fill.B(2, 10)                    % fixed x points
  5047.      ()                         % fixed y points
  5048.      ((5,1), (6,2))                    % tied points
  5049.      ((4,8))                         % verticals
  5050.      ((5,7), (3,9), (1,11))               % horizontals
  5051.      ((-20,-98){5,4}...               % 0
  5052.       (177,0){1,0}...               % 1
  5053.       (276,-39){1,-1}...               % 2
  5054.       (310,-140){10,-95}...{0,-1}          % *3
  5055.       (315,-414){4,-1}...               % 4
  5056.       (670,-453){1,0}...{6,5}          % 5
  5057.       (1576,-118){2,3}...               % 6
  5058.       (1872,788){0,1}...{-3,10}          % 7
  5059.       (1812,1202){-2,3}...               % 8
  5060.       (1221,1458){-1,0}...{-8,-1}          % 9
  5061.       (1005,1438){-70,0}...{-70,0}          % 10
  5062.       (729,1438)--                    % 11
  5063.       (571,1202){10,-10}...{10,-10}          % 12
  5064.       (611,1162){4,2}...               % 13
  5065.       (946,1241){1,0}...               % 14
  5066.       (1418,1064){1,-1}...               % 15
  5067.       (1506,900){30,-105}...               % *16
  5068.       (1537,650){0,-1}...               % 17
  5069.       (1470,190){-65,-200}...          % *18
  5070.       (1281,-138){-1,-1}...               % 19
  5071.       (827,-335){-1,0}...               % 20
  5072.       (670,-284){-1,1}...               % 21
  5073.       (630,-98){0,1}...               % 22
  5074.       (611,138){-1,2}...               % 23
  5075.       (453,197){-1,0}...               % 24
  5076.       (216,136){-130,-60}...{-5,-4}          % *25
  5077.       (-59,-39)--cycle);               % 26
  5078.  
  5079. endchar(0);
  5080.  
  5081. % PUNCTUATION
  5082. set_stem_round(155,157,160,189,197,193);
  5083. initrot:=identity;
  5084. more_side(0); % DEK
  5085.  
  5086. "fmexclamationpoint";
  5087.  
  5088. %charbegin( 33, 795h#, ascender*v#, baseline );
  5089. charbegin( 33,1095h#, ascender*v#, baseline ); % DEK
  5090.  
  5091. n := 4;
  5092. t1 := 0;
  5093. t2 := 3;
  5094. t3 := 8;
  5095. t4 := 10;
  5096.  
  5097. adj_fill.A()                         % fixed x points
  5098.      ()                         % fixed y points
  5099.      ((1,1), (4,1))                    % tied points
  5100.      ((2,3))                         % verticals
  5101.      ()                         % horizontals
  5102.      ((413,2553){-1,0}...               % 0
  5103.       (286,2518){-318,-227}...          % 1
  5104.       (243,2444){-59,-206}...          % *2
  5105.       (227,2312){0,-1}...               % 3
  5106.       (238,2097){101,-1416}...{101,-1416}     % 4
  5107.       (339,681)--                    % 5
  5108.       (398,690){133,1370}...               % 6
  5109.       (531,2060){133,1370}...          % 7
  5110.       (551,2384){0,1}...               % 8
  5111.       (503,2522){-234,213}...{-1,0}          % 9
  5112.       (413,2553)--cycle);               % 10
  5113.  
  5114. n := 5;
  5115. t1 := 1;
  5116. t2 := 2;
  5117. t3 := 3;
  5118. t4 := 4;
  5119. t5 := 5;
  5120.  
  5121. adj_fill.B()                         % fixed x points
  5122.      ()                         % fixed y points
  5123.      ((1,2), (5,2))                    % tied points
  5124.      ((2,4))                         % verticals
  5125.      ((1,3))                         % horizontals
  5126.      ((398,177)--                    % 0
  5127.       (398,387){-1,0}...               % 1
  5128.       (185,177){0,-1}...               % 2
  5129.       (398,-44){1,0}...               % 3
  5130.       (604,177){0,1}...{-1,0}          % 4
  5131.       (398,387)--cycle);               % 5
  5132.  
  5133. %endchar(0);
  5134. endchar(150h#); % DEK
  5135.  
  5136. "fmdoublequote";
  5137.  
  5138. %charbegin( 125, 795h#, ascender*v#, lcbody*v#);
  5139. charbegin( 125, 795h#, ascender*v#, baseline*v#); % DEK
  5140. n := 4;
  5141. t1 := 0;
  5142. t2 := 2;
  5143. t3 := 7;
  5144. t4 := 9;
  5145.  
  5146. adj_fill.A()                         % fixed x points
  5147.      ()                         % fixed y points
  5148.      ((1,1), (4,1))                    % tied points
  5149.      ((2,3))                         % verticals
  5150.      ()                         % horizontals
  5151.      ((159,2573){-1,0}...               % 0
  5152.       (65,2538){-208,-163}...          % 1
  5153.       (32,2431){0,-1}...               % 2
  5154.       (52,2162){72,-562}...{72,-562}          % 3
  5155.       (124,1600)--                    % 4
  5156.       (205,1600){77,705}...               % 5
  5157.       (282,2305){77,705}...               % 6
  5158.       (282,2497){0,1}...               % 7
  5159.       (240,2554){-219,158}...{-1,0}          % 8
  5160.       (159,2573)--cycle);               % 9
  5161.  
  5162. n := 4;
  5163. t1 := 0;
  5164. t2 := 2;
  5165. t3 := 7;
  5166. t4 := 9;
  5167.  
  5168. adj_fill.B()                         % fixed x points
  5169.      ()                         % fixed y points
  5170.      ((1,2), (4,2))                    % tied points
  5171.      ((2,3))                         % verticals
  5172.      ()                         % horizontals
  5173.      ((617,2561){-1,0}...               % 0
  5174.       (498,2528){-155,-140}...          % 1
  5175.       (474,2470){0,-1}...               % 2
  5176.       (491,2311){84,-711}...{84,-711}     % 3
  5177.       (575,1600)--                    % 4
  5178.       (651,1600){69,718}...               % 5
  5179.       (720,2318){69,718}...               % 6
  5180.       (725,2489){0,1}...               % 7
  5181.       (703,2532){-204,227}...{-1,0}          % 8
  5182.       (617,2561)--cycle);               % 9
  5183.  
  5184. endchar(0);
  5185.  
  5186. "fmlefttquote";
  5187.  
  5188. %charbegin( 18, 795h#, ascender*v#, lcbody*v#);
  5189. charbegin( 18, 795h#, ascender*v#, baseline*v#); % DEK
  5190. n := 2;
  5191. t1 := 0;
  5192. t2 := 12;
  5193.  
  5194. adj_fill.A()                         % fixed x points
  5195.      ()                         % fixed y points
  5196.      ((1,1), (2,1))                    % tied points
  5197.      ()                         % verticals
  5198.      ()                         % horizontals
  5199.      ((529,1568){-275,-225}...          % 0
  5200.       (433,1518){-1,0}...               % 1
  5201.       (339,1576){-239,317}...          % 2
  5202.       (166,2001){0,1}...               % 3
  5203.       (258,2252){166,276}...{350,433}     % 4
  5204.       (519,2623)--                    % 5
  5205.       (568,2570){-215,-370}...          % 6
  5206.       (422,2281){-95,-210}...          % 7
  5207.       (388,2135){0,-1}...               % 8
  5208.       (439,1969){118,-183}...          % 9
  5209.       (557,1786){118,-183}...          % 10
  5210.       (590,1685){0,-1}...{-391,-302}          % 11
  5211.       (529,1568)--cycle);               % 12
  5212.  
  5213. endchar(0);
  5214.  
  5215. "fmrightquote";
  5216.  
  5217. %charbegin( 19, 795h#, ascender*v#, lcbody*v#);
  5218. charbegin( 19, 795h#, ascender*v#, baseline*v#); % DEK
  5219. n := 2;
  5220. t1 := 6;
  5221. t2 := 7;
  5222.  
  5223. adj_fill.A()                         % fixed x points
  5224.      ()                         % fixed y points
  5225.      ((1,1), (2,1))                    % tied points
  5226.      ()                         % verticals
  5227.      ()                         % horizontals
  5228.      ((213,1502){198,333}...               % 0
  5229.       (356,1770){155,386}...               % 1
  5230.       (392,1942){0,1}...               % 2
  5231.       (345,2087){-132,210}...          % 3
  5232.       (213,2297){-132,210}...          % 4
  5233.       (182,2404){0,1}...{189,173}          % 5
  5234.       (208,2493)--                    % 6
  5235.       (208,2493){333,295}...               % 7
  5236.       (338,2562){1,0}...               % 8
  5237.       (448,2480){237,-343}...          % 9
  5238.       (579,2223){116,-321}...          % 10
  5239.       (604,2085){0,-1}...               % 11
  5240.       (505,1792){-275,-484}...{-253,-383}     % 12
  5241.       (274,1460)--cycle);               % 13
  5242.  
  5243. endchar(0);
  5244.  
  5245. "fmlparenthesis";
  5246.  
  5247. %charbegin( 40, 795h#, programem*v#, descender*v#);
  5248. charbegin( 40,1439h#, .75programem*v#, .25programem*v#); % DEK
  5249. n := 6;
  5250. t1 := 0;
  5251. t2 := 3;
  5252. t3 := 6;
  5253. t4 := 7;
  5254. t5 := 10;
  5255. t6 := 14;
  5256.  
  5257. adj_fill.A(1, 3, 4, 6)                    % fixed x points
  5258.      ()                         % fixed y points
  5259.      ()                         % tied points
  5260.      ((2,5))                         % verticals
  5261.      ()                         % horizontals
  5262.      ((731,-690){-218,40}...               % 0
  5263.       (320,-398){-256,346}...          % 1
  5264.       (128,140){-258,1434}...          % *2
  5265.       (62,1036){0,1}...               % 3
  5266.       (136,1888){289,1419}...          % *4
  5267.       (351,2455){239,346}...{360,106}     % 5
  5268.       (731,2729)--                    % 6
  5269.       (731,2661){-349,-175}...          % 7
  5270.       (458,2366){-219,-458}...          % 8
  5271.       (304,1811){-206,-1351}...          % *9
  5272.       (252,1015){0,-1}...               % 10
  5273.       (318,66){256,-1470}...               % *11
  5274.       (399,-253){189.9,-521.3}...          % *12
  5275.       (508,-455){221,-253}...{242,-74}     % 13
  5276.       (731,-636)--cycle);               % 14
  5277.  
  5278. %endchar(0);
  5279. endchar(357h#); % DEK
  5280.  
  5281. "fmrparenthesis";
  5282.  
  5283. %charbegin( 41, 795h#, programem*v#, descender*v#);
  5284. charbegin( 41,1439h#, .75programem*v#, .25programem*v#); % DEK
  5285. n := 6;
  5286. t1 := 0;
  5287. t2 := 3;
  5288. t3 := 6;
  5289. t4 := 7;
  5290. t5 := 10;
  5291. t6 := 14;
  5292.  
  5293. adj_fill.A(1, 3, 4, 6)                    % fixed x points
  5294.      ()                         % fixed y points
  5295.      ()                         % tied points
  5296.      ((2,5))                         % verticals
  5297.      ()                         % horizontals
  5298.      ((29,-691){335,60}...               % 0
  5299.       (429,-482){224,270}...               % 1
  5300.       (647,74){294,1490}...               % *2
  5301.       (723,1008){0,1}...               % 3
  5302.       (627,1937){-372,1516}...          % *4
  5303.       (351,2524){-233,253}...{-573,119}     % 5
  5304.       (29,2721)--                    % 6
  5305.       (29,2644){386,-185}...               % 7
  5306.       (254,2449){217,-312}...          % 8
  5307.       (457,1892){273,-1429}...          % *9
  5308.       (527,1020){0,-1}...               % 10
  5309.       (477,45){-210,-1464}...          % *11
  5310.       (412,-254){-159.7,-489.3}...          % *12
  5311.       (317,-444){-248,-309}...{-314,-129}     % 13
  5312.       (29,-632)--cycle);               % 14
  5313.  
  5314. %endchar(0);
  5315. endchar(300h#); % DEK
  5316.  
  5317. "fmast";
  5318.  
  5319. charbegin( 42, 1028h#, theight*v#, baseline*v#);
  5320. n := 3;
  5321. t1 := .5179;
  5322. t2 := 2;
  5323. t3 := 2.575;
  5324.  
  5325. adj_fill.A(2)                         % fixed x points
  5326.      ()                         % fixed y points
  5327.      ()                         % tied points
  5328.      ((1,3))                         % verticals
  5329.      ()                         % horizontals
  5330.      ((463,1663){16,302}...{-30,642}          % 0
  5331.       (465,2562)--                    % 1
  5332.       (561,2562){-47,-490}...{50,-366}     % 2
  5333.       (556,1663)--cycle);               % 3
  5334.  
  5335. n := 0;
  5336.  
  5337. adj_fill.B()                         % fixed x points
  5338.      ()                         % fixed y points
  5339.      ()                         % tied points
  5340.      ()                         % verticals
  5341.      ()                         % horizontals
  5342.      ((803,1831){-225,196}...{-570,325}     % 0
  5343.       (123,2328)--                    % 1
  5344.       (203,2415){385,-363}...{187,-114}     % 2
  5345.       (868,1909)--cycle);               % 3
  5346.  
  5347. n := 0;
  5348.  
  5349. adj_fill.C()                         % fixed x points
  5350.      ()                         % fixed y points
  5351.      ()                         % tied points
  5352.      ()                         % verticals
  5353.      ()                         % horizontals
  5354.      ((865,2345){-203,-125}...{-502,-449}     % 0
  5355.       (166,1830)--                    % 1
  5356.       (121,1909){411,261}...{291,254}     % 2
  5357.       (810,2416)--cycle);               % 3
  5358.  
  5359. endchar(0);
  5360.  
  5361. "rmplus";
  5362.  
  5363. %charbegin( 43, 1838h#, lcbody*v#, baseline*v#);
  5364. charbegin( 43, 2800h#, (1233+925)*v#, (1233-925)*v#); % DEK
  5365. n := 2;
  5366. t1 := 1;
  5367. t2 := 2;
  5368.  
  5369. adj_fill.A()                         % fixed x points
  5370.      ()                         % fixed y points
  5371.      ()                         % tied points
  5372.      ()                         % verticals
  5373.      ((1,2))                         % horizontals
  5374. %     ((1788,1044){-1655,0}...{-1655,0}     % 0
  5375. %      (133,1044)--                    % 1
  5376. %      (78,898){1660,0}...{1660,0}          % 2
  5377. %      (1738,898)--cycle);               % 3
  5378.      ((2625,1044){-1655,0}...{-1655,0}     % 0 % DEK
  5379.       (230,1044)--                    % 1
  5380.       (175,898){1660,0}...{1660,0}          % 2
  5381.       (2575,898)--cycle);               % 3
  5382.  
  5383. n := 2;
  5384. t1 := 1;
  5385. t2 := 2;
  5386.  
  5387. adj_fill.B()                         % fixed x points
  5388.      ()                         % fixed y points
  5389.      ()                         % tied points
  5390.      ((1,2))                         % verticals
  5391.      ()                         % horizontals
  5392. %     ((853,2){0,1760}...{0,1760}          % 0
  5393. %      (853,1762)--                    % 1
  5394. %      (1010,1815){0,-1742}...{0,-1742}     % 2
  5395. %      (1010,73)--cycle);               % 3
  5396.      ((1322,-306){0,1760}...{0,1760}          % 0 % DEK
  5397.       (1322,2161)--                    % 1
  5398.       (1479,2214){0,-1742}...{0,-1742}     % 2
  5399.       (1479,-235)--cycle);               % 3
  5400.  
  5401. endchar(0);
  5402.  
  5403. "rmcomma";
  5404.  
  5405. %charbegin( 44, 1840h#, lcbody*v#, baseline*v#);
  5406. charbegin( 44,(1840-812)*h#, 400*v#, baseline*v#); % DEK
  5407.  
  5408. n := 4;
  5409. t1 := 5;
  5410. t2 := 6;
  5411. t3 := 7;
  5412. t4 := 11;
  5413.  
  5414. adj_fill.A()                         % fixed x points
  5415.      ()                         % fixed y points
  5416.      ((2,1), (3,1))                    % tied points
  5417.      ((1,4))                         % verticals
  5418.      ()                         % horizontals
  5419.      ((813,-642){171,229}...               % 0
  5420.       (959,-368){161,387}...               % 1
  5421.       (986,-224){0,1}...               % 2
  5422.       (938,-69){-128,177}...               % 3
  5423.       (810,108){-128,177}...               % 4
  5424.       (773,228){0,1}...{271,188}          % 5
  5425.       (838,354)--                    % 6
  5426.       (838,354){373,276}...               % 7
  5427.       (945,396){1,0}...               % 8
  5428.       (1038,323){228,-317}...          % 9
  5429.       (1167,90){103,-266}...               % 10
  5430.       (1197,-100){0,-1}...               % 11
  5431.       (1115,-357){-254,-409}...{-156,-187}     % 12
  5432.       (855,-710)--cycle);               % 13
  5433.  
  5434. %endchar(0);
  5435. endchar(-406h#); % DEK
  5436.  
  5437. "fmminus";
  5438.  
  5439. %charbegin( 45, 1824h#, lcbody*v#, baseline );
  5440. charbegin( 45, 2800h#, (1233+925)*v#, (1233-925)*v#); % DEK
  5441.  
  5442. n := 0;
  5443.  
  5444. adj_fill.A()                         % fixed x points
  5445.      ()                         % fixed y points
  5446.      ()                         % tied points
  5447.      ()                         % verticals
  5448.      ()                         % horizontals
  5449. %     ((1754,1018){-1650,0}...{-1650,0}     % 0
  5450. %      (104,1018)--                    % 1
  5451. %      (70,874){1651,0}...{1651,0}          % 2
  5452. %      (1721,874)--cycle);               % 3
  5453.      ((2614,1018){-1650,0}...{-1650,0}     % 0 % DEK
  5454.       (230,1018)--                    % 1
  5455.       (170,874){1651,0}...{1651,0}          % 2
  5456.       (2564,874)--cycle);               % 3
  5457.  
  5458. endchar(0);
  5459.  
  5460. "rmequalsign";
  5461.  
  5462. %charbegin( 61, 1824h#, lcbody*v#, baseline );
  5463. charbegin( 61, 2800h#, (440+925)*v#, (440-925)*v#); % DEK
  5464.  
  5465. n := 2;
  5466. t1 := 1;
  5467. t2 := 2;
  5468.  
  5469. adj_fill.A()                         % fixed x points
  5470.      ()                         % fixed y points
  5471.      ()                         % tied points
  5472.      ()                         % verticals
  5473.      ((1,2))                         % horizontals
  5474. %     ((1754,1268){-1650,0}...{-1650,0}     % 0
  5475. %      (104,1268)--                    % 1
  5476. %      (70,1124){1651,0}...{1651,0}          % 2
  5477. %      (1721,1124)--cycle);               % 3
  5478.      ((2684,1362){-1650,0}...{-1650,0}     % 0 % DEK
  5479.       (234,1362)--                    % 1
  5480.       (200,1218){1651,0}...{1651,0}          % 2
  5481.       (2651,1218)--cycle);               % 3
  5482.  
  5483. n := 2;
  5484. t1 := 1;
  5485. t2 := 2;
  5486.  
  5487. adj_fill.B()                         % fixed x points
  5488.      ()                         % fixed y points
  5489.      ()                         % tied points
  5490.      ()                         % verticals
  5491.      ((1,2))                         % horizontals
  5492. %     ((1754,768){-1650,0}...{-1650,0}     % 0
  5493. %      (104,768)--                    % 1
  5494. %      (70,624){1651,0}...{1651,0}          % 2
  5495. %      (1721,624)--cycle);               % 3
  5496.      ((2684,632){-1650,0}...{-1650,0}     % 0 % DEK
  5497.       (234,632)--                    % 1
  5498.       (200,488){1651,0}...{1651,0}          % 2
  5499.       (2651,488)--cycle);               % 3
  5500.  
  5501. endchar(0);
  5502.  
  5503. "rmperiod";
  5504.  
  5505. %charbegin( 46, 1840h#, lcbody*v#, baseline*v#);
  5506. charbegin( 46, (1840-812)*h#, 400*v#, baseline*v#); % DEK
  5507.  
  5508. n := 5;
  5509. t1 := 1;
  5510. t2 := 2;
  5511. t3 := 3;
  5512. t4 := 4;
  5513. t5 := 5;
  5514.  
  5515. adj_fill.A()                         % fixed x points
  5516.      ()                         % fixed y points
  5517.      ((1,1), (5,1))                    % tied points
  5518.      ((2,4))                         % verticals
  5519.      ((1,3))                         % horizontals
  5520.      ((931,163)--                    % 0
  5521.       (931,378){-1,0}...               % 1
  5522.       (729,163){0,-1}...               % 2
  5523.       (931,-55){1,0}...               % 3
  5524.       (1148,163){0,1}...{-1,0}          % 4
  5525.       (931,378)--cycle);               % 5
  5526.  
  5527. %endchar(0);
  5528. endchar(-406h#); % DEK
  5529.  
  5530. "rmslash";
  5531.  
  5532. %charbegin( 47, 1796h#, programem*v#, descender*v#);
  5533. charbegin( 47, 1858h#, .75programem*v#, .25programem*v#); % DEK
  5534. n := 0;
  5535.  
  5536. numeric a[],b[],alpha,beta;
  5537. pair vec;
  5538. .5[b0,b3]=.75programem-120;  b1=b2=-.25programem+250; b0-b3=33;
  5539. .5[a0,a3]=1652; .5[a1,a2]=205;
  5540. vec=(.5[a0-a1,a3-a2],.5[b0-b1,b3-b2]);
  5541. (a3,b3)-(a2,b2)=alpha*vec;
  5542. (a1,b1)=beta*vec+(a2,b2)+145*(unitvector vec rotated 90);
  5543.  
  5544. adj_fill.A()                         % fixed x points
  5545.      ()                         % fixed y points
  5546.      ()                         % tied points
  5547.      ()                         % verticals
  5548.      ()                         % horizontals
  5549. %     ((1614,2740){-1519,-3012}...{-1519,-3012}% 0
  5550. %      (95,-272)--                    % 1
  5551. %      (223,-284){1505,2991}...{1505,2991}     % 2
  5552. %      (1728,2707)--cycle);               % 3
  5553.      ((a0,b0)--                    % 0 % DEK
  5554.       (a1,b1)--                    % 1
  5555.       (a2,b2)--                    % 2
  5556.       (a3,b3)--cycle);               % 3
  5557.  
  5558. endchar(0);
  5559.  
  5560. "rmcolon";
  5561.  
  5562. charbegin( 58, 800h#, lcbody*v#, baseline*v#);
  5563. n := 5;
  5564. t1 := 1;
  5565. t2 := 2;
  5566. t3 := 3;
  5567. t4 := 4;
  5568. t5 := 5;
  5569.  
  5570. adj_fill.A()                         % fixed x points
  5571.      ()                         % fixed y points
  5572.      ((1,1), (5,1))                    % tied points
  5573.      ((2,4))                         % verticals
  5574.      ((1,3))                         % horizontals
  5575.      ((371,1477)--                    % 0
  5576.       (371,1693){-1,0}...               % 1
  5577.       (180,1477){0,-1}...               % 2
  5578.       (371,1269){1,0}...               % 3
  5579.       (610,1477){0,1}...{-1,0}          % 4
  5580.       (371,1693)--cycle);               % 5
  5581.  
  5582. n := 5;
  5583. t1 := 1;
  5584. t2 := 2;
  5585. t3 := 3;
  5586. t4 := 4;
  5587. t5 := 5;
  5588.  
  5589. adj_fill.B()                         % fixed x points
  5590.      ()                         % fixed y points
  5591.      ((1,2), (5,2))                    % tied points
  5592.      ((2,4))                         % verticals
  5593.      ((1,3))                         % horizontals
  5594.      ((371,152)--                    % 0
  5595.       (371,389){-1,0}...               % 1
  5596.       (195,152){0,-1}...               % 2
  5597.       (371,-45){1,0}...               % 3
  5598.       (621,152){0,1}...{-1,0}          % 4
  5599.       (371,389)--cycle);               % 5
  5600.  
  5601. endchar(0);
  5602.  
  5603. "rmsemicolon";
  5604.  
  5605. %charbegin( 59, 800h#, lcbody*v#, baseline*v#);
  5606. charbegin( 59, 800h#, lcbody*v#, 2/3descender*v#); % DEK
  5607. n := 5;
  5608. t1 := 1;
  5609. t2 := 2;
  5610. t3 := 3;
  5611. t4 := 4;
  5612. t5 := 5;
  5613.  
  5614. adj_fill.A()                         % fixed x points
  5615.      ()                         % fixed y points
  5616.      ((1,1), (5,1))                    % tied points
  5617.      ((2,4))                         % verticals
  5618.      ((1,3))                         % horizontals
  5619.      ((372,1480)--                    % 0
  5620.       (372,1697){-1,0}...               % 1
  5621.       (175,1480){0,-1}...               % 2
  5622.       (372,1270){1,0}...               % 3
  5623.       (602,1480){0,1}...{-1,0}          % 4
  5624.       (372,1697)--cycle);               % 5
  5625.  
  5626. n := 0;
  5627.  
  5628. adj_fill.B()                         % fixed x points
  5629.      ()                         % fixed y points
  5630.      ()                         % tied points
  5631.      ()                         % verticals
  5632.      ()                         % horizontals
  5633.      ((273,-656){159,216}...               % 0
  5634.       (423,-380){139,329}...               % 1
  5635.       (449,-236){0,1}...               % 2
  5636.       (400,-95){-126,188}...               % 3
  5637.       (274,93){-126,188}...               % 4
  5638.       (240,190){0,1}...{277,281}          % 5
  5639.       (283,308)--                    % 6
  5640.       (282,325){346,281}...               % 7
  5641.       (398,366){1,0}...               % 8
  5642.       (479,327){185,-206}...               % 9
  5643.       (624,103){117,-298}...               % 10
  5644.       (664,-83){7,-393}...               % 11
  5645.       (576,-360){-202,-358}...{-227,-281}     % 12
  5646.       (331,-702)--cycle);               % 13
  5647.  
  5648. endchar(0);
  5649.  
  5650. "rmlbrk";
  5651.  
  5652. %charbegin( 91, 805h#, programem*v#, descender*v#);
  5653. charbegin( 91, 1028h#, .75programem*v#, .25programem*v#); % DEK
  5654. n := 6;
  5655. t1 := 0;
  5656. t2 := 2;
  5657. t3 := 3;
  5658. t4 := 4;
  5659. t5 := 5;
  5660. t6 := 7;
  5661.  
  5662. adj_fill.A(1, 3, 4, 6)                    % fixed x points
  5663.      ()                         % fixed y points
  5664.      ()                         % tied points
  5665.      ((2,5))                         % verticals
  5666.      ()                         % horizontals
  5667.      ((708,-442){-1,0}...{-563,-62}          % 0
  5668.       (112,-482){0,3222}...{0,3222}          % 1
  5669.       (112,2740){221,-23}...{1,0}          % 2
  5670.       (708,2725)--                    % 3
  5671.       (708,2633){-439,-45}...{-439,-45}     % 4
  5672.       (269,2588){0,-2931}...{0,-2931}     % 5
  5673.       (269,-343){439,-26}...{439,-26}     % 6
  5674.       (708,-369)--cycle);               % 7
  5675.  
  5676. %endchar(0);
  5677. endchar(323h#);
  5678.  
  5679. "rmrbrk";
  5680.  
  5681. %charbegin( 93, 805h#, programem*v#, descender*v#);
  5682. charbegin( 93, 1028h#, .75programem*v#, .25programem*v#); % DEK
  5683. n := 6;
  5684. t1 := 0;
  5685. t2 := 2;
  5686. t3 := 3;
  5687. t4 := 4;
  5688. t5 := 5;
  5689. t6 := 7;
  5690.  
  5691. adj_fill.A(1, 3, 4, 6)                    % fixed x points
  5692.      ()                         % fixed y points
  5693.      ()                         % tied points
  5694.      ((2,5))                         % verticals
  5695.      ()                         % horizontals
  5696.      ((45,-458){1,0}...{614,-78}          % 0
  5697.       (651,-487){0,3220}...{0,3220}          % 1
  5698.       (651,2733){-397,-48}...{-1,0}          % 2
  5699.       (45,2712)--                    % 3
  5700.       (45,2622){449,-32}...{449,-32}          % 4
  5701.       (494,2590){0,-2931}...{0,-2931}     % 5
  5702.       (494,-341){-449,-40}...{-449,-40}     % 6
  5703.       (45,-381)--cycle);               % 7
  5704.  
  5705. %endchar(0);
  5706. endchar(-58h#); % DEK
  5707.  
  5708. "fmappostrophe";
  5709.  
  5710. charbegin( 39, 785h#, capheight*v#, baseline );
  5711. n := 2;
  5712. t1 := 0;
  5713. t2 := 9;
  5714.  
  5715. adj_fill.A()                         % fixed x points
  5716.      ()                         % fixed y points
  5717.      ((1,1), (2,1))                    % tied points
  5718.      ()                         % verticals
  5719.      ()                         % horizontals
  5720.      ((385,2573){-1,0}...               % 0
  5721.       (285,2537){-105,-94}...          % 1
  5722.       (251,2464){0,-1}...               % 2
  5723.       (258,2326){69,-712}...{69,-712}     % 3
  5724.       (327,1614)--                    % 4
  5725.       (386,1614){96,686}...               % 5
  5726.       (482,2300){96,686}...               % 6
  5727.       (497,2449){0,1}...               % 7
  5728.       (466,2544){-152,162}...{-1,0}          % 8
  5729.       (385,2573)--cycle);               % 9
  5730.  
  5731. endchar(0);
  5732.  
  5733. "fmqmark";     %medium question mark
  5734.  
  5735. charbegin( 63, 1342h#, capheight*v#, baseline );
  5736. n := 12;
  5737. t1 := 0;
  5738. t2 := 1;
  5739. t3 := 3;
  5740. t4 := 5;
  5741. t5 := 8;
  5742. t6 := 9;
  5743. t7 := 10;
  5744. t8 := 11;
  5745. t9 := 14;
  5746. t10 := 16;
  5747. t11 := 18;
  5748. t12 := 19;
  5749.  
  5750. adj_fill.A(6, 12)                    % fixed x points
  5751.      (1, 7)                         % fixed y points
  5752.      ()                         % tied points
  5753.      ((4,9), (2,11), (5,8))               % verticals
  5754.      ((3,10))                    % horizontals
  5755.      ((290,1815){-238,177}...          % 0
  5756.       (168,2061){0,1}...               % 1
  5757.       (293,2340){1,1}...               % 2
  5758.       (846,2565){1,0}...               % 3
  5759.       (1187,2446){1,-1}...               % 4
  5760.       (1326,2090){0,-1}...               % 5
  5761.       (1215,1746){-425,-703}...          % *6
  5762.       (901,1387){-569,-493}...          % 7
  5763.       (593,1010){0,-1}...{232,-128}          % 8
  5764.       (716,803)--                    % 9
  5765.       (543,681){-306,127}...               % 10
  5766.       (362,925){0,1}...               % 11
  5767.       (460,1127){376,484}...               % *12
  5768.       (738,1409){623,538}...               % 13
  5769.       (1062,2017){0,1}...               % 14
  5770.       (941,2311){-1,1}...               % 15
  5771.       (698,2416){-1,0}...               % 16
  5772.       (464,2331){-1,-1}...               % 17
  5773.       (399,2180){0,-1}...{280,-221}          % 18
  5774.       (519,1952)--cycle);               % 19
  5775.  
  5776. n := 6;
  5777. t1 := 0;
  5778. t2 := 1;
  5779. t3 := 2;
  5780. t4 := 3;
  5781. t5 := 4;
  5782. t6 := 5;
  5783.  
  5784. adj_fill.B()                         % fixed x points
  5785.      ()                         % fixed y points
  5786.      ((1,2), (3,1), (4,1), (6,2))          % tied points
  5787.      ((2,5))                         % verticals
  5788.      ((1,3), (4,6))                    % horizontals
  5789.      ((608,-39){1,0}...               % 0
  5790.       (803,190){0,1}...{-1,0}          % 1
  5791.       (591,382)--                    % 2
  5792.       (591,382){-1,0}...               % 3
  5793.       (401,176){0,-1}...{1,0}          % 4
  5794.       (608,-39)--cycle);               % 5
  5795.  
  5796. endchar(0);
  5797.  
  5798. "fmampersand";
  5799.  
  5800. charbegin( 38, 2732h#, capheight*v#, baseline );
  5801. n := 21;
  5802. t1 := 0;
  5803. t2 := 1;
  5804. t3 := 2;
  5805. t4 := 3;
  5806. t5 := 6;
  5807. t6 := 8;
  5808. t7 := 12;
  5809. t8 := 14;
  5810. t9 := 16;
  5811. t10 := 21;
  5812. t11 := 23;
  5813. t12 := 24;
  5814. t13 := 26;
  5815. t14 := 30;
  5816. t15 := 32;
  5817. t16 := 34;
  5818. t17 := 38;
  5819. t18 := 40;
  5820. t19 := 42;
  5821. t20 := 44;
  5822. t21 := 45;
  5823.  
  5824. adj_fill.A(12, 21)                    % fixed x points
  5825.      (11)                         % fixed y points
  5826.      ((2,1), (3,2))                    % tied points
  5827.      ((9,14), (7,16), (6,17), (4,19))     % verticals
  5828.      ((10,13), (8,15), (5,18), (1,20))     % horizontals
  5829.      ((1287,1477){774,-41}...{1,0}          % 0
  5830.       (2027,1466){22,-143}...{22,-143}     % 1
  5831.       (2049,1323){110,-424}...          % 2
  5832.       (2083,1090){0,-1}...               % 3
  5833.       (1806,416){-264,-343}...          % 4
  5834.       (1613,185){-341,-236}...          % 5
  5835.       (1028,-31){-1,0}...               % 6
  5836.       (411,175){-1,1}...               % 7
  5837.       (182,722){0,1}...               % 8
  5838.       (371,1189){1,1}...               % 9
  5839.       (879,1538){571,342}...               % 10
  5840.       (1258,1794){1,1}...               % 11
  5841.       (1385,2154){0,1}...               % 12
  5842.       (1291,2358){-1,1}...               % 13
  5843.       (1155,2411){-1,0}...               % 14
  5844.       (970,2328){-1,-1}...               % 15
  5845.       (895,2068){0,-1}...               % 16
  5846.       (1016,1565){474,-1132}...          % *17
  5847.       (1369,936){454,-665}...          % 18
  5848.       (1819,414){1,-1}...               % 19
  5849.       (2024,253){389,-217}...          % *20
  5850.       (2208,197){1,0}...               % 21
  5851.       (2444,291){1,1}...{124,668}          % 22
  5852.       (2632,706)--                    % 23
  5853.       (2717,682){-92,-496}...          % 24
  5854.       (2453,95){-1,-1}...               % 25
  5855.       (2095,-42){-1,0}...               % 26
  5856.       (1612,179){-275,261}...          % 27
  5857.       (1149,763){-517,775}...          % 28
  5858.       (791,1412){-481,1162}...          % *29
  5859.       (668,1925){0,1}...               % 30
  5860.       (864,2422){1,1}...               % 31
  5861.       (1273,2584){1,0}...               % 32
  5862.       (1558,2466){1,-1}...               % 33
  5863.       (1651,2244){0,-1}...               % 34
  5864.       (1467,1810){-1,-1}...               % 35
  5865.       (1074,1521){-573,-348}...          % 36
  5866.       (627,1225){-1,-1}...               % 37
  5867.       (469,805){0,-1}...               % 38
  5868.       (688,278){1,-1}...               % 39
  5869.       (1085,119){1,0}...               % 40
  5870.       (1520,278){233,164}...               % 41
  5871.       (1889,986){0,1}...               % 42
  5872.       (1761,1276){-1,1}...               % 43
  5873.       (1536,1336){-1,0}...{-374,-43}          % 44
  5874.       (1282,1319)--cycle);               % 45
  5875.  
  5876. n := 4;
  5877. t1 := 0;
  5878. t2 := 1;
  5879. t3 := 2;
  5880. t4 := 3;
  5881.  
  5882. adj_fill.B()                         % fixed x points
  5883.      ()                         % fixed y points
  5884.      ((2,1), (3,2))                    % tied points
  5885.      ((1,4))                         % verticals
  5886.      ((1,4))                         % horizontals
  5887.      ((2603,1476){-410,-38}...{-1,0}          % 0
  5888.       (2027,1466)--                    % 1
  5889.       (2049,1323){1,0}...{325,-54}          % 2
  5890.       (2593,1298)--cycle);               % 3
  5891.  
  5892. endchar(0);
  5893.  
  5894. "fmcaret";
  5895.  
  5896. %charbegin( 94, 1850h#, programem*v#, lcbody*v#);
  5897. charbegin( 94, 1850h#, capheight*v#, baseline*v#); % DEK
  5898. n := 0;
  5899.  
  5900. adj_fill.A()                         % fixed x points
  5901.      ()                         % fixed y points
  5902.      ()                         % tied points
  5903.      ()                         % verticals
  5904.      ()                         % horizontals
  5905.      ((1832,1798){-905,921}...{-905,921}     % 0
  5906.       (927,2719){-927,-1001}...{-927,-1001}     % 1
  5907.       (0,1718)--                    % 2
  5908.       (85,1672){834,818}...{834,818}          % 3
  5909.       (919,2490){770,-790}...{770,-790}     % 4
  5910.       (1689,1700)--cycle);               % 5
  5911.  
  5912. endchar(0);
  5913.  
  5914. % ALTERNATE CHARACTERS
  5915. set_stem_round(240,250,267,267,290,315);
  5916. initrot:=identity shifted(0,-60v);
  5917. more_side(100h#); % DEK
  5918.  
  5919. "fmlda";      % '000
  5920.  
  5921. charbegin( 0, 1642h#, theight*v#, baseline );
  5922. n := 11;
  5923. t1 := 0;
  5924. t2 := 1;
  5925. t3 := 5;
  5926. t4 := 7.349;
  5927. t5 := 9;
  5928. t6 := 10;
  5929. t7 := 12;
  5930. t8 := 18;
  5931. t9 := 20;
  5932. t10 := 21;
  5933. t11 := 23;
  5934.  
  5935. adj_fill.A(1, 6)                    % fixed x points
  5936.      ()                         % fixed y points
  5937.      ((5,1), (6,2), (9,2), (10,1))          % tied points
  5938.      ((4,7), (3,8), (2,11))               % verticals
  5939.      ()                         % horizontals
  5940.      ((516,2555){-269,-306}...          % 0
  5941.       (403,2267){0,-1}...               % 1
  5942.       (505,2035){1,-1}...               % 2
  5943.       (879,1821){977,-352}...{660,-90}     % *3
  5944.       (1482,1683){24,-370}...{-195,-652}     % 4
  5945.       (1355,426){-653,-487}...{-653,-487}     % 5
  5946.       (702,-61){-334,228}...{-508,533}     % 6
  5947.       (186,362){-18,364}...{102,653}          % 7
  5948.       (222,1342){365,293}...{365,293}     % 8
  5949.       (587,1635)--                    % 9
  5950.       (667,1606){-274,-316}...          % 10
  5951.       (526,1316){-190,-712}...          % *11
  5952.       (477,894){0,-1}...               % 12
  5953.       (468,604){16,-363}...               % *13
  5954.       (493,531){499,-439}...               % 14
  5955.       (813,292){491,-264}...               % *15
  5956.       (984,267){142,130}...               % 16
  5957.       (1133,601){202,941}...               % *17
  5958.       (1186,1208){0,1}...{-26,229}          % 18
  5959.       (1168,1433){-501,173}...{-501,173}     % 19
  5960.       (667,1606){-80,29}...{-80,29}          % 20
  5961.       (587,1635){-481,188}...          % 21
  5962.       (259,1808){-1,1}...               % 22
  5963.       (178,2014){0,1}...{221,206}          % 23
  5964.       (471,2590)--cycle);               % 24
  5965.  
  5966. endchar(0);
  5967.  
  5968. "fmldb";      % '001
  5969.  
  5970. charbegin( 1, 1645h#, theight*v#, baseline );
  5971.  
  5972. n := 6;
  5973. t1 := 4;
  5974. t2 := 6.799;
  5975. t3 := 9;
  5976. t4 := 11.69;
  5977. t5 := 14;
  5978. t6 := 18;
  5979.  
  5980. adj_fill.A(3, 6)                    % fixed x points
  5981.      ()                         % fixed y points
  5982.      ()                         % tied points
  5983.      ((2,4), (1,5))                    % verticals
  5984.      ()                         % horizontals
  5985.      ((45,2100){225,47}...{225,47}          % 0
  5986.       (270,2147){324,-102}...{388,-399}     % 1
  5987.       (1172,1563){22,-295}...          % 2
  5988.       (1146,738){-237,-1343}...{-244,-275}     % *3
  5989.       (935,220){-349,258}...               % 4
  5990.       (550,502){-367,360}...               % 5
  5991.       (506,579){-42,400}...               % 6
  5992.       (481,1141){38,920}...{43,100}          % *7
  5993.       (544,1499){221,228}...{221,228}     % 8
  5994.       (765,1727)--                    % 9
  5995.       (695,1762){-456,-318}...{-299,-283}     % 10
  5996.       (226,1393){-92,-689}...{31,-550}     % 11
  5997.       (189,364){490,-509}...{267,-199}     % 12
  5998.       (659,-52){656,415}...{265,216}          % 13
  5999.       (1356,436){225,617}...               % 14
  6000.       (1480,1016){135,1321}...{-24,421}     % *15
  6001.       (1491,1757){-356,383}...{-224,67}     % 16
  6002.       (485,2340){-301,-84}...{-185,-95}     % 17
  6003.       (31,2165)--cycle);               % 18
  6004.  
  6005. endchar(0);
  6006.  
  6007. "fmlfa";     % '002
  6008. % was "fmlf" --- DEK
  6009. charbegin(2,1034h#, ascender*v#, descender*v#);
  6010.  
  6011. n := 12;
  6012. t1 := 0;
  6013. t2 := 2;
  6014. t3 := 4;
  6015. t4 := 7;
  6016. t5 := 8;
  6017. t6 := 9;
  6018. t7 := 11;
  6019. %t8 := 15;
  6020. t8 := 14; % DEK
  6021. t9 := 16;
  6022. t10 := 17;
  6023. t11 := 19;
  6024. t12 := 21;
  6025.  
  6026. adj_fill.A(1, 4, 9)                    % fixed x points
  6027.      (7)                         % fixed y points
  6028.      ()                         % tied points
  6029.      ((6,8), (3,11))                    % verticals
  6030.      ((2,12), (9,10), (4,5))               % horizontals
  6031.      ((1156,2463){-265,-308}...{-265,-308}     % 0
  6032.       (891,2155){-347,418}...          % 1
  6033.       (664,2282){-1,0}...               % 2
  6034.       (509,2226){-1,-1}...               % 3
  6035.       (434,2070){0,-1}...               % 4
  6036.       (497,1827){248,-586}...{429,-685}     % *5
  6037.       (682,1484){420,0}...{420,0}          % 6
  6038.       (1102,1484){-97,-115}...{-97,-115}     % 7
  6039.       (1005,1369){-310,0}...{-310,0}          % 8
  6040.       (695,1369){0,-1}...{-74,-495}          % 9
  6041.       (612,-199){-149,-275}...{-287,-539}     % 10
  6042.       (325,-738)--                    % 11
  6043.       (237,-733){198,512}...               % 12
  6044.       (360,-321){82,377}...               % 13
  6045.       (396,191){0,1}...{0,1}               % 14
  6046.       (364,1369){-357,0}...{-357,0}          % 15
  6047.       (7,1369){112,115}...{112,115}          % 16
  6048.       (119,1484){239,0}...{239,0}          % 17
  6049.       (358,1484){-56,691}...               % 18
  6050.       (328,1986){0,1}...               % 19
  6051.       (537,2459){1,1}...               % 20
  6052.       (772,2580){1,0}...               % 21
  6053.       (1024,2471){218,-169}...          % 22
  6054.       (1054,2458){1.866,-.08138}...          % 23
  6055.       (1081,2467){66,55}...{66,55}          % 24
  6056.       (1147,2522)--cycle);               % 25
  6057.  
  6058. endchar(0);
  6059.  
  6060. "fmlfb";      % '003
  6061.  
  6062. charbegin( 3,1019h#, ascender*v#, descender*v#);
  6063. n := 13;
  6064. t1 := 0;
  6065. t2 := 1;
  6066. t3 := 3;
  6067. t4 := 6;
  6068. t5 := 7;
  6069. t6 := 9;
  6070. t7 := 13;
  6071. t8 := 16;
  6072. t9 := 18;
  6073. t10 := 19;
  6074. t11 := 23;
  6075. t12 := 25;
  6076. t13 := 27;
  6077.  
  6078. adj_fill.A(1, 5, 10)                    % fixed x points
  6079.      (7, 13)                         % fixed y points
  6080.      ()                         % tied points
  6081.      ((6,8), (3,11))                    % verticals
  6082.      ((4,5), (9,10), (2,12))               % horizontals
  6083.      ((1070,2426){-1,1}...{-10,-1}          % 0
  6084.       (609,2572){-359,-248}...          % 1
  6085.       (439,2427){-1,-1}...               % 2
  6086.       (236,2014){0,-1}...               % 3
  6087.       (285,1736){52,-240}...{141,-651}     % 4
  6088.       (337,1496){-192,0}...{-192,0}          % 5
  6089.       (145,1496){-143,-118}...{-143,-118}     % 6
  6090.       (2,1378){334,0}...{334,0}          % 7
  6091.       (336,1378){6,-279}...               % 8
  6092.       (353,534){0,-1}...               % 9
  6093.       (343,-194){-36,-466}...          % 10
  6094.       (297,-462){-132,-445}...{-204,-532}     % 11
  6095.       (205,-742)--                    % 12
  6096.       (274,-768){166,273}...               % 13
  6097.       (440,-495){166,273}...               % 14
  6098.       (598,-136){91,310}...               % 15
  6099.       (649,596){0,1}...{0,1}               % 16
  6100.       (663,1378){332,0}...{332,0}          % 17
  6101.       (995,1378){82,118}...{82,118}          % 18
  6102.       (1077,1496){-399,0}...{-399,0}          % 19
  6103.       (678,1496){-95,463}...               % 20
  6104.       (645,1590){-185,355}...          % 21
  6105.       (460,1945){-185,355}...          % 22
  6106.       (387,2145){0,1}...               % 23
  6107.       (441,2280){1,1}...               % 24
  6108.       (572,2330){1,0}...               % 25
  6109.       (743,2250){1,-1}...{207,-440}          % 26
  6110.       (859,2081){36,4}...{36,4}          % 27
  6111.       (895,2085)--cycle);               % 28
  6112.  
  6113. endchar(0);
  6114.  
  6115. "fmlga";      % '004
  6116.  
  6117. charbegin( 4, 1664h#, lcbody*v#, descender*v#);
  6118. n := 6;
  6119. t1 := 0;
  6120. t2 := 4;
  6121. t3 := 6;
  6122. t4 := 7;
  6123. t5 := 8;
  6124. t6 := 12;
  6125.  
  6126. adj_fill.A(3, 6)                    % fixed x points
  6127.      ()                         % fixed y points
  6128.      ((1,4), (3,1), (4,2), (6,3))          % tied points
  6129.      ((2,5))                         % verticals
  6130.      ()                         % horizontals
  6131.      ((1157,424){-669,-480}...{-669,-480}     % 0
  6132.       (488,-56){-305,355}...{-305,355}     % 1
  6133.       (183,299){-15,310}...               % 2
  6134.       (177,950){49,1114}...{174,753}          % *3
  6135.       (232,1413){143,100}...{503,264}     % 4
  6136.       (826,1803){347,-221}...{424,-116}     % 5
  6137.       (1256,1624)--                    % 6
  6138.       (1186,1373){-354,25}...{-287,98}     % 7
  6139.       (562,1510){-230,-493}...          % 8
  6140.       (489,1136){-67,-999}...{22,-356}     % *9
  6141.       (495,511){439,-525}...{322,-276}     % 10
  6142.       (724,278){437,253}...{437,253}          % 11
  6143.       (1161,531)--cycle);               % 12
  6144.  
  6145. n := 10;
  6146. t1 := 1;
  6147. t2 := 3;
  6148. t3 := 6;
  6149. t4 := 7;
  6150. t5 := 8;
  6151. t6 := 9;
  6152. t7 := 11;
  6153. t8 := 14;
  6154. t9 := 18;
  6155. t10 := 19;
  6156.  
  6157. adj_fill.B(7, 10)                    % fixed x points
  6158.      (1)                         % fixed y points
  6159.      ((3,4), (4,3), (5,2), (6,1))          % tied points
  6160.      ((3,8))                         % verticals
  6161.      ((2,9))                         % horizontals
  6162.      ((233,-116){39,3}...{39,3}          % 0
  6163.       (272,-113){65,-270}...               % 1
  6164.       (416,-343){1,-1}...               % 2
  6165.       (841,-495){1,0}...               % 3
  6166.       (1162,-362){1,1}...               % 4
  6167.       (1244,-147){0,1}...{-134,704}          % 5
  6168.       (1157,424){4,107}...{4,107}          % 6
  6169.       (1161,531){25,842}...{25,842}          % 7
  6170.       (1186,1373){70,251}...{70,251}          % 8
  6171.       (1256,1624)--                    % 9
  6172.       (1543,1782){20,-36}...{20,-36}          % 10
  6173.       (1563,1746){-314,-665}...          % 11
  6174.       (1484,1462){-109,-696}...          % *12
  6175.       (1454,1050){-6,-491}...{0,-509}     % 13
  6176.       (1448,559){107,-705}...          % 14
  6177.       (1525,-7){0,-1}...{-233,-524}          % 15
  6178.       (1496,-135){-465,-515}...{-465,-515}     % 16
  6179.       (1031,-650){-401,-279}...          % 17
  6180.       (735,-733){-1,0}...{-1,1}          % 18
  6181.       (90,-470)--cycle);               % 19
  6182.  
  6183. endchar(0);
  6184.  
  6185. "fmlka";      % '005
  6186.  
  6187. charbegin( 5, 1033h#, ascender*v#, baseline );
  6188. n := 5;
  6189. t1 := 0;
  6190. t2 := 2;
  6191. t3 := 4;
  6192. t4 := 6;
  6193. t5 := 7;
  6194.  
  6195. adj_fill.A()                         % fixed x points
  6196.      (1, 3)                         % fixed y points
  6197.      ((1,2), (5,1))                    % tied points
  6198.      ()                         % verticals
  6199.      ((2,4))                         % horizontals
  6200.      ((506,1504){0,1}...               % 0
  6201.       (624,1902){1,1}...               % 1
  6202.       (704,1935){1,0}...               % 2
  6203.       (812,1865){1,-1}...{266,-349}          % 3
  6204.       (932,1723)--                    % 4
  6205.       (1066,1925){-211,539}...{-201,309}     % 5
  6206.       (912,2216){-361,-215}...{-384,-301}     % 6
  6207.       (528,1915)--cycle);               % 7
  6208.  
  6209. n := 2;
  6210. t1 := 1;
  6211. t2 := 2;
  6212.  
  6213. adj_fill.B()                         % fixed x points
  6214.      ()                         % fixed y points
  6215.      ((1,3), (2,1))                    % tied points
  6216.      ()                         % verticals
  6217.      ()                         % horizontals
  6218.      ((826,2603){-290,-173}...{-421,-315}     % 0
  6219.       (349,2271)--                    % 1
  6220.       (528,1915){0,1}...               % 2
  6221.       (637,2335){183,243}...{262,207}     % 3
  6222.       (888,2574)--cycle);               % 4
  6223.  
  6224. n := 11;
  6225. t1 := 0;
  6226. t2 := 1;
  6227. t3 := 2;
  6228. t4 := 3;
  6229. t5 := 4;
  6230. t6 := 5;
  6231. t7 := 8;
  6232. t8 := 11;
  6233. t9 := 15;
  6234. t10 := 16;
  6235. t11 := 21;
  6236.  
  6237. adj_fill.C(4, 8, 10)                    % fixed x points
  6238.      (7)                         % fixed y points
  6239.      ((1,3), (2,1), (3,2), (11,3))          % tied points
  6240.      ((6,9))                         % verticals
  6241.      ((4,5))                         % horizontals
  6242.      ((349,2271){179,-356}...{179,-356}     % 0
  6243.       (528,1915){-22,-411}...{-22,-411}     % 1
  6244.       (506,1504){427,0}...{427,0}          % 2
  6245.       (933,1504){-92,-130}...{-92,-130}     % 3
  6246.       (841,1374){-320,0}...{-320,0}          % 4
  6247.       (521,1374){0,-1}...{0,-1}          % 5
  6248.       (533,492){212,-178}...               % 6
  6249.       (745,314){212,-178}...               % 7
  6250.       (786,296){1,0}...               % 8
  6251.       (834,315){183,88}...{216,111}          % 9
  6252.       (1050,426)--                    % 10
  6253.       (1054,340){-512,-355}...{-512,-355}     % 11
  6254.       (542,-15){-272,276}...               % 12
  6255.       (197,288){-265,198}...               % 13
  6256.       (205,284){42,725}...{0,1}          % 14
  6257.       (222,1374){-228,0}...{-228,0}          % 15
  6258.       (-6,1374){176,130}...{176,130}          % 16
  6259.       (170,1504){72,0}...{72,0}          % 17
  6260.       (242,1504){0,1}...{-47,379}          % 18
  6261.       (205,2520){46,23}...{46,23}          % 19
  6262.       (251,2543){98,-272}...{98,-272}     % 20
  6263.       (349,2271)--cycle);               % 21
  6264.  
  6265. endchar(0);
  6266.  
  6267. "fmlta";      % '006
  6268.  
  6269. %charbegin( 6, 1037h#, ascender*v#, baseline );
  6270. charbegin( 6, 1037h#, theight*v#, baseline );
  6271. n := 9;
  6272. t1 := 0;
  6273. t2 := 3;
  6274. t3 := 5;
  6275. t4 := 7;
  6276. t5 := 10;
  6277. t6 := 11;
  6278. t7 := 13;
  6279. t8 := 14;
  6280. t9 := 15;
  6281.  
  6282. adj_fill.A(2, 5, 8)                    % fixed x points
  6283.      (1)                         % fixed y points
  6284.      ()                         % tied points
  6285.      ((3,7))                         % verticals
  6286.      ((8,9), (4,6))                    % horizontals
  6287.      ((633,2199){39,-17}...{39,-17}          % 0
  6288.       (672,2182){-62,-369}...{0,-1}          % 1
  6289.       (631,1510){457,0}...{457,0}          % 2
  6290.       (1088,1510){-98,-142}...{-98,-142}     % 3
  6291.       (990,1368){-355,0}...{-355,0}          % 4
  6292.       (635,1368){0,-1}...{35,-658}          % 5
  6293.       (639,515){218,-181}...               % 6
  6294.       (892,316){323,-213}...               % 7
  6295.       (961,321){227,142}...{206,113}          % 8
  6296.       (1167,434)--                    % 9
  6297.       (1186,370){-506,-386}...{-506,-386}     % 10
  6298.       (680,-16){-351,301}...{-1,1}          % 11
  6299.       (329,285){65,672}...{0,1}          % 12
  6300.       (343,1368){-337,0}...{-337,0}          % 13
  6301.       (6,1368){134,142}...{134,142}          % 14
  6302.       (140,1510){197,0}...{197,0}          % 15
  6303.       (337,1510){0,1}...{-15,456}          % 16
  6304.       (331,2034)--cycle);               % 17
  6305.  
  6306. endchar(0);
  6307.  
  6308. "fmlua";      % '007
  6309.  
  6310. charbegin( 7, 1654h#, lcbody*v#, baseline );
  6311. n := 6;
  6312. t1 := 0;
  6313. t2 := 5;
  6314. t3 := 7;
  6315. t4 := 11;
  6316. t5 := 13;
  6317. t6 := 17;
  6318.  
  6319. adj_fill.A(1, 2, 4)                    % fixed x points
  6320.      ()                         % fixed y points
  6321.      ((6,1))                         % tied points
  6322.      ((3,5))                         % verticals
  6323.      ()                         % horizontals
  6324.      ((1147,347){-201,-97}...          % 0
  6325.       (631,6){-417,-340}...               % 1
  6326.       (581,-21){-1.873,-.3569}...          % 2
  6327.       (539,-16){-189,148}...               % 3
  6328.       (287,160){-426,248}...{-325,45}     % *4
  6329.       (113,232){181,151}...               % 5
  6330.       (231,503){159,805}...               % *6
  6331.       (272,1037){0,1}...               % 7
  6332.       (238,1340){-131,481}...{-452,376}     % *8
  6333.       (141,1518){-151,-75}...{-151,-75}     % 9
  6334.       (-10,1443)--                    % 10
  6335.       (-63,1487){403,333}...{403,333}     % 11
  6336.       (340,1820){381,-494}...{187,-144}     % 12
  6337.       (533,1620){26,-796}...               % 13
  6338.       (540,1033){0,-1}...{-105,-294}          % 14
  6339.       (436,439){268,-91}...{191,-123}     % 15
  6340.       (796,275){350,168}...{350,168}          % 16
  6341.       (1146,443)--cycle);               % 17
  6342.  
  6343. n := 3;
  6344. t1 := 0;
  6345. t2 := 4;
  6346. t3 := 8;
  6347.  
  6348. adj_fill.B(1)                         % fixed x points
  6349.      ()                         % fixed y points
  6350.      ((2,1))                         % tied points
  6351.      ((2,3))                         % verticals
  6352.      ()                         % horizontals
  6353.      ((1805,385){-141,-113}...{-345,-342}     % 0
  6354.       (1364,-14){-35,18}...{-35,18}          % 1
  6355.       (1329,4){-118,292}...{-375,556}     % 2
  6356.       (1153,345){-7,98}...{-7,98}          % 3
  6357.       (1146,443){26,237}...{-24,687}          % 4
  6358.       (1146,1625)--                    % 5
  6359.       (1462,1796){26,-28}...{26,-28}          % 6
  6360.       (1488,1768){-105,-635}...          % 7
  6361.       (1427,892){0,-1}...               % 8
  6362.       (1455,541){51,-333}...               % 9
  6363.       (1540,380){222,-291}...          % 10
  6364.       (1619,375){165,66}...{165,66}          % 11
  6365.       (1784,441)--cycle);               % 12
  6366.  
  6367. endchar(0);
  6368.  
  6369. "fmnontab1";     %non-tabular 1, medium   (fitted 1)
  6370. initrot:=identity; % DEK
  6371. more_side(0); % DEK
  6372. charbegin( 127, 1400h#, lfigheight*v#, baseline );
  6373. n := 0;
  6374.  
  6375. adj_fill.A()                         % fixed x points
  6376.      ()                         % fixed y points
  6377.      ()                         % tied points
  6378.      ()                         % verticals
  6379.      ()                         % horizontals
  6380.      ((941,64){-28,408}...               % 0
  6381.       (911,1560){0,1}...               % 1
  6382.       (940,2579){36,811}...{-24,24}          % 2
  6383.       (916,2603){-716,-296}...{-716,-296}     % 3
  6384.       (200,2307)--                    % 4
  6385.       (200,2221){1,0}...               % 5
  6386.       (462,2221){1,0}...               % 6
  6387.       (586,2102){52,-490}...               % 7
  6388.       (605,1542){0,-1}...{-8,-451}          % 8
  6389.       (590,-7){35,-31}...{35,-31}          % 9
  6390.       (625,-38)--cycle);               % 10
  6391.  
  6392. endchar(0);
  6393.