agg: Add agg_renderer_base.fill(color) method for blending a color.

This complements the clear(color) method, which copies the color.
This is a port of r82 from AGG project on SourceForge.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/corelib/render/software/agg_renderer_base.pas b/src/corelib/render/software/agg_renderer_base.pas
index 926aebd5..cc2bade4 100644
--- a/src/corelib/render/software/agg_renderer_base.pas
+++ b/src/corelib/render/software/agg_renderer_base.pas
@@ -79,6 +79,7 @@ type
    function  bounding_ymax : int; virtual;
 
    procedure clear(c : aggclr_ptr );
+   procedure fill(const c: aggclr_ptr);
 
    procedure copy_pixel (x ,y : int; c : aggclr_ptr ); virtual;
    procedure blend_pixel(x ,y : int; c : aggclr_ptr; cover : int8u ); virtual;
@@ -348,6 +349,17 @@ begin
 
 end;
 
+procedure renderer_base.fill(const c: aggclr_ptr);
+var
+  y: unsigned;
+begin
+  if (width > 0) and (height > 0) then
+  begin
+    for y:=0 to height - 1 do
+      m_ren.blend_hline(m_ren, 0, y, width, c, cover_mask);
+  end;
+end;
+
 { COPY_PIXEL }
 procedure renderer_base.copy_pixel(x, y: int; c: aggclr_ptr);
 begin