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');
Define WidthList
( 19, 15, 24, 19, 18, 17, 23, 20, 6, 13, 23, 13, 26, 21, 29, 16,
29, 22, 16, 18, 19, 19, 32, 25, 24, 21);
Define RectList
( ( 0, 0, 22, 41), ( 23, 0, 17, 41), ( 41, 0, 27, 41), ( 69, 0, 22, 41),
( 92, 0, 20, 41), ( 113, 0, 18, 41), ( 132, 0, 26, 41), ( 159, 0, 22, 41),
( 182, 0, 8, 41), ( 191, 0, 15, 41), ( 207, 0, 25, 41), ( 233, 0, 16, 41),
( 250, 0, 27, 41), ( 278, 0, 23, 41), ( 302, 0, 33, 41), ( 336, 0, 18, 41),
( 355, 0, 33, 41), ( 389, 0, 24, 41), ( 414, 0, 18, 41), ( 433, 0, 20, 41),
( 454, 0, 21, 41), ( 476, 0, 22, 41), ( 499, 0, 35, 41), ( 535, 0, 28, 41),
( 564, 0, 27, 41), ( 592, 0, 23, 41));
Define OffsetList
( (-1, 0), (-1, 0), (-2, 0), (-1, 0), (-2, 0), ( 0, 0), (-1, 0), (-1, 0),
(-1, 0), (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-1, 0), (-2, 0), (-1, 0),
(-2, 0), (-1, 0), (-2, 0), (-2, 0), (-1, 0), (-2, 0), (-1, 0), (-2, 0),
(-2, 0), (-1, 0));
Define KerningPairs
("AA","AC","AO","BC","BG","BO","BS","BV","BW","CA","CS","DA","DV","DY","FA","GA",
"JA","KA","KC","KO","KW","KY","LT","LU","LV","LW","LY","OA","OV","OX","OY","PA",
"RT","RV","RW","RY","TA","UA","VA","VO","WA","XA","XC","XO","YA","YC");
Define KerningValues
( -1, -1, -1, -1, -1, -1, -1, -2, -1, -1, -1, -2, -1, -2, -2, -1,
-2, -1, -3, -3, -4, -4, -2, -1, -4, -4, -4, -1, -1, -2, -2, -4,
-5, -5, -4, -5, -6, -2, -1, -1, -4, -1, -3, -3, -6, -2);
CreateLayer Main;
LayerSetImage Main 'QuincyCaps26';
LayerSetAscent Main 32;
LayerSetCharWidths Main CharList WidthList;
LayerSetCharWidths Main (' ') (20);
LayerSetKerningPairs Main KerningPairs KerningValues;
LayerSetImageMap Main CharList RectList;
LayerSetCharOffsets Main CharList OffsetList;
LayerSetAscentPadding Main 4;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize Main 26;
SetDefaultPointSize 26;