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', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '-', '?', '!', '@', "'", '"', '.', '*', ':', ',' ); Define WidthList (28, 24, 24, 25, 24, 24, 26, 24, 10, 24, 25, 23, 41, 28, 28, 24, 30, 25, 25, 20, 24, 29, 41, 28, 29, 26, 30, 14, 26, 24, 24, 26, 26, 24, 25, 25, 21, 15, 24, 9, 27, 8, 15, 7, 21, 8, 9 ); Define RectList ((1,0,32,43) , (34,0,28,43) , (64,0,28,43) , (94,0,29,43) , (125,0,28,43) , (155,0,28,43) , (184,0,30,43) , (216,0,28,43) , (248,0,14,43) , (265,0,28,43) , (295,0,29,43) , (327,0,27,43) , (355,0,45,43) , (402,0,32,43) , (437,0,32,43) , (472,0,28,43) , (501,0,34,43) , (537,0,29,43) , (568,0,29,43) , (599,0,24,43) , (625,0,28,43) , (655,0,33,43) , (690,0,45,43) , (736,0,32,43) , (769,0,33,43) , (803,0,30,43) , (835,0,34,43) , (871,0,18,43) , (891,0,30,43) , (924,0,28,43) , (955,0,28,43) , (985,0,30,43) , (1017,0,30,43) , (1049,0,28,43) , (1080,0,29,43) , (1111,0,29,43) , (1143,0,25,43) , (1176,0,19,43) , (1199,0,28,43) , (1229,0,13,43) , (1244,0,31,43) , (1278,0,12,43) , (1294,0,19,43) , (1313,0,11,43) , (1326,0,25,43) , (1354,0,12,43) , (1369,0,13,43) ); CreateLayer Main; LayerSetImage Main '../images/announcefont'; LayerSetImageMap Main CharList RectList; LayerSetAscent Main 30; LayerSetCharWidths Main CharList WidthList; LayerSetCharWidths Main (' ') (15);
pauloczips