Plan 9 from Bell Labs’s /usr/web/sources/contrib/steve/root/sys/lib/texmf/fonts/source/ams/euler/eurmch.mf

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


%% @metafontfile{
%%     filename="eurmch.mf",
%%     version="2.2",
%%     date="04-JAN-1995",
%%     filetype="Metafont: driver",
%%     copyright="Copyright (C) American Mathematical Society,
%%            all rights reserved.  Copying of this file is
%%            authorized only if either:
%%            (1) you make absolutely no changes to your copy
%%                including name; OR
%%            (2) if you do make changes, you first rename it to some
%%                other name.",
%%     author="American Mathematical Society",
%%     address="American Mathematical Society,
%%            Technical Support, Electronic Products and Services,
%%            P. O. Box 6248,
%%            Providence, RI 02940,
%%            USA",
%%     telephone="401-455-4080 or (in the USA) 800-321-4AMS",
%%     email="Internet: [email protected]",
%%     codetable="ISO/ASCII",
%%     checksum = "51293 6739 20439 219457"
%%     keywords="amsfonts, tex, metafont , euler ",
%%     abstract="This is the driver file for use with 
%%            the Euler roman medium fonts in AMSFonts 2.2."
%%     docstring       = "The checksum field above contains a CRC-16
%%                        checksum as the first value, followed by the
%%                        equivalent of the standard UNIX wc (word
%%                        count) utility output of lines, words, and
%%                        characters.  This is produced by Robert
%%                        Solovay's checksum utility.",
%%     }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Euler Roman Medium

% ----- This font is set up as Math Italic, \textfont1, page 430 of TeXbook

mode_setup;
font_coding_scheme "TeX math italic subset";

%     EULER ROMAN MEDIUM PARAMETERS

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

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


input eubase;

% individual character widths for medium lower case

%        20h# means 20 bitpad units.
% original values were for text spacing; I've made changes for math -- DEK

lefta# = 0h#;     righta# = 0h#;
leftb# = 0h#;     rightb# = -50h#;
leftc# = -50h#;     rightc# = 0h#;
leftd# = 0h#;     rightd# = 0h#;
lefte# = -50h#;     righte# = 0h#;
%leftf# = 0h#;     rightf# = 0h#;
leftf# = 50h#;     rightf# = 100h#; % DEK
leftg# = 0h#;     rightg# = -50h#;
lefth# = 0h#;     righth# = 0h#;
%lefti# = 0h#;     righti# = 0h#;
lefti# = 50h#;     righti# = 50h#; % DEK
leftj# = 0h#;     rightj# = 0h#;
leftk# = 0h#;     rightk# = 0h#;
%leftl# = 0h#;     rightl# = 0h#;
leftl# = 50h#;     rightl# = 50h#; % DEK
leftm# = 0h#;     rightm# = 0h#;
leftn# = -50h#;     rightn# = 0h#;
%lefto# = 0h#;     righto# = -40h#;
lefto# = -50h#;     righto# = -120h#; % DEK
leftp# = 0h#;     rightp# = 0h#;
leftq# = 0h#;     rightq# = 0h#;
%leftr# = 0h#;     rightr# = 0h#;
leftr# = 0h#;     rightr# = 100h#; % DEK
lefts# = 40h#;     rights# = 0h#;
%leftt# = 0h#;     rightt# = 0h#;
leftt# = 0h#;     rightt# = 100h#; % DEK
%leftu# = 0h#;     rightu# = 0h#;
leftu# = 50h#;     rightu# = 50h#; % DEK
leftv# = 0h#;     rightv# = 0h#;
leftw# = 0h#;     rightw# = 0h#;
%leftx# = 0h#;     rightx# = 0h#;
leftx# = 50h#;     rightx# = 50h#; % DEK
lefty# = 0h#;     righty# = -50h#;
%leftz# = 0h#;     rightz# = 0h#;
leftz# = 50h#;     rightz# = 50h#; % DEK

% information for positioning of math accents --- DEK (updated May 1988!)
skewchar=oct"177"; skew#=1/36programem*h#;
ligtable "G": "O": "S": "a": "c": "e": "g": "o": "s": "z":
 1: 2: 3: 5: 7: 9: 26: % Delta Theta Lambda Pi Upsilon Psi rho
 18: 32: 33: 39: skewchar kern skew#; % theta psi omega varphi
ligtable "C": "X": "Z": 16: 25: 28: 125: % zeta pi tau wp
 skewchar kern 2skew#;
ligtable "f": skewchar kern 4skew#;
ligtable 21: skewchar kern-2skew#; % lambda
charcode:=skewchar; shipout nullpicture;

% spacing corrections before and after punctuation --- DEK
slashchar=oct"75"; periodchar=oct"72"; commachar=oct"73";
ligtable "V": "W": "Y": skewchar kern 2skew#, "T": 0: "F": % Gamma
 slashchar kern-2skew#,"P": commachar kern-3skew#, periodchar kern-3skew#;
ligtable slashchar: "A" kern-2skew#, "a" kern -2skew#, "g" kern-2skew#,
 1 kern-2skew#, 3 kern-2skew#, oct"13" kern-2skew#; % Delta, Lambda, alpha

% LOWER CASE
set_stem_round(250,268,290,303,325,341); % DEK
more_side(100h#);

"rmla";

charbegin( "a", 2055h# + lefta# + righta#, lcbody*v#, baseline );

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

adj_fill.A(7)                         % fixed x points
     (1, 10)                         % fixed y points
     ((1,5), (2,1), (3,2), (4,3), (5,4), (10,5))% tied points
     ((4,9))                         % verticals
     ((6,8))                         % horizontals
     ((1700,1708){-189,-110}...{-189,-110}     % 0
      (1511,1598){-90,-382}...{-90,-382}     % 1
      (1421,1216){0,-830}...{0,-830}          % 2
      (1421,386){4,-165}...{4,-165}          % 3
      (1425,221){42,-396}...               % 4
      (1492,10){135,-154}...               % 5
      (1640,-45){1,0}...{513,317}          % 6
      (2107,172)--                    % 7
      (2081,258){-311,-107}...          % 8
      (1839,193){-1,0}...               % 9
      (1742,242){-97,156}...               % 10
      (1701,433){-19,738}...{24,409}          % 11
      (1718,1692){-18,16}...{-18,16}          % 12
      (1700,1708)--cycle);               % 13

n := 11;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 9;
t8 := 11;
t9 := 14;
t10 := 16;
t11 := 18;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (5,1), (6,3), (7,2), (11,3))     % tied points
     ((3,9))                         % verticals
     ((4,8), (2,10))                    % horizontals
     ((1425,221){-313,-207}...          % 0
      (1061,23){-654,-266}...          % *1
      (771,-45){-1,0}...               % 2
      (399,111){-200,239}...               % 3
      (224,713){1,294}...               % 4
      (515,1508){280,273}...               % 5
      (1106,1725){1,0}...{344,-245}          % 6
      (1511,1598)--                    % 7
      (1421,386){0,830}...               % 8
      (1421,1216){10,830}...               % 9
      (1365,1496){-127,135}...          % 10
      (1109,1596){-1,0}...               % 11
      (758,1440){-159,-149}...          % 12
      (614,1185){-198,-646}...          % *13
      (560,794){-2,-207}...               % 14
      (663,351){98,-152}...               % 15
      (1024,199){1,0}...               % 16
      (1201,247){397,187}...{306,235}     % *17
      (1421,386)--cycle);               % 18
endchar(lefta#);

"rmlb";

charbegin( "b", 2029h# + leftb# + rightb#, ascender*v#, baseline );

n := 10;
t1 := 0;
t2 := 4;
t3 := 8;
t4 := 11;
t5 := 13;
t6 := 15;
t7 := 16;
t8 := 19;
t9 := 22;
t10 := 27;

adj_fill.A()                         % fixed x points
     (6)                         % fixed y points
     ()                         % tied points
     ((4,8), (2,6))                    % verticals
     ((5,7), (3,9), (1,10))               % horizontals
     ((0,2367){223,-29}...               % 0
      (223,2338){246,-31}...               % 1
      (336,2211){68,-346}...               % 2
      (353,1948){11,-511}...               % 3
      (359,1152){-3,-585}...               % 4
      (351,561){-1.529,-808.3}...          % *5
      (357,344){89,-1069}...               % *6
      (448,83){11,-10}...               % 7
      (782,-38){1,0}...               % 8
      (1592,344){339,353}...               % 9
      (1765,654){244,755}...               % *10
      (1836,1099){14,464}...               % 11
      (1675,1591){-274,261}...          % 12
      (1314,1730){-1,0}...{-476,-371}     % 13
%      (632,1446)--                    % 14
      (632-47.6/3,1446-37.1/3)--          % 14 % DEK
      (632,1264){317,279}...               % 15
      (1138,1504){333,4}...               % 16
      (1434,1354){177,-205}...          % 17
      (1508,1162){93,-515}...          % *18
      (1527,839){-13,-454}...          % 19
      (1468,488){-205,-576}...          % *20
      (1322,263){-279,-226}...          % 21
      (984,140){-1,0}...               % 22
      (703,324){-7,10}...{24,447}          % 23
      (638,1274){-14,179}...{-14,179}     % 24
      (624,1453){-22,731}...{54,533}          % 25
      (675,2533){-675,-72}...{-675,-72}     % 26
      (0,2461)--cycle);               % 27


endchar(leftb#);

"rmlc";

charbegin( "c", 1653h# + leftc# + rightc#, lcbody*v#, baseline );

%rotation of 6 degrees, watch out for lateral drift!
rot := identity rotated 6 shifted (0,-100v);




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

adj_fill.A(6, 10)                    % fixed x points
     (1, 5)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1424,1155){-59,29}...{-59,29}          % 0
      (1365,1184){-67,464}...          % 1
      (1274,1501){-210,282}...          % 2
      (1077,1599){-424,2}...               % 3
      (765,1484){-185,-179}...          % 4
      (535,791){0,-1}...               % 5
      (685,310){214,-235}...               % 6
      (1045,171){267,0}...{531,382}          % 7
      (1592,380)--                    % 8
      (1638,285){-453,-364}...          % 9
      (848,-54){-556,0}...               % 10
      (409,113){-361,390}...               % 11
      (265,379){-180,640}...               % *12
      (220,753){0,1}...               % 13
      (535,1531){317,284}...               % 14
      (1172,1741){555,2}...               % 15
      (1528,1620){351,-345}...{0,-334}     % 16
      (1645,1329)--cycle);               % 17

endchar(leftc#);

"rmld";

charbegin( "d", 2036h# + leftd# + rightd#, ascender*v#, baseline );
n := 10;
t1 := 2;
t2 := 5;
t3 := 7;
t4 := 9;
t5 := 11;
t6 := 12;
t7 := 14;
t8 := 15;
t9 := 18;
t10 := 19;

adj_fill.A(3, 10)                    % fixed x points
     ()                         % fixed y points
     ((5,1), (6,2), (7,3), (8,4))          % tied points
%     ((1,5))                         % verticals
     ((1,6))                         % verticals % DEK
     ((9,10), (2,4))                    % horizontals
     ((1721,2535){-9,-393}...{0,-1}          % 0
      (1710,1200){-9,-393}...{-9,-393}     % 1
      (1710,890){0,-1}...               % 2
      (1713,407){43,-662}...               % *3
      (1753,228){152,-271}...          % 4
      (1853,167){323,-4}...{339,135}          % 5
      (2080,249)--                    % 6
      (2110,163){-402,-273}...          % 7
      (1820,-11){-477,-233}...          % *8
      (1633,-70){-359,-1}...               % 9
      (1485,-5){-202,299}...{-17,213}     % 10
      (1413,198){-6,158}...{-6,158}          % 11
      (1427,375){0,1}...               % 12
      (1427,1146){0,1}...{-1,1}          % 13
      (1318,1512){109,130}...{109,130}     % 14
      (1427,1642){0,1}...               % 15
      (1402,2226){-77,307}...          % 16
      (1300,2334){-419,110}...{-535,8}     % 17
      (1065,2361){-2,91}...{-2,91}          % 18
      (1063,2452)--cycle);               % 19

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,4), (6,3), (10,2))          % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1413,198){-343,-225}...          % 0
      (1051,1){-643,-264}...               % *1
      (770,-66){-534,2}...               % 2
      (416,70){-290,303}...               % 3
      (219,667){-1,391}...               % 4
      (499,1474){269,282}...               % 5
      (1095,1709){1,0}...{412,-157}          % 6
      (1427,1642)--                    % 7
      (1318,1512){-1,1}...               % 8
      (1081,1582){-1,0}...               % 9
      (762,1432){-276,-284}...          % 10
      (540,752){-3,-382}...               % 11
      (695,285){237,-242}...               % 12
      (978,178){393,20}...{17,20}          % 13
      (1427,375)--cycle);               % 14
endchar(leftd#);

"rmle";

charbegin( "e", 1700h# + lefte# + righte#, lcbody*v#, baseline );

%rotation of 6 degrees, watch out for lateral drift!
rot := identity rotated 6 shifted (30h,-70v);

n := 13;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 10;
t7 := 12;
t8 := 13;
t9 := 15;
t10 := 18;
t11 := 20;
t12 := 22;
t13 := 25;

adj_fill.A(2, 8, 12)                    % fixed x points
     (7, 13)                         % fixed y points
     ((1,1), (4,1), (5,2), (13,2))          % tied points
     ((5,10))                    % verticals
     ((6,9), (3,11))                    % horizontals
     ((560,880){817,230}...               % 0
      (1377,1110){788,229}...          % 1
      (1421,1150){.8797,1.663}...          % 2
      (1433,1235){-24,334}...          % 3
      (1316,1492){-259,267}...          % 4
      (1110,1583){-300,-2}...          % 5
      (810,1460){-205,-185}...{-30,-424}     % 6
      (560,880){0,-142}...{0,-142}          % 7
      (560,738){0,-301}...               % 8
      (708,313){230,-260}...               % 9
      (1070,171){329,2}...               % 10
      (1307,224){546,205}...{456,268}     % *11
      (1616,376)--                    % 12
      (1672,282){-420,-317}...          % 13
      (1240,24){-804,-345}...          % *14
      (868,-63){-394,5}...               % 15
      (439,92){-357,343}...               % 16
      (307,336){-179,621}...               % *17
      (260,713){0,1}...               % 18
      (520,1461){313,296}...               % 19
      (1160,1719){423,5}...               % 20
      (1606,1576){223,-225}...          % 21
      (1750,1204){0,-425}...               % 22
      (1741,1121){-.9976,-1.45}...          % 23
      (1663,1081){-1083,-338}...{-10,-4}     % 24
      (560,738)--cycle);               % 25
endchar(lefte#);

"rmlf";

charbegin( "f", 1205h# + leftf# + rightf#, ascender*v#, baseline );
n := 11;
t1 := 0;
t2 := 2;
t3 := 3;
t4 := 5;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 13;
%t9 := 14;
t9 := 15; % DEK
t10 := 16;
t11 := 18;

adj_fill.A(3, 6, 10)                    % fixed x points
     (1, 7)                         % fixed y points
     ()                         % tied points
     ((2,11), (4,9))                    % verticals
%     ((5,8), (2,4))                    % horizontals
     ((5,8), (2,4), (9,11))               % horizontals % DEK
     ((476,-38){-54,37}...{-54,37}          % 0
      (422,-1){11,405}...{0,1}          % 1
      (438,1500){-464,0}...{-464,0}          % 2
      (-26,1500){31,138}...{31,138}          % 3
      (5,1638){426,0}...{426,0}          % 4
      (431,1638){68,920}...               % 5
      (525,2096){291,781}...               % *6
      (722,2419){1,1}...               % 7
      (1126,2609){1,0}...{414,-423}          % 8
      (1347,2518)--                    % 9
      (1219,2244){-48,-4}...{-48,-4}          % 10
      (1171,2240){-179,433}...          % 11
      (1110,2338){-1,1}...               % 12
      (950,2404){-1,0}...               % 13
      (821,2345){-1,-1}...{0,-1}          % 14
      (711,1638){508,0}...{508,0}          % 15
      (1219,1638){-46,-138}...{-46,-138}     % 16
      (1173,1500){-474,0}...{-474,0}          % 17
      (699,1500){0,-1}...{27,-330}          % 18
      (734,46)--cycle);               % 19

endchar(leftf#);

"rmlg";

charbegin( "g", 1956h# + leftg# + rightg#, lcbody*v#, descender*v#);

%rotation of 3 degrees, watch out for lateral drift!
rot := identity rotated 3 shifted (0,-60v);



n := 5;
t1 := 2;
t2 := 6;
t3 := 12;
t4 := 13;
t5 := 14;

adj_fill.A(2)                         % fixed x points
     ()                         % fixed y points
     ((3,1), (4,2), (5,3))               % tied points
     ((1,4))                         % verticals
     ()                         % horizontals
     ((1704,1712){45,-19}...{45,-19}          % 0
      (1749,1693){-64,-512}...          % 1
      (1712,390){0,-1}...               % 2
      (1652,-92){-232,-803}...          % *3
      (1480,-413){-366,-370}...          % 4
      (776,-732){-1,0}...{-259,392}          % 5
      (259,-512)--                    % 6
      (451,-277){45,-21}...{45,-21}          % 7
      (496,-298){155,-352}...          % 8
      (851,-575){1,0}...               % 9
      (1230,-421){330,360}...          % 10
       (1380,-167){182,643}...{0,1}          % *11
      (1440,222)--                     % 12
      (1440,376){0,1}...{117,1230}          % 13
      (1515,1606)--cycle);               % 14

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (5,2), (6,1), (10,3))          % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1440,376){0,1}--                % 0
      (1440,1348){-35,440}...          % 1
      (1368,1480){-215,239}...          % 2
      (1116,1599){-1,0}...               % 3
      (781,1458){-281,-267}...          % 4
      (620,1168){-226,-717}...          % *5
      (565,741){0,-1}...               % 6
      (697,314){235,-216}...               % 7
      (962,203){1,0}...{206,189}          % 8
      (1440,376)--                    % 9
      (1440,222){-226,-138}...          % 10
      (1026,23){-634,-267}...          % *11
      (768,-45){-1,0}...               % 12
      (455,84){-332,372}...               % 13
      (250,661){0,1}...               % 14
      (330,1168){260,827}...               % *15
      (520,1498){422,417}...               % 16
      (1093,1728){1,0}...{212,-136}          % 17
      (1515,1606)--cycle);               % 18

endchar(leftg#);

"rmlh";

charbegin( "h", 2102h# + lefth# + righth#, ascender*v#, baseline );
n := 7;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 10;

adj_fill.A(1, 2)                    % fixed x points
     (4, 7)                         % fixed y points
     ((4,1), (5,1), (6,2))               % tied points
     ((3,6))                         % verticals
     ((1,2))                         % horizontals
     ((0,2458){0,-83}...{0,-83}          % 0
      (0,2375){305,-62}...               % 1
      (285,2282){282,-378}...          % 2
      (348,2058){72,-800}...               % *3
      (357,1482){-1,-431}...{-40,-684}     % 4
      (306,15){23,-34}...{23,-34}          % 5
      (329,-19)--                    % 6
      (329,-19){268,79}...{268,79}          % 7
      (597,60){-2,644}...               % 8
      (609,1472){2,565}...{19,398}          % 9
      (627,2524)--cycle);               % 10

n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 11;
t6 := 12;
t7 := 14;
t8 := 17;
t9 := 20;
t10 := 23;

adj_fill.B(10)                         % fixed x points
     (1, 6)                         % fixed y points
     ((5,2))                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((2220,418){-189,-183}...          % 0
      (2038,280){-344,-188}...          % *1
      (1876,230){-79,-1}...               % 2
      (1764,292){-67,97}...               % 3
      (1716,478){-51,670}...               % *4
      (1713,962){6,704}...               % 5
      (1705,1443){-73,662}...          % *6
      (1640,1624){-65,59}...               % 7
      (1384,1730){-244,2}...               % 8
      (1058,1659){-745,-282}...{-373,-227}     % *9
      (639,1448)--                        % 10
      (609,1472)--                    % 11
      (603,1265){180,130}...               % 12
      (896,1439){526,234}...               % *13
      (1129,1499){214,0}...               % 14
      (1355,1423){144,-116}...          % 15
      (1429,1249){92,-506}...          % *16
      (1447,917){-20,-606}...          % 17
      (1441,315){53,-859}...               % *18
      (1500,58){100,-163}...               % 19
      (1668,-35){183,-7}...               % 20
      (1947,50){614,344}...               % *21
      (2282,309){189,183}...{189,183}     % 22
      (2292,329)--cycle);               % 23


endchar(lefth#);

"rmli";

charbegin( "i", 1033h# + lefti# + righti#, ascender*v#, baseline );

%rotation of 3 degrees, watch out for lateral drift!
rot := identity rotated -1 shifted (0,20v);

%delta is the amount by which I want to make the radius of the dot larger.
%the radius is 365
delta := 30; %an 8 percent increase


n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 12;
t8 := 15;
t9 := 17;
t10 := 18;

adj_fill.A(1, 6)                    % fixed x points
     (5, 10)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((-142,1457){309,254}...          % 0
      (152,1660){513,274}...               % *1
      (371,1731){1,0}...               % 2
      (562,1662){146,-170}...          % 3
      (617,1476){52,-662}...               % *4
      (614,1000){-15,-516}...          % 5
      (657,306){155,-300}...               % 6
      (787,223){1,0}...               % 7
      (929,270){325,182}...{310,275}          % *8
      (1112,405)--                    % 9
      (1180,356){-373,-545}...          % 10
      (910,66){-540,-395}...               % *11
      (640,-39){-391,0}...               % 12
      (410,70){-162,254}...               % 13
      (348,330){-62,927}...               % *14
      (348,997){8,540}...               % 15
      (310,1454){-118,212}...          % 16
      (216,1513){-1,0}...{-322,-199}          % 17
      (-83,1385)--cycle);               % 18

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((2,4))                         % verticals
     ((3,5))                         % horizontals
     ((440,2092){-1,0}...               % 0
      (255-delta,2274+delta){0,1}...               % 1
      (465,2457+2*delta){1,0}...               % 2
      (627 + delta,2273+delta){0,-1}...{-1,0}     % 3
      (440,2092)--                         % 4
      (434,2268+delta)--cycle);               % 5
endchar(lefti#);

"rmlj";

charbegin( "j", 1029h# + leftj# + rightj#, ascender*v#, descender*v#);
n := 8;
t1 := 0;
t2 := 4;
t3 := 7;
t4 := 9;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 15;

adj_fill.A(4, 8)                    % fixed x points
     (1, 5)                         % fixed y points
     ()                         % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((26,-706){321,177}...               % 0
      (447,-389){655,689}...               % *1
      (681,-17){146,439}...               % 2
      (722,283){40,999}...               % *3
      (721,982){-7,543}...               % 4
      (700,1485){-94,700}...               % *5
      (627,1682){-257,245}...          % 6
      (475,1732){-1,0}...               % 7
      (262,1661){-524,-277}...{-418,-319}     % *8
      (-49,1455)--                    % 9
      (1,1386){386,214}...               % 10
      (282,1509){1,0}...               % 11
      (388,1468){213,-249}...          % 12
      (458,817){-8,-467}...               % 13
      (393,-127){-148,-472}...{-501,-321}     % 14
      (-22,-634)--cycle);               % 15

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((2,4))                         % verticals
     ((3,5))                         % horizontals
     ((521,2467+2*delta){-1,0}...               % 0
      (332-delta,2282+delta){0,-1}...          % 1
      (511,2090){1,0}...                    % 2
      (707+delta,2297+delta){0,1}...{-1,0}          % 3
      (521,2467+2*delta)--                    % 4
      (530,2282+delta)--cycle);               % 5

endchar(leftj#);

"rmlk";

charbegin( "k", 1858h# + leftk# + rightk#, ascender*v#, baseline );

crotchup := 10*7;     %amount to raise the crotch.
slide    := 10*6;

n := 6;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 6;
t5 := 9;
t6 := 10;

adj_fill.A(1, 2)                    % fixed x points
     (4, 6)                         % fixed y points
     ()                         % tied points
     ((3,5))                         % verticals
     ((1,2))                         % horizontals
     ((0,2451){0,-89}...{0,-89}          % 0
      (0,2362){364,-55}...               % 1
      (207,2323){379,-137}...          % 2
      (319,2197){49,-195}...               % 3
      (345,1330){-16,-686}...{-17,-606}     % 4
      (307,1){24,-26}...{24,-26}          % 5
      (331,-25)--                    % 6
      (591,48){4,783}...{4,783}          % 7
      (600,820+crotchup){10,152}...{10,152}     % 8
      (600,820+crotchup){-1,763}...{14,387}     % 9
      (634,2543)--cycle);               % 10

n := 2;
t1 := 0;
t2 := 3;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((636,974){-36,9}...{-36,9}          % 0
      (600,983)--                    % 1
      (600,820+crotchup){36,12}...{36,12}     % 2
      (636,820+crotchup)--cycle);          % 3

n := 6;
t1 := 3;
t2 := 6;
t3 := 7;
t4 := 10;
t5 := 17;
t6 := 18;

adj_fill.C()                         % fixed x points
     (4, 6)                         % fixed y points
     ((2,1), (3,2))                    % tied points
     ()                         % verticals
     ((1,5))                         % horizontals
     ((1992,341){-191,-211}...          % 0
      ((1762+(slide/2)),118){-420,-341}...          % *1
      ((1572+slide),0){-265,-101}...               % 2
      ((1460+slide),-25){-1,0}...               % 3
      ((1367+slide),3){-261,147}...               % 4
      ((1168+slide),209){-549,634}...{-532,634}     % 5
      (636,820+crotchup){0,131}...{0,131}     % 6
      (636,974){508,465}...               % 7
      (1144,1439){508,465}...          % 8
      (1441,1710){419,354}...{464,200}     % *9
      (1563,1793)--                    % 10
      (1731,1686){1,-41}...{1,-41}          % 11
      (1732,1645){-485,-283}...          % 12
      (944,1087){-207,-173}...          % 13
      (877,1014){0,-1}...               % 14
      (908,953){331,-428}...               % 15
      (1432,353){302,-312}...          % 16
      (1617,250){1,0}...{191,211}          % 17
      (1920,416)--cycle);               % 18
endchar(leftk#);

"rmll";

charbegin( "l", 1053h# + leftl# + rightl#, ascender*v#, baseline );
n := 8;
t1 := 1;
t2 := 4;
t3 := 6;
t4 := 7;
t5 := 9;
t6 := 11;
t7 := 15;
t8 := 16;

adj_fill.A(4, 7, 8)                    % fixed x points
     (3)                         % fixed y points
     ()                         % tied points
     ((1,6))                         % verticals
     ((7,8), (2,5))                    % horizontals
     ((655,2542){-12,-466}...          % 0
      (604,958){4,-689}...               % 1
      (614,490){57,-651}...               % *2
      (661,307){136,-208}...               % 3
      (793,234){154,-7}...               % 4
      (932,284){328,203}...{330,318}          % *5
      (1121,437)--                    % 6
      (1181,370){-300,-505}...          % 7
      (918,72){-562,-409}...               % *8
      (619,-39){-363,-3}...               % 9
      (436,34){-234,246}...               % 10
      (342,802){8,427}...               % 11
      (341,1880){1,354}...               % 12
      (323,2248){-48,220}...               % 13
      (223,2340){-207,42}...{-445,17}     % 14
      (0,2360){0,100}...{0,100}          % 15
      (0,2460)--cycle);               % 16

endchar(leftl#);

"rmlm";

charbegin( "m", 3191h# + leftm# + rightm#, lcbody*v#, baseline );

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

adj_fill.A(4)                         % fixed x points
     (5, 8)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((751,51){-21,527}...{29,693}          % 0
      (761,1303){-18,166}...{-18,166}     % 1
      (743,1469){10,444}...               % 2
      (685,1678){-181,162}...          % 3
      (516,1741){-236,-2}...               % 4
      (288,1675){-507,-253}...{-396,-326}     % *5
      (9,1488)--                    % 6
      (52,1416){356,205}...               % 7
      (320,1536){347,-3}...               % 8
      (434,1488){233,-298}...          % 9
      (477,1011){-7,-419}...{-5,-431}     % 10
      (452,-7){50,-29}...{50,-29}          % 11
      (502,-36)--cycle);               % 12

n := 8;
t1 := 1;
t2 := 2;
t3 := 3;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 12;
t8 := 14;

adj_fill.B()                         % fixed x points
     (8)                         % fixed y points
     ((1,4), (2,3), (4,1), (5,2))          % tied points
     ((1,7))                         % verticals
     ((3,6))                         % horizontals
     ((1774,67){-25,407}...{17,695}          % 0
      (1758,1348){-1,128}...{-1,128}          % 1
      (1757,1476){-98,212}...          % 2
      (1410,1698){-357,-2}...          % 3
      (1155,1632){-649,-258}...{-467,-258}     % *4
      (761,1440){-18,29}...{-18,29}          % 5
      (743,1469)--                    % 6
      (761,1303){425,258}...               % 7
      (1010,1432){434,177}...          % *8
      (1195,1480){162,6}...               % 9
      (1395,1413){193,-194}...          % 10
      (1480,1256){103,-418}...          % *11
      (1498,995){0,-1}...{0,-1}          % 12
      (1490,-16){8,-21}...{8,-21}          % 13
      (1498,-37)--cycle);               % 14

n := 10;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 14;
t9 := 17;
t10 := 19;

adj_fill.C(10)                         % fixed x points
     (1)                         % fixed y points
     ((5,3), (6,4))                    % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((3274,369){-346,-257}...          % 0
      (2950,194){-253,-8}...               % 1
      (2811,243){-200,207}...          % 2
      (2761,434){0,1}...               % *3
      (2761,919){0,1}...               % 4
      (2753,1406){-74,684}...          % *5
      (2687,1603){-215,222}...          % 6
      (2393,1701){-346,-1}...          % 7
      (2117,1644){-636,-225}...{-513,-285}     % *8
      (1757,1476)--                    % 9
      (1758,1348){315,164}...          % 10
      (2170,1480){162,6}...               % 11
      (2375,1413){193,-194}...          % 12
      (2465,1256){103,-418}...          % *13
      (2486,995){0,-1}...{0,-1}          % 14
      (2486,213){76,-844}...               % *15
      (2555,-7){285,-317}...               % 16
      (2721,-65){401,5}...               % 17
      (2999,21){590,326}...{292,285}          % *18
      (3311,261)--cycle);               % 19

endchar(leftm#);

"rmln";

charbegin( "n", 2310h# + leftn# + rightn#, lcbody*v#, baseline );

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

adj_fill.A(5)                         % fixed x points
     (1, 4)                         % fixed y points
     ((7,1))                         % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((427,-4){18,407}...               % 0
      (447,950){10,616}...               % 1
      (409,1457){-162,324}...          % 2
      (308,1535){-298,-2}...{-327,-213}     % 3
      (33,1398)--                    % 4
      (-30,1479){480,352}...               % 5
      (470,1744){394,-5}...               % 6
      (658,1679){213,-209}...{22,-466}     % 7
      (734,1463){1,-183}...               % 8
      (735,1280){-25,-661}...{2,-407}     % 9
      (728,68)--cycle);               % 10

n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 10;
t6 := 11;
t7 := 12;
t8 := 14;
t9 := 16;
t10 := 19;

adj_fill.B(5)                         % fixed x points
     (1, 6)                         % fixed y points
     ((10,1))                    % tied points
     ((3,8))                         % verticals
     ((2,9), (4,7))                    % horizontals
     ((738,1292){249,199}...               % 0
      (999,1460){479,225}...               % *1
      (1217,1517){488,-5}...               % 2
      (1458,1422){283,-307}...          % 3
      (1524,1245){86,-501}...          % *4
      (1544,921){0,-1}...               % 5
      (1544,287){0,-1}...               % *6
      (1591,66){230,-361}...               % 7
      (1802,-42){357,-4}...               % 8
      (2040,45){584,341}...{485,413}          % *9
      (2386,299)--                    % 10
      (2341,397){-357,-269}...          % 11
      (2010,221){-1,0}...               % 12
      (1835,340){-1,8}...{0,1}          % 13
      (1823,949){0,1}...               % 14
      (1750,1628){-325,386}...          % 15
      (1465,1735){-376,1}...               % 16
      (1152,1666){-708,-273}...{-371,-232}     % *17
      (757,1462){-23,1}...{-23,1}          % 18
      (734,1463)--cycle);               % 19
endchar(leftn#);

"rmlo";

charbegin( "o", 2056h# + lefto# + righto#, lcbody*v#, baseline );

%rotation of 3 degrees, watch out for lateral drift!
rot := identity rotated 3 shifted (0,-60v);



n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 15;
t9 := 17;
t10 := 19;

adj_fill.A()                         % fixed x points
     (1, 6)                         % fixed y points
     ((1,1), (5,1), (6,2), (10,2))          % tied points
     ((5,6), (3,8), (1,10))               % verticals
     ((4,7), (2,9))                    % horizontals
     ((524,829){0,-1}...               % 0
      (727,225){1,-1}...               % 1
      (1007,110){1,0}...               % 2
      (1315,230){1,1}...               % 3
      (1457,499){192,682}...               % *4
      (1507,912){0,1}...               % 5
      (1325,1473){-1,1}...               % 6
      (1032,1580){-1,0}...               % 7
      (707,1450){-1,-1}...               % 8
      (572,1201){-183,-621}...{0,-1}          % *9
      (524,829)--                    % 10
      (199,777){0,1}...               % 11
      (445,1483){1,1}...               % 12
      (1057,1723){1,0}...               % 13
      (1621,1546){1,-1}...               % 14
      (1838,924){0,-1}...               % 15
      (1587,194){-1,-1}...               % 16
      (946,-39){-1,0}...               % 17
      (430,135){-1,1}...{0,1}          % 18
      (199,777)--cycle);               % 19

endchar(lefto#);

"rmlp";

charbegin( "p", 1983h# + leftp# + rightp#, lcbody*v#, descender*v#);
n := 11;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 13;
t10 := 14;
t11 := 15;

adj_fill.A(5)                         % fixed x points
     (1, 4)                         % fixed y points
     ((7,1), (8,2), (10,3), (11,4))          % tied points
     ((2,9))                         % verticals
     ((3,6))                         % horizontals
     ((335,-737){-34,41}...{-34,41}          % 0
      (301,-696){1,20}...               % 1
      (323,611){-6,554}...               % 2
      (322,1267){-42,859}...               % *3
      (281,1470){-152,303}...          % 4
      (182,1531){-1,0}...{-329,-194}          % 5
      (-92,1416)--                    % 6
      (-145,1487){341,265}...          % 7
      (141,1674){503,251}...               % *8
      (358,1738){1,0}...               % 9
      (521,1685){236,-229}...{29,-386}     % 10
      (595,1394){39,-119}...{39,-119}     % 11
      (634,1275){-1,-1}...               % 12
      (595,1158){13,-915}...{0,-404}          % 13
      (608,243){-11,-244}...{-11,-244}     % 14
      (597,-1){67,-809}...{39,-622}          % 15
      (636,-623)--cycle);               % 16

n := 10;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 7;
t5 := 11;
t6 := 12;
t7 := 13;
t8 := 16;
t9 := 19;
t10 := 20;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (5,1), (6,2), (10,3))          % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((597,-1){469,-137}...               % 0
      (854,-41){1,0}...               % 1
      (1169,40){661,314}...               % *2
      (1515,273){411,355}...               % 3
      (1714,588){270,777}...               % *4
      (1785,1050){0,1}...               % 5
      (1615,1595){-320,329}...          % 6
      (1310,1721){-1,0}...               % 7
      (971,1635){-693,-333}...          % *8
      (617,1388){-361,-332}...          % 9
      (625,1388){.01942,.1961}...{-30,6}     % 10
      (595,1394)--                    % 11
      (634,1275){1,1}...               % 12
      (1123,1500){1,0}...               % 13
      (1396,1390){237,-266}...          % 14
      (1488,1202){124,-467}...          % *15
      (1520,923){0,-1}...               % 16
      (1463,519){-219,-680}...          % *17
      (1301,243){-327,-309}...          % 18
      (931,108){-1,0}...{-199,182}          % 19
      (608,243)--cycle);               % 20

endchar(leftp#);

"rmlq";

charbegin( "q", 2042h# + leftq# + rightq#, lcbody*v#, descender*v#);
n := 4;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 8.487;

adj_fill.A(2)                         % fixed x points
     ()                         % fixed y points
%     ((1,2), (3,1))                    % tied points
     ((1,2), (3,1), (2,3))               % tied points % DEK
     ((3,4))                         % verticals
     ()                         % horizontals
     ((1681,1863){-181,-244}...          % 0
      (1500,1619){-1.324,-1.489}...{-137,-129}% 1
      (1363,1490){1,-1}...               % 2
      (1420,1226){0,-802}...{0,-802}          % 3
      (1420,424){0,-188}...{0,-188}          % 4
      (1420,236){-2,-469}...{-21,-544}     % 5
      (1410,-680){41,-36}...{41,-36}          % 6
      (1451,-716)--                    % 7
      (1751,-636){-51,700}...{40,504}     % 8
      (1757,1851)--cycle);               % 9

n := 9;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 5;
t5 := 7;
t6 := 8;
t7 := 11;
t8 := 13;
t9 := 14;

adj_fill.B()                         % fixed x points
%     (9)                         % fixed y points
%     ((1,2), (5,1))                    % tied points
     ()                         % fixed y points % DEK
     ((1,2), (5,1), (9,3))               % tied points % DEK
     ((3,7))                         % verticals
     ((4,6), (2,8))                    % horizontals
     ((1500,1619){-339,173}...          % 0
      (1149,1732){-428,-2}...          % 1
      (580,1570){-336,-294}...          % 2
      (230,710){-7,-433}...               % 3
      (442,98){337,-321}...               % 4
      (757,-25){1,0}...{604,463}          % 5
      (1420,250)--                    % 6
      (1420,424){-300,-350}...          % 7
      (990,205){-1,0}...               % 8
      (695,325){-286,308}...               % 9
      (609,502){-125,464}...               % *10
      (570,789){-16,369}...               % 11
      (794,1470){195,173}...               % 12
      (1112,1609){1,0}...{1,-1}          % 13
      (1359,1493)--cycle);               % 14

endchar(leftq#);

"rmlr";

charbegin( "r", 1300h# + leftr# + rightr#, lcbody*v#, baseline );

n := 8;
t1 := 1;
t2 := 3;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 12;

adj_fill.A(5)                         % fixed x points
     (1, 4)                         % fixed y points
     ((7,1), (8,2))                    % tied points
     ((2,8))                         % verticals
     ((3,6))                         % horizontals
     ((448,-9){-7,-8}...               % 0
      (441,-17){-1.464,-.1594}...{-38,28}     % 1
      (403,11){21,339}...               % 2
      (425,899){5,550}...               % 3
      (367,1478){-200,297}...          % 4
      (266,1539){-1,0}...{-335,-195}          % 5
      (-21,1408)--                    % 6
      (-68,1472){410,325}...               % 7
      (231,1678){502,277}...               % *8
      (434,1749){1,0}...               % 9
      (614,1688){164,-164}...{28,-404}     % 10
      (702,1440){-9,-217}...{-9,-217}     % 11
      (693,1223){-16,-720}...{22,-438}     % 12
      (696,65)--cycle);               % 13

n := 5;
t1 := 2;
t2 := 4;
t3 := 5;
t4 := 6;
t5 := 9;

adj_fill.B()                         % fixed x points
     (5)                         % fixed y points
     ((2,1), (3,2))                    % tied points
     ()                         % verticals
     ((1,4))                         % horizontals
     ((1435,1437){-86,387}...          % 0
      (1343,1663){-272,267}...          % 1
      (1143,1728){-1,0}...               % 2
      (968,1656){-441,-288}...{-350,-323}     % *3
      (702,1440)--                    % 4
      (693,1223){126,328}...               % 5
      (997,1487){1,0}...               % 6
      (1123,1439){247,-248}...{91,-460}     % 7
      (1192,1273){44,-19}...{44,-19}          % 8
      (1236,1254)--cycle);               % 9

endchar(leftr#);

"rmls";

charbegin( "s", 1448h# + lefts# + rights#, lcbody*v#, baseline );
n := 14;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 5;
t5 := 9;
t6 := 11;
t7 := 14;
t8 := 15;
t9 := 16;
t10 := 18;
t11 := 20;
t12 := 24;
t13 := 26;
t14 := 29;

adj_fill.A(2, 7, 9, 14)                    % fixed x points
     (1, 7, 8, 14)                    % fixed y points
     ((1,2), (7,1), (8,1), (14,2))          % tied points
     ((5,11), (4,12))               % verticals
     ((6,10), (3,13))               % horizontals
     ((1046,1279){206,137}...{206,137}     % 0
      (1252,1416){-7,205}...               % 1
      (1147,1631){-241,220}...          % 2
      (833,1725){-1,0}...               % 3
      (344,1543){-272,-245}...          % 4
      (194,1194){0,-1}...               % 5
      (329,891){262,-243}...               % 6
      (656,718){389,-158}...               % 7
      (926,566){383,-384}...               % 8
      (1020,359){0,-1}...               % 9
      (939,182){-173,-176}...          % 10
      (713,92){-1,0}...               % 11
      (414,202){-174,163}...{-25,520}     % 12
      (286,503){-54,4}...{-54,4}          % 13
      (232,507)--                    % 14
      (232,507){-178,-263}...{-178,-263}     % 15
      (54,244){213,-403}...               % 16
      (199,60){273,-240}...               % 17
      (598,-64){1,0}...               % 18
      (1159,161){307,326}...               % 19
      (1292,509){0,1}...               % 20
      (1175,756){-232,219}...          % 21
      (866,919){-434,198}...               % 22
      (556,1085){-220,225}...          % 23
      (460,1296){0,1}...               % 24
      (543,1508){256,251}...               % 25
      (763,1593){1,0}...               % 26
      (956,1501){164,-272}...{24,-452}     % 27
      (1002,1305){44,-26}...{44,-26}          % 28
      (1046,1279)--cycle);               % 29

endchar(lefts#);

"rmlt";

charbegin( "t", 1243h# + leftt# + rightt#,theight*v#, baseline );
n := 11;
t1 := 2;
t2 := 3;
t3 := 5;
t4 := 9;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 16;
t9 := 17;
t10 := 18;
t11 := 19;

adj_fill.A(2, 6, 9)                    % fixed x points
     (5)                         % fixed y points
     ()                         % tied points
     ((3,8), (1,11))                    % verticals
     ((4,7), (1,3), (9,10))               % horizontals
     ((721,2262){26,-20}...{26,-20}          % 0
      (747,2242){-42,-483}...{-10,-605}     % 1
      (708,1587){517,0}...{517,0}          % 2
      (1225,1587){-42,-130}...{-42,-130}     % 3
      (1183,1457){-475,0}...{-475,0}          % 4
      (708,1457){-3,-542}...               % 5
      (708,823){8,-546}...               % 6
      (736,469){97,-546}...               % *7
      (805,277){244,-289}...               % 8
      (971,203){1,0}...{487,314}          % 9
      (1334,373)--                    % 10
      (1375,293){-476,-448}...          % 11
      (1050,50){-605,-328}...          % *12
      (770,-35){-1,0}...               % 13
      (544,54){-365,351}...               % 14
      (426,737){-6,643}...{4,241}          % 15
      (419,1457){-461,0}...{-461,0}          % 16
      (-42,1457){40,130}...{40,130}          % 17
      (-2,1587){421,0}...{421,0}          % 18
      (419,1587){0,480}...{-6,60}          % 19
      (409,2153)--cycle);               % 20

endchar(leftt#);

"rmlu";

charbegin( "u", 2079h# + leftu# + rightu#, lcbody*v#, baseline );
n := 8;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 13;

adj_fill.A(4)                         % fixed x points
     (5, 8)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((1412,1609){21,-354}...{-9,-645}     % 0
      (1410,411){11,-174}...{11,-174}     % 1
      (1421,237){60,-591}...               % 2
      (1493,37){1,-1}...               % 3
      (1677,-29){1,0}...               % 4
      (1924,61){596,347}...{391,336}          % *5
      (2273,318)--                    % 6
      (2220,410){-314,-228}...          % 7
      (2020,285){-339,-168}...          % *8
      (1881,242){-1,0}...               % 9
      (1760,292){-1,1}...               % 10
      (1699,668){0,1}...{37,472}          % 11
      (1743,1698){-46,41}...{-46,41}          % 12
      (1697,1739)--cycle);               % 13

n := 10;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 14;
t9 := 16;
t10 := 18;

adj_fill.B(6)                         % fixed x points
     (5)                         % fixed y points
     ((1,1), (10,2))                    % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((1421,237){-27,3}...{-27,3}          % 0
      (1394,240){-309,-177}...          % 1
      (968,22){-690,-290}...               % *2
      (704,-50){-1,0}...               % 3
      (424,53){-1,1}...               % 4
      (326,912){20,589}...               % 5
      (258,1478){-1,1}...               % 6
      (169,1513){-1,0}...{-385,-209}          % 7
      (-95,1392)--                    % 8
      (-154,1463){467,350}...          % 9
      (151,1665){503,270}...               % *10
      (349,1733){1,0}...               % 11
      (519,1677){1,-1}...               % 12
      (586,1477){74,-773}...               % *13
      (593,904){0,-500}...               % 14
      (693,275){1,-1}...               % 15
      (927,187){1,0}...               % 16
      (1146,245){483,224}...{229,178}     % *17
      (1410,411)--cycle);               % 18

endchar(leftu#);

"rmlv";

charbegin( "v", 1635h# + leftv# + rightv#, lcbody*v#, baseline );
n := 10;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 5;
t5 := 9;
t6 := 11;
t7 := 13;
t8 := 17;
t9 := 20;
t10 := 22;

adj_fill.A(1, 2, 6)                    % fixed x points
     (10)                         % fixed y points
     ()                         % tied points
     ((3,9))                         % verticals
     ((5,7), (4,8))                    % horizontals
     ((1228,1565){0,-41}...{0,-41}          % 0
      (1228,1524){208,-381}...          % 1
      (1366,1156){0,-1}...               % 2
      (1263,808){-398,-771}...          % *3
      (968,385){-204,-237}...          % 4
      (880,303){-1.448,.01602}...          % 5
      (803,378){-51,200}...               % 6
      (634,1018){-108,446}...          % 7
      (423,1664){-310,367}...          % 8
      (284,1736){-1,0}...               % 9
      (93,1681){-461,-215}...{-363,-251}     % *10
      (-177,1521)--                    % 11
      (-133,1444){315,183}...          % 12
      (88,1525){1,0}...               % 13
      (191,1460){318,-422}...          % 14
      (376,914){167,-646}...               % 15
      (633,13){100,-324}...               % 16
      (706,-40){1,0}...               % 17
      (832,62){385,393}...               % 18
      (1420,783){794,1276}...          % *19
      (1626,1338){0,1}...{-271,363}          % 20
      (1487,1691){-65,12}...{-65,12}          % 21
      (1422,1703)--cycle);               % 22

endchar(leftv#);

"rmlw";

charbegin( "w", 2807h# + leftw# + rightw#, lcbody*v#, baseline );
n := 11;
t1 := 1;
t2 := 3;
t3 := 6;
t4 := 11;
t5 := 15;
t6 := 17;
t7 := 18;
t8 := 19;
t9 := 30;
t10 := 33;
t11 := 34;

adj_fill.A(1, 4, 6)                    % fixed x points
     (7, 11)                         % fixed y points
     ()                         % tied points
     ((2,10))                    % verticals
     ((5,8), (3,9))                    % horizontals
     ((2402,1586){-3,-48}...{-3,-48}          % 0
      (2399,1538){219,-391}...          % 1
      (2502,1319){138,-384}...          % *2
      (2537,1154){0,-1}...               % 3
      (2426,809){-432,-818}...          % *4
      (2105,336){-100,-125}...          % 5
      (2060,300){-1,0}...               % 6
      (1996,341){-155,414}...{-168,797}     % 7
      (1635,1715){-44,13}...{-44,13}          % 8
      (1591,1728){-194,-95}...{-194,-95}     % 9
      (1397,1633){-245,-497}...{-387,-702}     % 10
      (745,429){5,-14}...               % 11
      (750,415){-47,382}...               % 12
      (636,1368){-232,1250}...          % *13
      (518,1665){-286,309}...          % 14
      (349,1737){-1,0}...               % 15
      (150,1672){-497,-253}...{-477,-345}     % *16
      (-148,1484)--                    % 17
      (-113,1409){418,221}...          % 18
      (193,1525){1,0}...               % 19
      (269,1488){294,-365}...          % 20
      (403,1114){252,-1495}...          % *21
      (441,822){118.3,-1121}...{47,-451}     % *22
      (521,-7){25,-24}...{25,-24}          % 23
      (546,-31){156,51}...{156,51}          % 24
      (702,20){300,644}...               % 25
      (1365,1313){229,365}...{42,18}          % 26
      (1407,1331){33,-37}...               % 27
      (1440,1294){206,-788}...          % 28
      (1795,40){168,-404}...               % 29
      (1873,-29){1,0}...               % 30
      (2000,47){570,612}...               % 31
      (2587,799){792,1320}...          % *32
      (2792,1367){0,1}...{-407,496}          % 33
      (2643,1737)--cycle);               % 34

endchar(leftw#);

"rmlx";

charbegin( "x", 1648h# + leftx# + rightx#, lcbody*v#, baseline );

n := 9;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 7;
t6 := 11;
t7 := 13;
t8 := 14;
t9 := 17;

adj_fill.A()                         % fixed x points
     (1)                         % fixed y points
     ((3,1), (4,2), (7,3), (8,4))          % tied points
     ()                         % verticals
     ((5,6), (2,9))                    % horizontals
     ((1708,392){-375,-321}...          % 0
      (1545,275){-287,-158}...          % *1
      (1421,234){-1,0}...               % 2
      (1285,301){-327,286}...{-329,619}     % 3
      (889,932){-61,127}...{-61,127}          % 4
      (828,1059){-141,269}...          % 5
      (470,1661){-245,237}...          % 6
      (294,1716){-1,0}...               % 7
      (124,1657){-435,-235}...{-423,-318}     % *8
      (-141,1481)--                    % 9
      (-74,1424){334,213}...               % 10
      (146,1514){1,0}...               % 11
      (271,1456){405,-414}...{221,-444}     % 12
      (647,824){63,-114}...{63,-114}          % 13
      (710,710){326,-623}...               % 14
      (971,224){401,-678}...               % *15
      (1111,32){320,-302}...               % 16
      (1272,-46){1,0}...               % 17
      (1466,44){474,350}...{323,347}          % *18
      (1746,304)--cycle);               % 19

n := 2;
t1 := 0;
t2 := 4;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (2,4))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((647,824){-225,-292}...{-306,-510}     % 0
      (110,60)--                    % 1
      (240,-14){56,15}...{56,15}          % 2
      (296,1){294,589}...{187,277}          % 3
      (710,710)--cycle);               % 4

n := 2;
t1 := 0;
t2 := 4;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((828,1059){163,266}...{340,360}     % 0
      (1357,1700){54,8}...{54,8}          % 1
      (1411,1708)--                    % 2
      (1546,1582){-522,-440}...{-214,-250}     % 3
      (889,932)--cycle);               % 4

endchar(leftx#);

"rmly";

charbegin( "y", 2049h# + lefty# + righty#, lcbody*v#, depthy*v#);
n := 6;
t1 := 1;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 12;
t6 := 13;

adj_fill.A(4)                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,5))                         % verticals
     ((3,6))                         % horizontals
     ((1380,1585){38,-494}...{-23,-529}     % 0
      (1401,422){-2,-152}...{-2,-152}     % 1
      (1399,270){-8,-374}...               % 2
      (1343,-126){-196,-659}...          % *3
      (1203,-389){-302,-310}...          % 4
      (845,-544){-1,0}...{-312,541}          % 5
      (472,-275){-46,1}...{-46,1}          % 6
      (426,-274)--                    % 7
      (247,-509){557,-505}...          % 8
      (741,-712){1,0}...               % 9
      (1433,-403){383,412}...          % 10
      (1629,31){262,1145}...               % *11
      (1695,742){-2,528}...{35,519}          % 12
      (1716,1709){-44,17}...{-44,17}          % 13
      (1672,1726)--cycle);               % 14

n := 9;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 10;
t6 := 12;
t7 := 14;
t8 := 17;
t9 := 19;

adj_fill.B(5)                         % fixed x points
     ()                         % fixed y points
     ((1,2), (9,1))                    % tied points
     ((3,7))                         % verticals
     ((4,6), (2,8))                    % horizontals
     ((1401,422){-301,-231}...          % 0
      (1135,259){-496,-219}...          % *1
      (905,203){-1,0}...               % 2
      (669,297){-275,303}...               % 3
      (598,485){-98,534}...               % *4
      (571,831){-5,562}...               % 5
      (568,1474){-70,844}...               % *6
      (501,1675){-316,320}...          % 7
      (352,1733){-1,0}...               % 8
      (152,1670){-515,-249}...{-500,-333}     % *9
      (-163,1484)--                    % 10
      (-123,1412){381,198}...          % 11
      (142,1516){1,0}...               % 12
      (256,1462){226,-324}...          % 13
      (303,807){-24,-643}...               % 14
      (326,317){128,-752}...               % *15
      (431,55){334,-302}...               % 16
      (681,-33){1,0}...               % 17
      (985,44){718,303}...{531,341}          % *18
      (1399,270)--cycle);               % 19

endchar(lefty#);

"rmlz";

charbegin( "z", 1443h# + leftz# + rightz#, lcbody*v#, baseline );
n := 2;
t1 := 0;
t2 := 13;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1435,1662){-57,46}...{-57,46}          % 0
      (1378,1708){-468,-324}...          % 1
      (1090,1594){-1,0}...               % 2
      (763,1651){-541,137}...          % 3
      (443,1710){-1,0}...               % 4
      (300,1673){-180,-124}...          % 5
      (214,1557){-187,-329}...{-187,-329}     % 6
      (27,1228)--                    % 7
      (101,1179){315,430}...               % 8
      (267,1380){264,209}...               % 9
      (430,1443){1,0}...               % 10
      (632,1412){358,-78}...               % 11
      (876,1372){1,0}...{335,54}          % 12
      (1016,1383)--cycle);               % 13

n := 2;
t1 := 0;
t2 := 11;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (2,3))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((342,321){795,-64}...               % 0
      (1137,257){1,0}...               % 1
      (1373,355){413,399}...{279,426}     % 2
      (1540,560)--                    % 3
      (1623,514){-152,-297}...          % 4
      (1471,217){-152,-297}...          % 5
      (1317,22){-251,-154}...          % 6
      (1112,-31){-1,0}...               % 7
      (636,17){-551,61}...               % 8
      (203,61){-386,5}...{-322,-289}          % 9
      (15,-39){-76,68}...{-76,68}          % 10
      (-61,29)--cycle);               % 11

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

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,3), (3,4), (4,2))          % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1016,1383){-202,-224}...{-545,-670}     % 0
      (-61,29)--                    % 1
      (342,321){549,720}...{272,341}          % 2
      (1435,1662)--cycle);               % 3

endchar(leftz#);

% UPPER CASE
set_stem_round(270,290,320,321,335,367); % DEK

"rmua";

%charbegin( "A", 2573h#, capheight*v#, baseline );
charbegin( "A", (2573+80)*h#, capheight*v#, baseline ); % DEK

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

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (2,1), (3,2), (4,3))          % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1258,2169){-481,-1016}...{-481,-1016}     % 0
      (777,1153){-76,-159}...{-76,-159}     % 1
      (701,994){-442,-931}...{-442,-931}     % 2
      (259,63)--                    % 3
      (-78,-6){-10,34}...{-10,34}          % 4
      (-88,28){512,862}...               % 5
      (1166,2295){152,302}...{0,1}          % 6
%      (1166,2284){152,302}...{5,54}          % 6
      (1171,2338)--cycle);               % 7

n := 8;
t1 := 0;
t2 := 2;
t3 := 3;
t4 := 4;
t5 := 5;
t6 := 9;
t7 := 12;
t8 := 16;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((2,3), (3,4), (4,5), (5,6))          % tied points
     ()                         % verticals
     ((1,8), (6,7))                    % horizontals
     ((794,2415){333,-54}...               % 0
      (1127,2361){256,-73}...          % 1
%      (1127,2361){256,-73}...{44,-23}     % 1
      (1171,2338){87,-169}...{87,-169}     % 2
      (1258,2169){305,-1016}...{305,-1016}     % 3
      (1563,1153){32,-159}...{32,-159}     % 4
      (1595,994){208,-713}...          % 5
      (1803,281){208,-713}...          % 6
      (1917,10){1,-1}...               % 7
      (2017,-38){1,0}...               % 8
      (2183,-13){385,110}...{385,110}     % 9
      (2568,97)--                    % 10
      (2567,193){-388,-43}...          % 11
      (2320,190){-411,85}...               % 12
      (2168,293){-296,504}...          % 13
      (1854,1173){-179,649}...{-78,412}     % 14
      (1510,2516){-716,0}...{-716,0}          % 15
      (794,2516)--cycle);               % 16

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

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,6), (2,2), (3,1), (4,5))          % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1595,994){-894,0}...{-894,0}          % 0
      (701,994)--                    % 1
      (777,1153){786,0}...{786,0}          % 2
      (1563,1153)--cycle);               % 3

%endchar(0);
endchar(80h#); % DEK

"rmub";

charbegin( "B", 2227h#, capheight*v#, baseline );
n := 6;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 3;
t5 := 4;
t6 := 5;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,6), (2,1), (3,2), (4,3), (5,4), (6,5))% tied points
     ((2,3))                         % verticals
     ()                         % horizontals
     ((393,2260){0,-1960}...{0,-1960}     % 0
      (393,300)--                    % 1
      (695,300){0,900}...{0,900}          % 2
      (695,1200){0,320}...               % 3
      (695,1520){0,2}...{0,740}          % 4
      (695,2260)--cycle);               % 5

n := 11;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 8;
t5 := 11;
t6 := 12;
t7 := 15;
t8 := 16;
t9 := 19;
t10 := 22;
t11 := 26;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,5), (5,4), (6,3), (7,7), (8,8), (11,6))% tied points
     ((3,9))                         % verticals
     ((2,10), (4,7))                    % horizontals
     ((695,2260){-4,69}...               % 0
      (691,2329){.6691,1.685}...          % 1
      (745,2380){676,109}...               % 2
      (966,2399){1,0}...               % 3
      (1263,2371){470,-106}...          % *4
      (1436,2293){1,-1}...               % 5
      (1560,2017){0,-1}...               % 6
      (1401,1596){-1,-1}...               % 7
      (897,1409){-1,0}...               % 8
      (723,1420){-119,47}...               % 9
      (691,1450){-.6725,1.682}...{4,70}     % 10
      (695,1520)--                    % 11
      (695,1200){0,1}...               % 12
      (697,1252){.8491,1.585}...          % 13
      (733,1278){158,32}...{1,0}          % 14
      (924,1282){383,87}...{383,87}          % 15
      (1307,1369){3,29}...{3,29}          % 16
      (1310,1398){366,158}...          % 17
      (1717,1639){1,1}...               % 18
      (1877,2046){0,1}...               % 19
      (1750,2360){-1,1}...               % 20
      (1476,2493){-722,180}...          % *21
      (1028,2540){-940,0}...{-1,0}          % 22
      (88,2540){-2,-91}...{-2,-91}          % 23
      (86,2449){284,-134}...               % 24
      (370,2315){1.29,-1.349}...{23,-55}     % 25
      (393,2260)--cycle);               % 26

n := 8;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 7;
t5 := 8;
t6 := 11;
t7 := 13;
t8 := 18;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (4,7), (5,8), (8,1))          % tied points
     ((3,6))                         % verticals
     ((2,7))                         % horizontals
     ((695,300){0,-1}...               % 0
      (740,170){70,-80}...               % 1
      (972,146){1,0}...               % 2
      (1524,331){1,1}...               % 3
      (1687,768){0,1}...               % 4
      (1566,1112){-1,1}...               % 5
      (1318,1238){-642,170}...{-1,0}          % *6
      (924,1282)--                    % 7
      (1307,1369){471,-57}...          % 8
      (1641,1296){544,-193}...          % *9
      (1851,1176){1,-1}...               % 10
      (2025,743){0,-1}...               % 11
      (1828,251){-1,-1}...               % 12
      (1042,-2){-733,7}...{-1,0}          % 13
      (309,5){-1,36}...{-1,36}          % 14
      (308,41){67,96}...               % 15
      (375,137){166,225}...               % 16
      (388,173){.379,1.94}...{5,127}          % 17
      (393,300)--cycle);               % 18

endchar(0);

"rmuc";

charbegin( "C", 2446h#, capheight*v#, baseline );
n := 11;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 6;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 13;
t9 := 15;
t10 := 17;
t11 := 18;

adj_fill.A(5, 7, 11)                    % fixed x points
     (1, 5, 6)                    % fixed y points
     ((5,1), (6,1))                    % tied points
     ((3,9))                         % verticals
     ((4,8), (2,10))                    % horizontals
     ((2204,390){-362,-252}...          % 0
      (1512,139){-1,0}...               % 1
      (897,369){-1,1}...               % 2
      (552,1271){0,1}...               % 3
      (628,1813){293,922}...               % *4
      (845,2193){1,1}...               % 5
      (1462,2425){1,0}...               % 6
      (1930,2268){1,-1}...{243,-663}          % 7
      (2122,1959){54,-7}...{54,-7}          % 8
      (2176,1952)--                    % 9
      (2176,1952){212,217}...{212,217}     % 10
      (2388,2169){-364,583}...          % 11
      (2243,2355){-1,1}...               % 12
      (1586,2587){-1,0}...               % 13
      (557,2183){-1,-1}...               % 14
      (222,1205){0,-1}...               % 15
      (578,218){1,-1}...               % 16
      (1382,-54){1,0}...{393,275}          % 17
      (2267,283)--cycle);               % 18

endchar(0);

"rmud";

charbegin( "D", 2867h#, capheight*v#, baseline );
n := 18;
t1 := 0;
t2 := .7706;
t3 := 4;
t4 := 5;
t5 := 5.667;
t6 := 6;
t7 := 9;
t8 := 13;
t9 := 14;
t10 := 15;
t11 := 18;
t12 := 19;
t13 := 20;
t14 := 23;
t15 := 26;
t16 := 29;
t17 := 31;
t18 := 32;

adj_fill.A()                         % fixed x points
     (5, 11, 13, 18)                    % fixed y points
     ((1,1), (11,1), (12,2), (18,2))          % tied points
     ((11,12), (7,15), (2,17))          % verticals
     ((9,10), (8,14), (6,16), (3,4))          % horizontals
     ((375,2121){9,-1855}...               % 0
      (384,266){-12,-782}...               % 1
      (378,158){-.3186,-1.963}...          % 2
      (369,125){-1,-264}...{-10,-8}          % 3
      (296,45){3,-39}...{3,-39}          % 4
      (299,6){1,0}...               % 5
      (1148,6){856,-1}...               % 6
      (1801,90){1094,325}...               % *7
      (2242,331){1,1}...               % 8
      (2632,1425){0,1}...               % 9
      (2567,1914){-250,823}...          % *10
      (2382,2248){-1,1}...               % 11
      (1954,2463){-1108,291}...          % *12
      (1274,2539){-1,0}...{-1186,-5}          % 13
      (88,2534){-1,-96}...{-1,-96}          % 14
      (87,2438){573,-183}...               % 15
      (305,2370){508,-187}...          % 16
      (366,2295){48,-498}...{9,-394}          % 17
      (375,2121)--                    % 18
      (683,2127){18,182}...               % 19
      (701,2309){.819,1.689}...          % 20
      (754,2360){200,101}...               % 21
      (860,2381){426,20}...               % *22
      (1180,2380){1,0}...               % 23
      (1703,2330){832,-193}...          % *24
      (2012,2187){1,-1}...               % 25
      (2284,1396){0,-1}...               % 26
      (1952,432){-1,-1}...               % 27
      (1579,222){-909,-284}...          % *28
      (1043,148){-1,0}...               % 29
      (752,196){-200,200}...               % 30
      (685,630){-21,779}...{0,1}          % 31
      (683,2127)--cycle);               % 32

endchar(0);

"rmue";

charbegin( "E", 2040h#, capheight*v#, baseline );
n := 12;
t1 := 3;
t2 := 4;
t3 := 7.399;
t4 := 9;
t5 := 11;
t6 := 14;
t7 := 15;
t8 := 16;
t9 := 20;
t10 := 23;
t11 := 24;
t12 := 25;

adj_fill.A(4, 7, 10, 12)               % fixed x points
     ()                         % fixed y points
     ((7,1))                         % tied points
     ((2,6), (1,8))                    % verticals
     ((3,5), (9,11))                    % horizontals
     ((75,2424){443,-119}...               % 0
      (294,2366){1.674,-.9631}...          % 1
      (356,2304){145,-400}...          % 2
      (389,2068){18,-614}...               % 3
      (397,247){-5,-823}...               % 4
      (416,96){.7642,-1.761}...          % 5
      (490,7){372,-190}...               % 6
      (604,4){548,12}...{783,-2}          % 7
      (1919,4)--                    % 8
      (1970,200){-21,19}...{-21,19}          % 9
      (1949,219){-388,-34}...          % 10
      (1287,171){-650,-20}...          % 11
      (840,190){-301,128}...               % 12
      (727,285){-.8921,1.635}...          % 13
      (674,700){-2,375}...{0,1}          % 14
      (672,1075){4,526}...{4,526}          % 15
      (676,1601){0,1}...               % 16
      (676,2091){8,361}...               % 17
      (709,2339){118,191}...               % 18
      (759,2371){1.842,.5455}...          % 19
      (914,2372){1,0}...{324,-16}          % 20
      (1688,2335){14,25}...{14,25}          % 21
      (1702,2360){6,187}...{6,187}          % 22
      (1708,2547){-100,7}...               % 23
      (644,2528){-1,0}...{-501,13}          % 24
      (66,2524)--cycle);               % 25

n := 3;
t1 := 2;
t2 := 4;
t3 := 7;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((2,1))                         % tied points
     ()                         % verticals
     ((1,3))                         % horizontals
     ((1588,1246){-267,25}...          % 0
      (1150,1270){-1,0}...               % 1
      (732,1259){-468,-80}...          % 2
      (688,1215){-.8207,-1.701}...{0,-1}     % 3
      (672,1075)--                    % 4
      (676,1611){0,-1}...               % 5
      (697,1466){.9297,-1.607}...          % 6
      (739,1433){257,-50}...{231,16}          % 7
      (1586,1449){24,-26}...{24,-26}          % 8
      (1610,1423)--cycle);               % 9

endchar(0);

"rmuf";

charbegin( "F", 1649h#, capheight*v#, baseline );
n := 12;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 4;
t5 := 6;
t6 := 8;
t7 := 9;
t8 := 12;
t9 := 13;
t10 := 15;
t11 := 16;
t12 := 17;

adj_fill.A(1, 3, 7)                    % fixed x points
     (10)                         % fixed y points
     ()                         % tied points
     ((9,11), (5,12))               % verticals
     ((6,8), (2,4))                    % horizontals
     ((43,2547){1,0}...{622,16}          % 0
      (1628,2554){0,-198}...{0,-198}          % 1
      (1628,2356){-30,-28}...{-30,-28}     % 2
      (1598,2328){-398,28}...          % 3
      (800,2400){-471,10}...               % 4
      (670,2315){-39,-311}...          % 5
      (651,2149){-3,-337}...               % 6
      (655,1538){10,-578}...               % 7
      (771,1400){1,0}...{586,27}          % 8
      (1572,1443){-2,-183}...{-2,-183}     % 9
      (1570,1260){-18,-15}...{-18,-15}     % 10
      (1552,1245){-460,20}...          % 11
      (771,1262){-1,0}...               % 12
      (650,1171){2,-433}...{27,-768}          % 13
      (676,47)--                    % 14
      (338,-6){26,805}...               % 15
      (364,1331){0,1}...               % 16
      (372,1926){0,1}...               % 17
      (356,2260){-32,392}...               % 18
      (249,2393){-204,49}...{-204,49}     % 19
      (45,2442)--cycle);               % 20

endchar(0);

"rmug";

charbegin( "G", 2634h#, capheight*v#, baseline );
n := 12;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 10;
t8 := 14;
t9 := 17;
t10 := 19;
t11 := 22;
t12 := 25;

adj_fill.A(1, 7)                    % fixed x points
     (12)                         % fixed y points
     ()                         % tied points
     ((5,8), (3,10))                    % verticals
     ((6,7), (4,9), (2,11))               % horizontals
     ((2401,2169){-232,341}...          % 0
      (2268,2346){-1,1}...               % 1
      (1629,2586){-1,0}...               % 2
      (573,2195){-1,-1}...               % 3
      (232,1200){0,-1}...               % 4
      (578,233){1,-1}...               % 5
      (1336,-63){1,0}...{576,146}          % 6
      (2332,121){-20,572}...{-19,1016}     % 7
      (2313,1137){-1020,-41}...{-1020,-41}     % 8
      (1293,1096)--                    % 9
      (1290,999){22,-18}...{22,-18}          % 10
      (1312,981){712,-26}...               % 11
      (1912,948){256,-27}...               % 12
      (2006,845){20,-199}...               % 13
      (2017,588){5,-334}...               % 14
      (2008,245){-28,-341}...          % 15
      (1943,166){-335,-72}...          % 16
      (1594,129){-1,0}...               % 17
      (886,370){-1,1}...               % 18
      (566,1259){0,1}...               % 19
      (644,1809){301,938}...               % *20
      (867,2197){1,1}...               % 21
      (1463,2420){1,0}...               % 22
      (1963,2225){1,-1}...{1,-2}          % 23
      (2142,1961){46,-5}...{46,-5}          % 24
      (2188,1956)--cycle);               % 25

endchar(0);

"rmuh";

charbegin( "H", 2700h#, capheight*v#, baseline );
n := 6;
t1 := 2;
t2 := 3;
t3 := 6;
t4 := 7;
t5 := 10;
t6 := 12;

adj_fill.A(3)                         % fixed x points
     (6)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,5))                         % verticals
     ((3,4))                         % horizontals
     ((713,95){-44,405}...               % 0
      (695,386){-7,669}...               % 1
      (695,1131){4,759}...               % 2
      (688,1535){-7,404}...               % 3
      (710,2261){24,893}...{156,709}          % 4
      (743,2535)--                    % 5
      (89,2535){7,-98}...{7,-98}          % 6
      (96,2437){220,-68}...               % 7
      (317,2368){135,-49}...               % 8
      (366,2278){23,-365}...               % 9
      (387,1357){0,-1}...{-35,-406}          % 10
      (351,11){21,-20}...{21,-20}          % 11
      (372,-9)--cycle);               % 12

n := 4;
t1 := 0;
t2 := 3;
t3 := 4;
t4 := 7;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (2,2), (3,1), (4,4))          % tied points
     ()                         % verticals
     ()                         % horizontals
     ((2056,1154){5,409}...               % 0
      (1944,1255){-390,6}...               % 1
      (787,1250){-393,-22}...{7,-398}     % 2
      (695,1131)--                    % 3
      (688,1535){2,-380}...               % 4
      (767,1433){435,-25}...               % 5
      (1983,1426){345,3}...{3,395}          % 6
      (2056,1535)--cycle);               % 7
n := 6;
t1 := 0;
t2 := 2;
t3 := 3;
t4 := 6.493;
t5 := 8;
t6 := 10;

adj_fill.B(6)                         % fixed x points
     ()                         % fixed y points
     ((2,3), (3,4))                    % tied points
     ((2,4))                         % verticals
     ((1,5))                         % horizontals
     ((2079,0)--                           % 0
      (2038,78){6,340}...{37,1077}          % 1
      (2056,1154)--                          % 2
      (2056,1535){3,365}...{-4,817}          % 3
      (2046,2490)--                    % 4
      (2393,2555){-61,-636}...          % 5
      (2359,2091){-11,-416}...          % 6
      (2363,292){17,-446}...               % 7
      (2470,165){180,-45}...               % 8
      (2650,120){1,-90}...{1,-90}          % 9
      (2651,30)--cycle);               % 10

endchar(0);

"rmui";

charbegin( "I", 1260h#, capheight*v#, baseline );

n := 8;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 8;
t5 := 9;
t6 := 10;
t7 := 14;
t8 := 18;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ((5,6), (3,7), (2,8))               % verticals
     ((4,5), (1,2))                    % horizontals
     ((200,-2){0,95}...{0,95}          % 0
      (200,93){447,91}...               % 1
      (424,146){513,163}...               % 2
      (520,260){39,349}...               % 3
      (528,496){.03537,1.999}...          % 4
      (530,1840){0,1}...               % 5
      (518,2265){-31,404}...               % 6
      (437,2370){-251,54}...{-250,54}     % 7
      (187,2424){0,102}...{0,102}          % 8
      (187,2526)--                    % 9
      (1162,2526){-2,-99}...{-2,-99}          % 10
      (1160,2427){-259,-58}...          % 11
      (901,2369){-425,-84}...          % 12
      (821,2276){-52,-652}...          % 13
      (820,2002){-3,-1300}...          % 14
      (827,626){16,-647}...               % 15
      (842,259){27,-416}...               % 16
      (947,149){240,-63}...{393,-103}     % 17
      (1187,86){-5,-88}...{-5,-88}          % 18
      (1182,-2)--cycle);               % 19

endchar(0);

"rmuj";

%charbegin( "J", 1039h#, capheight*v#, descender*v#);
charbegin( "J", (1039+250)*h#, capheight*v#, 2/3descender*v#); % DEK
n := 7;
t1 := 0;
t2 := 4;
t3 := 6;
t4 := 7;
t5 := 8;
t6 := 11;
t7 := 15;

adj_fill.A(1)                         % fixed x points
     (7)                         % fixed y points
     ()                         % tied points
     ((4,5), (2,6))                    % verticals
     ((3,4))                         % horizontals
     ((-34,-550){163,143}...               % 0
      (122,-406){191,198}...               % 1
      (300,-109){158,345}...               % 2
      (349,548){0,1}...               % 3
      (349,2294){0,1}...               % 4
      (290,2387){-230,63}...{-267,68}     % 5
      (22,2453){0,99}...{0,99}          % 6
      (22,2552)--                    % 7
      (999,2552){-6,-110}...{-6,-110}     % 8
      (993,2442){-251,-52}...          % 9
      (740,2389){-315,-69}...          % 10
      (662,2294){0,-1}...               % 11
      (662,528){0,-1}...               % 12
      (614,78){-120,-403}...               % 13
      (350,-369){-197,-188}...{-174,-119}     % 14
      (32,-619)--cycle);               % 15

%endchar(0);
endchar(200h#); % DEK

"rmuk";

charbegin( "K", 2276h#, capheight*v#, baseline );
n := 5;
t1 := 2;
t2 := 6;
t3 := 7;
t4 := 10;
t5 := 13;

adj_fill.A(3)                         % fixed x points
     (5)                         % fixed y points
     ((1,1))                         % tied points
     ((1,4))                         % verticals
     ((2,3))                         % horizontals
     ((705,91){-23,432}...{0,1}          % 0
      (685,1176){-12,149}...{-12,149}     % 1
      (673,1325){0,1}...               % 2
      (678,2087){41,1076}...               % *3
      (714,2401){81,306}...{32,127}          % 4
      (746,2528)--                    % 5
      (92,2528){-12,-89}...{-12,-89}          % 6
      (80,2439){228,-62}...               % 7
      (308,2371){228,-68}...               % 8
      (358,2315){70,-170}...               % *9
      (378,2201){2,-822}...               % 10
      (385,549){-13,-2196}...{-49,-547}     % *11
      (365,5){41,-21}...{41,-21}          % 12
      (406,-16)--cycle);               % 13

n := 1;
t1 := 1;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1))                         % tied points
     ()                         % verticals
     ()                         % horizontals
     ((716,1325){-43,0}...{-43,0}          % 0
      (673,1325)--                    % 1
      (673,1176){43,0}...{43,0}          % 2
      (716,1176)--cycle);               % 3

n := 4;
t1 := 2;
t2 := 4;
t3 := 7;
t4 := 9;

adj_fill.C(2, 4)                    % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ((1,3))                         % verticals
     ()                         % horizontals
     ((1921,-25){-271,289}...{-1202,1206}     % 0
      (716,1180){-14,142}...{-14,142}     % 1
      (702,1322){1064,1206}...{10,14}     % 2
      (1766,2528)--                    % 3
      (2097,2528){-4,-34}...{-4,-34}          % 4
      (2093,2494){-1083,-1077}...          % 5
      (1010,1417){-263,-255}...          % 6
      (981,1378){-.1261,-1.685}...          % 7
      (1005,1333){566,-563}...{188,-164}     % 8
      (2267,101)--cycle);               % 9

endchar(0);

"rmul";

charbegin( "L", 1870h#, capheight*v#, baseline );
n := 8;
t1 := 0;
t2 := 4;
t3 := 7;
t4 := 8;
t5 := 9;
t6 := 12.41;
t7 := 14;
t8 := 16;

adj_fill.A(8)                         % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ((4,5), (2,6))                    % verticals
     ((3,4), (1,7))                    % horizontals
     ((1825,-18){-295,28}...               % 0
      (296,8){-1,0}...{-7,45}          % 1
      (289,53){254,367}...               % 2
      (363,163){127,294}...               % 3
      (379,319){4,558}...               % 4
      (376,2297){-3,1977}...               % 5
      (298,2420){-213,44}...{-522,106}     % 6
      (85,2464){2,90}...{2,90}          % 7
      (87,2554)--                    % 8
      (1014,2554){-1,-101}...{-1,-101}     % 9
      (1013,2453){-242,-50}...          % 10
      (772,2403){-241,-50}...          % 11
      (705,2307){-48,-748}...          % 12
      (708,273){18,-499}...               % 13
      (874,160){1,0}...{365,25}          % 14
      (1841,209){33,-30}...{33,-30}          % 15
      (1874,179)--cycle);               % 16

endchar(0);

"rmum";

charbegin( "M", 3666h#, capheight*v#, baseline );
n := 2;
t1 := 0;
t2 := 8;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((540,2320){248,-342}...          % 0
      (562,2185){-300,-2184}...{-152,-780}     % 1
      (192,1){27,-13}...{27,-13}          % 2
      (219,-12)--                    % 3
      (495,86){69,864}...               % 4
      (697,1984){49,355}...               % 5
      (700,2050){.7859,.3269}...          % 6
      (729,2038){65,-59}...{100,-175}     % *7
      (765,1991)--cycle);               % 8

n := 15;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 6;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 13;
t9 := 14;
t10 := 15;
t11 := 17;
t12 := 19;
%t13 := 22;
t13 := 23; % DEK
t14 := 25;
t15 := 26;

adj_fill.B(1, 15)                    % fixed x points
     ()                         % fixed y points
     ((6,1), (7,2))                    % tied points
     ((9,10), (3,13))               % verticals
     ((8,9), (5,11), (4,12), (2,14))          % horizontals
     ((3638,104){-310,-111}...          % 0
      (3132,-23){-1,0}...{-234,64}          % 1
      (2983,0){-62,82}...{-62,82}          % 2
      (2921,82){-17,593}...               % 3
      (2863,1975){-17,452}...          % 4
      (2845,2052){-53,105}...          % *5
      (2810,2080){-.5378,-.1035}...          % 6
      (2803,2000){-215,-381}...{-335,-699}     % 7
      (1757,3){-133,1}...{-133,1}          % 8
      (1624,4){-196,474}...{-355,721}     % 9
      (765,1991){-225,329}...{-225,329}     % 10
      (540,2320){-228,341}...          % 11
      (464,2374){-252,70}...{-252,70}     % 12
      (212,2444){5,110}...{5,110}          % 13
      (217,2554)--                    % 14
      (894,2554){271,-785}...          % 15
      (1755,562){176,-375}...          % 16
      (1786,530){1.413,-.02145}...          % 17
      (1821,564){306,546}...{236,461}     % 18
      (2859,2554){381,0}...{381,0}          % 19
      (3240,2554){-166,-242}...          % 20
      (3172,2480){-158,-354}...          % 21
      (3148,2196){2,-707}...               % 22
      (3216,379){59,-611}...               % 23
      (3304,212){432,-337}...          % 24
      (3430,171){1,0}...{327,47}          % 25
      (3638,194)--cycle);               % 26

endchar(0);

"rmun";

charbegin( "N", 2872h#, capheight*v#, baseline );
n := 5;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 5;
t5 := 7;

adj_fill.A(3)                         % fixed x points
     ()                         % fixed y points
     ((1,2), (5,1))                    % tied points
     ((2,4))                         % verticals
     ()                         % horizontals
     ((390,2330){199,-222}...          % 0
      (410,2250){44,-2234}...{-28,-579}     % 1
      (366,16){33,-35}...{33,-35}          % 2
      (399,-19)--                    % 3
      (657,91){-45,762}...               % 4
      (571,2024){0,344}...               % 5
      (593,2085){1.171,.386}...{298,-341}     % 6
      (638,2055)--cycle);               % 7

n := 11;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 10;
t8 := 11;
t9 := 12;
t10 := 13;
t11 := 15;

adj_fill.B(5)                         % fixed x points
     (6)                         % fixed y points
     ((9,1), (10,2))                    % tied points
     ((4,7), (1,2))                    % verticals
     ((1,11), (3,8))                    % horizontals
     ((78,2554){632,0}...{632,0}          % 0
      (710,2554){200,-265}...          % 1
      (2235,640){218,-235}...          % 2
      (2285,614){.993,.533}...          % 3
      (2293,630){10,94}...               % *4
      (2295,708){.1555,1.993}...          % 5
      (2305,909){-18,567}...{-52,700}     % 6
      (2208,2510)--                    % 7
      (2503,2566){25,-27}...{25,-27}          % 8
      (2528,2539){-47,-788}...{0,-1}          % 9
      (2471,13){-140,0}...{-140,0}          % 10
      (2331,13){-493,605}...{-223,249}     % 11
      (638,2055){-248,275}...{-248,275}     % 12
      (390,2330){-190,212}...          % 13
      (333,2373){-243,54}...{-238,54}     % 14
      (95,2427)--cycle);               % 15

endchar(0);

"rmuo";

%charbegin( "O", 2874h#, capheight*v#, baseline );
charbegin( "O", (2874-100)*h#, capheight*v#, baseline ); % DEK
n := 10;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 13;
t8 := 15;
t9 := 18;
t10 := 20;

adj_fill.A(1, 10)                    % fixed x points
     (5, 10)                         % fixed y points
     ((1,1), (5,1), (6,2), (10,2))          % tied points
     ((5,6), (3,8))                    % verticals
     ((4,7), (2,9))                    % horizontals
     ((215,1176){0,-1}...               % 0
      (582,175){1,-1}...               % 1
      (1249,-67){1,0}...               % 2
      (2259,298){1,1}...               % 3
      (2631,1351){0,1}...               % 4
      (2551,1913){-306,958}...          % *5
      (2325,2309){-1,1}...               % 6
      (1554,2591){-1,0}...               % 7
      (618,2251){-1,-1}...{0,-1}          % 8
      (215,1176)--                    % 9
      (540,1289){0,1}...               % 10
      (615,1831){289,920}...               % *11
      (829,2209){1,1}...               % 12
      (1406,2417){1,0}...               % 13
      (1953,2224){1,-1}...               % 14
      (2290,1246){0,-1}...               % 15
      (2209,704){-310,-934}...          % *16
      (1980,312){-1,-1}...               % 17
      (1351,110){-1,0}...               % 18
      (866,331){-1,1}...{0,1}          % 19
      (540,1289)--cycle);               % 20

%endchar(0);
endchar(-50h#); % DEK

"rmup";

charbegin( "P", 2033h#, capheight*v#, baseline );

n := 14;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 8;
t5 := 9;
t6 := 10;
t7 := 13;
t8 := 15;
t9 := 17;
t10 := 18;
t11 := 20;
t12 := 24;
t13 := 27;
t14 := 28;

adj_fill.A(1, 14)                    % fixed x points
     (1, 8, 14)                    % fixed y points
     ((1,1), (9,1), (10,2), (14,2))          % tied points
     ((7,10), (3,12))               % verticals
     ((5,6), (2,13), (4,11))               % horizontals
     ((678,961){0,1}...               % 0
      (742,1062){279,18}...               % 1
      (1025,1084){282,20}...               % 2
      (1425,1162){675,241}...          % *3
      (1700,1325){1,1}...               % 4
      (1936,1902){0,1}...               % 5
      (1731,2371){-245,200}...          % 6
      (1480,2475){-650,140}...          % *7
      (1081,2511){-976,0}...{-978,0}          % 8
      (103,2511){0,-90}...{0,-90}          % 9
      (103,2421){435,-66}...               % 10
      (279,2379){333,-122}...          % 11
      (379,2221){20,-362}...               % 12
      (397,1564){0,-1}...{-10,-750}          % 13
      (370,2){27,-23}...{27,-23}          % 14
      (397,-21)--                    % 15
      (703,82){-12,825}...{-11,285}          % 16
      (678,961){0,337}...{0,337}          % 17
      (678,1298){0,1}...               % 18
      (695,2271){28,973}...               % 19
      (800,2369){1,0}...               % 20
      (940,2369){1,0}...               % 21
      (1245,2334){500,-135}...          % *22
      (1440,2234){1,-1}...               % 23
      (1578,1872){0,-1}...               % 24
      (1385,1418){-1,-1}...               % 25
      (1122,1271){-645,-199}...          % *26
      (740,1219){-1,0}...{0,1}          % 27
      (678,1298)--cycle);               % 28
mathcorr(100h#); % DEK
endchar(0);

"rmuq";

charbegin( "Q", 2869h#, capheight*v#, descender*v#);
n := 11;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 10;
t7 := 11;
t8 := 13;
t9 := 16;
t10 := 19;
t11 := 21;

adj_fill.A(1, 7)                    % fixed x points
     (1, 11)                         % fixed y points
     ((1,2), (2,1), (6,2), (7,3), (11,3))     % tied points
     ((5,8), (3,10))                    % verticals
     ((6,7), (4,9))                    % horizontals
     ((1260,-59){364,52}...{364,52}          % 0
      (1624,-7){523,110}...               % 1
      (2282,312){1,1}...               % 2
      (2543,762){353,1078}...          % *3
      (2635,1390){0,1}...               % 4
      (2322,2300){-1,1}...               % 5
      (1545,2583){-1,0}...               % 6
      (595,2222){-1,-1}...               % 7
      (213,1130){0,-1}...               % 8
      (552,196){1,-1}...{525,43}          % 9
      (1260,-59)--                    % 10
      (1385,103){-1,0}...               % 11
      (871,344){-1,1}...               % 12
      (541,1236){0,1}...               % 13
      (619,1808){302,969}...               % *14
      (843,2205){1,1}...               % 15
      (1421,2415){1,0}...               % 16
      (1966,2208){1,-1}...               % 17
      (2211,1793){331,-985}...          % *18
      (2297,1223){0,-1}...               % 19
      (1984,317){-1,-1}...{-1,0}          % 20
      (1385,103)--cycle);               % 21

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((3,2), (4,1))                    % tied points
     ()                         % verticals
     ((2,5), (1,6))                    % horizontals
     ((2623,-613){-358,-117}...          % 0
      (2093,-731){-1,0}...               % 1
      (1633,-506){-1,1}...{-373,497}          % 2
      (1260,-59)--                    % 3
      (1624,-7){347,-472}...               % 4
      (1856,-329){298,-401}...          % *5
      (1922,-408){1,-1}...               % 6
      (2320,-574){1,0}...{326,65}          % 7
      (2618,-520)--cycle);               % 8

endchar(0);

"rmur";

charbegin( "R", 2055h#, capheight*v#, baseline );
n := 12;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 7;
t5 := 12;
t6 := 14;
t7 := 16;
t8 := 17;
t9 := 21;
t10 := 24;
t11 := 27;
t12 := 28;

adj_fill.A(12)                         % fixed x points
     (6)                         % fixed y points
     ((1,2), (2,1), (7,2), (8,3), (12,3))     % tied points
     ((5,8), (3,10))                    % verticals
     ((4,9), (1,11))                    % horizontals
     ((692,1154){388,41}...{388,41}          % 0
      (1080,1195){7,29}...{7,29}          % 1
      (1087,1224){280,30}...               % 2
      (1652,1449){1,1}...               % 3
      (1885,1994){0,1}...               % 4
      (1740,2343){-1,1}...               % 5
      (1502,2467){-607,168}...          % *6
      (1133,2511){-1028,0}...{-1,0}          % 7
      (105,2511){-5,-85}...{-5,-85}          % 8
      (100,2426){490,-117}...          % 9
      (298,2372){198,-54}...               % 10
      (384,2261){7,-370}...               % 11
      (395,1626){0,-1}...{-39,-692}          % 12
      (361,11){42,-33}...{42,-33}          % 13
      (403,-22)--                    % 14
      (711,85){-31,626}...{0,1}          % 15
      (692,1154){-3,214}...{-3,214}          % 16
      (689,1368){0,1}...               % 17
      (697,2150){8,782}...               % 18
      (717,2309){81,453}...               % 19
      (795,2371){297,12}...               % 20
      (902,2367){1,0}...               % 21
      (1205,2333){495,-131}...          % *22
      (1397,2236){1,-1}...               % 23
      (1519,1934){0,-1}...               % 24
      (1332,1497){-1,-1}...               % 25
      (863,1319){-759,-65}...          % 26
      (722,1317){-401,-18}...{0,1}          % 27
      (689,1368)--cycle);               % 28

n := 2;
t1 := 2;
t2 := 3;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1725,-24){-411,502}...          % 0
      (748,1131){-607,661}...{-426,44}     % 1
      (692,1154)--                    % 2
      (1080,1195){552,-619}...{247,-269}     % 3
      (2052,99){0,-31}...{0,-31}          % 4
      (2052,68)--cycle);               % 5

endchar(0);

"rmus";

charbegin( "S", 1863h#, capheight*v#, baseline );
n := 14;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 5;
t5 := 9;
t6 := 11;
t7 := 14;
t8 := 15;
t9 := 16;
t10 := 18;
t11 := 20;
t12 := 24;
t13 := 26;
t14 := 29;

adj_fill.A(2, 7, 9, 14)                    % fixed x points
     (1, 7, 8, 14)                    % fixed y points
     ((1,2), (7,1), (8,1), (14,2))          % tied points
     ((4,12), (5,11))               % verticals
     ((3,13), (6,10))               % horizontals
     ((1442,2035){233,208}...{233,208}     % 0
      (1675,2243){-164,333}...          % 1
      (1542,2435){-1,1}...               % 2
      (1022,2596){-1,0}...               % 3
      (411,2367){-1,-1}...               % 4
      (237,1894){0,-1}...               % 5
      (426,1437){1,-1}...               % 6
      (912,1162){465,-213}...          % 7
      (1231,967){1,-1}...               % 8
      (1363,657){0,-1}...               % 9
      (1212,293){-1,-1}...               % 10
      (833,138){-1,0}...               % 11
      (497,255){-1,1}...{-158,566}          % 12
      (342,562){-65,5}...{-65,5}          % 13
      (277,567)--                    % 14
      (277,567){-209,-245}...{-209,-245}     % 15
      (68,322){161,-435}...               % 16
      (202,113){1,-1}...               % 17
      (676,-56){1,0}...               % 18
      (1462,268){1,1}...               % 19
      (1687,773){0,1}...               % 20
      (1514,1181){-1,1}...               % 21
      (1099,1425){-399,202}...          % 22
      (695,1679){-1,1}...               % 23
      (534,2025){0,1}...               % 24
      (644,2325){1,1}...               % 25
      (942,2448){1,0}...               % 26
      (1257,2338){1,-1}...{111,-441}          % 27
      (1395,2045){47,-10}...{47,-10}          % 28
      (1442,2035)--cycle);               % 29

endchar(0);

"rmut";

charbegin( "T", 2036h#, capheight*v#, baseline );
n := 6;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 7;
t6 := 9;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (3,1), (4,1), (6,2))          % tied points
     ((2,5))                         % verticals
     ()                         % horizontals
     ((819,2356){1,-1}...               % 0
      (850,2317){59,-600}...               % 1
      (860,1406){0,-1}...{-52,-828}          % 2
      (812,-5){33,-32}...{33,-32}          % 3
      (845,-37)--                    % 4
      (845,-37){370,99}...{370,99}          % 5
      (1215,62){-48,781}...               % 6
      (1177,1410){0,1}...               % 7
      (1180,2293){24,411}...{1,1}          % 8
      (1198,2362)--cycle);               % 9

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

%adj_fill.B()                         % fixed x points
adj_fill.B(0,6)                         % fixed x points % DEK
     (2)                         % fixed y points
     ((3,3), (4,2))                    % tied points
     ()                              % verticals
     ((2,7), (5,7))                    % horizontals
     ((-5,2350){774,26}...               % 0
      (769,2376){1,0}...{1,-1}          % 1
      (819,2356){379,6}...{379,6}          % 2
      (1198,2362){1,1}...               % 3
      (1239,2383){1,0}...{781,-37}          % 4
      (2020,2346)--                    % 5
      (2027,2576){-808,-42}...          % 6
      (1027,2539){-1,0}...{-295,12}          % 7
      (-5,2580)--cycle);               % 8

mathcorr(4skew#); % DEK
endchar(0);

"rmuu";

charbegin( "U", 2667h#, capheight*v#, baseline );
n := 7;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 6;
t6 := 9;
t7 := 11;

adj_fill.A(4)                         % fixed x points
     (3, 7)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,6))                         % verticals
     ((4,5))                         % horizontals
     ((1969,2440){-18,-1064}...{0,-1}     % 0
      (1952,412){-5,-142}...{-5,-142}     % 1
      (1947,270){39,-284}...               % 2
      (1962,61){23,-202}...               % 3
      (2081,-17){1,0}...{564,170}          % 4
      (2669,125)--                    % 5
      (2648,208){-412,-54}...          % 6
      (2435,179){-1,0}...               % 7
      (2317,219){-1,1}...               % 8
      (2251,746){0,1}...{52,474}          % 9
      (2317,2541){-26,25}...{-26,25}          % 10
      (2291,2566)--cycle);               % 11

n := 8;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 9;
t5 := 10;
t6 := 11;
t7 := 12;
t8 := 15;

adj_fill.B(1)                         % fixed x points
     ()                         % fixed y points
     ((5,1), (6,2))                    % tied points
     ((3,8))                         % verticals
     ((5,6), (4,7), (1,2))               % horizontals
     ((26,2517){10,-100}...{10,-100}          % 0
      (36,2417){206,-54}...               % 1
      (242,2365){206,-52}...               % 2
      (364,2223){5,-361}...               % 3
      (355,1138){0,-1}...               % 4
      (402,471){185,-1018}...          % *5
      (461,253){137.6,-351}...          % *6
      (540,120){1,-1}...               % 7
      (750,6){522,-154}...               % *8
      (1062,-34){1,0}...{636,398}          % 9
      (1947,270)--                    % 10
      (1952,412){-436,-258}...          % 11
      (1298,191){-1,0}...               % 12
      (842,348){-1,1}...               % 13
      (700,609){-192,649}...               % *14
      (650,997){0,1}...               % 15
      (687,2314){0,1}...{124,352}          % 16
      (715,2517)--cycle);               % 17

endchar(0);

"rmuv";

charbegin( "V", 2501h#, capheight*v#, baseline );
n := 8;
t1 := 0;
t2 := 4;
t3 := 6;
t4 := 7;
t5 := 8;
t6 := 14;
t7 := 18;
t8 := 19;

adj_fill.A(1, 7)                    % fixed x points
     (1, 8)                         % fixed y points
     ((1,1), (8,1))                    % tied points
     ((3,4))                         % verticals
     ((4,5), (2,6))                    % horizontals
     ((2575,2578){-317,-61}...{-317,-61}     % 0
      (2258,2517){-211,-357}...          % 1
      (1861,1738){-939,-2017}...          % *2
      (1319,500){-319,-762}...{-31,-7}     % 3
      (1288,493){-19,18}...               % 4
      (1269,511){-266,658}...{-158,766}     % 5
      (657,2583){-671,-37}...{-671,-37}     % 6
      (-14,2546)--                    % 7
      (-12,2425){558,-88}...               % 8
      (223,2377){149,-59}...               % 9
      (288,2335){1,-1}...               % 10
      (339,2254){248,-570}...          % 11
      (518,1750){709,-2289}...{130,-430}     % *12
      (1048,-35){36,-23}...{36,-23}          % 13
      (1084,-58){252,95}...{252,95}          % 14
      (1336,37){426,1228}...               % 15
      (1907,1372){321,596}...          % 16
      (2291,2049){691,1137}...{325,426}     % *17
      (2598,2509){-23,69}...{-23,69}          % 18
      (2575,2578)--cycle);               % 19

mathcorr(3skew#); % DEK
endchar(0);

"rmuw";

charbegin( "W", 3658h#, capheight*v#, baseline );

n := 13;
t1 := 0;
t2 := 3;
t3 := 4;
t4 := 6;
t5 := 9;
t6 := 11;
t7 := 12;
t8 := 13;
t9 := 18;
t10 := 21;
t11 := 24;
t12 := 26;
t13 := 27;

adj_fill.A(3, 12)                    % fixed x points
     (1, 13)                         % fixed y points
     ((1,1), (13,1))                    % tied points
     ((6,7))                         % verticals
     ((7,8), (5,9), (4,10), (2,11))          % horizontals
     ((3822,2548){-298,-50}...{-298,-50}     % 0
      (3524,2498){-247,-428}...          % 1
      (2574,539){-269,-585}...{-30,-28}     % 2
      (2544,511){-41,49}...               % 3
      (2503,560){-110,499}...{-117,780}     % 4
      (2144,2529){-26,24}...{-26,24}          % 5
      (2118,2553){-283,-108}...{-283,-108}     % 6
      (1835,2445){-185,-535}...          % 7
      (1025,597){-144,-306}...{-30,-15}     % 8
      (995,582){-23,22}...               % 9
      (972,604){-52,237}...{-146,781}     % 10
      (555,2549){-606,-11}...{-606,-11}     % 11
      (-51,2538)--                    % 12
      (-44,2423){414,-111}...          % 13
      (122,2375){264,-74}...               % 14
      (222,2273){125,-318}...          % 15
      (480,1389){548,-2296}...{76,-418}     % *16
      (770,-23){39,-17}...{39,-17}          % 17
      (809,-40){237,106}...{237,106}          % 18
      (1046,66){247,751}...               % 19
      (1825,1985){159,324}...                 % 20
      (1859,2029)...                    % 21
      (1884,1984){121,-550}...{79,-458}     % 22
      (2285,-12){46,-27}...{46,-27}          % 23
      (2331,-39){223,98}...{223,98}          % 24
      (2554,59){277,679}...{322,523}          % 25
      (3822,2471){0,77}...{0,77}          % 26
      (3822,2548)--cycle);               % 27
mathcorr(2skew#); % DEK
endchar(0);

"rmux";

charbegin( "X", 2266h#, capheight*v#, baseline );

n := 9;
t1 := 0;
t2 := 3;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 10;
t7 := 11;
t8 := 14;
t9 := 15;

adj_fill.A(1, 9)                    % fixed x points
     (8)                         % fixed y points
     ((2,4), (3,1), (6,2), (7,3))          % tied points
%     ((4,5))                         % verticals
     ()                         % verticals % DEK
     ((4,5))                         % horizontals
     ((2253,120){-189,150}...          % 0
      (1876,483){-322,389}...{-211,366}     % 1
      (1361,1277){-64,131}...          % 2
      (1297,1408){-228,386}...{-110,153}     % 3
      (1187,1561){-542,985}...{-542,985}     % 4
      (645,2546){-197,-11}...{-1,0}          % 5
      (77,2517)--                    % 6
      (77,2401){607,-175}...               % 7
      (298,2338){232,-85}...               % 8
      (461,2182){538,-908}...{140,-220}     % 9
      (999,1274){114,-173}...{114,-173}     % 10
      (1113,1101){326,-551}...          % 11
      (1626,210){683,-1121}...{300,-300}     % *12
      (1796,-20){50,-19}...{50,-19}          % 13
      (1846,-39){407,100}...{407,100}     % 14
      (2253,61)--cycle);               % 15

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (4,2))                    % tied points
     ()                         % verticals
     ((2,3))                         % horizontals
     ((1113,1101){-42,0}...{-42,0}          % 0
      (1071,1101){-722,-1061}...{-722,-1061}     % 1
      (349,40){-349,-40}...{-349,-40}     % 2
      (0,0)--                    % 3
      (0,59){999,1215}...{999,1215}          % 4
      (999,1274)--cycle);               % 5

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

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (4,4))                    % tied points
     ()                         % verticals
     ((2,3))                         % horizontals
     ((1187,1561){33,0}...{33,0}          % 0
      (1220,1561){668,931}...{668,931}     % 1
      (1888,2492){352,51}...{352,51}          % 2
      (2240,2543)--                    % 3
      (2240,2485){-943,-1077}...{-943,-1077}     % 4
      (1297,1408)--cycle);               % 5

endchar(0);

"rmuy";

charbegin( "Y", 2061h#, capheight*v#, baseline );
n := 8;
t1 := 0;
t2 := 2;
t3 := 3;
t4 := 5;
t5 := 6;
t6 := 7;
t7 := 11;
t8 := 13;

adj_fill.A()                         % fixed x points
     (1, 8)                         % fixed y points
     ((1,3), (2,1), (3,2), (8,3))          % tied points
     ((4,5), (2,7))                    % verticals
     ((5,6))                         % horizontals
     ((884,-41){334,108}...{334,108}          % 0
      (1218,67){-19,478}...{8,465}          % 1
      (1205,1135){-93,165}...{-93,165}     % 2
      (1112,1300){-42,35}...               % 3
      (1070,1335){-161,373}...{-526,1210}     % 4
      (544,2545){-299,-6}...{-1,0}          % 5
      (-14,2533)--                    % 6
      (-14,2409){399,-67}...               % 7
      (133,2380){318,-70}...               % 8
      (220,2323){171,-183}...          % *9
      (304,2197){550,-1090}...{550,-1090}     % 10
      (854,1107){0,-1}...{-14,-520}          % 11
      (843,-7){41,-34}...{41,-34}          % 12
      (884,-41)--cycle);               % 13

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,4), (3,4), (4,1))          % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1112,1300){734,1200}...{30,55}     % 0
      (1846,2500){313,64}...{313,64}          % 1
      (2159,2564)--                    % 2
      (2159,2564){18,-66}...{18,-66}          % 3
      (2177,2498){-455,-581}...{-151,-246}     % 4
      (1205,1135)--cycle);               % 5

mathcorr(2skew#); % DEK
endchar(0);

"rmuz";

charbegin( "Z", 2268h#, capheight*v#, baseline );

n := 8;
t1 := 2;
t2 := 5;
t3 := 6;
t4 := 7;
t5 := 8;
t6 := 9;
t7 := 10;
t8 := 14;

adj_fill.A()                         % fixed x points
     (3, 6)                         % fixed y points
     ()                         % tied points
     ()                         % verticals
     ((4,5), (2,7), (1,8))               % horizontals
     ((2269,219){-33,32}...{-33,32}          % 0
      (2236,251){-1651,-54}...{-1651,-54}     % 1
      (585,197){-25,47}...{-25,47}          % 2
      (560,244){1540,2213}...{1540,2213}     % 3
      (2100,2457){0,69}...{0,69}          % 4
      (2100,2526){-1,0}...{-531,32}          % 5
      (454,2571){-31,-30}...{-31,-30}     % 6
      (423,2541)--                    % 7
      (423,2341){29,-21}...{29,-21}          % 8
      (452,2320){533,45}...{1,0}          % 9
      (1671,2361){10,-60}...{10,-60}          % 10
      (1681,2301){-1611,-2223}...{-1611,-2223}% 11
      (70,78){3,-77}...{3,-77}          % 12
      (73,1){1,0}...{310,-30}          % 13
      (2201,-45)--cycle);               % 14

endchar(0);

% SCRIPT LOWER CASE
no_stem_round;

"smll";

charbegin( 96, 1238h#, ascender*v#, baseline );

n := 18;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 11;
t8 := 13;
t9 := 14;
t10 := 15;
t11 := 17;
t12 := 19;
t13 := 22;
t14 := 23;
t15 := 24;
t16 := 25;
t17 := 28;
t18 := 30;

adj_fill.A(9, 14, 18)                    % fixed x points
     (1, 15)                         % fixed y points
     ((3,1), (4,2), (5,1), (6,2), (9,2), (10,1))% tied points
     ((8,11), (5,13))               % verticals
     ((9,10), (7,12), (13,16), (2,17))     % horizontals
     ((1143,443){-112,-135}...          % 0
      (1031,308){-1,-1}...               % 1
      (918,214){-201,-127}...          % *2
      (830,181){-1,0}...               % 3
      (650,257){-1,1}...{-46,488}          % 4
      (491,903){-6,160}...               % 5
      (485,1063){-1,0}...{6,-160}          % 6
      (491,903){-6,160}...               % 7
      (485,1063){.1352,1.984}...          % 8
      (575,2052){240,1369}...          % *9
      (725,2432){1,1}...               % 10
      (828,2486){1,0}...               % 11
      (916,2447){1,-1}...               % 12
      (971,2241){0,-1}...{-687,-820}          % 13
      (485,1063)--                    % 14
      (491,903){698,885}...               % 15
      (980,1651){658,1332}...          % *16
      (1149,2235){0,1}...               % 17
      (1046,2551){-1,1}...               % 18
      (888,2603){-1,0}...               % 19
      (612,2497){-1,-1}...               % 20
      (330,1873){-342,-1652}...{21,-429}     % *21
      (270,845){-258,-277}...{-258,-277}     % 22
      (12,568){53,-66}...{53,-66}          % 23
      (65,502){216,189}...{216,189}          % 24
      (281,691){64,-802}...               % 25
      (342,279){159,-632}...               % *26
      (440,59){1,-1}...               % 27
      (692,-35){1,0}...               % 28
      (1024,131){1,1}...{191,273}          % 29
      (1215,404)--cycle);               % 30

endchar(0);

% LINING FIGURES
more_side(0);

"fml0";

charbegin( "0", 1850h#, lfigheight*v#, baseline );

n := 9;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 8;
t5 := 10;
t6 := 11;
t7 := 14;
t8 := 17;
t9 := 20;

adj_fill.A(1, 6)                    % fixed x points
     (1)                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((4,7), (2,9))                    % verticals
     ((5,6), (3,8))                    % horizontals
     ((1045,2590){-375,-151}...          % 0
      (606,2327){-1,-1}...               % 1
      (135,1141){0,-1}...               % 2
      (213,503){301,-1058}...          % *3
      (436,83){1,-1}...               % 4
      (767,-52){1,0}...               % 5
      (1309,172){1,1}...               % 6
      (1595,655){387,1144}...          % *7
      (1696,1316){0,1}...               % 8
      (1498,2152){-440,755}...{-392,186}     % 9
      (1045,2590)--                    % 10
      (885,2365){384,-207}...          % 11
      (1042,2230){315,-366}...          % *12
      (1200,1999){369,-656}...          % 13
      (1471,1056){0,-1}...               % 14
      (1410,617){-234,-745}...          % *15
      (1237,311){-1,-1}...               % 16
      (934,185){-1,0}...               % 17
      (681,311){-1,1}...               % 18
      (453,735){-308,1061}...          % *19
      (373,1372){0,1}...               % 20
      (670,2200){100,120}...{372,190}     % 21
      (896,2365)--cycle);               % 22

endchar(0);

"fml1"; 

charbegin( "1", 1850h#, lfigheight*v#, baseline );
n := 6;
t1 := 2;
t2 := 3;
t3 := 4;
t4 := 5;
t5 := 8;
t6 := 9;

adj_fill.A(3, 4)                    % fixed x points
     (2, 6)                         % fixed y points
     ()                         % tied points
     ((1,5))                         % verticals
     ((3,4))                         % horizontals
     ((1148,83){-20,428}...               % 0
      (1135,1599){0,1}...{40,850}          % 1
      (1160,2590){-22,44}...{-22,44}          % 2
      (1138,2634){-799,-270}...{-799,-270}     % 3
      (339,2364)--                    % 4
      (339,2265){1,0}...               % 5
      (646,2265){1,0}...               % 6
      (817,2094){12,-371}...               % 7
      (820,1549){0,-1}...{-19,-494}          % 8
      (790,0){46,-17}...{46,-17}          % 9
      (836,-17)--cycle);               % 10

endchar(0);

"fml2";

charbegin( "2", 1850h#, lfigheight*v#, baseline );
n := 10;
t1 := .5;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 12;
t8 := 14;
t9 := 17.73;
t10 := 19;

adj_fill.A(2, 6, 9)                    % fixed x points
     (5)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (1,10))                    % horizontals
     ((1660,8){-1614,0}...{-1614,0}          % 0
      (46,8){-2,57}...{-2,57}          % 1
      (44,65){325,332}...               % 2
      (658,728){979,1143}...               % *3
      (1023,1208){410,663}...          % 4
      (1237,1881){0,1}...               % 5
      (1106,2276){-1,1}...               % 6
      (816,2396){-1,0}...               % 7
      (589,2326){-517,-271}...{-424,-356}     % *8
      (299,2125)--                    % 9
      (236,2202){427,471}...               % 10
      (621,2512){781,419}...               % *11
      (1017,2621){1,0}...               % 12
      (1422,2457){1,-1}...               % 13
      (1577,2045){0,-1}...               % 14
      (1399,1498){-518,-928}...          % 15
      (1074,1017){-854,-1130}...          % *16
      (545,368){-302,-350}...          % 17
      (539,345){.6718,-1.349}...          % 18
      (585,326){1,0}...{1168,0}          % 19
      (1753,326)--cycle);               % 20

endchar(0);

"fml3";

charbegin( "3", 1850h#, lfigheight*v#, baseline );
n := 15;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 8;
t5 := 10;
t6 := 12;
t7 := 14;
t8 := 15;
t9 := 17;
t10 := 19;
t11 := 22;
t12 := 23;
t13 := 26;
t14 := 28;
t15 := 30;

adj_fill.A(1, 4, 7, 12)                    % fixed x points
     (8, 15)                         % fixed y points
     ()                         % tied points
     ((5,10), (3,13))               % verticals
     ((6,9), (11,12), (2,14))          % horizontals
     ((66,183){25,-43}...{25,-43}          % 0
      (91,140){285,-220}...               % 1
      (671,-62){1,0}...               % 2
      (1395,219){1,1}...               % 3
      (1652,796){0,1}...               % 4
      (1501,1178){-1,1}...               % 5
      (1260,1315){-609,206}...{-512,39}     % *6
      (892,1384){-2,31}...{-2,31}          % 7
      (890,1415){244,69}...               % 8
      (1301,1652){1,1}...               % 9
      (1476,2100){0,1}...               % 10
      (1336,2462){-1,1}...               % 11
      (937,2597){-1,0}...               % 12
      (641,2507){-671,-349}...{-461,-386}     % *13
      (266,2248)--                    % 14
      (320,2169){559,364}...               % 15
      (582,2315){451,196}...               % *16
      (771,2365){1,0}...               % 17
      (1067,2261){1,-1}...               % 18
      (1172,1999){0,-1}...               % 19
      (1015,1618){-1,-1}...               % 20
      (796,1477){-550,-245}...{-420,-91}     % *21
      (465,1373){-2,-97}...{-2,-97}          % 22
      (463,1276){609,6}...               % 23
      (870,1235){657,-166}...          % *24
      (1120,1110){297,-309}...          % 25
      (1304,689){0,-1}...               % 26
      (1131,239){-1,-1}...               % 27
      (763,96){-1,0}...               % 28
      (410,250){-1,1}...{-251,429}          % 29
      (240,480)--cycle);               % 30

endchar(0);

"fml4";

charbegin( "4", 1850h#, lfigheight*v#, baseline );

hshift := 20;
vshift := 10;

n := 12;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 13;
t9 := 15;
t10 := 16;
t11 := 17;
t12 := 18;

adj_fill.A(1, 4, 7)                    % fixed x points
     (3, 8)                         % fixed y points
     ((5,1), (6,2), (10,2), (11,1), (12,3))     % tied points
     ((2,9))                         % verticals
     ((5,6))                         % horizontals
     ((1760,871){-14,0}...{-14,0}          % 0
      (1746,871){-1,0}...{-388,0}          % 1
      (1358,871){0,1}...{17,851}          % 2
      (1360,2581){-24,23}...{-24,23}          % 3
      (1336,2604){-283,-129}...{-283,-129}     % 4
      (1053,2475){-1056,-1605}...{-1056,-1605}% 5
      (-3,870){0,-163}...{0,-163}          % 6
      (-3,707){1056,0}...{1056,0}          % 7
%      (1053,707)--                    % 8
      (1053+hshift,707)--                    % 8 % DEK
      (1053+hshift,871){-807,0}...{-1,0}          % 9
      (246,871){-22,0}...               % 10
      (224,871){401,769}...               % 11
      (692,1707){812,1315}...          % *12
      (1036,2186){17,18}...               % 13
      (1048+hshift,2176+vshift){1.011,-1.61}...{5,-20}     % 14
      (1053+hshift,2156+vshift){-4,-787}...          % 15
      (1053+hshift,871){0,-1}...{0,-1}          % 16
      (1053+hshift,707){1,0}...               % 17
      (1358,707){2,0}...{1,0}          % 18
      (1690,707)--cycle);               % 19

n := 2;
t1 := 2;
t2 := 3;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,3))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1053+hshift,-20){-20,22}...{-20,22}          % 0
      (1033+hshift,2){42,280}...{0,1}          % 1
      (1053+hshift,707)--                    % 2
      (1358,707){0,-1}...{59,-427}          % 3
      (1370,103)--cycle);               % 4

endchar(0);

"fml5";

charbegin( "5", 1850h#, lfigheight*v#, baseline );
n := 12;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 9;
t6 := 10;
t7 := 12;
t8 := 13;
t9 := 16;
t10 := 18;
t11 := 20;
t12 := 22;

adj_fill.A(1, 7)                    % fixed x points
     (12)                         % fixed y points
     ()                         % tied points
     ((5,8), (3,10))                    % verticals
     ((6,8), (4,9), (2,11))               % horizontals
     ((45,283){4,-45}...{4,-45}          % 0
      (49,238){375,-458}...               % 1
      (659,-39){1,0}...               % 2
      (1397,262){1,1}...               % 3
      (1658,927){0,1}...               % 4
      (1463,1455){-1,1}...               % 5
      (952,1638){-1,0}...{-449,-215}          % 6
      (461,1503){0,24}...{0,24}          % 7
      (461,1527){0,1}...               % 8
      (461,2196){0,1}...               % 9
      (507,2235){326,3}...{965,20}          % 10
      (1474,2253)--                    % 11
      (1573,2542){-1266,0}...{-1266,0}     % 12
      (307,2542){0,-1235}...{0,-1235}     % 13
      (307,1307){48,-41}...{48,-41}          % 14
      (355,1266){465,447}...               % 15
      (789,1461){1,0}...               % 16
      (1129,1335){1,-1}...               % 17
      (1304,825){0,-1}...               % 18
      (1101,265){-1,-1}...               % 19
      (687,106){-1,0}...               % 20
      (417,220){-1,1}...{-177,401}          % 21
      (233,523)--cycle);               % 22

endchar(0);

"fml6";

charbegin( "6", 1850h#, lfigheight*v#, baseline );
n := 14;
t1 := 2;
t2 := 4;
t3 := 5;
t4 := 8;
t5 := 10;
t6 := 12;
t7 := 13;
t8 := 14;
t9 := 16;
t10 := 18;
t11 := 20;
t12 := 22;
t13 := 25;
t14 := 26;

adj_fill.A(8, 14)                    % fixed x points
     (7)                         % fixed y points
     ((2,1), (3,2), (7,2), (8,1))          % tied points
     ((5,10), (3,12))               % verticals
     ((6,9), (4,11), (1,13))               % horizontals
     ((1670,2346){-28,-19}...{-28,-19}     % 0
      (1642,2327){-249,110}...          % 1
      (1420,2372){-1,0}...               % 2
      (830,2101){-297,-275}...{-5,-523}     % 3
      (477,1134){15,-161}...{15,-161}     % 4
      (492,973){23,-345}...               % 5
      (571,513){237,-751}...               % *6
      (729,222){1,-1}...               % 7
      (972,118){1,0}...               % 8
      (1300,232){1,1}...               % 9
      (1451,635){0,1}...               % 10
      (1282,1033){-1,1}...               % 11
      (946,1161){-1,0}...{-381,-288}          % 12
      (492,973)--                    % 13
      (477,1134){27,-4}...{27,-4}          % 14
      (504,1130){379,308}...               % 15
      (1186,1394){1,0}...               % 16
      (1569,1234){1,-1}...               % 17
      (1744,781){0,-1}...               % 18
      (1478,207){-1,-1}...               % 19
      (875,-48){-1,0}...               % 20
      (425,126){-1,1}...               % 21
      (167,879){0,1}...               % 22
      (661,2133){376,379}...               % 23
      (1107,2472){877,458}...          % *24
      (1538,2591){1,0}...{216,-75}          % 25
      (1703,2555)--cycle);               % 26

endchar(0);

"fml7";

charbegin( "7", 1850h#, lfigheight*v#, baseline );
n := 3;
t1 := 4;
t2 := 6;
t3 := 11;

adj_fill.A()                         % fixed x points
     (3)                         % fixed y points
     ()                         % tied points
     ()                         % verticals
     ((1,2))                         % horizontals
     ((611,43){108,502}...               % 0
      (1257,1560){572,932}...{572,932}     % 1
      (1829,2492){0,47}...{0,47}          % 2
      (1829,2539){-1,0}...{-1579,0}          % 3
      (250,2539)--                    % 4
      (181,2277){28,-36}...{28,-36}          % 5
      (209,2241){1216,0}...{1216,0}          % 6
      (1425,2241){22,-45}...{22,-45}          % 7
      (1447,2196){-643,-1135}...          % 8
      (804,1061){-653,-1135}...{-130,-444}     % 9
      (279,-1){21,-29}...{21,-29}          % 10
      (300,-30)--cycle);               % 11

endchar(0);

"fml8";

charbegin( "8", 1850h#, lfigheight*v#, baseline );
n := 19;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 14;
t9 := 16;
t10 := 18;
t11 := 19;
t12 := 21;
t13 := 23;
t14 := 25;
t15 := 26;
t16 := 29;
t17 := 31;
t18 := 33;
t19 := 35;

adj_fill.A(1, 11)                    % fixed x points
     (10, 19)                    % fixed y points
     ((1,1), (5,1), (6,2), (11,3), (15,3), (19,2))% tied points
     ((9,12), (7,14), (4,16), (2,18))     % verticals
     ((8,13), (3,17))               % horizontals
     ((871,1229){385,-257}...          % 0
      (1200,1012){1,-1}...               % 1
      (1385,623){0,-1}...               % 2
      (1247,251){-1,-1}...               % 3
      (905,135){-1,0}...               % 4
      (615,241){-1,1}...               % 5
      (456,656){0,1}...               % 6
      (589,1032){1,1}...{361,189}          % 7
      (871,1229){255,219}...{255,219}     % 8
      (1126,1448){416,250}...          % 9
      (1479,1757){482,652}...          % *10
      (1608,2100){0,1}...               % 11
      (1475,2439){-1,1}...               % 12
      (1266,2555){-535,172}...{-579,37}     % *13
      (940,2611){-391,-151}...          % 14
      (495,2360){-349,-310}...          % 15
      (328,1960){0,-1}...               % 16
      (442,1633){429,-628}...{385,-257}     % *17
%      (757,1332)--                    % 18
      (757+38.5/2,1332-25.7/2)--          % 18 % DEK
      (1012,1538){-384,275}...          % 19
      (716,1817){-402,542}...          % *20
      (610,2080){0,1}...               % 21
      (660,2291){208,285}...{261,200}     % 22
      (827,2423){444,-10}...               % 23
      (1195,2296){1,-1}...               % 24
      (1295,2010){0,-1}...{-276,-190}     % 25
      (1012,1538){-262,-221}...{-262,-221}     % 26
      (750,1317){-366,-211}...          % 27
      (306,1007){-1,-1}...               % 28
      (147,581){0,-1}...               % 29
      (323,132){1,-1}...               % 30
      (812,-37){1,0}...               % 31
      (1517,249){1,1}...               % 32
      (1707,730){0,1}...               % 33
      (1536,1135){-1,1}...{-384,275}          % 34
      (1126,1448)--cycle);               % 35

endchar(0);

"fml9";

charbegin( "9", 1850h#, lfigheight*v#, baseline );
n := 12;
t1 := 4;
t2 := 7;
t3 := 9;
t4 := 13;
t5 := 14;
t6 := 17;
t7 := 18;
t8 := 20;
t9 := 21;
t10 := 22;
t11 := 24;
t12 := 25;

adj_fill.A(5, 11)                    % fixed x points
     (12)                         % fixed y points
     ((4,1), (5,2), (9,2), (10,1))          % tied points
     ((3,6), (1,8))                    % verticals
     ((4,5), (2,7))                    % horizontals
     ((791,41){62,366}...               % 0
      (942,426){503,958}...               % *1
      (1294,999){277,408}...               % 2
      (1604,1544){417,956}...          % *3
      (1711,1955){0,1}...               % 4
      (1528,2409){-1,1}...               % 5
      (1277,2547){-619,187}...{-1,0}          % *6
      (909,2596){-338,-161}...          % 7
      (384,2279){-1,-1}...               % 8
      (155,1705){0,-1}...               % 9
      (344,1260){1,-1}...               % 10
      (719,1104){1,0}...               % 11
      (925,1143){420,130}...{519,232}     % 12
      (1291,1278)--                    % 13
      (1297,1420){-1,-1}...               % 14
      (959,1312){-1,0}...               % 15
      (667,1412){-1,1}...               % 16
      (479,1886){0,1}...{224,199}          % 17
      (734,2379){10,1}...               % 18
      (1220,2247){1,-1}...               % 19
      (1414,1784){0,-1}...{-1,-1}          % 20
      (1297,1420){-6,-142}...{-6,-142}     % 21
      (1291,1278){-399,-699}...          % 22
      (879,643){-316,-424}...{-123,-305}     % 23
      (456,-11){23,-22}...{23,-22}          % 24
      (479,-33)--cycle);               % 25

endchar(0);

% UPPERCASE GREEK CHARACTERS
set_stem_round(270,290,320,321,335,367); % DEK
more_side(100h#);

"gm000";     %cap gamma

charbegin( 0, 1798h#, capheight*v#, baseline );

n := 7;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 10;
t7 := 15;

adj_fill.A()                         % fixed x points
     (1, 5)                         % fixed y points
     ()                         % tied points
     ((4,6), (1,2))                    % verticals
     ((3,7))                         % horizontals
     ((1785,1928){-94,2}...{-94,2}          % 0
      (1691,1930){-91,303}...          % 1
      (1600,2233){-91,303}...          % 2
      (1386,2380){-461,76}...          % 3
      (749,2405){-797,-40}...          % 4
      (624,2277){-90,-598}...          % 5
      (601,2033){0,-1}...{14,-672}          % 6
      (627,60)--                    % 7
      (340,-26){-38,42}...{-38,42}          % 8
      (302,16){11,688}...               % 9
      (329,2045){0,1}...               % 10
      (321,2275){-58,622}...               % 11
      (269,2408){-94,81}...{-94,81}          % 12
      (175,2489){10,75}...{10,75}          % 13
      (185,2564){875,0}...               % 14
      (1060,2564){1,0}...{496,22}          % 15
      (1737,2578)--cycle);               % 16

mathcorr(4skew#); % DEK
endchar(0);

"gm001";     %cap delta

charbegin( 1, 2441h#, capheight*v#, baseline );
n := 8;
t1 := 0;
t2 := 2;
t3 := 6;
t4 := 8;
t5 := 9;
t6 := 11;
t7 := 14.74;
t8 := 16;

adj_fill.A()                         % fixed x points
     (3, 6)                         % fixed y points
     ((1,1), (4,1), (5,2), (8,2))          % tied points
     ()                         % verticals
     ((2,7))                         % horizontals
     ((12,165){6,-153}...{6,-153}          % 0
      (18,12){404,29}...{723,-46}          % 1
      (2221,-14){223,118}...{223,118}     % 2
      (2444,104){5,60}...{5,60}          % 3
      (2449,164){-132,219}...          % 4
      (1984,1127){-990,2410}...{-225,684}     % *5
      (1459,2574){-217,-92}...{-217,-92}     % 6
      (1242,2482){-126,-236}...{-351,-641}     % 7
      (12,165)--                    % 8
      (263,217){328,694}...               % 9
      (1240,2083){110,187}...{0,7}          % 10
      (1240,2090){30,-70}...               % 11
      (1270,2020){317,-757}...{82,-191}     % 12
      (2000,217){-20,-32}...{-20,-32}     % 13
      (1980,185){-748,2}...{-253,-6}          % 14
      (295,192){-32,25}...{-32,25}          % 15
      (263,217)--cycle);               % 16

endchar(0);

"gm002";     %cap theta

%charbegin( 2, 3055h#, capheight*v#, baseline );
charbegin( 2, (3055-450)*h#, capheight*v#, baseline ); % DEK
n := 8;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 7;
t5 := 9;
t6 := 13;
t7 := 16;
t8 := 17;

adj_fill.A()                         % fixed x points
     (1, 8)                         % fixed y points
     ()                         % tied points
     ((3,4), (7,8))                    % verticals
     ((4,5), (2,6))                    % horizontals
     ((2027,1691){0,-1}...               % 0
      (2034,1503){0,-1}...               % 1
      (1974,1428){-303,-23}...          % 2
      (1583,1419){-1,0}...               % 3
      (1049,1432){-564,46}...          % 4
      (966,1481){0,1}...{0,1}          % 5
      (952,1691){-95,0}...{-95,0}          % 6
      (857,1691){0,-1}...               % 7
      (869,1292){0,-1}...{0,-1}          % 8
      (863,891)--                    % 9
      (968,889){0,244}...               % 10
      (968,1133){0,1}...               % 11
      (1063,1192){502,21}...               % 12
      (1570,1207){1,0}...               % 13
      (1952,1193){279,-4}...               % 14
      (2017,1114){0,-1}...{-23,-326}          % 15
      (2022,902){110,-2}...{110,-2}          % 16
      (2132,900){0,1}...               % 17
      (2130,1300){0,1}...{0,1}          % 18
      (2139,1691)--cycle);               % 19

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

adj_fill.B(1, 6)                    % fixed x points
     (1, 10)                         % fixed y points
     ((1,1), (5,1), (6,2), (10,2))          % tied points
     ((4,7), (2,9))                    % verticals
     ((5,6), (3,8))                    % horizontals
     ((1342,-45){1,0}...               % 0
      (2429,327){1,1}...               % 1
      (2692,779){356,1083}...          % *2
      (2785,1410){0,1}...               % 3
      (2478,2307){-1,1}...               % 4
      (1664,2593){-1,0}...               % 5
      (569,2199){-1,-1}...               % 6
      (209,1226){0,-1}...               % 7
      (568,219){1,-1}...{1,0}          % 8
      (1342,-45)--                    % 9
      (1502,114){-1,0}...               % 10
      (899,332){-1,1}...               % 11
      (551,1277){0,1}...               % 12
      (616,1833){250,914}...               % *13
      (801,2191){1,1}...               % 14
      (1465,2452){1,0}...               % 15
      (2152,2207){1,-1}...               % 16
      (2439,1394){0,-1}...               % 17
      (2377,774){-240,-993}...          % *18
      (2199,401){-1,-1}...{-1,0}          % 19
      (1502,114)--cycle);               % 20

%endchar(0);
endchar(-200h#); % DEK

"gm003";     %upper case lambda

charbegin( 3, 2654h#, capheight*v#, baseline );
n := 9;
t1 := 0;
t2 := 1;
t3 := 3;
t4 := 5;
t5 := 6;
t6 := 7;
t7 := 9;
t8 := 11;
t9 := 12;

adj_fill.A(4, 6)                    % fixed x points
     (3, 7)                         % fixed y points
     ((5,1), (6,1))                    % tied points
     ((1,9))                         % verticals
     ((2,8))                         % horizontals
     ((2753,204){-248,-10}...          % 0
      (2505,194){-248,-10}...          % 1
      (2387,263){-118,247}...{-209,829}     % 2
      (1599,2581){-245,-91}...{-245,-91}     % 3
      (1354,2490){-151,-298}...{-371,-643}     % 4
      (2,16){48,-40}...{48,-40}          % 5
      (50,-24)--                    % 6
      (50,-24){411,61}...{119,51}          % 7
      (339,64){289,668}...{151,303}          % 8
      (1360,2146){247,-733}...{112,-307}     % 9
      (2082,2){86,-27}...{86,-27}          % 10
      (2168,-25){566,101}...{108,33}          % 11
      (2749,121)--cycle);               % 12

endchar(0);

"gm004";     %upper case Xi

charbegin( 4, 2007h#, capheight*v#, baseline );
n := 6;
t1 := 0;
t2 := 3.5;
t3 := 7;
t4 := 8;
t5 := 10;
t6 := 12;

adj_fill.A()                         % fixed x points
     (1, 4)                         % fixed y points
     ()                         % tied points
     ((3,4), (1,6))                    % verticals
     ((2,5))                         % horizontals
     ((1879,1937){-57,227}...          % 0
      (1822,2164){-57,227}...          % 1
      (1789,2228){-1,1}...               % 2
      (1652,2285){-1,0}...               % 3
      (373,2285){-1,0}...               % 4
      (263,2261){-1.662,-.9419}...          % 5
      (185,2178){-84,-237}...{-84,-237}     % 6
      (101,1941)--                    % 7
      (0,1934){72,584}...{22,277}          % 8
      (47,2573){527,-32}...               % 9
      (1025,2540){1,0}...{238,10}          % 10
      (1928,2540){79,-599}...{79,-599}     % 11
      (2007,1941)--cycle);               % 12

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ((1,2))                         % verticals
     ((2,3))                         % horizontals
     ((1530,1488){-330,-16}...{-514,21}     % 0
      (416,1475)--                    % 1
      (350,1219){579,28}...{297,-8}          % 2
      (1476,1220)--cycle);               % 3

n := 6;
t1 := 0;
t2 := 3;
t3 := 7;
t4 := 8;
t5 := 9;
t6 := 11;

adj_fill.C()                         % fixed x points
     (1, 3)                         % fixed y points
     ()                         % tied points
     ((3,4), (1,6))                    % verticals
     ((2,5))                         % horizontals
     ((1912,545){-57,-205}...          % 0
      (1855,340){-66,-226}...          % 1
      (1768,267){-1,0}...               % 2
      (1398,265){-1,0}...               % 3
      (286,265){-1,0}...               % 4
      (204,294){-1,1}...               % 5
      (155,354){-60,211}...{-60,211}          % 6
      (95,565)--                    % 7
      (0,561){40,-561}...{696,21}          % 8
      (40,0){1908,-21}...{277,-15}          % 9
      (1948,-21){59,564}...{59,564}          % 10
      (2007,543)--cycle);               % 11

endchar(0);

"gm005";     %upper case pi

charbegin( 5, 2476h#, capheight*v#, baseline );
n := 10;
t1 := 1;
t2 := 8;
t3 := 9;
t4 := 10;
t5 := 15;
t6 := 17;
t7 := 19;
t8 := 22;
t9 := 26;
t10 := 28;

adj_fill.A()                         % fixed x points
     (6, 10)                         % fixed y points
     ()                         % tied points
     ((5,7), (1,9))                    % verticals
     ((3,4), (2,8))                    % horizontals
     ((2154,30){-27,359}...               % 0
      (2110,1525){0,1}...               % 1
      (2119,2273){60,754}...               % 2
      (2136,2348){1,1}...               % 3
      (2183,2371){281,65}...{281,65}          % 4
      (2464,2436){0,103}...{0,103}          % 5
      (2464,2539){-616,-15}...          % 6
      (1560,2521){-1,0}...               % 7
      (828,2521){-1,0}...{-584,42}          % 8
      (-3,2553){0,-111}...{0,-111}          % 9
      (-3,2442){279,-87}...               % 10
      (212,2374){258,-115}...          % 11
      (273,2340){1,-1}...               % 12
      (301,2259){45,-256}...               % 13
      (322,1976){20,-1098}...          % *14
      (321,1161){0,-1}...{-29,-613}          % 15
      (293,6){25,-19}...{25,-19}          % 16
      (318,-13)--                    % 17
      (634,57){-18,713}...               % 18
      (613,1193){0,1}...               % 19
      (640,2315){16,234}...{15,48}          % 20
      (655,2363){36,4}...               % 21
      (691,2367){1,0}...               % 22
      (1743,2367){1,0}...{43,-31}          % 23
      (1786,2336){23,-67}...               % 24
      (1809,2269){8,-845}...               % 25
      (1816,1072){0,-1}...{-9,-404}          % 26
      (1807,-10){51,-41}...{51,-41}          % 27
      (1858,-51)--cycle);               % 28

endchar(0);

"gm006";     %upper case Sigma

charbegin( 6, 2194h#, capheight*v#, baseline );
n := 10;
t1 := 1;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 11;
t7 := 13;
t8 := 15;
t9 := 17;
t10 := 18;

adj_fill.A(2, 4, 7, 9)                    % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((5,6), (1,10))                    % horizontals
     ((2063,19){-414,14}...               % 0
      (1082,34){-1,0}...               % 1
      (82,7){-710,-4}...{31,176}          % 2
      (113,183){611,797}...               % 3
      (724,980){611,797}...               % 4
      (889,1291){0,1}...               % 5
      (783,1540){-560,830}...{-560,830}     % 6
      (223,2370){250,174}...{250,174}     % 7
      (473,2544){311,-6}...{680,35}          % 8
      (2007,2572){13,-40}...{13,-40}          % 9
      (2020,2532)--                    % 10
      (1937,2335){-1248,13}...{-1248,13}     % 11
      (689,2348){-3,-62}...{-3,-62}          % 12
      (686,2286){493,-805}...          % 13
      (1179,1481){493,-805}...          % 14
      (1197,1420){0,-1}...               % 15
      (1157,1339){-673,-985}...{-673,-985}     % 16
      (484,354){805,-11}...               % 17
      (1514,349){1,0}...{267,39}          % 18
      (2110,383){11,-36}...{11,-36}          % 19
      (2121,347)--cycle);               % 20

endchar(0);

"gm007";     %upper case Upsilon

charbegin( 7, 2452h#, capheight*v#, baseline );
n := 8;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 10;
t7 := 13;
t8 := 15;

adj_fill.A()                         % fixed x points
     (5, 8)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((4,5), (1,7))                    % verticals
     ((3,6))                         % horizontals
     ((1326,92){-112,1287}...{-112,1287}     % 0
      (1214,1379){-32,9}...{-32,9}          % 1
      (1182,1388){-39,366}...          % 2
      (1052,2056){-342,1066}...          % *3
      (840,2454){-1,1}...               % 4
      (475,2608){-1,0}...               % 5
      (164,2502){-1,-1}...{-88,-483}          % 6
      (-26,2054)--                    % 7
      (45,2027){91,320}...               % 8
      (177,2258){1,1}...               % 9
      (364,2325){1,0}...               % 10
      (647,2188){1,-1}...               % 11
      (928,1650){380,-1369}...          % *12
      (1027,819){0,-1}...{-22,-408}          % 13
      (1012,-13){64,-28}...{64,-28}          % 14
      (1076,-41)--cycle);               % 15

n := 6;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 9;
t6 := 12;

adj_fill.B()                         % fixed x points
     (1)                         % fixed y points
     ((3,2), (4,1))                    % tied points
     ((1,6))                         % verticals
     ((2,5))                         % horizontals
     ((2352,2010){-56,350}...          % 0
      (2238,2267){-1,1}...               % 1
      (2072,2318){-1,0}...               % 2
      (1807,2180){-1,-1}...               % 3
      (1363,1299){-101,-527}...{0,-1}     % 4
      (1326,92)--                    % 5
      (1214,1379){166,989}...          % 6
      (1383,2008){424,1042}...          % *7
      (1638,2421){1,1}...               % 8
      (2041,2580){1,0}...               % 9
      (2308,2477){1,-1}...               % 10
      (2402,2298){127,-455}...{0,-1}          % *11
      (2435,2022)--cycle);               % 12

endchar(0);

"gm010";     %upper case Phi

charbegin( 8, 2885h#, capheight*v#, baseline );
n := 14;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 11;
t8 := 12;
t9 := 13;
t10 := 17;
t11 := 18;
t12 := 19;
t13 := 20;
t14 := 23;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((3,1), (4,2), (5,3), (6,4), (10,5), (11,6), (12,7), (13,8))% tied points
     ((8,9), (4,12), (1,14))               % verticals
     ((7,8), (1,2))                    % horizontals
     ((932,7){0,77}...               % 0
      (932,84){.9691,1.247}...          % 1
      (986,112){228,58}...               % *2
      (1160,142){258,45}...               % 3
      (1224,199){89,176}...               % *4
      (1249,318){0,1}...               % 5
      (1249,420){0,2}...               % 6
      (1249,2120){0,2}...               % 7
      (1249,2224){0,1}...               % 8
      (1249,2295){0,1}...               % 9
      (1165,2397){-231,34}...{-231,34}     % 10
      (934,2431){0,101}...{0,101}          % 11
      (934,2532)--                    % 12
      (1891,2537){0,-92}...{0,-92}          % 13
      (1891,2445){-233,-36}...          % 14
      (1658,2409){-233,-36}...          % 15
      (1567,2296){0,-1}...               % 16
      (1567,2224){0,-2}...               % 17
      (1567,2120){0,-2}...               % 18
      (1567,420){0,-2}...{0,-99}          % 19
      (1567,318){0,-1}...               % 20
      (1704,142){221,-44}...{221,-44}     % 21
      (1925,98){0,-91}...{0,-91}          % 22
      (1925,7)--cycle);               % 23

n := 6;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 7;
t6 := 9;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (3,4), (4,3), (6,2))          % tied points
     ((2,5))                         % verticals
     ((3,4), (1,6))                    % horizontals
     ((1249,318){-1,0}...               % 0
      (395,613){-1,1}...               % 1
      (171,1227){0,1}...               % 2
      (406,1893){1,1}...{1,0}          % 3
      (1249,2224)--                    % 4
      (1249,2120){-1,0}...               % 5
      (722,1889){-1,-1}...               % 6
      (510,1285){0,-1}...               % 7
      (797,584){1,-1}...{1,0}          % 8
      (1249,420)--cycle);               % 9

n := 6;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 7;
t5 := 10;
t6 := 12;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,8), (3,5), (4,6), (6,7))          % tied points
     ((2,5))                         % verticals
     ((3,4), (1,6))                    % horizontals
     ((1567,318){1,0}...               % 0
      (2049,418){829,273}...               % *1
      (2396,620){1,1}...               % 2
      (2666,1380){0,1}...               % 3
      (2475,1951){-1,1}...               % 4
      (2108,2153){-908,273}...{-1,0}          % *5
      (1567,2224)--                    % 6
      (1567,2120){1,0}...               % 7
      (2168,1902){1,-1}...               % 8
      (2287,1669){161,-600}...          % *9
      (2329,1302){0,-1}...               % 10
      (2103,629){-1,-1}...{-1,0}          % 11
      (1567,420)--cycle);               % 12

endchar(0);

"gm011";     %upper case Psi

charbegin( 9, 2404h#, capheight*v#, baseline );
n := 10;
t1 := 0;
t2 := 1;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 13;
t10 := 16;

adj_fill.A()                         % fixed x points
     (6)                         % fixed y points
     ((3,1), (4,2), (8,3), (9,4))          % tied points
     ((5,7), (2,10))                    % verticals
     ((1,2))                         % horizontals
     ((770,-5){-1,101}...{-1,101}          % 0
      (769,96){253,46}...               % 1
      (1022,142){253,46}...               % 2
      (1095,226){108,645}...               % 3
      (1127,385){0,1}...               % 4
      (1127,919){0,2}...               % 5
      (1127,1019){0,2}...               % 6
      (1127,1349){0,1}...{-55,792}          % 7
      (1106,2468)--                    % 8
      (1424,2552){17,-29}...{17,-29}          % 9
      (1441,2523){-83,-774}...          % 10
      (1390,1694){0,-1}...{12,-304}          % 11
      (1403,1020){10,-92}...{10,-92}          % 12
      (1413,928){9,-609}...               % 13
      (1422,319){9,-609}...               % 14
      (1543,139){214,-42}...{214,-42}     % 15
      (1757,97){-3,-102}...{-3,-102}          % 16
      (1754,-5)--cycle);               % 17

n := 7;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 12;
t7 := 16;

adj_fill.B(4)                         % fixed x points
     ()                         % fixed y points
     ((1,2), (7,1))                    % tied points
     ((2,6))                         % verticals
     ((3,5), (1,7))                    % horizontals
     ((1127,1019){-1,0}...               % 0
      (735,1176){-1,1}...               % 1
      (549,1563){-251,1026}...          % *2
      (484,2202){0,1}...               % 3
      (441,2501){-1,1}...               % 4
      (324,2566){-1,0}...               % 5
      (195,2562){-397,-134}...{-397,-134}     % 6
      (-202,2428)--                    % 7
      (-176,2347){232,35}...               % 8
      (56,2382){232,35}...               % 9
      (155,2341){1,-1}...               % 10
      (205,2214){84,-496}...               % *11
      (239,1845){109,-1327}...          % 12
      (317,1376){212,-740}...          % *13
      (451,1105){1,-1}...               % 14
      (716,967){676,-186}...{1,0}          % *15
      (1127,919)--cycle);               % 16

n := 5;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 8;
t5 := 11;

adj_fill.C()                         % fixed x points
     (3)                         % fixed y points
     ((1,3), (5,4))                    % tied points
%     ()                         % verticals
     ((2,4))                         % verticals % DEK
%     ((2,4), (1,5))                    % horizontals
     ((1,5))                         % horizontals % DEK
     ((1403,1020){1,0}...               % 0
      (1787,1201){1,1}...               % 1
      (1914,1457){231,733}...          % *2
      (2018,1934){124,806}...{151,545}     % 3
      (2088,2422){355,138}...{328,39}     % 4
      (2471,2512)--                    % 5
      (2483,2446){-620,-393}...          % 6
      (2327,2182){-176,-655}...          % 7
      (2258,1807){-114,-687}...          % 8
      (2155,1369){-233,-683}...          % *9
      (2025,1124){-1,-1}...{-1,0}          % 10
      (1413,928)--cycle);               % 11

endchar(0);

"gm012";     %upper case Omega     

charbegin( 10, 3042h#, capheight*v#, baseline );
n := 13;
t1 := 2;
t2 := 5;
t3 := 8;
t4 := 10;
t5 := 13;
t6 := 14;
t7 := 16.36;
t8 := 18;
t9 := 20;
t10 := 23;
t11 := 25;
t12 := 29;
t13 := 29.48;

adj_fill.A(1, 5, 8, 12)                    % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ((4,9), (2,11))                    % verticals
     ((6,7), (3,10), (1,13))               % horizontals
     ((3021,188){-30,35}...{-30,35}          % 0
      (2991,223){-1,0}...{-738,-41}          % 1
      (2018,184){1,33}...{1,33}          % 2
      (2019,217){564,169}...               % 3
      (2412,479){1,1}...               % 4
      (2746,1425){0,1}...               % 5
      (2446,2275){-1,1}...               % 6
      (2098,2478){-833,274}...          % *7
      (1613,2549){-1,0}...               % 8
      (617,2203){-1,-1}...               % 9
      (263,1251){0,-1}...               % 10
      (330,776){256,-808}...               % *11
      (519,443){1,-1}...{627,-285}          % 12
      (861,216){-12,-23}...{-12,-23}          % 13
      (849,193){-248,29}...{-555,24}          % 14
      (54,242)--                    % 15
      (-6,14){701,52}...{356,-33}          % 16
      (1208,-9){80,205}...{80,205}          % 17
      (1288,196){-787,148}...          % 18
      (880,393){-1,1}...               % 19
      (590,1217){0,1}...               % 20
      (674,1784){322,975}...               % *21
      (912,2192){1,1}...               % 22
      (1543,2420){1,0}...               % 23
      (2110,2208){1,-1}...               % 24
      (2411,1362){0,-1}...               % 25
      (2341,830){-268,-893}...          % *26
      (2143,469){-1,-1}...{-469,-109}     % 27
      (1685,211){-34,-216}...{-34,-216}     % 28
      (1651,-5){676,50}...{317,-26}          % 29
      (2929,-9)--cycle);               % 30

endchar(0);

% LOWERCASE GREEK CHARACTERS
set_stem_round(250,268,290,303,325,341); % DEK

"gm013";     %lower case alpha

charbegin( 11, 2238h#, lcbody*v#, baseline );
n := 14;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 10;
t6 := 11;
t7 := 12;
t8 := 13;
t9 := 14;
t10 := 15;
t11 := 19;
t12 := 21;
t13 := 23;
t14 := 26;

adj_fill.A(8, 14)                    % fixed x points
     (1, 7)                         % fixed y points
     ((1,1), (5,1), (6,2), (9,3), (10,4), (14,2))% tied points
     ((3,12))                    % verticals
     ((4,11), (2,13))               % horizontals
     ((1384,806){-101,329}...          % 0
      (1136,1404){-1,1}...               % 1
      (885,1522){-1,0}...               % 2
      (647,1417){-1,-1}...               % 3
      (504,1164){-193,-618}...          % *4
      (454,799){0,-1}...               % 5
      (612,300){1,-1}...               % 6
      (774,230){1,0}...               % 7
      (909,274){293,171}...               % *8
      (1067,401){1,1}...{311,433}          % 9
      (1384,806){210,291}...               % 10
      (1594,1097){1.09,1.674}...{371,635}     % 11
      (1965,1732)--                    % 12
      (2152,1647){-511,-771}...          % 13
      (1641,876){-1.165,-1.624}...{-193,-249}% 14
      (1448,627){-405,-485}...          % 15
      (1181,303){-333,-398}...          % *16
      (1115,229){-1,-1}...               % 17
      (850,26){-512,-274}...               % *18
      (603,-45){-1,0}...               % 19
      (402,43){-1,1}...               % 20
      (212,627){0,1}...               % 21
      (521,1483){1,1}...               % 22
      (1071,1732){1,0}...               % 23
      (1340,1624){1,-1}...               % 24
      (1478,1416){254,-527}...{112,-407}     % *25
      (1594,1097)--cycle);               % 26

n := 5;
t1 := 0;
t2 := 1;
t3 := 4;
t4 := 5;
t5 := 8;

adj_fill.B()                         % fixed x points
     (1)                         % fixed y points
     ((3,3), (4,4))                    % tied points
     ()                         % verticals
     ((2,5))                         % horizontals
     ((2354,378){-284,-222}...          % 0
      (2007,186){-1,0}...               % 1
      (1914,238){-1,1}...               % 2
      (1781,464){-273,638}...{-218,772}     % *3
      (1641,876)--                    % 4
      (1448,627){182,-540}...          % 5
      (1630,87){182,-540}...               % 6
      (1700,-20){1,-1}...               % 7
      (1831,-74){1,0}...               % 8
      (2009,-4){560,354}...{283,218}          % *9
      (2391,280)--cycle);               % 10

endchar(0);

"gm014";     %lower case beta

%charbegin( 12, 2253h#, capheight*v#, descender*v#);
charbegin( 12, 2253h#, ascender*v#, descender*v#); % DEK
n := 17;
t1 := 0;
t2 := 1.134;
t3 := 3;
t4 := 5;
t5 := 8;
t6 := 9;
t7 := 11;
t8 := 12;
t9 := 15;
t10 := 18;
t11 := 20;
t12 := 23;
t13 := 24;
t14 := 27;
t15 := 29;
t16 := 31;
t17 := 33;

adj_fill.A(2, 5, 14, 17)               % fixed x points
     (1, 10)                         % fixed y points
     ()                         % tied points
     ((9,11), (7,13), (4,15))          % verticals
     ((8,12), (5,6), (3,16))               % horizontals
     ((931,380){51,-22}...{51,-22}          % 0
      (982,358){-66,-502}...               % 1
      (1051,162){1,-1}...               % 2
      (1248,79){1,0}...               % 3
      (1518,208){1,1}...               % 4
      (1690,718){0,1}...               % 5
      (1530,1154){-1,1}...               % 6
      (1080,1302){-1,0}...{-778,-66}          % 7
      (846,1294){9,135}...{9,135}          % 8
      (855,1429){1,0}...               % 9
      (1352,1614){1,1}...               % 10
      (1480,1998){0,1}...               % 11
      (1108,2402){-1,0}...               % 12
      (805,2296){-1,-1}...               % 13
      (671,2016){-190,-756}...          % *14
      (615,1540){-14,-542}...          % 15
      (612,771){0,-1}...{35,-609}          % 16
      (643,-627)--                    % 17
      (363,-747){-46,56}...{-46,56}          % 18
      (317,-691){17,586}...{26,475}          % 19
      (357,1419){25,474}...               % 20
      (461,1982){337,956}...               % *21
      (694,2375){1,1}...               % 22
      (1265,2581){1,0}...               % 23
      (1769,2082){0,-1}...               % 24
      (1570,1627){-1,-1}...{-383,-99}     % 25
      (1249,1430){-5,-23}...{-5,-23}          % 26
      (1244,1407){1,0}...               % 27
      (1806,1223){1,-1}...               % 28
      (2005,747){0,-1}...               % 29
      (1781,189){-1,-1}...               % 30
      (1099,-57){-1,0}...               % 31
      (802,56){-1,1}...{-159,283}          % 32
      (751,124)--cycle);               % 33

endchar(0);

"gm015";     %lower case gamma

charbegin( 13, 2053h#, lcbody*v#, descender*v#);
n := 9;
t1 := 1;
t2 := 2;
t3 := 6;
t4 := 8;
t5 := 9;
t6 := 11;
t7 := 14;
t8 := 16;
t9 := 17;

adj_fill.A(4, 8)                    % fixed x points
     (5, 9)                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((1,7))                         % verticals
     ((3,6))                         % horizontals
     ((1055,-635){37,394}...{-4,764}          % 0
      (1085,88){17,293}...{17,293}          % 1
      (1102,381){-29,4}...{-29,4}          % 2
      (1073,385){-2,481}...               % 3
      (987,1134){-326,1221}...          % *4
      (747,1606){-1,1}...               % 5
      (431,1734){-1,0}...               % 6
      (-15,1566){-1,-1}...{-227,-358}     % 7
      (-192,1325)--                    % 8
      (-132,1280){254,292}...          % 9
      (6,1415){1,1}...               % 10
      (284,1520){1,0}...               % 11
      (542,1412){1,-1}...               % 12
      (922,139){75,-439}...               % 13
      (921,108){-.251,-1.975}...          % 14
      (908,50){-265,-679}...{-119,-435}     % 15
      (723,-611){238,-203}...{258,-91}     % 16
      (927,-733)--cycle);               % 17

n := 2;
t1 := 2;
t2 := 3;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,2))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1831,1740){-49,-19}...{-49,-19}     % 0
      (1782,1721){-152,-395}...{-361,-655}     % 1
      (1102,381)--                    % 2
      (1085,88){354,660}...{173,282}          % 3
      (2055,1639)--cycle);               % 4

endchar(0);

"gm016";     %lower case delta

%charbegin( 14, 1855h#, capheight*v#, baseline );
charbegin( 14, (1855-200)*h#, ascender*v#, baseline ); % DEK
n := 15;
t1 := .5;
t2 := 2;
t3 := 6;
t4 := 8;
t5 := 10;
t6 := 12;
t7 := 13;
t8 := 14;
t9 := 16;
t10 := 18;
t11 := 20;
t12 := 21;
t13 := 23;
t14 := 27;
t15 := 28;

adj_fill.A(7, 15)                    % fixed x points
     (6)                         % fixed y points
     ((6,1), (7,2), (11,2), (12,1))          % tied points
     ((5,8), (3,10), (2,13))               % verticals
     ((4,9), (1,14))                    % horizontals
     ((1377,2392){-527,0}...               % 0
      (850,2392){-1,0}...               % 1
      (628,2240){0,-1}...               % 2
      (699,2104){388,-440}...          % *3
      (1016,1800){658,-625}...          % 4
      (1368,1460){1,-1}...               % 5
      (1620,928){0,-1}...               % 6
      (1337,232){-1,-1}...               % 7
      (755,-35){-1,0}...               % 8
      (409,79){-1,1}...               % 9
      (206,592){0,1}...               % 10
      (358,1084){585,1045}...{1,1}          % *11
      (791,1637)--                    % 12
      (899,1545){-411,-353}...          % 13
      (491,783){0,-1}...               % 14
      (693,255){1,-1}...               % 15
      (938,163){1,0}...               % 16
      (1216,314){1,1}...               % 17
      (1382,774){0,1}...               % 18
      (1256,1113){-483,771}...{-1,1}          % *19
      (899,1545){-108,92}...{-108,92}     % 20
      (791,1637){-571,519}...          % 21
      (540,1903){-339,455}...          % *22
      (452,2092){0,1}...               % 23
      (492,2226){155,300}...               % *24
      (607,2392){238,281}...               % 25
      (813,2521){517,175}...               % *26
      (1124,2567){1,0}...{603,-15}          % 27
      (1436,2547)--cycle);               % 28

%endchar(0);
endchar(-100h#); % DEK

"gm017";     %lower case epsilon

charbegin( 15, 1837h#, lcbody*v#, baseline );
n := 11;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 7;
t6 := 9;
t7 := 11;
t8 := 13;
t9 := 14;
t10 := 17;
t11 := 18;

adj_fill.A(1, 5)                    % fixed x points
     (6, 11)                         % fixed y points
     ((8,1), (9,2))                    % tied points
     ((3,8))                         % verticals
     ((4,7), (2,10))                    % horizontals
     ((1714,276){-193,-149}...          % 0
      (1326,42){-738,-315}...          % *1
      (976,-39){-1,0}...               % 2
      (445,142){-1,1}...               % 3
      (224,752){0,1}...               % 4
      (526,1489){1,1}...               % 5
      (1147,1743){1,0}...{1,-1}          % 6
      (1658,1526)--                    % 7
      (1520,1328){-47,-7}...{-47,-7}          % 8
      (1473,1321){-513,705}...          % 9
      (1355,1473){-1,1}...               % 10
      (1024,1585){-1,0}...               % 11
      (691,1448){-1,-1}...{0,-1}          % 12
      (533,951){-7,-159}...{-7,-159}          % 13
      (526,792){0,-1}...               % 14
      (730,281){1,-1}...               % 15
      (881,203){387,-106}...               % *16
      (1117,175){1,0}...{260,234}          % 17
      (1656,371)--cycle);               % 18

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((2,1), (3,2))                    % tied points
     ()                         % verticals
     ((1,4))                         % horizontals
     ((1371,956){-1,0}...               % 0
      (932,947){-1,0}...{-399,4}          % 1
      (533,951)--                    % 2
      (526,792){274,10}...               % 3
      (800,802){1,0}...{340,-6}          % 4
      (1322,800)--cycle);               % 5

endchar(0);

"gm020";     %lower case zeta

%charbegin( 16, 1646h#, capheight*v#, depthy*v#);
charbegin( 16, (1646+50)*h#, ascender*v#, 2/3descender*v#); % DEK
n := 12;
t1 := 0;
t2 := 2;
t3 := 6;
t4 := 9;
t5 := 11;
t6 := 13;
t7 := 14;
t8 := 17;
t9 := 20;
t10 := 23;
t11 := 26;
t12 := 27;

adj_fill.A(5, 8, 12)                    % fixed x points
     (1, 7)                         % fixed y points
     ()                         % tied points
     ((4,9), (2,11))                    % verticals
     ((6,8), (3,10))                    % horizontals
     ((1450,-502){183,226}...          % 0
      (1647,-209){265,523}...          % *1
      (1715,21){0,1}...               % 2
      (1668,133){-1,1}...               % 3
      (1574,180){-247,63}...               % *4
      (1421,196){-1,0}...               % 5
      (1242,180){-663,-73}...          % 6
      (1047,174){-1,0}...               % 7
      (681,293){-1,1}...               % 8
      (497,777){0,1}...               % 9
      (1087,2021){1,1}...{395,126}          % 10
      (1618,2354){0,71}...{0,71}          % 11
      (1618,2425){-347,-53}...          % 12
      (1249,2393){-1,0}...{-476,326}          % 13
      (729,2570)--                    % 14
      (598,2407){232,-146}...          % 15
      (847,2322){627,-114}...{1,0}          % *16
      (1225,2293){-468,-360}...          % 17
      (997,2093){-1,-1}...               % 18
      (415,1338){-787,-1451}...          % *19
      (210,642){0,-1}...               % 20
      (400,94){1,-1}...               % 21
      (811,-37){1,0}...               % 22
      (1111,-5){530,64}...               % 23
      (1309,5){1,0}...               % 24
      (1443,-39){1,-1}...               % 25
      (1498,-145){0,-1}...{-235,-401}     % 26
      (1371,-457)--cycle);               % 27

endchar(0);

"gm021";     %lower case eta

%charbegin( 17, 2074h#, lcbody*v#, descender*v#);
charbegin( 17, (2074-200)*h#, lcbody*v#, descender*v#); % DEK
n := 9;
t1 := 1;
t2 := 2;
t3 := 3;
t4 := 6;
t5 := 8;
t6 := 9;
t7 := 10;
t8 := 12;
t9 := 14;

adj_fill.A(5)                         % fixed x points
     (6, 9)                         % fixed y points
     ((2,1), (3,2))                    % tied points
     ((1,8))                         % verticals
     ((4,7))                         % horizontals
     ((640,52){-17,325}...               % 0
      (616,679){0,1}...{62,769}          % 1
      (623,1272){35,174}...{35,174}          % 2
      (658,1446){-39,9}...{-39,9}          % 3
      (619,1455){-27,326}...               % 4
      (557,1644){-1,1}...               % 5
      (361,1712){-1,0}...               % 6
      (155,1645){-479,-259}...{-441,-369}     % *7
      (-118,1453)--                    % 8
      (-59,1389){281,183}...               % 9
      (195,1509){1,0}...               % 10
      (289,1472){1,-1}...               % 11
      (342,1235){0,-1}...{-12,-409}          % 12
      (340,-5){32,-34}...{32,-34}          % 13
      (372,-39)--cycle);               % 14

n := 7;
t1 := 1;
t2 := 4;
t3 := 6;
t4 := 7;
t5 := 9;
t6 := 12;
t7 := 14;

adj_fill.B()                         % fixed x points
     (7)                         % fixed y points
     ((3,2), (4,1))                    % tied points
     ((1,6))                         % verticals
     ((2,5))                         % horizontals
     ((1771,-605){-41,350}...          % 0
      (1710,755){0,1}...               % 1
      (1697,1397){-96,882}...          % *2
      (1614,1637){-1,1}...               % 3
      (1367,1724){-1,0}...               % 4
      (1047,1653){-709,-278}...{-715,-467}     % *5
      (658,1446)--                    % 6
      (623,1272){801,584}...               % 7
      (896,1433){500,217}...               % *8
      (1123,1489){1,0}...               % 9
      (1342,1420){1,-1}...               % 10
      (1429,1165){99,-959}...          % *11
      (1441,461){0,-1}...{-6,-149}          % 12
      (1437,-695){32,-42}...{32,-42}          % 13
      (1469,-737)--cycle);               % 14

%endchar(0);
endchar(-100h#); % DEK

"gm022";     %lower case theta

%charbegin( 18, 2052h#, ascender*v#, baseline );
charbegin( 18, (2052-200)*h#, ascender*v#, baseline ); % DEK
n := 12;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 9;
t5 := 12;
t6 := 13;
t7 := 16;
t8 := 17;
t9 := 20;
t10 := 23;
t11 := 24;
t12 := 27;

adj_fill.A(1, 6)                    % fixed x points
     (1, 12)                         % fixed y points
     ((1,1), (5,1), (6,2), (7,3), (8,4), (10,5), (11,6), (12,2))% tied points
     ((4,7), (2,10))                    % verticals
     ((5,6), (3,9))                    % horizontals
     ((854,-41){1,0}...               % 0
      (1464,262){1,1}...               % 1
      (1712,708){335,1099}...          % *2
      (1799,1361){0,1}...               % 3
      (1732,2023){-259,1063}...          % *4
      (1540,2424){-1,1}...               % 5
      (1172,2573){-1,0}...               % 6
      (577,2324){-1,-1}...               % 7
      (311,1860){-359,-1121}...          % *8
      (218,1203){0,-1}...               % 9
      (291,522){282,-1103}...          % *10
      (500,100){1,-1}...{1,0}          % 11
      (854,-41)--                    % 12
      (1067,173){-1,0}...               % 13
      (751,309){-1,1}...               % 14
      (568,662){-247,903}...{0,1}          % *15
      (504,1212){-8,158}...{-8,158}          % 16
      (496,1370){-33,516}...               % 17
      (537,1908){232,905}...               % *18
      (728,2275){1,1}...               % 19
      (1014,2398){1,0}...               % 20
      (1280,2300){1,-1}...               % 21
      (1411,1990){206,-930}...{13,-213}     % *22
      (1486,1370){18,-158}...{18,-158}     % 23
      (1504,1212){0,-1}...               % 24
      (1454,633){-191,-906}...          % *25
      (1313,306){-1,-1}...{-1,0}          % 26
      (1067,173)--cycle);               % 27

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

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,5), (2,4), (3,3), (4,6))          % tied points
     ()                         % verticals
     ((2,3))                         % horizontals
     ((1486,1370){-990,0}...{-990,0}          % 0
      (496,1370)--                    % 1
      (504,1212){1000,0}...{1000,0}          % 2
      (1504,1212)--cycle);               % 3

%endchar(0);
endchar(-100h#); % DEK

"gm023";     %lower case iota

charbegin( 19, 1040h#, lcbody*v#, baseline );
n := 7;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 11;
t7 := 13;

adj_fill.A(1)                         % fixed x points
     (2, 4, 7)                    % fixed y points
     ()                         % tied points
     ((3,5))                         % verticals
     ((1,6))                         % horizontals
     ((1177,351){-210,-264}...          % 0
      (887,68){-554,-384}...               % *1
      (623,-33){-1,0}...               % 2
      (412,87){-299,409}...               % *3
      (324,376){0,1}...{0,1284}          % 4
      (324,1660)--                    % 5
      (625,1753){40,-36}...{40,-36}          % 6
      (665,1717){-127,-756}...          % 7
      (602,721){0,-1}...               % 8
      (628,434){100,-452}...               % *9
      (702,269){1,-1}...               % 10
      (819,236){1,0}...               % 11
      (959,284){296,183}...{283,313}          % *12
      (1115,419)--cycle);               % 13

%endchar(0);
endchar(-50h#); % DEK

"gm024";     %lower case kappa

charbegin( 20, 1856h#, lcbody*v#, baseline );
n := 3;
t1 := 2;
t2 := 5;
t3 := 6;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((2,1), (3,2))                    % tied points
     ((1,2))                         % verticals
     ()                         % horizontals
     ((383,-16){-59,21}...{-59,21}          % 0
      (324,5){4,252}...{-31,768}          % 1
      (315,1624)--                    % 2
      (607,1721){17,-23}...{17,-23}          % 3
      (624,1698){-23,-755}...{0,-1}          % 4
      (601,943){27,-144}...{27,-144}          % 5
      (628,799){-32,-16}...{-32,-16}          % 6
      (596,783){0,-1}...{10,-208}          % 7
      (619,80)--cycle);               % 8

n := 5;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 9;

adj_fill.B(3, 5)                    % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ((2,4))                         % verticals
     ()                         % horizontals
     ((1556,-7){-180,152}...{-499,461}     % 0
      (628,799){-27,144}...{-27,144}          % 1
      (601,943){286,320}...{435,277}          % 2
      (1575,1745)--                    % 3
      (1764,1633){-3,-57}...{-3,-57}          % 4
      (1761,1576){-610,-257}...{-258,-197}     % 5
      (853,1008){-4,-23}...               % 6
      (849,985){.2306,-1.901}...{18,-41}     % 7
      (867,944){454,-428}...{148,-106}     % 8
      (1811,179){-6,-53}...{-6,-53}          % 9
      (1805,126)--cycle);               % 10

endchar(0);

"gm025";     %lower case lambda

charbegin( 21, 1806h#, ascender*v#, baseline );
n := 5;
t1 := 4;
t2 := 7;
t3 := 10;
t4 := 11;
t5 := 13;

adj_fill.A()                         % fixed x points
     (5)                         % fixed y points
     ((3,1), (4,2))                    % tied points
     ()                         % verticals
     ((1,2))                         % horizontals
     ((1782,56){5,41}...{5,41}          % 0
      (1787,97){-219,441}...               % 1
      (1241,1319){-501,1275}...          % 2
      (786,2482){-1,1}...               % 3
      (571,2550){-1,0}...{-502,-173}          % 4
      (61,2439)--                    % 5
      (92,2347){434,94}...               % 6
      (351,2391){1,0}...               % 7
      (518,2306){1,-1}...               % 8
      (660,2085){274,-586}...{145,-500}     % *9
      (792,1720){130,-314}...{130,-314}     % 10
      (922,1406){539,-1420}...{539,-1420}     % 11
      (1461,-14){51,-26}...{51,-26}          % 12
      (1512,-40)--cycle);               % 13

n := 2;
t1 := 3;
t2 := 4;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,2))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((43,-21){-64,46}...{-64,46}          % 0
      (-21,25){807,1514}...               % 1
      (786,1539){807,1514}...{-179,714}     % 2
      (792,1720)--                    % 3
      (922,1406){-116,276}...          % 4
      (891,1427){-1.577,-.1017}...          % 5
      (865,1404){-466,-996}...          % 6
      (399,408){-185,-385}...{-100,-296}     % 7
      (261,39)--cycle);               % 8

endchar(0);

"gm026";     %lower case mu

charbegin( 22, 2087h#, lcbody*v#, descender*v#);
n := 9;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 6;
t6 := 8;
t7 := 10;
t8 := 14;
t9 := 15;

adj_fill.A(1)                         % fixed x points
     (6, 9)                         % fixed y points
     ((3,1), (4,2))                    % tied points
     ((5,7))                         % verticals
     ((2,8))                         % horizontals
     ((2250,308){-386,-360}...          % 0
      (1943,76){-562,-313}...          % *1
      (1688,-5){-1,0}...               % 2
      (1508,45){-1,1}...{-99,533}          % 3
      (1434,235){-22,210}...{-22,210}     % 4
      (1412,445){13,530}...               % 5
      (1423,971){0,1}...{-33,683}          % 6
      (1408,1606)--                    % 7
      (1696,1724){28,-41}...{28,-41}          % 8
      (1724,1683){-49,-791}...          % 9
      (1703,1227){0,-617}...               % 10
      (1703,610){0,-1}...               % 11
      (1725,412){86,-324}...               % *12
      (1789,286){1,-1}...               % 13
      (1895,245){1,0}...{376,238}          % 14
      (2198,379)--cycle);               % 15

n := 9;
t1 := 0;
t2 := 3;
t3 := 4;
t4 := 5;
t5 := 6;
t6 := 8;
t7 := 10;
t8 := 12;
t9 := 14;

adj_fill.B()                         % fixed x points
     (6)                         % fixed y points
     ((1,1), (3,3), (4,4), (9,2))          % tied points
     ((5,7))                         % verticals
     ((2,8))                         % horizontals
     ((1434,235){-200,332}...          % 0
      (1414,257){-1.657,.9188}...          % 1
      (1392,261){-295,-166}...          % 2
      (716,-24){-1,0}...{-10,13}          % 3
      (492,105){-162,203}...{-162,203}     % 4
      (330,308){0,1}...{0,699}          % 5
      (330,1007){-74,605}...{-109,410}     % 6
      (256,1612)--                    % 7
      (562,1709){35,-24}...{35,-24}          % 8
      (597,1685){0,-996}...               % 9
      (597,689){0,-1}...               % 10
      (725,268){1,-1}...               % 11
      (941,212){1,0}...               % 12
      (1163,272){471,233}...{277,245}     % *13
      (1412,445)--cycle);               % 14

n := 2;
t1 := 2;
t2 := 3;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (2,3))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((360,-736){-47,23}...{-47,23}          % 0
      (313,-713){11,370}...{0,1}          % 1
      (330,308)--                    % 2
      (492,105){0,-1}...{95,-463}          % 3
      (542,-662)--cycle);               % 4

endchar(0);

"gm027";     %lower case nu

charbegin( 23, 2019h#, lcbody*v#, baseline);
n := 5;
t1 := 4;
t2 := 8;
t3 := 10;
t4 := 13;
t5 := 15;

adj_fill.A()                         % fixed x points
     (1, 3, 5)                    % fixed y points
     ()                         % tied points
     ()                         % verticals
     ((2,4))                         % horizontals
     ((1966,1674){11,-30}...{11,-30}          % 0
      (1977,1644){-504,-1016}...          % 1
      (1473,628){-504,-1016}...{-229,-571}     % 2
      (1229,89){-209,-119}...{-209,-119}     % 3
      (1020,-30){-26,26}...{-26,26}          % 4
      (994,-4){-68,469}...               % 5
      (792,882){-492,1412}...          % *6
      (502,1408){-1,1}...               % 7
      (287,1516){-1,0}...               % 8
      (-17,1378){-1,-1}...{-355,-454}     % 9
      (-124,1255)--                    % 10
      (-213,1322){268,391}...          % 11
      (-62,1527){1,1}...               % 12
      (455,1737){1,0}...               % 13
      (751,1625){1,-1}...{100,-450}          % 14
      (1187,375){287,576}...               % 15
      (1454,962){359,922}...{76,300}          % 16
      (1670,1694){84,37}...{84,37}          % 17
      (1754,1731)--cycle);               % 18

endchar(0);

"gm030";     %lower case xi

%charbegin( 24, 1848h#, ascender*v#, depthy*v#);
charbegin( 24, 1848h#, ascender*v#, 2/3descender*v#); % DEK
n := 18;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 13;
t8 := 15;
t9 := 17;
t10 := 19;
t11 := 21;
t12 := 23;
t13 := 25;
t14 := 27;
t15 := 29;
t16 := 30;
t17 := 33;
t18 := 34;

adj_fill.A(5, 6, 8, 11, 13, 18)               % fixed x points
     (1, 10)                         % fixed y points
     ()                         % tied points
     ((7,12), (4,14), (2,17))          % verticals
     ((9,11), (3,15), (6,16))          % horizontals
     ((1643,-506){387,508}...          % 0
      (1847,-195){274,531}...          % *1
      (1917,25){0,1}...               % 2
      (1877,127){-1,1}...               % 3
      (1594,213){-1,0}...               % 4
      (993,179){-1019,-74}...          % 5
      (606,281){-1,1}...               % 6
      (489,573){0,1}...               % 7
      (655,1005){1,1}...{1,0}          % 8
      (1339,1241){0,85}...{0,85}          % 9
      (1339,1326){-518,46}...          % 10
      (1039,1387){-500,178}...          % *11
      (839,1504){-1,1}...               % 12
      (748,1769){0,1}...               % 13
      (868,2093){1,1}...{364,44}          % 14
      (1485,2340){0,101}...{0,101}          % 15
      (1485,2441){-402,-66}...          % 16
      (1122,2400){-1,0}...{-422,342}          % 17
      (603,2566){-29,3}...{-29,3}          % 18
      (574,2569)--                    % 19
      (470,2398){524,-280}...{1,0}          % 20
      (1043,2295){-642,-197}...          % 21
      (598,2024){-1,-1}...               % 22
      (460,1668){0,-1}...               % 23
      (537,1436){1,-1}...{258,-50}          % 24
      (908,1272){-627,-167}...          % 25
      (401,989){-1,-1}...               % 26
      (175,467){0,-1}...               % 27
      (328,98){1,-1}...               % 28
      (711,-29){1,0}...               % 29
      (1095,7){806,80}...               % 30
      (1397,29){1,0}...               % 31
      (1633,-34){1,-1}...               % 32
      (1690,-159){0,-1}...{-263,-431}     % 33
      (1564,-453)--cycle);               % 34

endchar(0);

"gm031";     %lower case pi

charbegin( 25, 2055h#, lcbody*v#, baseline);
n := 7;
t1 := 2;
t2 := 7;
t3 := 10;
t4 := 11;
t5 := 12;
t6 := 13;
t7 := 14;

adj_fill.A()                         % fixed x points
     (2)                         % fixed y points
     ((4,1), (5,2), (6,3), (7,4))          % tied points
     ()                         % verticals
     ((1,3))                         % horizontals
     ((2194,1804){-338,-176}...          % 0
      (1785,1703){-1,0}...               % 1
      (589,1703){-1,0}...               % 2
      (312,1680){-431,-88}...          % *3
      (158,1615){-1,-1}...               % 4
      (82,1482){-106,-415}...{-106,-415}     % 5
      (-24,1067)--                    % 6
      (54,1033){68,170}...               % 7
      (122,1203){68,170}...               % 8
      (231,1391){1,1}...               % 9
      (483,1457){1,0}...               % 10
      (762,1457){2,0}...               % 11
      (896,1457){2,0}...               % 12
      (1454,1457){2,0}...               % 13
      (1667,1457){1,0}...{227,102}          % 14
      (2095,1561){129,217}...{129,217}     % 15
      (2224,1778)--cycle);               % 16

n := 2;
t1 := 2;
t2 := 3;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,2))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((221,38){-4,48}...{-4,48}          % 0
      (217,86){174,297}...{192,744}          % 1
      (762,1457)--                    % 2
      (896,1457){-173,-818}...{-97,-283}     % 3
      (466,19){-41,-39}...{-41,-39}          % 4
      (425,-20)--cycle);               % 5

n := 7;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 10;

adj_fill.C(1)                         % fixed x points
     ()                         % fixed y points
     ((4,3), (5,4))                    % tied points
     ((3,6))                         % verticals
     ((2,7))                         % horizontals
     ((2118,221){-285,-249}...          % 0
      (1887,57){-419,-221}...          % *1
      (1699,0){-1,0}...               % 2
      (1501,44){-1,1}...               % 3
      (1416,229){-115,501}...          % *4
      (1386,545){0,1}...{98,728}          % 5
      (1454,1457)--                    % 6
      (1667,1457){-53,-650}...          % 7
      (1644,1042){0,-1}...               % 8
      (1768,270){1,-1}...               % 9
      (1877,243){1,0}...{379,273}          % 10
      (2066,314)--cycle);               % 11

endchar(0);

"gm032";     %lower case rho

%charbegin( 26, 2029h#, lcbody*v#, descender*v#);
charbegin( 26, (2029-200)*h#, lcbody*v#, descender*v#); % DEK
n := 12;
t1 := 3;
t2 := 4;
t3 := 7;
t4 := 10;
t5 := 12;
t6 := 15;
t7 := 16;
t8 := 18;
t9 := 20;
t10 := 23;
t11 := 26;
t12 := 28;

adj_fill.A(6)                         % fixed x points
     (6, 12)                         % fixed y points
     ((1,2), (2,1), (6,1), (7,2))          % tied points
     ((4,9), (2,11))                    % verticals
     ((5,8), (3,10))                    % horizontals
     ((667,-627){22,51}...               % 0
      (689,-576){-71,273}...{-21,545}     % 1
      (575,304){26,4}...{26,4}          % 2
      (601,308){-6,545}...{-6,545}          % 3
      (595,853){0,1}...               % 4
      (647,1232){200,642}...               % *5
      (795,1495){1,1}...               % 6
      (1122,1616){1,0}...               % 7
      (1363,1507){1,-1}...               % 8
      (1478,1265){156,-641}...          % *9
      (1519,866){0,-1}...               % 10
      (1329,310){-1,-1}...               % 11
      (985,163){-1,0}...               % 12
      (749,281){-1,1}...               % 13
      (635,504){-154,572}...{0,1}          % *14
      (595,853)--                    % 15
      (601,308){241,-437}...               % 16
      (690,187){1,-1}...               % 17
      (1110,0){1,0}...               % 18
      (1569,222){1,1}...               % 19
      (1846,930){0,1}...               % 20
      (1799,1314){-180,635}...          % *21
      (1666,1565){-1,1}...               % 22
      (1165,1764){-1,0}...               % 23
      (619,1571){-1,-1}...               % 24
      (419,1161){-270,-1079}...          % *25
      (349,492){0,-1}...{26,-468}          % 26
      (392,-671){62,-30}...{62,-30}          % 27
      (454,-701)--cycle);               % 28

%endchar(0);
endchar(-100h#); % DEK

"gm033";     %lower case sigma

charbegin( 27, 2041h#, lcbody*v#, baseline*v#);
n := 13;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 4;
t5 := 7;
t6 := 10;
t7 := 13;
t8 := 14;
t9 := 17;
t10 := 19;
t11 := 22;
t12 := 24;
t13 := 26;

adj_fill.A(7, 13)                    % fixed x points
     (1, 7, 8)                    % fixed y points
     ((2,2), (3,1), (7,1), (8,2))          % tied points
     ((6,9), (4,11))                    % verticals
     ((5,10), (3,12))               % horizontals
     ((2092,1487){-155,33}...{-591,68}     % 0
      (1334,1598){-388,-28}...{-388,-28}     % 1
      (946,1570){-1,0}...               % 2
      (678,1457){-1,-1}...               % 3
      (510,937){0,-1}...               % 4
      (561,556){197,-642}...               % *5
      (707,295){1,-1}...               % 6
      (989,152){1,0}...               % 7
      (1278,290){1,1}...               % 8
      (1380,489){138,510}...               % *9
      (1416,800){0,1}...               % 10
      (1368,1197){-184,656}...          % *11
      (1232,1456){-1,1}...{-1,0}          % 12
      (946,1570)--                    % 13
      (1334,1598){-7,-52}...{-7,-52}          % 14
      (1327,1546){437,-208}...          % 15
      (1502,1435){1,-1}...               % 16
      (1710,845){0,-1}...               % 17
      (1499,241){-1,-1}...               % 18
      (837,-36){-1,0}...               % 19
      (404,174){-1,1}...               % 20
      (256,437){-200,644}...               % *21
      (204,818){0,1}...               % 22
      (412,1454){1,1}...               % 23
      (912,1713){1226,48}...{1226,48}     % 24
      (2138,1761){10,-36}...{10,-36}          % 25
      (2148,1725)--cycle);               % 26

endchar(0);

"gm034";     %lower case tau

charbegin( 28, 1703h#, lcbody*v#, baseline);

n := 6;
t1 := 2;
t2 := 4;
t3 := 5;
t4 := 8;
t5 := 9;
t6 := 12;

adj_fill.A(6)                         % fixed x points
     (3)                         % fixed y points
     ((4,1), (5,2))                    % tied points
     ((2,3))                         % verticals
     ((1,4))                         % horizontals
     ((1774,1792){-297,-145}...          % 0
      (1364,1707){-1,0}...               % 1
      (424,1707){-1,0}...               % 2
      (134,1612){-1,-1}...{-89,-512}          % 3
      (-44,1040)--                    % 4
      (60,1024){194,544}...               % 5
      (223,1390){1,1}...               % 6
      (511,1472){1,0}...               % 7
      (827,1472){2,0}...               % 8
      (1041,1472){2,0}...               % 9
      (1354,1472){1,0}...{372,77}          % 10
      (1663,1509){156,250}...{156,250}     % 11
      (1819,1759)--cycle);               % 12

n := 7;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 7;
t6 := 8;
t7 := 11;

adj_fill.B(1)                         % fixed x points
     ()                         % fixed y points
     ((4,1), (5,2))                    % tied points
     ((3,6))                         % verticals
     ((2,7))                         % horizontals
     ((1493,199){-255,-238}...          % 0
      (1258,28){-446,-231}...          % *1
      (1047,-32){-1,0}...               % 2
      (874,48){-1,1}...               % 3
      (798,221){-103,477}...               % *4
      (771,525){0,1}...{73,817}          % 5
      (827,1472)--                    % 6
      (1041,1472){-85,-745}...          % 7
      (1029,832){0,-1}...               % 8
      (1057,466){108,-564}...          % *9
      (1137,268){1,-1}...               % 10
      (1256,212){1,0}...{262,160}          % 11
      (1466,294)--cycle);               % 12

endchar(0);

"gm035";     %lower case upsilon

%charbegin( 29, 2044h#, lcbody*v#, baseline);
charbegin( 29, 1974h#, lcbody*v#, baseline); % DEK
n := 12;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 8;
t5 := 12;
t6 := 14;
t7 := 15;
t8 := 16;
t9 := 18;
t10 := 21;
t11 := 23;
t12 := 24;

adj_fill.A(1, 6)                    % fixed x points
     (7, 12)                         % fixed y points
     ()                         % tied points
     ((4,9), (2,11))                    % verticals
     ((5,8), (3,10))                    % horizontals
     ((1317,1541){15,-67}...{15,-67}          % 0
      (1332,1474){332,-326}...          % 1
      (1542,937){0,-1}...               % 2
      (1351,383){-1,-1}...               % 3
      (935,190){-1,0}...               % 4
      (691,293){-1,1}...               % 5
      (615,440){-103,375}...               % *6
      (588,668){0,1}...               % 7
      (591,983){27,868}...               % 8
      (608,1390){0,1}...               % 9
      (589,1568){-75,289}...               % *10
      (533,1679){-1,1}...               % 11
      (361,1747){-1,0}...               % 12
      (128,1679){-504,-262}...{-420,-378}     % *13
      (-143,1485)--                    % 14
      (-86,1404){341,258}...               % 15
      (176,1530){1,0}...               % 16
      (273,1473){1,-1}...               % 17
      (317,1220){0,-1}...               % 18
      (317,440){0,-1}...               % 19
      (444,55){1,-1}...               % 20
      (717,-46){1,0}...               % 21
      (1477,305){1,1}...               % 22
      (1821,1097){0,1}...{-215,225}          % 23
      (1546,1741){-75,-13}...{-75,-13}     % 24
      (1471,1728)--cycle);               % 25

endchar(0);

"gm036";     %lower case phi

%charbegin( 30, 2644h#, ascender*v#, descender*v#);
charbegin( 30, (2644-150)*h#, ascender*v#, descender*v#); % DEK
n := 8;
t1 := 2;
t2 := 3;
t3 := 4;
t4 := 5;
t5 := 9;
t6 := 10;
t7 := 11;
t8 := 12;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,8), (2,1), (3,2), (4,3), (5,4), (6,5), (7,6), (8,7))% tied points
     ((4,5))                         % verticals
     ()                         % horizontals
     ((1216,-710){-64,37}...{-64,37}          % 0
      (1152,-673){3,318}...{0,1}          % 1
      (1171,-15){0,110}...{0,110}          % 2
      (1171,95){0,1545}...               % 3
      (1171,1640){0,2}...               % 4
      (1171,1750){0,1}...{-57,813}          % 5
      (1147,2414)--                    % 6
      (1437,2569){25,-29}...{25,-29}          % 7
      (1462,2540){-52,-705}...{0,-1}          % 8
      (1432,1751){-6,-111}...{-6,-111}     % 9
      (1426,1640){0,-1518}...          % 10
      (1426,122){0,-2}...{0,-116}          % 11
      (1426,6){0,-1}...{47,-360}          % 12
      (1465,-579)--cycle);               % 13

n := 6;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 7;
t5 := 9;
t6 := 11;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,8), (3,3), (4,2), (6,1))          % tied points
     ((2,5))                         % verticals
     ((3,4), (1,6))                    % horizontals
     ((1171,-15){-1,0}...               % 0
      (716,47){-769,238}...               % *1
      (402,223){-1,1}...               % 2
      (221,786){0,1}...               % 3
      (494,1499){1,1}...               % 4
      (768,1663){677,251}...{626,61}          % *5
      (1171,1750)--                    % 6
      (1171,1640){-1,0}...               % 7
      (723,1472){-1,-1}...               % 8
      (525,894){0,-1}...               % 9
      (749,276){1,-1}...{1,0}          % 10
      (1171,95)--cycle);               % 11

n := 6;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 8;
t6 := 10;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,7), (3,4), (4,5), (6,6))          % tied points
     ((2,5))                         % verticals
     ((3,4), (1,6))                    % horizontals
     ((1426,6){1,0}...               % 0
      (2157,279){1,1}...               % 1
      (2415,960){0,1}...               % 2
      (2191,1547){-1,1}...               % 3
      (1919,1676){-759,204}...{-701,54}     % *4
      (1432,1751)--                    % 5
      (1426,1640){1,0}...               % 6
      (1935,1483){1,-1}...               % 7
      (2110,967){0,-1}...               % 8
      (1900,352){-1,-1}...{-1,0}          % 9
      (1426,122)--cycle);               % 10

%endchar(0);
endchar(-75h#); % DEK

"gm037";     %lower case chi

%charbegin( 31, 1835h#, lcbody*v#, descender*v#);
charbegin( 31, (1835+100)*h#, lcbody*v#, descender*v#);
n := 9;
t1 := 1;
t2 := 3;
t3 := 4;
t4 := 7;
t5 := 10;
t6 := 11;
t7 := 14;
t8 := 15;
t9 := 18;

adj_fill.A()                         % fixed x points
     (5)                         % fixed y points
     ((2,1), (3,2), (7,3), (8,4))          % tied points
     ()                         % verticals
     ((4,6), (1,9))                    % horizontals
     ((1857,-434){-343,-172}...          % 0
      (1603,-489){-1,0}...               % 1
      (1467,-438){-1,1}...{-316,715}          % 2
      (919,579){-77,153}...               % 3
      (842,732){-.8726,1.799}...          % 4
      (496,1473){-346,741}...          % 5
      (371,1661){-1,1}...               % 6
      (221,1724){-1,0}...               % 7
      (-35,1640){-203,-155}...{-203,-155}     % 8
      (-238,1485)--                    % 9
      (-180,1407){301,244}...          % 10
      (54,1520){1,0}...               % 11
      (163,1467){1,-1}...               % 12
      (274,1293){398,-799}...          % 13
      (672,494){.8173,-1.824}...{62,-155}     % 14
      (734,339){297,-721}...               % 15
      (1034,-360){477,-978}...          % *16
      (1211,-639){1,-1}...               % 17
      (1378,-728){1,0}...               % 18
      (1579,-675){509,209}...{318,183}     % *19
      (1887,-519)--cycle);               % 20

n := 2;
t1 := 1;
t2 := 2;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (2,4))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((-106,-595){182,270}...{488,629}     % 0
      (672,494)--                    % 1
      (734,339){-448,-668}...          % 2
      (358,-257){-593,-1024}...{-147,-369}     % *3
      (141,-685){-63,-23}...{-63,-23}     % 4
      (78,-708)--cycle);               % 5

n := 2;
t1 := 2;
t2 := 3;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,1))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1633,1701){-76,-13}...{-76,-13}     % 0
      (1557,1688){-715,-956}...{-715,-956}     % 1
      (842,732)--                    % 2
      (919,579){449,604}...               % 3
      (1095,796){837,977}...{170,197}     % *4
      (1756,1556){-1,29}...{-1,29}          % 5
      (1755,1585)--cycle);               % 6

%endchar(0);
endchar(100h#); % DEK

"gm040";     %lower case psi

%charbegin( 32, 2643h#, ascender*v#, descender*v#);
charbegin( 32, 2593h#, ascender*v#, descender*v#); % DEK
n := 4;
t1 := 2;
t2 := 3;
t3 := 4;
t4 := 5;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,4), (2,1), (3,2), (4,3))          % tied points
     ((1,4))                         % verticals
     ()                         % horizontals
     ((1183,2451){20,-353}...          % 0
      (1227,1322){0,-1}...               % 1
      (1227,128){0,-2}...{0,-121}          % 2
      (1227,7)--                    % 3
      (1484,7){0,121}...               % 4
      (1484,128){0,2}...               % 5
      (1484,1467){0,1}...{22,308}          % 6
      (1492,2545){-28,25}...{-28,25}          % 7
      (1464,2570)--cycle);               % 8

n := 8;
t1 := 0;
t2 := 4;
t3 := 6;
t4 := 8;
t5 := 9;
t6 := 10;
t7 := 14;
t8 := 17;

adj_fill.B(4)                         % fixed x points
     (5)                         % fixed y points
     ((1,4), (8,1))                    % tied points
     ((2,7))                         % verticals
     ((3,6), (1,8))                    % horizontals
     ((1227,128){-370,47}...               % 0
      (950,191){-453,164}...               % *1
      (774,292){-1,1}...               % 2
      (637,576){-168,733}...               % *3
      (606,1025){23,476}...               % 4
      (541,1686){-1,1}...               % 5
      (372,1745){-1,0}...               % 6
      (146,1681){-510,-250}...{-376,-299}     % *7
      (-138,1495)--                    % 8
      (-64,1424){393,268}...               % 9
      (173,1537){1,0}...               % 10
      (258,1498){1,-1}...               % 11
      (315,1384){77,-296}...               % *12
      (335,1202){0,-1}...               % 13
      (335,636){0,-1}...               % 14
      (500,160){1,-1}...               % 15
      (762,47){727,-153}...{1,0}          % *16
      (1227,7)--cycle);               % 17

n := 2;
t1 := 2;
t2 := 3;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (2,2))                    % tied points
     ((1,2))                         % verticals
     ()                         % horizontals
     ((1252,-698){-39,25}...{-39,25}          % 0
      (1213,-673){14,680}...{14,680}          % 1
      (1227,7)--                    % 2
      (1484,7){0,-1}...{47,-362}          % 3
      (1517,-569)--cycle);               % 4

n := 5;
t1 := 1;
t2 := 2;
t3 := 5;
t4 := 6;
t5 := 8;

adj_fill.D(1)                         % fixed x points
     ()                         % fixed y points
     ((3,3), (4,2))                    % tied points
     ((2,5))                         % verticals
     ()                         % horizontals
     ((1945,1563){-9,-48}...{-9,-48}          % 0
      (1936,1515){162,-176}...          % 1
      (2169,989){0,-1}...               % 2
      (1982,410){-1,-1}...               % 3
      (1717,201){-498,-282}...{-1,0}          % *4
      (1484,128)--                    % 5
      (1484,7){688,180}...               % 6
      (2131,351){1,1}...               % 7
      (2429,1058){0,1}...{-198,246}          % 8
      (2185,1729){-75,11}...{-75,11}          % 9
      (2110,1740)--cycle);               % 10

endchar(0);

"gm041";     %lower case omega

%charbegin( 33, 3051h#, lcbody*v#, baseline*v#);
charbegin( 33, (3051-100)*h#, lcbody*v#, baseline*v#); % DEK
n := 16;
t1 := 1;
t2 := 2;
t3 := 4;
t4 := 6;
t5 := 8;
t6 := 10;
t7 := 12;
t8 := 13;
t9 := 15;
t10 := 18;
t11 := 21;
t12 := 23;
t13 := 25;
t14 := 28;
t15 := 30;
t16 := 31;

adj_fill.A(8, 16)                    % fixed x points
     (1, 4, 7, 12)                    % fixed y points
     ()                         % tied points
     ((6,9), (11,13), (2,15))          % verticals
     ((5,10), (3,14))               % horizontals
     ((2508,1737){50,8}...{50,8}          % 0
      (2558,1745){168,-129}...          % 1
      (2838,1133){0,-1}...               % 2
      (2469,242){-1,-1}...               % 3
      (1910,-13){-1,0}...               % 4
      (1599,90){-1,1}...{-309,687}          % 5
      (1450,354){-1,-1}...               % 6
      (1084,57){-668,-401}...          % *7
      (782,-47){-1,0}...               % 8
      (416,91){-1,1}...               % 9
      (199,651){0,1}...               % 10
      (518,1545){1,1}...{361,125}          % 11
      (841,1724)--                    % 12
      (902,1672){-383,-280}...          % 13
      (756,1554){-1,-1}...               % 14
      (500,859){0,-1}...               % 15
      (542,535){163,-544}...               % *16
      (663,315){1,-1}...               % 17
      (945,184){1,0}...               % 18
      (1275,341){1,1}...               % 19
      (1376,557){136,579}...               % *20
      (1411,920){0,1}...{0,701}          % 21
      (1411,1621){279,104}...{279,104}     % 22
      (1690,1725){21,-26}...{21,-26}          % 23
      (1711,1699){-105,-716}...          % 24
      (1679,976){0,-1}...               % 25
      (1725,568){178,-667}...          % *26
      (1857,309){1,-1}...               % 27
      (2077,234){1,0}...               % 28
      (2418,399){1,1}...               % 29
      (2591,901){0,1}...{-289,246}          % 30
      (2342,1512){11,45}...{11,45}          % 31
      (2353,1557)--cycle);               % 32

%endchar(0);
endchar(-50h#); % DEK

"gm042";     %lower case varepsilon

charbegin( 34, 1601h#, lcbody*v#, baseline);
n := 18;
t1 := 0;
t2 := 3;
t3 := 5;
t4 := 7;
t5 := 8;
t6 := 10;
t7 := 12;
t8 := 14;
t9 := 16;
t10 := 17;
t11 := 18;
t12 := 20;
t13 := 22;
t14 := 23;
t15 := 24;
t16 := 25;
t17 := 27;
t18 := 28;

adj_fill.A(5, 10, 14, 18)               % fixed x points
     (1, 9)                         % fixed y points
     ((13,1), (15,1))               % tied points
     ((7,12), (3,16))               % verticals
     ((8,11), (4,6), (2,17))               % horizontals
     ((1241,1350){-43,6}...{-43,6}          % 0
      (1198,1356){-125,367}...          % 1
      (1112,1488){-1,1}...               % 2
      (843,1592){-1,0}...               % 3
      (586,1481){-1,-1}...               % 4
      (512,1307){0,-1}...               % 5
      (586,1093){1,-1}...               % 6
      (852,1022){1,0}...{189,-7}          % 7
      (1041,1015){-78,-174}...{-78,-174}     % 8
      (963,841){-249,61}...               % 9
      (793,860){-1,0}...               % 10
      (514,749){-1,-1}...               % 11
      (447,557){0,-1}...               % 12
      (590,246){1,-1}...               % 13
      (935,141){1,0}...               % 14
      (1171,201){507,233}...{274,220}     % *15
      (1442,374)--                    % 16
      (1491,304){-342,-374}...          % 17
      (738,-54){-1,0}...               % 18
      (328,94){-1,1}...               % 19
      (202,405){0,1}...               % 20
      (315,736){1,1}...{377,156}          % 21
      (526,882){262,58}...{262,58}          % 22
      (788,940){-262,-58}...{-262,-58}     % 23
      (526,882){-329,271}...               % 24
      (368,1191){0,1}...               % 25
      (511,1571){1,1}...               % 26
      (963,1743){1,0}...{290,-204}          % 27
      (1352,1590)--cycle);               % 28

endchar(0);

"gm043";     %lower case var theta

charbegin( 35, 1844h#, ascender*v#, baseline*v#);
n := 17;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 7;
t5 := 8;
t6 := 11;
t7 := 14;
t8 := 17;
t9 := 19;
t10 := 21;
t11 := 24;
t12 := 27;
t13 := 30;
t14 := 31;
t15 := 34;
t16 := 36;
t17 := 39;

adj_fill.A(9, 17)                    % fixed x points
     ()                         % fixed y points
     ((1,1), (4,1), (5,2), (13,3), (14,4), (17,2))% tied points
     ((7,11), (5,13), (2,16))          % verticals
     ((8,10), (6,12), (3,15), (1,17))     % horizontals
     ((1360,1349){-292,24}...          % 0
      (775,1599){-1,1}...               % 1
      (531,2135){0,1}...               % 2
      (630,2375){1,1}...               % 3
      (818,2438){1,0}...               % 4
      (1048,2335){1,-1}...               % 5
      (1279,1929){312,-986}...{0,-1}          % *6
      (1360,1349){16,-124}...{16,-124}     % 7
      (1376,1225){0,-1}...               % 8
      (1306,622){-271,-991}...          % *9
      (1105,234){-1,-1}...               % 10
      (818,124){-1,0}...               % 11
      (641,197){-1,1}...               % 12
      (577,329){-86,348}...               % *13
      (555,545){0,1}...               % 14
      (555,1132){0,1}...               % 15
      (510,1311){-1,1}...               % 16
      (367,1375){-1,0}...               % 17
      (123,1311){-519,-249}...{-311,-266}     % *18
      (-152,1126)--                    % 19
      (-110,1051){350,214}...          % 20
      (146,1156){1,0}...               % 21
      (248,1106){1,-1}...               % 22
      (306,845){0,-1}...               % 23
      (306,421){0,-1}...               % 24
      (332,197){99,-367}...               % *25
      (405,54){1,-1}...               % 26
      (684,-51){1,0}...               % 27
      (1264,224){1,1}...               % 28
      (1516,650){340,1011}...{0,1}          % *29
      (1604,1235){-2,105}...{-2,105}          % 30
      (1602,1340){0,1}...               % 31
      (1515,1989){-336,1095}...          % *32
      (1266,2435){-1,1}...               % 33
      (932,2582){-1,0}...               % 34
      (533,2427){-1,-1}...               % 35
      (381,2040){0,-1}...               % 36
      (619,1509){1,-1}...               % 37
      (931,1319){757,-284}...{256,-21}     % *38
      (1376,1225)--cycle);               % 39

n := 2;
t1 := 1;
t2 := 2;

adj_fill.B()                         % fixed x points
     ()                         % fixed y points
     ((1,3), (2,4))                    % tied points
     ()                         % verticals
     ((1,2))                         % horizontals
     ((1832,1236){-228,-1}...{-228,-1}     % 0
      (1604,1235)--                    % 1
      (1602,1340){230,-7}...{230,-7}          % 2
      (1832,1333)--cycle);               % 3

endchar(0);

"gm044";     %varpi

charbegin( 36, 3043h#, theight*v#, baseline*v#);
n := 18;
t1 := 0;
t2 := 3;
t3 := 6;
t4 := 8;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 15;
t9 := 16;
t10 := 17;
t11 := 19;
t12 := 22;
t13 := 24;
t14 := 25;
t15 := 28;
t16 := 31;
t17 := 34;
t18 := 37;

adj_fill.A(1, 9)                    % fixed x points
     (5, 8, 13, 18)                    % fixed y points
     ()                         % tied points
     ((7,10), (12,14), (3,16))          % verticals
     ((6,11), (4,15), (2,17))          % horizontals
     ((174,1423){189,221}...               % 0
      (578,1818){252,151}...               % 1
      (955,1939){959,162}...               % *2
      (1537,1980){1,0}...               % 3
      (2198,1903){1086,-297}...          % *4
      (2623,1683){1,-1}...               % 5
      (2822,1132){0,-1}...               % 6
      (2439,221){-1,-1}...               % 7
      (1912,-45){-1,0}...               % 8
      (1584,84){-1,1}...{-132,480}          % 9
      (1434,336){-260,-299}...          % 10
      (730,-30){-1,0}...               % 11
      (399,113){-1,1}...               % 12
      (200,717){0,1}...               % 13
      (455,1280){1,1}...{394,259}          % 14
      (660,1432)--                    % 15
      (696,1355){-425,-418}...          % 16
      (491,830){0,-1}...               % 17
      (667,285){1,-1}...               % 18
      (890,174){1,0}...               % 19
      (1208,288){1,1}...               % 20
      (1340,527){179,587}...               % *21
      (1387,875){0,1}...{-26,441}          % 22
      (1370,1118){297,102}...{297,102}     % 23
      (1667,1220){33,-43}...{33,-43}          % 24
      (1700,1177){0,-1}...               % 25
      (1720,560){109,-868}...          % *26
      (1809,309){1,-1}...               % 27
      (2076,208){1,0}...               % 28
      (2389,345){1,1}...               % 29
      (2519,579){175,576}...               % *30
      (2564,921){0,1}...               % 31
      (2361,1515){-1,1}...               % 32
      (1989,1700){-970,250}...          % *33
      (1391,1765){-1,0}...               % 34
      (943,1744){-728,-82}...          % *35
      (663,1683){-319,-135}...{-1,-1}     % 36
      (230,1367)--cycle);               % 37

endchar(0);

"gm047";     %var phi

charbegin( 39, 2626h#, lcbody*v#, baseline*v#);
n := 6;
t1 := 0;
t2 := 2;
t3 := 4;
t4 := 5;
t5 := 7;
t6 := 10;

adj_fill.A(1, 4, 6)                    % fixed x points
     (3)                         % fixed y points
     ((1,2), (6,1))                    % tied points
     ((2,5))                         % verticals
     ((1,6))                         % horizontals
     ((1099,-31){-565,53}...               % 0
      (490,232){-1,1}...               % 1
      (235,920){0,1}...               % 2
      (478,1476){1,1}...{351,106}          % 3
      (915,1729)--                    % 4
      (957,1645){-432,-191}...          % 5
      (702,1467){-1,-1}...               % 6
      (532,989){0,-1}...               % 7
      (763,305){1,-1}...               % 8
      (945,155){336,-209}...{486,-40}     % *9
      (1099,96)--cycle);               % 10

n := 12;
t1 := 0;
t2 := 1;
t3 := 2;
t4 := 4;
t5 := 7;
t6 := 10;
t7 := 11;
t8 := 13;
t9 := 15;
t10 := 17;
t11 := 18;
t12 := 19;

adj_fill.B(6, 7)                    % fixed x points
     ()                         % fixed y points
     ((1,4), (2,3), (6,3), (7,4), (11,1), (12,2))% tied points
     ((5,8), (3,10))                    % verticals
     ((6,7), (4,9))                    % horizontals
     ((1347,-31){0,127}...               % 0
      (1347,96){0,2}...               % 1
      (1347,979){0,1}...               % 2
      (1502,1483){1,1}...               % 3
      (1769,1574){1,0}...               % 4
      (1997,1481){1,-1}...               % 5
      (2093,1300){130,-455}...          % *6
      (2127,1026){0,-1}...               % 7
      (2070,621){-221,-691}...          % *8
      (1906,335){-1,-1}...{-1,0}          % 9
      (1347,96)--                    % 10
      (1347,-31){642,76}...               % 11
      (2184,332){1,1}...               % 12
      (2433,1025){0,1}...               % 13
      (2248,1561){-1,1}...               % 14
      (1840,1717){-1,0}...               % 15
      (1335,1524){-1,-1}...               % 16
      (1099,889){0,-1}...               % 17
      (1099,96){0,-2}...{0,-127}          % 18
      (1099,-31)--cycle);               % 19

n := 2;
t1 := 2;
t2 := 3;

adj_fill.C()                         % fixed x points
     ()                         % fixed y points
     ((1,2), (2,4))                    % tied points
     ()                         % verticals
     ()                         % horizontals
     ((1140,-729){-49,51}...{-49,51}          % 0
      (1091,-678){8,647}...{8,647}          % 1
      (1099,-31)--                    % 2
      (1347,-31){0,-1}...{39,-440}          % 3
      (1377,-650)--cycle);               % 4

endchar(0);

"gm100";     %medium partial sign

%rotation of 3 degrees, watch out for lateral drift!
%rot := identity rotated 3 shifted (0,-60v);

charbegin( 64, 1875h#, capheight*v#, baseline*v#);
rot := identity rotatedaround((923h,774v),-5); % DEK
n := 16;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 11;
t7 := 12;
t8 := 13;
t9 := 14;
t10 := 16;
t11 := 19;
t12 := 22;
t13 := 23;
t14 := 24;
t15 := 26;
t16 := 28;

adj_fill.A(8)                         % fixed x points
     (16)                         % fixed y points
     ((7,1), (8,2), (13,2), (14,1))          % tied points
     ((5,10), (3,12), (1,16))          % verticals
     ((6,9), (4,11), (2,15))               % horizontals
     ((100,1985){181,803}...               % 0
      (289,2382){1,1}...               % 1
      (748,2575){1,0}...               % 2
      (1216,2356){1,-1}...               % 3
      (1549,1786){450,-1360}...          % *4
      (1666,996){0,-1}...               % 5
      (1390,175){-1,-1}...               % 6
      (923,-38){-1,0}...               % 7
      (430,160){-1,1}...               % 8
      (195,774){0,1}...               % 9
      (437,1473){1,1}...               % 10
      (1043,1702){1,0}...{659,-112}          % 11
      (1274,1671)--                    % 12
      (1300,1532){-600,184}...          % 13
      (1049,1570){-1,0}...               % 14
      (689,1425){-1,-1}...               % 15
      (503,850){0,-1}...               % 16
      (549,495){178,-595}...               % *17
      (681,255){1,-1}...               % 18
      (957,134){1,0}...               % 19
      (1214,235){1,1}...               % 20
      (1344,499){175,693}...               % *21
      (1389,928){0,1}...{-134,448}          % 22
      (1300,1532){-26,139}...{-26,139}     % 23
      (1274,1671){-117,617}...          % 24
      (1025,2168){-1,1}...               % 25
      (615,2350){-1,0}...               % 26
      (297,2221){-1,-1}...{-212,-927}     % 27
      (165,1967)--cycle);               % 28

endchar(0);

"gm175";     %wp 

charbegin( 125, 2038h#, lcbody*v#, baseline*v#);
n := 18;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 11;
t6 := 13;
t7 := 15;
t8 := 19;
t9 := 20;
t10 := 21;
t11 := 22;
t12 := 26;
t13 := 28;
t14 := 30;
t15 := 36;
t16 := 38;
t17 := 41;
t18 := 42;

adj_fill.A(10, 18)                    % fixed x points
     (1, 9)                         % fixed y points
     ()                         % tied points
     ((8,11), (7,12), (5,14), (3,16))     % verticals
     ((6,13), (4,15), (2,17))          % horizontals
     ((1139,389){111,-402}...          % 0
      (1227,232){1,-1}...               % 1
      (1362,180){1,0}...               % 2
      (1580,280){1,1}...               % 3
      (1722,541){192,650}...               % *4
      (1772,930){0,1}...               % 5
      (1612,1426){-1,1}...               % 6
      (1395,1508){-1,0}...               % 7
      (1195,1450){-415,-223}...          % *8
      (980,1285){-1,-1}...               % 9
      (485,526){-248,-426}...          % 10
      (303,-111){0,-1}...               % 11
      (432,-489){1,-1}...               % 12
      (577,-561){1,0}...               % 13
      (757,-481){1,1}...               % 14
      (859,-187){0,1}...               % 15
      (776,96){-324,709}...               % *16
      (535,522){-217,335}...               % 17
      (353,863){-245,610}...               % *18
      (290,1132){0,1}...{307,224}          % 19
      (634,1718)--                    % 20
      (685,1679){-353,-437}...          % 21
      (495,1266){0,-1}...               % 22
      (537,1073){166,-444}...          % *23
      (661,822){309,-523}...               % 24
      (920,310){348,-874}...               % *25
      (1009,-52){0,-1}...               % 26
      (832,-576){-1,-1}...               % 27
      (513,-727){-1,0}...               % 28
      (267,-631){-1,1}...               % 29
      (123,-239){0,1}...               % 30
      (200,134){305,878}...               % *31
      (428,639){258,485}...               % 32
      (708,1126){491,768}...               % *33
      (919,1407){1,1}...               % 34
      (1244,1655){632,335}...          % *35
      (1551,1742){1,0}...               % 36
      (1832,1635){1,-1}...               % 37
      (1993,1132){0,-1}...               % 38
      (1656,189){-1,-1}...               % 39
      (1454,32){-385,-212}...          % *40
      (1271,-23){-1,0}...{-289,399}          % 41
      (920,188)--cycle);               % 42

endchar(0);

% PUNCTUATION
no_stem_round;
more_side(0);

"rmperiod";

%charbegin( 58, 1840h#, lcbody*v#, baseline*v#);
charbegin( 58, (1840-812)*h#, 400*v#, baseline*v#); % DEK

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

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((1,1), (5,1))                    % tied points
     ((2,4))                         % verticals
     ((1,3))                         % horizontals
     ((931,163)--                    % 0
      (931,378){-1,0}...               % 1
      (729,163){0,-1}...               % 2
      (931,-55){1,0}...               % 3
      (1148,163){0,1}...{-1,0}          % 4
      (931,378)--cycle);               % 5

%endchar(0);
endchar(-406h#); % DEK

"rmcomma";

%charbegin( 59, 1840h#, lcbody*v#, baseline*v#);
charbegin( 59,(1840-812)*h#, 400*v#, baseline*v#); % DEK
n := 4;
t1 := 5;
t2 := 6;
t3 := 7;
t4 := 11;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ((2,1), (3,1))                    % tied points
     ((1,4))                         % verticals
     ()                         % horizontals
     ((813,-642){171,229}...               % 0
      (959,-368){161,387}...               % 1
      (986,-224){0,1}...               % 2
      (938,-69){-128,177}...               % 3
      (810,108){-128,177}...               % 4
      (773,228){0,1}...{271,188}          % 5
      (838,354)--                    % 6
      (838,354){373,276}...               % 7
      (945,396){1,0}...               % 8
      (1038,323){228,-317}...          % 9
      (1167,90){103,-266}...               % 10
      (1197,-100){0,-1}...               % 11
      (1115,-357){-254,-409}...{-156,-187}     % 12
      (855,-710)--cycle);               % 13

%endchar(0);
endchar(-406h#); % DEK

"rmlessthan";

%charbegin( 60, 1220h#, lcbody*v#, baseline*v#);
charbegin( 60, 2800h#, (1000+925)*v#, (1000-925)*v#); % DEK
n := 0;

numeric a[],b[],alpha[],beta[];
pair vec[];
a6=a8=2493; a7=347; .5[b6,b8]=b7=925; b6-b8=2000;
vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
(a2,b2)=(a6,b6)+55vec3; (a3,b3)=(a6,b6)-75vec3;
(a0,b0)=(a8,b8)-75vec4; (a5,b5)=(a8,b8)+75vec4;
(a1,b1)=(a6,b6)+75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
(a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ()                         % verticals
     ()                         % horizontals
%     ((997,-38){-934,946}...{-934,946}     % 0
%      (63,908){958,848}...{958,848}          % 1
%      (1021,1756)--                    % 2
%      (1100,1677){-786,-745}...{-786,-745}     % 3
%      (314,932){825,-824}...{825,-824}     % 4
%      (1139,108)--cycle);               % 5
     ((a0,b0)--                    % 0 % DEK
      (a1,b1)--                    % 1
      (a2,b2)--                    % 2
      (a3,b3)--                    % 3
      (a4,b4)--                    % 4
      (a5,b5)--cycle);               % 5

endchar(0);

"rmslash";

%charbegin( 61, 1796h#, programem*v#, descender*v#);
charbegin( 61, 1858h#, .75programem*v#, .25programem*v#); % DEK
n := 0;

numeric a[],b[],alpha,beta;
pair vec;
.5[b0,b3]=.75programem-120;  b1=b2=-.25programem+250; b0-b3=33;
.5[a0,a3]=1652; .5[a1,a2]=205;
vec=(.5[a0-a1,a3-a2],.5[b0-b1,b3-b2]);
(a3,b3)-(a2,b2)=alpha*vec;
(a1,b1)=beta*vec+(a2,b2)+145*(unitvector vec rotated 90);

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ()                         % verticals
     ()                         % horizontals
%     ((1614,2740){-1519,-3012}...{-1519,-3012}% 0
%      (95,-272)--                    % 1
%      (223,-284){1505,2991}...{1505,2991}     % 2
%      (1728,2707)--cycle);               % 3
     ((a0,b0)--                    % 0 % DEK
      (a1,b1)--                    % 1
      (a2,b2)--                    % 2
      (a3,b3)--cycle);               % 3

endchar(0);

"rmgreaterthan";

%charbegin( 62, 1214h#, lcbody*v#, baseline*v#);
charbegin( 62, 2800h#, (1000+925)*v#, (1000-925)*v#); % DEK

n := 0;

numeric a[],b[],alpha[],beta[];
pair vec[];
a6=a8=307; a7=2453; .5[b6,b8]=b7=925; b6-b8=2000;
vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
(a2,b2)=(a6,b6)-55vec3; (a3,b3)=(a6,b6)+75vec3;
(a0,b0)=(a8,b8)+75vec4; (a5,b5)=(a8,b8)-75vec4;
(a1,b1)=(a6,b6)-75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
(a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;

adj_fill.A()                         % fixed x points
     ()                         % fixed y points
     ()                         % tied points
     ()                         % verticals
     ()                         % horizontals
%     ((161,41){739,815}...{739,815}          % 0
%      (900,856){-786,762}...{-786,762}     % 1
%      (114,1618)--                    % 2
%      (248,1745){858,-852}...{858,-852}     % 3
%      (1106,893){-857,-920}...{-857,-920}     % 4
%      (249,-27)--cycle);               % 5
     ((a0,b0)--                    % 0 % DEK
      (a1,b1)--                    % 1
      (a2,b2)--                    % 2
      (a3,b3)--                    % 3
      (a4,b4)--                    % 4
      (a5,b5)--cycle);               % 5

endchar(0);

%DOTLESS CHARACTERS
set_stem_round(250,268,290,303,325,341); % DEK
more_side(100h#);

"rmathi";     %dotless i

charbegin( 123, 1033h#, lcbody*v#, baseline );

n := 10;
t1 := 0;
t2 := 2;
t3 := 5;
t4 := 7;
t5 := 9;
t6 := 10;
t7 := 12;
t8 := 15;
t9 := 17;
t10 := 18;

adj_fill.A(1, 6)                    % fixed x points
     (5, 10)                         % fixed y points
     ()                         % tied points
     ((3,8))                         % verticals
     ((4,7), (2,9))                    % horizontals
     ((-142,1457){309,254}...          % 0
      (152,1660){513,274}...               % *1
      (371,1731){1,0}...               % 2
      (562,1662){146,-170}...          % 3
      (617,1476){52,-662}...               % *4
      (614,1000){-15,-516}...          % 5
      (657,306){155,-300}...               % 6
      (787,223){1,0}...               % 7
      (929,270){325,182}...{310,275}          % *8
      (1112,405)--                    % 9
      (1180,356){-373,-545}...          % 10
      (910,66){-540,-395}...               % *11
      (640,-39){-391,0}...               % 12
      (410,70){-162,254}...               % 13
      (348,330){-62,927}...               % *14
      (348,997){8,540}...               % 15
      (310,1454){-118,212}...          % 16
      (216,1513){-1,0}...{-322,-199}          % 17
      (-83,1385)--cycle);               % 18

endchar(0);

"rmathj";     %dotless j

charbegin( 124, 1029h#, lcbody*v#, descender*v#);

n := 8;
t1 := 0;
t2 := 4;
t3 := 7;
t4 := 9;
t5 := 10;
t6 := 11;
t7 := 13;
t8 := 15;

adj_fill.A(4, 8)                    % fixed x points
     (1, 5)                         % fixed y points
     ()                         % tied points
     ((2,7))                         % verticals
     ((3,6))                         % horizontals
     ((26,-706){321,177}...               % 0
      (447,-389){655,689}...               % *1
      (681,-17){146,439}...               % 2
      (722,283){40,999}...               % *3
      (721,982){-7,543}...               % 4
      (700,1485){-94,700}...               % *5
      (627,1682){-257,245}...          % 6
      (475,1732){-1,0}...               % 7
      (262,1661){-524,-277}...{-418,-319}     % *8
      (-49,1455)--                    % 9
      (1,1386){386,214}...               % 10
      (282,1509){1,0}...               % 11
      (388,1468){213,-249}...          % 12
      (458,817){-8,-467}...               % 13
      (393,-127){-148,-472}...{-501,-321}     % 14
      (-22,-634)--cycle);               % 15

endchar(0);

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].