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
 (  20,  22,  22,  22,  17,  16,  22,  22,  12,  13,  21,  15,  29,  22,  22,  20,
    22,  22,  21,  18,  22,  20,  32,  18,  19,  16,  20,  21,  20,  21,  20,  12,
    21,  21,  11,  11,  19,  11,  31,  21,  20,  21,  21,  14,  19,  12,  21,  17,
    27,  17,  18,  14,  21,  15,  20,  21,  20,  21,  22,  16,  21,  22,  21,  13,
    11,  31,  25,  22,  28,  19,  23,  11,  13,  13,  12,  22,  21,  21,  11,  15,
    11,  15,   8,   8,   7,  15,   7,  21,   7,  21,  16,  21,  11,  20,  15,  19,
    21,  20,  22,  21,  20,  20,  20,  20,  20,  20,  32,  22,  17,  17,  17,  17,
    12,  12,  12,  12,  32,  32,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,
    22,  22,  20,  20,  20,  20,  20,  20,  32,  20,  20,  20,  20,  20,  11,  11,
    11,  11,  20,  21,  20,  20,  20,  20,  20,  20,  21,  21,  21,  21,  18,  18);

Define RectList
 ( (   0,  0, 33, 60), (  34,  0, 29, 60), (  64,  0, 29, 60), (  94,  0, 29, 60),
   ( 124,  0, 26, 60), ( 151,  0, 25, 60), ( 177,  0, 29, 60), ( 207,  0, 29, 60),
   ( 237,  0, 19, 60), ( 257,  0, 22, 60), ( 280,  0, 31, 60), ( 312,  0, 25, 60),
   ( 338,  0, 36, 60), ( 375,  0, 29, 60), ( 405,  0, 29, 60), ( 435,  0, 28, 60),
   ( 464,  0, 29, 60), ( 494,  0, 29, 60), ( 524,  0, 30, 60), ( 555,  0, 29, 60),
   ( 585,  0, 29, 60), ( 615,  0, 35, 60), ( 651,  0, 43, 60), ( 695,  0, 33, 60),
   ( 729,  0, 31, 60), ( 761,  0, 27, 60), ( 789,  0, 28, 60), ( 818,  0, 29, 60),
   ( 848,  0, 28, 60), ( 877,  0, 29, 60), ( 907,  0, 28, 60), ( 936,  0, 24, 60),
   ( 961,  0, 29, 60), ( 991,  0, 29, 60), (1021,  0, 19, 60), (1041,  0, 21, 60),
   (1063,  0, 29, 60), (1093,  0, 19, 60), (1113,  0, 39, 60), (1153,  0, 29, 60),
   (1183,  0, 28, 60), (1212,  0, 29, 60), (1242,  0, 29, 60), (1272,  0, 24, 60),
   (1297,  0, 27, 60), (1325,  0, 24, 60), (1350,  0, 29, 60), (1380,  0, 29, 60),
   (1410,  0, 39, 60), (1450,  0, 29, 60), (1480,  0, 30, 60), (1511,  0, 26, 60),
   (1538,  0, 28, 60), (1567,  0, 24, 60), (1592,  0, 27, 60), (1620,  0, 28, 60),
   (1649,  0, 31, 60), (1681,  0, 28, 60), (1710,  0, 29, 60), (1740,  0, 27, 60),
   (1768,  0, 28, 60), (1797,  0, 29, 60), (1827,  0, 31, 60), (1859,  0, 22, 60),
   (1882,  0, 21, 60), (1904,  0, 41, 60), (1946,  0, 37, 60), (1984,  0, 29, 60),
   (2014,  0, 38, 60), (2053,  0, 31, 60), (2085,  0, 35, 60), (2121,  0, 22, 60),
   (2144,  0, 22, 60), (2167,  0, 22, 60), (2190,  0, 22, 60), (2213,  0, 34, 60),
   (2248,  0, 31, 60), (2280,  0, 31, 60), (2312,  0, 21, 60), (2334,  0, 25, 60),
   (2360,  0, 21, 60), (2382,  0, 25, 60), (2408,  0, 18, 60), (2427,  0, 18, 60),
   (2446,  0, 18, 60), (2465,  0, 26, 60), (2492,  0, 18, 60), (2511,  0, 31, 60),
   (2543,  0, 18, 60), (2562,  0, 31, 60), (2594,  0, 28, 60), (2623,  0, 30, 60),
   (2654,  0, 25, 60), (2680,  0, 34, 60), (2715,  0, 31, 60), (2747,  0, 39, 60),
   (2787,  0, 36, 60), (2824,  0, 34, 60), (2859,  0, 35, 60), (2895,  0, 36, 60),
   (2932,  0, 41, 60), (2974,  0, 41, 60), (3016,  0, 41, 60), (3058,  0, 41, 60),
   (3100,  0, 41, 60), (3142,  0, 41, 60), (3184,  0, 55, 60), (3240,  0, 35, 60),
   (3276,  0, 32, 60), (3309,  0, 32, 60), (3342,  0, 32, 60), (3375,  0, 32, 60),
   (3408,  0, 23, 60), (3432,  0, 23, 60), (3456,  0, 23, 60), (3480,  0, 23, 60),
   (3504,  0, 55, 60), (3560,  0, 55, 60), (3616,  0, 35, 60), (3652,  0, 35, 60),
   (3688,  0, 35, 60), (3724,  0, 35, 60), (3760,  0, 35, 60), (3796,  0, 35, 60),
   (3832,  0, 35, 60), (3868,  0, 35, 60), (3904,  0, 35, 60), (3940,  0, 35, 60),
   (3976,  0, 35, 60), (4012,  0, 35, 60), (4048,  0, 34, 60), (4083,  0, 34, 60),
   (4118,  0, 34, 60), (4153,  0, 34, 60), (4188,  0, 34, 60), (4223,  0, 34, 60),
   (4258,  0, 55, 60), (4314,  0, 34, 60), (4349,  0, 34, 60), (4384,  0, 34, 60),
   (4419,  0, 34, 60), (4454,  0, 34, 60), (4489,  0, 23, 60), (4513,  0, 23, 60),
   (4537,  0, 23, 60), (4561,  0, 23, 60), (4585,  0, 34, 60), (4620,  0, 35, 60),
   (4656,  0, 34, 60), (4691,  0, 34, 60), (4726,  0, 34, 60), (4761,  0, 34, 60),
   (4796,  0, 34, 60), (4831,  0, 34, 60), (4866,  0, 35, 60), (4902,  0, 35, 60),
   (4938,  0, 35, 60), (4974,  0, 35, 60), (5010,  0, 36, 60), (5047,  0, 36, 60));

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

Define KerningPairs
 ("(A","(","(","(","(","(","(","(","24","41","47","51","52","57","67","71",
  "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,  -2,  -1,  -1,   1,  -2,   1,   1,   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,   1,   1,  -1,  -1,   1,   1,   1,  -1,   1,   1,  -1,   1,   1,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    -1);

CreateLayer               Main;
LayerSetImage             Main 'Impact30';
LayerSetAscent            Main 46;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (7);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 6;
LayerSetLineSpacingOffset Main -6;
LayerSetPointSize         Main 30;

SetDefaultPointSize  30;
