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 / eurbch.mf < prev    next >
Text File  |  1996-10-12  |  216KB  |  6,638 lines

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