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

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

Define RectList
 ( (   0,  0,  6, 16), (  11,  0,  9, 16), (  24,  0,  9, 16), (  36,  0, 10, 16),
   (  49,  0,  9, 16), (  62,  0,  9, 16), (  75,  0,  9, 16), (  87,  0,  9, 16),
   ( 100,  0,  9, 16), ( 113,  0,  9, 16) );

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

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

SetDefaultPointSize  16;
