Define CharList ( '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '!', '$', '%', '-', '=', '+', ':'); Define WidthList ( 73, 41, 67, 71, 68, 67, 71, 53, 80, 73, 39, 69, 71, 46, 46, 56, 35); Define RectList ( ( 0, 0, 87, 177), ( 88, 0, 55, 177), ( 144, 0, 83, 177), ( 228, 0, 87, 177), ( 316, 0, 82, 177), ( 399, 0, 84, 177), ( 484, 0, 87, 177), ( 572, 0, 69, 177), ( 642, 0, 96, 177), ( 739, 0, 87, 177), ( 827, 0, 51, 177), ( 879, 0, 83, 177), ( 0, 177, 85, 177), ( 86, 177, 61, 177), ( 148, 177, 61, 177), ( 210, 177, 71, 177), ( 282, 177, 48, 177)); Define OffsetList ( (-11, 0), (-13, 0), (-13, 0), (-12, 0), (-11, 0), (-13, 0), (-12, 0), (-13, 0), (-12, 0), (-12, 0), (-10, 0), (-12, 0), (-10, 0), (-13, 0), (-13, 0), (-13, 0), (-12, 0)); Define KerningPairs ("34","67","78","89"); Define KerningValues ( -7, -8, -9, -9); CreateLayer Main; LayerSetImage Main 'wog150numbers'; LayerSetAscent Main 140; LayerSetCharWidths Main CharList WidthList; LayerSetCharWidths Main (' ') (47); LayerSetKerningPairs Main KerningPairs KerningValues; LayerSetImageMap Main CharList RectList; LayerSetCharOffsets Main CharList OffsetList; LayerSetAscentPadding Main 14; LayerSetLineSpacingOffset Main 14; LayerSetPointSize Main 150; SetDefaultPointSize 150;
lucek_baran