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,  10,   8,   9,   9,   9,   8,  11,   4,   5,  11,   7,  13,   9,   9,   8,
    10,   9,   6,   7,   9,   8,  12,   8,   9,   7,   8,  10,   7,  10,   9,   7,
     8,   8,   4,   5,   9,   5,  14,   9,   9,   8,   8,   8,   6,   7,  10,   8,
    14,   9,   9,   7,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  16,  12,
     5,  22,  11,  10,  15,  16,  11,   7,   8,   8,   7,  14,   8,   8,   6,   7,
     6,   7,   4,   4,   3,   5,   4,  16,   4,  16,   8,   8,   5,   7,   7,   9,
     6,   7,   9,   8,   9,   9,   9,   9,   9,   9,  12,   8,   9,   9,   9,   9,
     4,   4,   4,   4,  12,  12,   9,   9,   9,   9,   9,   9,   9,   9,   9,   9,
     9,  10,   8,   8,   8,   8,   8,   8,  12,   7,   9,   9,   9,   9,   4,   4,
     4,   4,   9,   9,   9,   9,   9,   9,   9,   9,  10,  10,  10,  10,   9,   9);

Define RectList
 ( (   0,  0,  9, 31), (  10,  0, 11, 31), (  22,  0,  8, 31), (  31,  0,  8, 31),
   (  40,  0, 10, 31), (  51,  0, 10, 31), (  62,  0,  8, 31), (  71,  0, 11, 31),
   (  83,  0,  3, 31), (  87,  0,  6, 31), (  94,  0,  8, 31), ( 103,  0,  6, 31),
   ( 110,  0, 13, 31), ( 124,  0,  7, 31), ( 132,  0,  8, 31), ( 141,  0,  7, 31),
   ( 149,  0,  9, 31), ( 159,  0,  8, 31), ( 168,  0,  6, 31), ( 175,  0,  8, 31),
   ( 184,  0,  7, 31), ( 192,  0,  8, 31), ( 201,  0, 12, 31), ( 214,  0,  8, 31),
   ( 223,  0,  9, 31), ( 233,  0,  8, 31), ( 242,  0,  8, 31), ( 251,  0,  8, 31),
   ( 260,  0,  7, 31), ( 268,  0,  8, 31), ( 277,  0,  8, 31), ( 286,  0,  7, 31),
   ( 294,  0,  8, 31), ( 303,  0,  7, 31), ( 311,  0,  3, 31), ( 315,  0,  4, 31),
   ( 320,  0,  8, 31), ( 329,  0,  5, 31), ( 335,  0, 12, 31), ( 348,  0,  7, 31),
   ( 356,  0,  8, 31), ( 365,  0,  7, 31), ( 373,  0,  9, 31), ( 383,  0,  7, 31),
   ( 391,  0,  6, 31), ( 398,  0,  7, 31), ( 406,  0,  8, 31), ( 415,  0,  8, 31),
   ( 424,  0, 12, 31), ( 437,  0,  7, 31), ( 445,  0,  7, 31), ( 453,  0,  8, 31),
   ( 462,  0,  8, 31), ( 471,  0,  4, 31), ( 476,  0,  7, 31), ( 484,  0,  9, 31),
   ( 494,  0, 11, 31), ( 506,  0,  8, 31), ( 515,  0, 11, 31), ( 527,  0,  8, 31),
   ( 536,  0,  8, 31), ( 545,  0,  7, 31), ( 553,  0, 14, 31), ( 568,  0,  6, 31),
   ( 575,  0,  3, 31), ( 579,  0, 20, 31), ( 600,  0, 10, 31), ( 611,  0,  6, 31),
   ( 618,  0, 15, 31), ( 634,  0, 15, 31), ( 650,  0, 11, 31), ( 662,  0,  7, 31),
   ( 670,  0,  7, 31), ( 678,  0,  7, 31), ( 686,  0,  5, 31), ( 692,  0, 14, 31),
   ( 707,  0,  7, 31), ( 715,  0,  8, 31), ( 724,  0,  5, 31), ( 730,  0,  5, 31),
   ( 736,  0,  5, 31), ( 742,  0,  5, 31), ( 748,  0,  4, 31), ( 753,  0,  4, 31),
   ( 758,  0,  2, 31), ( 761,  0,  5, 31), ( 767,  0,  4, 31), ( 772,  0, 14, 31),
   ( 787,  0,  4, 31), ( 792,  0, 14, 31), ( 807,  0,  8, 31), ( 816,  0,  7, 31),
   ( 824,  0,  5, 31), ( 830,  0, 11, 31), ( 842,  0,  8, 31), ( 851,  0, 13, 31),
   ( 865,  0,  8, 31), ( 874,  0, 11, 31), ( 886,  0, 12, 31), ( 899,  0, 11, 31),
   ( 911,  0, 13, 31), ( 925,  0, 13, 31), ( 939,  0, 13, 31), ( 953,  0, 13, 31),
   ( 967,  0, 13, 31), ( 981,  0, 13, 31), ( 995,  0, 16, 31), (1012,  0, 12, 31),
   (1025,  0, 14, 31), (1040,  0, 14, 31), (1055,  0, 14, 31), (1070,  0, 14, 31),
   (1085,  0,  5, 31), (1091,  0,  5, 31), (1097,  0,  5, 31), (1103,  0,  5, 31),
   (1109,  0, 16, 31), (1126,  0, 16, 31), (1143,  0, 12, 31), (1156,  0, 12, 31),
   (1169,  0, 12, 31), (1182,  0, 12, 31), (1195,  0, 12, 31), (1208,  0, 12, 31),
   (1221,  0, 11, 31), (1233,  0, 11, 31), (1245,  0, 11, 31), (1257,  0, 11, 31),
   (1269,  0, 11, 31), (1281,  0, 15, 31), (1297,  0, 12, 31), (1310,  0, 12, 31),
   (1323,  0, 12, 31), (1336,  0, 12, 31), (1349,  0, 12, 31), (1362,  0, 12, 31),
   (1375,  0, 16, 31), (1392,  0, 11, 31), (1404,  0, 12, 31), (1417,  0, 12, 31),
   (1430,  0, 12, 31), (1443,  0, 12, 31), (1456,  0,  5, 31), (1462,  0,  5, 31),
   (1468,  0,  5, 31), (1474,  0,  5, 31), (1480,  0, 12, 31), (1493,  0, 11, 31),
   (1505,  0, 12, 31), (1518,  0, 12, 31), (1531,  0, 12, 31), (1544,  0, 12, 31),
   (1557,  0, 12, 31), (1570,  0, 12, 31), (1583,  0, 12, 31), (1596,  0, 12, 31),
   (1609,  0, 12, 31), (1622,  0, 12, 31), (1635,  0, 11, 31), (1647,  0, 11, 31));

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

Define KerningPairs
 (",1","-B","-e","-g","-k",".1","AC","AV","AY","BB","CE","FA","LE","LY","ME","PA",
  "RY","SE","SS","St","Sv","TA","gJ","kt","ss","tS","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,  -2,   1,   1,  -1,   1,   1,  -1,  -1,   1);

CreateLayer               Main;
LayerSetImage             Main 'DecoTech20';
LayerSetAscent            Main 24;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (5);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 20;

SetDefaultPointSize  20;
