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

Define WidthList
 (  43,  43,  43,  43,  43,  43,  43,  43,  43,  43);

Define RectList
 ( (   0,  0, 47,100), (  48,  0, 36,100), (  85,  0, 48,100), ( 134,  0, 48,100),
   ( 183,  0, 50,100), ( 234,  0, 49,100), ( 284,  0, 48,100), ( 333,  0, 47,100),
   ( 381,  0, 47,100), ( 429,  0, 48,100));

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

CreateLayer               Main;
LayerSetImage             Main 'CalenderCustom';
LayerSetAscent            Main 75;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (21);
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 5;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 48;

SetDefaultPointSize  48;
