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
 (  29,  29,  28,  29,  25,  23,  35,  30,  11,  25,  26,  21,  37,  31,  31,  27,
    32,  27,  30,  24,  29,  25,  37,  23,  29,  27,  25,  24,  22,  27,  23,  19,
    25,  24,  11,  11,  20,  11,  36,  24,  25,  25,  26,  18,  25,  21,  24,  20,
    29,  20,  22,  22,  24,  12,  24,  25,  29,  25,  27,  23,  25,  25,  24,  25,
    11,  39,  34,  24,  32,  19,  30,  25,  18,  18,  19,  23,  28,  26,  19,  24,
    19,  24,  10,  10,   8,  17,  10,  25,  10,  25,  19,  25,  11,  23,  28,  29,
    20,  35,  25,  25,  29,  29,  29,  29,  29,  29,  47,  28,  25,  25,  25,  25,
    11,  11,  11,  11,  29,  31,  31,  31,  31,  31,  31,  31,  29,  29,  29,  29,
    29,  29,  25,  25,  25,  25,  25,  25,  39,  22,  23,  23,  23,  23,  11,  11,
    11,  11,  25,  24,  25,  25,  25,  25,  25,  25,  24,  24,  24,  24,  22,  22);

Define RectList
 ( (   0,  0, 29, 61), (  30,  0, 27, 61), (  58,  0, 27, 61), (  86,  0, 27, 61),
   ( 114,  0, 24, 61), ( 139,  0, 24, 61), ( 164,  0, 33, 61), ( 198,  0, 28, 61),
   ( 227,  0,  8, 61), ( 236,  0, 24, 61), ( 261,  0, 23, 61), ( 285,  0, 19, 61),
   ( 305,  0, 34, 61), ( 340,  0, 28, 61), ( 369,  0, 29, 61), ( 399,  0, 25, 61),
   ( 425,  0, 30, 61), ( 456,  0, 25, 61), ( 482,  0, 28, 61), ( 511,  0, 26, 61),
   ( 538,  0, 26, 61), ( 565,  0, 26, 61), ( 592,  0, 37, 61), ( 630,  0, 25, 61),
   ( 656,  0, 29, 61), ( 686,  0, 29, 61), ( 716,  0, 23, 61), ( 740,  0, 22, 61),
   ( 763,  0, 22, 61), ( 786,  0, 24, 61), ( 811,  0, 21, 61), ( 833,  0, 20, 61),
   ( 854,  0, 22, 61), ( 877,  0, 20, 61), ( 898,  0,  8, 61), ( 907,  0, 19, 61),
   ( 927,  0, 19, 61), ( 947,  0,  7, 61), ( 955,  0, 32, 61), ( 988,  0, 20, 61),
   (1009,  0, 23, 61), (1033,  0, 23, 61), (1057,  0, 26, 61), (1084,  0, 18, 61),
   (1103,  0, 24, 61), (1128,  0, 19, 61), (1148,  0, 21, 61), (1170,  0, 20, 61),
   (1191,  0, 29, 61), (1221,  0, 21, 61), (1243,  0, 23, 61), (1267,  0, 22, 61),
   (1290,  0, 21, 61), (1312,  0,  9, 61), (1322,  0, 24, 61), (1347,  0, 26, 61),
   (1374,  0, 28, 61), (1403,  0, 24, 61), (1428,  0, 23, 61), (1452,  0, 23, 61),
   (1476,  0, 21, 61), (1498,  0, 25, 61), (1524,  0, 19, 61), (1544,  0, 11, 61),
   (1556,  0,  9, 61), (1566,  0, 37, 61), (1604,  0, 30, 61), (1635,  0, 22, 61),
   (1658,  0, 28, 61), (1687,  0, 16, 61), (1704,  0, 27, 61), (1732,  0, 24, 61),
   (1757,  0, 16, 61), (1774,  0, 15, 61), (1790,  0, 19, 61), (1810,  0, 26, 61),
   (1837,  0, 24, 61), (1862,  0, 26, 61), (1889,  0, 17, 61), (1907,  0, 20, 61),
   (1928,  0, 18, 61), (1947,  0, 20, 61), (1968,  0, 11, 61), (1980,  0,  9, 61),
   (1990,  0,  6, 61), (1997,  0, 14, 61), (2012,  0,  9, 61), (2022,  0, 20, 61),
   (2043,  0,  8, 61), (2052,  0, 21, 61), (2074,  0, 18, 61), (2093,  0, 21, 61),
   (2115,  0,  9, 61), (2125,  0, 23, 61), (2149,  0, 28, 61), (2178,  0, 29, 61),
   (2208,  0, 19, 61), (2228,  0, 33, 61), (2262,  0, 24, 61), (2287,  0, 21, 61),
   (2309,  0, 29, 61), (2339,  0, 29, 61), (2369,  0, 29, 61), (2399,  0, 29, 61),
   (2429,  0, 29, 61), (2459,  0, 29, 61), (2489,  0, 50, 61), (2540,  0, 27, 61),
   (2568,  0, 24, 61), (2593,  0, 24, 61), (2618,  0, 24, 61), (2643,  0, 24, 61),
   (2668,  0, 10, 61), (2679,  0, 11, 61), (2691,  0, 16, 61), (2708,  0, 17, 61),
   (2726,  0, 31, 61), (2758,  0, 28, 61), (2787,  0, 29, 61), (2817,  0, 29, 61),
   (2847,  0, 29, 61), (2877,  0, 29, 61), (2907,  0, 29, 61), (2937,  0, 29, 61),
   (2967,  0, 26, 61), (2994,  0, 26, 61), (3021,  0, 26, 61), (3048,  0, 26, 61),
   (3075,  0, 29, 61), (3105,  0, 27, 61), (3133,  0, 23, 61), (3157,  0, 23, 61),
   (3181,  0, 23, 61), (3205,  0, 23, 61), (3229,  0, 23, 61), (3253,  0, 23, 61),
   (3277,  0, 38, 61), (3316,  0, 22, 61), (3339,  0, 21, 61), (3361,  0, 21, 61),
   (3383,  0, 21, 61), (3405,  0, 21, 61), (3427,  0, 11, 61), (3439,  0, 10, 61),
   (3450,  0, 16, 61), (3467,  0, 16, 61), (3484,  0, 23, 61), (3508,  0, 20, 61),
   (3529,  0, 23, 61), (3553,  0, 23, 61), (3577,  0, 23, 61), (3601,  0, 23, 61),
   (3625,  0, 23, 61), (3649,  0, 23, 61), (3673,  0, 21, 61), (3695,  0, 21, 61),
   (3717,  0, 21, 61), (3739,  0, 21, 61), (3761,  0, 23, 61), (3785,  0, 23, 61));

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

CreateLayer               Main;
LayerSetImage             Main 'KomikaText36';
LayerSetAscent            Main 47;
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 36;

SetDefaultPointSize  36;
