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
 (  24,  27,  27,  27,  20,  19,  26,  27,  14,  16,  26,  18,  34,  26,  26,  24,
    26,  26,  25,  22,  26,  24,  38,  22,  23,  19,  24,  25,  24,  25,  25,  14,
    25,  25,  13,  13,  23,  13,  37,  25,  25,  25,  25,  17,  23,  15,  25,  21,
    31,  21,  22,  17,  26,  18,  24,  25,  24,  26,  26,  19,  26,  26,  25,  16,
    13,  37,  30,  26,  33,  23,  28,  13,  15,  15,  14,  27,  26,  26,  14,  18,
    14,  18,  10,  10,   9,  18,   8,  26,   9,  26,  19,  25,  13,  24,  18,  23,
    25,  24,  26,  25,  24,  24,  24,  24,  24,  24,  38,  27,  20,  20,  20,  20,
    14,  14,  14,  14,  38,  38,  26,  26,  26,  26,  26,  26,  26,  26,  26,  26,
    26,  27,  24,  24,  24,  24,  24,  24,  38,  24,  25,  25,  25,  25,  13,  13,
    13,  13,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  22,  22);

Define RectList
 ( (   0,  0, 37, 70), (  38,  0, 34, 70), (  73,  0, 34, 70), ( 108,  0, 34, 70),
   ( 143,  0, 29, 70), ( 173,  0, 28, 70), ( 202,  0, 33, 70), ( 236,  0, 34, 70),
   ( 271,  0, 21, 70), ( 293,  0, 25, 70), ( 319,  0, 36, 70), ( 356,  0, 27, 70),
   ( 384,  0, 41, 70), ( 426,  0, 33, 70), ( 460,  0, 33, 70), ( 494,  0, 32, 70),
   ( 527,  0, 33, 70), ( 561,  0, 33, 70), ( 595,  0, 34, 70), ( 630,  0, 33, 70),
   ( 664,  0, 33, 70), ( 698,  0, 37, 70), ( 736,  0, 49, 70), ( 786,  0, 35, 70),
   ( 822,  0, 35, 70), ( 858,  0, 30, 70), ( 889,  0, 32, 70), ( 922,  0, 33, 70),
   ( 956,  0, 32, 70), ( 989,  0, 33, 70), (1023,  0, 33, 70), (1057,  0, 26, 70),
   (1084,  0, 33, 70), (1118,  0, 33, 70), (1152,  0, 21, 70), (1174,  0, 23, 70),
   (1198,  0, 33, 70), (1232,  0, 21, 70), (1254,  0, 45, 70), (1300,  0, 33, 70),
   (1334,  0, 33, 70), (1368,  0, 33, 70), (1402,  0, 33, 70), (1436,  0, 27, 70),
   (1464,  0, 31, 70), (1496,  0, 27, 70), (1524,  0, 33, 70), (1558,  0, 33, 70),
   (1592,  0, 45, 70), (1638,  0, 33, 70), (1672,  0, 34, 70), (1707,  0, 29, 70),
   (1737,  0, 33, 70), (1771,  0, 27, 70), (1799,  0, 31, 70), (1831,  0, 32, 70),
   (1864,  0, 35, 70), (1900,  0, 33, 70), (1934,  0, 33, 70), (1968,  0, 30, 70),
   (1999,  0, 33, 70), (2033,  0, 33, 70), (2067,  0, 33, 70), (2101,  0, 25, 70),
   (2127,  0, 22, 70), (2150,  0, 47, 70), (2198,  0, 41, 70), (2240,  0, 33, 70),
   (2274,  0, 43, 70), (2318,  0, 35, 70), (2354,  0, 40, 70), (2395,  0, 25, 70),
   (2421,  0, 25, 70), (2447,  0, 25, 70), (2473,  0, 24, 70), (2498,  0, 39, 70),
   (2538,  0, 34, 70), (2573,  0, 34, 70), (2608,  0, 23, 70), (2632,  0, 28, 70),
   (2661,  0, 23, 70), (2685,  0, 28, 70), (2714,  0, 19, 70), (2734,  0, 19, 70),
   (2754,  0, 19, 70), (2774,  0, 28, 70), (2803,  0, 19, 70), (2823,  0, 34, 70),
   (2858,  0, 19, 70), (2878,  0, 34, 70), (2913,  0, 31, 70), (2945,  0, 34, 70),
   (2980,  0, 26, 70), (3007,  0, 40, 70), (3048,  0, 33, 70), (3082,  0, 43, 70),
   (3126,  0, 42, 70), (3169,  0, 40, 70), (3210,  0, 41, 70), (3252,  0, 42, 70),
   (3295,  0, 47, 70), (3343,  0, 47, 70), (3391,  0, 47, 70), (3439,  0, 47, 70),
   (3487,  0, 47, 70), (3535,  0, 47, 70), (3583,  0, 63, 70), (3647,  0, 42, 70),
   (3690,  0, 35, 70), (3726,  0, 35, 70), (3762,  0, 35, 70), (3798,  0, 35, 70),
   (3834,  0, 25, 70), (3860,  0, 25, 70), (3886,  0, 25, 70), (3912,  0, 25, 70),
   (3938,  0, 63, 70), (4002,  0, 63, 70), (4066,  0, 41, 70), (4108,  0, 41, 70),
   (4150,  0, 41, 70), (4192,  0, 41, 70), (4234,  0, 41, 70), (4276,  0, 41, 70),
   (4318,  0, 41, 70), (4360,  0, 41, 70), (4402,  0, 41, 70), (4444,  0, 41, 70),
   (4486,  0, 41, 70), (4528,  0, 42, 70), (4571,  0, 40, 70), (4612,  0, 40, 70),
   (4653,  0, 40, 70), (4694,  0, 40, 70), (4735,  0, 40, 70), (4776,  0, 40, 70),
   (4817,  0, 63, 70), (4881,  0, 40, 70), (4922,  0, 41, 70), (4964,  0, 41, 70),
   (5006,  0, 41, 70), (5048,  0, 41, 70), (5090,  0, 25, 70), (5116,  0, 25, 70),
   (5142,  0, 25, 70), (5168,  0, 25, 70), (5194,  0, 41, 70), (5236,  0, 41, 70),
   (5278,  0, 41, 70), (5320,  0, 41, 70), (5362,  0, 41, 70), (5404,  0, 41, 70),
   (5446,  0, 41, 70), (5488,  0, 41, 70), (5530,  0, 41, 70), (5572,  0, 41, 70),
   (5614,  0, 41, 70), (5656,  0, 41, 70), (5698,  0, 42, 70), (5741,  0, 42, 70));

Define OffsetList
 ( (-7, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-5, 0), (-6, 0), (-4, 0), (-7, 0), (-6, 0), (-7, 0),
   (-6, 0), (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-6, 0),
   (-4, 0), (-4, 0), (-4, 0), (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-6, 0), (-4, 0), (-6, 0),
   (-7, 0), (-6, 0), (-6, 0), (-6, 0), (-4, 0), (-6, 0), (-4, 0), (-4, 0),
   (-6, 0), (-4, 0), (-4, 0), (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-6, 0),
   (-4, 0), (-5, 0), (-5, 0), (-4, 0), (-5, 0), (-6, 0), (-5, 0), (-6, 0),
   (-4, 0), (-6, 0), (-5, 0), (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-5, 0),
   (-5, 0), (-5, 0), (-4, 0), (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-4, 0),
   (-5, 0), (-4, 0), (-6, 0), (-5, 0), (-6, 0), (-8, 0), (-7, 0), (-10, 0),
   (-9, 0), (-8, 0), (-8, 0), (-9, 0), (-12, 0), (-12, 0), (-12, 0), (-12, 0),
   (-12, 0), (-12, 0), (-13, 0), (-8, 0), (-7, 0), (-7, 0), (-7, 0), (-7, 0),
   (-6, 0), (-6, 0), (-6, 0), (-6, 0), (-13, 0), (-13, 0), (-8, 0), (-8, 0),
   (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0),
   (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0),
   (-13, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-6, 0), (-6, 0),
   (-6, 0), (-6, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0),
   (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-8, 0), (-10, 0), (-10, 0));

Define KerningPairs
 ("(A","(","(","(","(","(","(","(","24","41","47","51","52","57","67","71",
  "73","74","77","A)","A,","A.","A/","AA","AJ","AT","AV","AW","AX","AY","AZ","A]",
  "Ax","Az","A}","A","A","A","A","A","A","A","ET","F,","F.","FA","FV","FW",
  "FY","F","F","F","F","F","F","F","K)","K,","K.","KA","KC","KJ","KO","KQ",
  "KS","KZ","K]","K}","K","K","K","K","K","K","K","K","K","K","K","L,",
  "L.","LA","LC","LG","LO","LQ","LT","LV","LW","LX","LY","LZ","Ly","L","L","L",
  "L","L","L","L","L","L","L","L","P,","P.","P/","PA","PJ","P","P","P",
  "P","P","P","P","T,","T-","T.","T/","TA","TJ","TV","TW","TY","Ta","Tc","Te",
  "Tv","Tw","Ty","T","T","T","T","T","T","T","T","T","V,","V.","V/","VA",
  "VJ","VY","Vy","V","V","V","V","V","V","V","W,","W.","W/","WJ","WY","Wy",
  "X,","X.","XA","XJ","X","X","X","X","X","X","X","Y,","Y.","Y/","YA","YJ",
  "Ya","Yc","Yd","Ye","Yg","Yo","Yq","Ys","Y","Y","Y","Y","Y","Y","Y","Y",
  "Y","Z,","Z.","ZA","Zy","Z","Z","Z","Z","Z","Z","Z","[A","[","[","[",
  "[","[","[","[","fv","fw","fy","r,","r.","rf","rt","rv","rw","ry","t,","t.",
  "tv","ty","tz","v,","v.","vf","vt","vy","wf","wy","x,","x.","xy","y,","y.","yf",
  "yt","yv","yx","z,","z.","zf","zt","zv","zw","zy","zz","{A","{","{","{","{",
  "{","{","{",")",",",".","/","A","J","T","V","W","X","Y","Z","]",
  "x","z","}","","","","","","","",")",",",".","/","A","J",
  "T","V","W","X","Y","Z","]","x","z","}","","","","","","",
  "","T","T",")",",",".","/","A","J","T","V","W","X","Y","Z","]",
  "x","z","}","","","","","","","",")",",",".","/","A","J",
  "T","V","W","X","Y","Z","]","x","z","}","","","","","","",
  "",")",",",".","/","A","J","T","V","W","X","Y","Z","]","x","z",
  "}","","","","","","","","T",")",",",".","/","A","J","T",
  "V","W","X","Y","Z","]","x","z","}","","","","","","","",
  "T","T");

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,  -3,  -1,  -1,   1,  -3,   1,   1,

     1,   1,   1,   1,   1,   1,   1,   1,   1,   1,  -1,  -3,  -3,  -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,   1,   1,   1,  -1,   1,   1,  -1,   1,

     1,   1,  -1,  -1,  -1,  -1,  -3,  -2,  -2,   1,  -3,   1,  -1,   1,   1,  -1,

    -1,   1,   1,   1,  -1,   1,   1,  -1,  -6,  -6,  -4,  -1,  -2,  -1,  -1,  -1,

    -1,  -1,  -1,  -1,  -4,  -3,  -4,  -4,  -2,  -2,   1,   1,   1,  -2,  -2,  -2,

     1,   1,   1,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -1,

    -1,   1,   1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -2,  -2,  -2,  -1,   1,   1,

     2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,  -4,  -4,  -4,  -2,  -2,

    -2,  -2,  -1,  -2,  -2,  -2,  -1,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,

    -2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

     1,   1,   1,   1,   1,   1,   1,  -3,  -3,   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,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

     1,   1,   1,   1,   1,   1,   1,   1,   1,  -3,  -1,  -1,   1,  -3,   1,   1,

     1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

    -3,  -1,  -1,   1,  -3,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

     1,  -1,  -1,   1,   1,   1,   1,   1,   1,  -3,  -1,  -1,   1,  -3,   1,   1,

     1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

    -3,  -1,  -1,   1,  -3,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

     1,   1,   1,   1,   1,   1,   1,  -3,  -1,  -1,   1,  -3,   1,   1,   1,   1,

     1,   1,   1,   1,   1,   1,   1,   1,  -1,   1,   1,   1,   1,   1,   1,  -3,

    -1,  -1,   1,  -3,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,

    -1,  -1);

CreateLayer               Main;
LayerSetImage             Main 'Impact36';
LayerSetAscent            Main 54;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (8);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 6;
LayerSetLineSpacingOffset Main -6;
LayerSetPointSize         Main 36;

SetDefaultPointSize  36;
