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

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