Define CharList
 ( '0', '1', '2', '3', '4', '5', '6', '7', '8', '9');

Define WidthList
 (  10,  10,  10,  10,  10,  10,  10,  10,  10,  10);

Define RectList
 ( (   0,  0, 13, 25), (  14,  0,  7, 25), (  22,  0, 11, 25), (  34,  0,  8, 25),
   (  43,  0, 13, 25), (  57,  0,  9, 25), (  67,  0,  9, 25), (  77,  0, 10, 25),
   (  88,  0,  9, 25), (  98,  0,  9, 25));

Define OffsetList
 ( ( 1, 0), ( 3, 0), ( 1, 0), ( 3, 0), ( 1, 0), ( 3, 0), ( 3, 0), ( 2, 0),
   ( 3, 0), ( 3, 0));

CreateLayer               Main;
LayerSetImage             Main 'LithosProRegular16';
LayerSetAscent            Main 20;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (6);
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 16;

SetDefaultPointSize  16;
