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
 (   8,   9,   7,   8,   8,   8,   7,   9,   4,   4,   9,   6,  12,   8,   8,   7,
     8,   8,   5,   7,   8,   7,  11,   7,   8,   6,   7,   8,   6,   8,   8,   6,
     7,   7,   4,   4,   8,   4,  12,   8,   8,   7,   7,   7,   5,   6,   8,   7,
    12,   8,   8,   6,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,  14,  10,
     4,  19,   9,   8,  13,  14,  10,   6,   7,   7,   6,  12,   7,   7,   5,   6,
     5,   6,   4,   4,   2,   4,   4,  14,   4,  14,   7,   7,   4,   6,   6,   8,
     5,   6,   8,   7,   8,   8,   8,   8,   8,   8,  11,   7,   8,   8,   8,   8,
     4,   4,   4,   4,  11,  11,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,
     8,   9,   7,   7,   7,   7,   7,   7,  11,   6,   8,   8,   8,   8,   4,   4,
     4,   4,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8);

Define RectList
 ( (   0,  0,  8, 27), (   9,  0, 10, 27), (  20,  0,  7, 27), (  28,  0,  7, 27),
   (  36,  0,  9, 27), (  46,  0,  9, 27), (  56,  0,  7, 27), (  64,  0, 10, 27),
   (  75,  0,  3, 27), (  79,  0,  6, 27), (  86,  0,  7, 27), (  94,  0,  6, 27),
   ( 101,  0, 11, 27), ( 113,  0,  7, 27), ( 121,  0,  7, 27), ( 129,  0,  7, 27),
   ( 137,  0,  8, 27), ( 146,  0,  7, 27), ( 154,  0,  5, 27), ( 160,  0,  7, 27),
   ( 168,  0,  7, 27), ( 176,  0,  7, 27), ( 184,  0, 11, 27), ( 196,  0,  7, 27),
   ( 204,  0,  8, 27), ( 213,  0,  7, 27), ( 221,  0,  7, 27), ( 229,  0,  7, 27),
   ( 237,  0,  6, 27), ( 244,  0,  7, 27), ( 252,  0,  7, 27), ( 260,  0,  6, 27),
   ( 267,  0,  7, 27), ( 275,  0,  7, 27), ( 283,  0,  3, 27), ( 287,  0,  4, 27),
   ( 292,  0,  8, 27), ( 301,  0,  4, 27), ( 306,  0, 11, 27), ( 318,  0,  7, 27),
   ( 326,  0,  7, 27), ( 334,  0,  7, 27), ( 342,  0,  8, 27), ( 351,  0,  8, 27),
   ( 360,  0,  5, 27), ( 366,  0,  6, 27), ( 373,  0,  7, 27), ( 381,  0,  7, 27),
   ( 389,  0, 11, 27), ( 401,  0,  7, 27), ( 409,  0,  8, 27), ( 418,  0,  7, 27),
   ( 426,  0,  7, 27), ( 434,  0,  4, 27), ( 439,  0,  8, 27), ( 448,  0,  8, 27),
   ( 457,  0,  9, 27), ( 467,  0,  7, 27), ( 475,  0, 10, 27), ( 486,  0,  7, 27),
   ( 494,  0,  7, 27), ( 502,  0,  7, 27), ( 510,  0, 12, 27), ( 523,  0,  6, 27),
   ( 530,  0,  3, 27), ( 534,  0, 17, 27), ( 552,  0,  9, 27), ( 562,  0,  5, 27),
   ( 568,  0, 13, 27), ( 582,  0, 13, 27), ( 596,  0, 10, 27), ( 607,  0,  6, 27),
   ( 614,  0,  7, 27), ( 622,  0,  7, 27), ( 630,  0,  6, 27), ( 637,  0, 12, 27),
   ( 650,  0,  7, 27), ( 658,  0,  7, 27), ( 666,  0,  4, 27), ( 671,  0,  5, 27),
   ( 677,  0,  5, 27), ( 683,  0,  6, 27), ( 690,  0,  3, 27), ( 694,  0,  3, 27),
   ( 698,  0,  2, 27), ( 701,  0,  4, 27), ( 706,  0,  3, 27), ( 710,  0, 13, 27),
   ( 724,  0,  3, 27), ( 728,  0, 13, 27), ( 742,  0,  8, 27), ( 751,  0,  6, 27),
   ( 758,  0,  5, 27), ( 764,  0,  8, 27), ( 773,  0,  8, 27), ( 782,  0, 12, 27),
   ( 795,  0,  7, 27), ( 803,  0,  8, 27), ( 812,  0, 11, 27), ( 824,  0,  8, 27),
   ( 833,  0, 12, 27), ( 846,  0, 12, 27), ( 859,  0, 12, 27), ( 872,  0, 12, 27),
   ( 885,  0, 12, 27), ( 898,  0, 12, 27), ( 911,  0, 15, 27), ( 927,  0, 11, 27),
   ( 939,  0, 13, 27), ( 953,  0, 13, 27), ( 967,  0, 13, 27), ( 981,  0, 13, 27),
   ( 995,  0,  5, 27), (1001,  0,  5, 27), (1007,  0,  5, 27), (1013,  0,  5, 27),
   (1019,  0, 15, 27), (1035,  0, 15, 27), (1051,  0, 11, 27), (1063,  0, 11, 27),
   (1075,  0, 11, 27), (1087,  0, 11, 27), (1099,  0, 11, 27), (1111,  0, 11, 27),
   (1123,  0, 11, 27), (1135,  0, 11, 27), (1147,  0, 11, 27), (1159,  0, 11, 27),
   (1171,  0, 11, 27), (1183,  0, 14, 27), (1198,  0, 11, 27), (1210,  0, 11, 27),
   (1222,  0, 11, 27), (1234,  0, 11, 27), (1246,  0, 11, 27), (1258,  0, 11, 27),
   (1270,  0, 15, 27), (1286,  0,  8, 27), (1295,  0, 11, 27), (1307,  0, 11, 27),
   (1319,  0, 11, 27), (1331,  0, 11, 27), (1343,  0,  5, 27), (1349,  0,  5, 27),
   (1355,  0,  5, 27), (1361,  0,  5, 27), (1367,  0, 11, 27), (1379,  0, 11, 27),
   (1391,  0, 11, 27), (1403,  0, 11, 27), (1415,  0, 11, 27), (1427,  0, 11, 27),
   (1439,  0, 11, 27), (1451,  0, 11, 27), (1463,  0, 11, 27), (1475,  0, 11, 27),
   (1487,  0, 11, 27), (1499,  0, 11, 27), (1511,  0, 12, 27), (1524,  0, 12, 27));

Define OffsetList
 ( ( 0, 0), (-1, 0), ( 0, 0), ( 1, 0), (-1, 0), (-1, 0), ( 0, 0), (-1, 0),
   ( 0, 0), (-2, 0), ( 2, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), (-1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 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), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 0, 0), (-1, 0), ( 1, 0), ( 2, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 1, 0), (-2, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 0, 0), ( 1, 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), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0),
   ( 0, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), (-1, 0), (-1, 0), (-2, 0),
   (-1, 0), (-1, 0), (-1, 0), ( 0, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-3, 0), (-3, 0), (-3, 0), (-3, 0),
   (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-3, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-1, 0), (-1, 0),
   (-1, 0), (-1, 0), (-2, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-2, 0), (-2, 0), (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-2, 0), (-2, 0));

Define KerningPairs
 (",1","-B","-e","-g","-k",".1","AC","AV","AY","BB","CE","FA","LE","LY","ME","PA",
  "RY","SE","St","Sv","TA","gJ","ss","tv","v,","v.","vt");

Define KerningValues

 (  -1,   1,   1,   1,   1,  -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 'DecoTech18';
LayerSetAscent            Main 21;
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 18;

SetDefaultPointSize  18;
