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

Define WidthList
 (   9,   9,   9,   9,   9,   9,   9,   9,   9,   9 );

Define RectList
 ( (   0,  0,  5, 13), (  10,  0,  7, 13), (  21,  0,  8, 13), (  33,  0,  7, 13),
   (  44,  0,  7, 13), (  56,  0,  7, 13), (  68,  0,  7, 13), (  78,  0,  8, 13),
   (  90,  0,  7, 13), ( 101,  0,  7, 13) );

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

CreateLayer               Main;
LayerSetImage             Main 'Ceramic_earn';
LayerSetAscent            Main 13;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (9);
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 13;

SetDefaultPointSize  13;
