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
 (  30,  31,  29,  31,  27,  25,  37,  31,  11,  27,  28,  23,  40,  33,  32,  28,
    34,  29,  32,  25,  31,  27,  39,  24,  31,  29,  27,  26,  24,  28,  24,  20,
    27,  26,  11,  11,  21,  11,  38,  26,  27,  27,  27,  19,  27,  22,  26,  21,
    31,  21,  24,  24,  26,  13,  26,  27,  30,  26,  28,  25,  26,  27,  25,  27,
    11,  41,  36,  26,  34,  20,  32,  27,  20,  20,  20,  24,  30,  28,  21,  25,
    21,  25,  10,  10,   9,  18,  11,  27,  10,  27,  21,  27,  11,  25,  30,  31,
    21,  37,  26,  27,  30,  30,  30,  30,  30,  30,  50,  29,  27,  27,  27,  27,
    11,  11,  11,  11,  31,  33,  32,  32,  32,  32,  32,  32,  31,  31,  31,  31,
    31,  31,  27,  27,  27,  27,  27,  27,  41,  24,  24,  24,  24,  24,  11,  11,
    11,  11,  27,  26,  27,  27,  27,  27,  27,  27,  26,  26,  26,  26,  24,  24);

Define RectList
 ( (   0,  0, 31, 65), (  32,  0, 28, 65), (  61,  0, 29, 65), (  91,  0, 29, 65),
   ( 121,  0, 26, 65), ( 148,  0, 25, 65), ( 174,  0, 35, 65), ( 210,  0, 29, 65),
   ( 240,  0,  8, 65), ( 249,  0, 26, 65), ( 276,  0, 25, 65), ( 302,  0, 20, 65),
   ( 323,  0, 37, 65), ( 361,  0, 30, 65), ( 392,  0, 31, 65), ( 424,  0, 27, 65),
   ( 452,  0, 32, 65), ( 485,  0, 26, 65), ( 512,  0, 30, 65), ( 543,  0, 27, 65),
   ( 571,  0, 28, 65), ( 600,  0, 26, 65), ( 627,  0, 40, 65), ( 668,  0, 27, 65),
   ( 696,  0, 31, 65), ( 728,  0, 31, 65), ( 760,  0, 24, 65), ( 785,  0, 23, 65),
   ( 809,  0, 23, 65), ( 833,  0, 26, 65), ( 860,  0, 22, 65), ( 883,  0, 21, 65),
   ( 905,  0, 23, 65), ( 929,  0, 22, 65), ( 952,  0,  9, 65), ( 962,  0, 19, 65),
   ( 982,  0, 20, 65), (1003,  0,  8, 65), (1012,  0, 34, 65), (1047,  0, 21, 65),
   (1069,  0, 24, 65), (1094,  0, 25, 65), (1120,  0, 27, 65), (1148,  0, 19, 65),
   (1168,  0, 25, 65), (1194,  0, 20, 65), (1215,  0, 22, 65), (1238,  0, 22, 65),
   (1261,  0, 31, 65), (1293,  0, 23, 65), (1317,  0, 25, 65), (1343,  0, 23, 65),
   (1367,  0, 21, 65), (1389,  0, 10, 65), (1400,  0, 26, 65), (1427,  0, 27, 65),
   (1455,  0, 30, 65), (1486,  0, 26, 65), (1513,  0, 25, 65), (1539,  0, 24, 65),
   (1564,  0, 23, 65), (1588,  0, 26, 65), (1615,  0, 20, 65), (1636,  0, 11, 65),
   (1648,  0, 10, 65), (1659,  0, 39, 65), (1699,  0, 31, 65), (1731,  0, 24, 65),
   (1756,  0, 29, 65), (1786,  0, 18, 65), (1805,  0, 28, 65), (1834,  0, 26, 65),
   (1861,  0, 16, 65), (1878,  0, 16, 65), (1895,  0, 19, 65), (1915,  0, 28, 65),
   (1944,  0, 26, 65), (1971,  0, 27, 65), (1999,  0, 18, 65), (2018,  0, 22, 65),
   (2041,  0, 19, 65), (2061,  0, 21, 65), (2083,  0, 11, 65), (2095,  0,  9, 65),
   (2105,  0,  6, 65), (2112,  0, 15, 65), (2128,  0, 10, 65), (2139,  0, 22, 65),
   (2162,  0,  8, 65), (2171,  0, 22, 65), (2194,  0, 19, 65), (2214,  0, 22, 65),
   (2237,  0,  9, 65), (2247,  0, 24, 65), (2272,  0, 29, 65), (2302,  0, 31, 65),
   (2334,  0, 21, 65), (2356,  0, 36, 65), (2393,  0, 26, 65), (2420,  0, 22, 65),
   (2443,  0, 31, 65), (2475,  0, 31, 65), (2507,  0, 31, 65), (2539,  0, 31, 65),
   (2571,  0, 31, 65), (2603,  0, 31, 65), (2635,  0, 53, 65), (2689,  0, 29, 65),
   (2719,  0, 26, 65), (2746,  0, 26, 65), (2773,  0, 26, 65), (2800,  0, 26, 65),
   (2827,  0, 11, 65), (2839,  0, 12, 65), (2852,  0, 17, 65), (2870,  0, 18, 65),
   (2889,  0, 33, 65), (2923,  0, 30, 65), (2954,  0, 31, 65), (2986,  0, 31, 65),
   (3018,  0, 31, 65), (3050,  0, 31, 65), (3082,  0, 31, 65), (3114,  0, 31, 65),
   (3146,  0, 28, 65), (3175,  0, 28, 65), (3204,  0, 28, 65), (3233,  0, 28, 65),
   (3262,  0, 31, 65), (3294,  0, 28, 65), (3323,  0, 24, 65), (3348,  0, 24, 65),
   (3373,  0, 24, 65), (3398,  0, 24, 65), (3423,  0, 24, 65), (3448,  0, 24, 65),
   (3473,  0, 41, 65), (3515,  0, 23, 65), (3539,  0, 22, 65), (3562,  0, 22, 65),
   (3585,  0, 22, 65), (3608,  0, 22, 65), (3631,  0, 11, 65), (3643,  0, 11, 65),
   (3655,  0, 18, 65), (3674,  0, 17, 65), (3692,  0, 25, 65), (3718,  0, 21, 65),
   (3740,  0, 24, 65), (3765,  0, 24, 65), (3790,  0, 24, 65), (3815,  0, 24, 65),
   (3840,  0, 24, 65), (3865,  0, 24, 65), (3890,  0, 22, 65), (3913,  0, 22, 65),
   (3936,  0, 22, 65), (3959,  0, 22, 65), (3982,  0, 25, 65), (4008,  0, 25, 65));

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

Define KerningPairs
 ("AT","AV","AY","Ay","BC","BU","De","FA","Kv","Ky","LT","LY","ME","OA","PA","Pa",
  "Pe","Po","RG","TA","Ta","Tc","Te","To","Tr","Ts","Tu","Ty","VA","VO","Va","Ve",
  "Vo","Vr","Vu","We","fg");

Define KerningValues
 (  -6,  -3,  -9,  -3,  -1,  -1,  -3,  -2,  -3,  -4,  -5,  -7,  -1,  -2,  -5,  -7,
    -6,  -5,  -1,  -3,  -4,  -4,  -5,  -4,  -5,  -3,  -4,  -5,  -4,  -2,  -1,  -4,
    -3,  -2,  -3,  -1,  -2);

CreateLayer               Main;
LayerSetImage             Main 'KomikaText38';
LayerSetAscent            Main 50;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (13);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 38;

SetDefaultPointSize  38;
