Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '', '', '', '',
   '', '', '', '');

Define WidthList
 (   9,   9,   9,   9,   9,   8,  10,   9,   3,   6,   9,   7,  11,   9,  10,   9,
    10,   9,   9,   7,   9,   9,  13,   7,   9,   7,   7,   7,   7,   7,   7,   3,
     7,   7,   3,   3,   7,   3,  11,   7,   7,   7,   7,   4,   7,   4,   7,   5,
     9,   7,   7,   7,   7,   7,   7,   7,   7,   7,   7,   7,   7,   7,   8,   4,
     3,  13,   7,   7,  12,   5,   9,   5,   4,   4,   4,   7,   8,   8,   4,   4,
     4,   4,   4,   4,   2,   5,   4,   8,   4,   8,   4,   7,   3,   7,   7,   7,
     7,  10,  10,   8);

Define RectList
 ( (   0,  0, 11, 15), (  12,  0,  7, 15), (  20,  0,  7, 15), (  28,  0,  7, 15),
   (  36,  0,  7, 15), (  44,  0,  6, 15), (  51,  0,  8, 15), (  60,  0,  7, 15),
   (  68,  0,  1, 15), (  70,  0,  5, 15), (  76,  0,  8, 15), (  85,  0,  6, 15),
   (  92,  0,  9, 15), ( 102,  0,  7, 15), ( 110,  0,  8, 15), ( 119,  0,  7, 15),
   ( 127,  0,  8, 15), ( 136,  0,  8, 15), ( 145,  0,  7, 15), ( 153,  0,  7, 15),
   ( 161,  0,  7, 15), ( 169,  0, 11, 15), ( 181,  0, 13, 15), ( 195,  0,  7, 15),
   ( 203,  0,  7, 15), ( 211,  0,  7, 15), ( 219,  0,  5, 15), ( 225,  0,  5, 15),
   ( 231,  0,  5, 15), ( 237,  0,  5, 15), ( 243,  0,  5, 15), ( 249,  0,  4, 15),
   ( 254,  0,  5, 15), ( 260,  0,  5, 15), ( 266,  0,  1, 15), ( 268,  0,  3, 15),
   ( 272,  0,  5, 15), ( 278,  0,  1, 15), ( 280,  0,  9, 15), ( 290,  0,  5, 15),
   ( 296,  0,  5, 15), ( 302,  0,  5, 15), ( 308,  0,  5, 15), ( 314,  0,  3, 15),
   ( 318,  0,  5, 15), ( 324,  0,  3, 15), ( 328,  0,  5, 15), ( 334,  0,  5, 15),
   ( 340,  0,  9, 15), ( 350,  0,  5, 15), ( 356,  0,  5, 15), ( 362,  0,  5, 15),
   ( 368,  0,  6, 15), ( 375,  0,  3, 15), ( 379,  0,  6, 15), ( 386,  0,  6, 15),
   ( 393,  0,  6, 15), ( 400,  0,  6, 15), ( 407,  0,  6, 15), ( 414,  0,  6, 15),
   ( 421,  0,  6, 15), ( 428,  0,  6, 15), ( 435,  0,  7, 15), ( 443,  0,  2, 15),
   ( 446,  0,  1, 15), ( 448,  0, 12, 15), ( 461,  0,  8, 15), ( 470,  0,  5, 15),
   ( 476,  0, 10, 15), ( 487,  0,  5, 15), ( 493,  0,  8, 15), ( 502,  0,  5, 15),
   ( 508,  0,  3, 15), ( 512,  0,  3, 15), ( 516,  0,  3, 15), ( 520,  0,  7, 15),
   ( 528,  0,  7, 15), ( 536,  0,  7, 15), ( 544,  0,  2, 15), ( 547,  0,  3, 15),
   ( 551,  0,  2, 15), ( 554,  0,  3, 15), ( 558,  0,  1, 15), ( 560,  0,  1, 15),
   ( 562,  0,  1, 15), ( 564,  0,  3, 15), ( 568,  0,  1, 15), ( 570,  0,  6, 15),
   ( 577,  0,  1, 15), ( 579,  0,  6, 15), ( 586,  0,  4, 15), ( 591,  0,  5, 15),
   ( 597,  0,  1, 15), ( 599,  0,  6, 15), ( 606,  0,  6, 15), ( 613,  0,  7, 15),
   ( 621,  0,  6, 15), ( 628,  0, 10, 15), ( 639,  0, 10, 15), ( 650,  0,  6, 15));

Define OffsetList
 ( (-1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), (-1, 0), ( 0, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), (-1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0),
   ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 1, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0));

Define KerningPairs
 ("11","AT","AV","AY","F,","F.","FA","LT","LV","LW","LY","P,","P.","PA","T,","T-",
  "T.","T:","T;","TA","Ta","Tc","Te","To","Ts","Tw","Ty","V,","V-","V.","VA","Va",
  "Ve","Vo","W,","W.","Y,","Y-","Y.","Y:","Y;","YA","Ya","Ye","Yo","Yp","Yq","Yu",
  "Yv","r,","r.","v,","v.","w,","w.","y,","y.","G,","G.","St","Sp");

Define KerningValues
 (  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -2,  -2,  -1,  -1,  -1,
    -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
    -1,  -1,  -1,  -1,  -2,  -1,  -2,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
    -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1);

CreateLayer               Main;
LayerSetImage             Main 'Arial10';
LayerSetAscent            Main 12;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (4);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 10;

SetDefaultPointSize  10;
