{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }

procedure ExtendFont ;

var
     lm, rm         : integer ;

begin
                                { plot character with overlay patterns }
   PlotChar (lm,rm) ;
                                { fill character voids }
   FillChar (lm,rm) ;
                                { rasterize character }
   RasterChar (lm,rm)

end ;

{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }