agg: code completion of method parameters for some units.

The implementation section of the units did not have the method parameters
specified. This is allowed, but makes it hard to work in the implementation
section.

3 files changed, 77 insertions, 68 deletions

diff --git a/src/corelib/render/software/agg_basics.pas b/src/corelib/render/software/agg_basics.pas
index 17833522..cc116cfe 100644
--- a/src/corelib/render/software/agg_basics.pas
+++ b/src/corelib/render/software/agg_basics.pas
@@ -448,7 +448,7 @@ begin
 end;
 
 { NORMALIZE }
-function rect.normalize;
+function rect.normalize: rect_ptr;
 var
  t : int;
 
@@ -474,7 +474,7 @@ begin
 end;
 
 { CLIP }
-function rect.clip;
+function rect.clip(r: rect_ptr): boolean;
 begin
  if x2 > r.x2 then
   x2:=r.x2;
@@ -493,7 +493,7 @@ begin
 end;
 
 { IS_VALID }
-function rect.is_valid;
+function rect.is_valid: boolean;
 begin
  result:=(x1 <= x2 ) and (y1 <= y2 );
 
diff --git a/src/corelib/render/software/agg_rasterizer_scanline_aa.pas b/src/corelib/render/software/agg_rasterizer_scanline_aa.pas
index a668a6e0..bd254246 100644
--- a/src/corelib/render/software/agg_rasterizer_scanline_aa.pas
+++ b/src/corelib/render/software/agg_rasterizer_scanline_aa.pas
@@ -1352,21 +1352,21 @@ begin
 end;
 
 { FILLING_RULE }
-procedure rasterizer_scanline_aa.filling_rule;
+procedure rasterizer_scanline_aa.filling_rule(filling_rule_: filling_rule_e);
 begin
  m_filling_rule:=filling_rule_;
 
 end;
 
 { AUTO_CLOSE }
-procedure rasterizer_scanline_aa.auto_close;
+procedure rasterizer_scanline_aa.auto_close(flag: boolean);
 begin
  m_auto_close:=flag;
 
 end;
 
 { CLIP_BOX }
-procedure rasterizer_scanline_aa.clip_box;
+procedure rasterizer_scanline_aa.clip_box(x1, y1, x2, y2: double);
 begin
  reset;
 
@@ -1382,7 +1382,7 @@ begin
 end;
 
 { GAMMA }
-procedure rasterizer_scanline_aa.gamma;
+procedure rasterizer_scanline_aa.gamma(gamma_function: vertex_source_ptr);
 var
  i : int;
 
@@ -1395,14 +1395,14 @@ begin
 end;
 
 { APPLY_GAMMA }
-function rasterizer_scanline_aa.apply_gamma;
+function rasterizer_scanline_aa.apply_gamma(cover: unsigned): unsigned;
 begin
  result:=m_gamma[cover ]; 
 
 end;
 
 { MOVE_TO_NO_CLIP }
-procedure rasterizer_scanline_aa.move_to_no_clip;
+procedure rasterizer_scanline_aa.move_to_no_clip(x, y: int);
 begin
  if (m_status = status_line_to ) and
     m_auto_close then
@@ -1418,7 +1418,7 @@ begin
 end;
 
 { LINE_TO_NO_CLIP }
-procedure rasterizer_scanline_aa.line_to_no_clip;
+procedure rasterizer_scanline_aa.line_to_no_clip(x, y: int);
 begin
 if m_status <> status_initial then
  begin
@@ -1455,7 +1455,7 @@ begin
 end;
 
 { CLIP_SEGMENT }
-procedure rasterizer_scanline_aa.clip_segment;
+procedure rasterizer_scanline_aa.clip_segment(x, y: int);
 var
  flags ,n : unsigned;
 
@@ -1502,21 +1502,21 @@ begin
 end;
 
 { MOVE_TO_D }
-procedure rasterizer_scanline_aa.move_to_d;
+procedure rasterizer_scanline_aa.move_to_d(x, y: double);
 begin
  move_to(poly_coord(x ) ,poly_coord(y ) );
 
 end;
 
 { LINE_TO_D }
-procedure rasterizer_scanline_aa.line_to_d;
+procedure rasterizer_scanline_aa.line_to_d(x, y: double);
 begin
  line_to(poly_coord(x ) ,poly_coord(y ) );
 
 end;
 
 { MOVE_TO }
-procedure rasterizer_scanline_aa.move_to;
+procedure rasterizer_scanline_aa.move_to(x, y: int);
 begin
  if m_clipping then
   begin
@@ -1545,7 +1545,7 @@ begin
 end;
 
 { LINE_TO }
-procedure rasterizer_scanline_aa.line_to;
+procedure rasterizer_scanline_aa.line_to(x, y: int);
 begin
  if m_clipping then
   clip_segment(x ,y )
@@ -1562,7 +1562,7 @@ begin
 end;
 
 { REWIND_SCANLINES }
-function rasterizer_scanline_aa.rewind_scanlines;
+function rasterizer_scanline_aa.rewind_scanlines: boolean;
 begin
  if m_auto_close then
   close_polygon;
@@ -1583,7 +1583,7 @@ begin
 end;
 
 { SWEEP_SCANLINE }
-function rasterizer_scanline_aa.sweep_scanline;
+function rasterizer_scanline_aa.sweep_scanline(sl: scanline_ptr): boolean;
 var
  x     ,
  area  ,
@@ -1678,7 +1678,7 @@ begin
 end;
 
 { NAVIGATE_SCANLINE }
-function rasterizer_scanline_aa.navigate_scanline;
+function rasterizer_scanline_aa.navigate_scanline(y: int): boolean;
 begin
  if m_auto_close then
   close_polygon;
@@ -1701,7 +1701,7 @@ begin
 end;
 
 { HIT_TEST }
-function rasterizer_scanline_aa.hit_test;
+function rasterizer_scanline_aa.hit_test(tx, ty: int): boolean;
 var
  sl : scanline_hit_test;
 
@@ -1722,35 +1722,35 @@ begin
 end;
 
 { _MIN_X }
-function rasterizer_scanline_aa._min_x;
+function rasterizer_scanline_aa._min_x: int;
 begin
  result:=m_outline._min_x;
 
 end;
 
 { _MIN_Y }
-function rasterizer_scanline_aa._min_y;
+function rasterizer_scanline_aa._min_y: int;
 begin
  result:=m_outline._min_y;
 
 end;
 
 { _MAX_X }
-function rasterizer_scanline_aa._max_x;
+function rasterizer_scanline_aa._max_x: int;
 begin
  result:=m_outline._max_x;
 
 end;
 
 { _MAX_Y }
-function rasterizer_scanline_aa._max_y;
+function rasterizer_scanline_aa._max_y: int;
 begin
  result:=m_outline._max_y;
 
 end;
 
 { CALCULATE_ALPHA }
-function rasterizer_scanline_aa.calculate_alpha;
+function rasterizer_scanline_aa.calculate_alpha(area: int): unsigned;
 var
  cover : system.integer;
 
@@ -1779,7 +1779,7 @@ begin
 end;
 
 { ADD_PATH }
-procedure rasterizer_scanline_aa.add_path;
+procedure rasterizer_scanline_aa.add_path(vs: vertex_source_ptr; path_id: unsigned);
 var
  cmd  : unsigned;
  x ,y : double;
@@ -1800,7 +1800,7 @@ begin
 end;
 
 { ADD_VERTEX }
-procedure rasterizer_scanline_aa.add_vertex;
+procedure rasterizer_scanline_aa.add_vertex(x, y: double; cmd: unsigned);
 begin
  if is_close(cmd ) then
   close_polygon
diff --git a/src/corelib/render/software/agg_renderer_base.pas b/src/corelib/render/software/agg_renderer_base.pas
index aa284423..926aebd5 100644
--- a/src/corelib/render/software/agg_renderer_base.pas
+++ b/src/corelib/render/software/agg_renderer_base.pas
@@ -127,7 +127,7 @@ type
               dy : int = 0;
               cover : int8u = cover_full );
 
-  end;
+ end;
 
 { GLOBAL PROCEDURES }
 
@@ -135,7 +135,7 @@ type
 IMPLEMENTATION
 { UNIT IMPLEMENTATION }
 { CONSTRUCT }
-constructor renderer_base.Construct;
+constructor renderer_base.Construct(ren_: pixel_formats_ptr);
 var
  w ,h : int;
 
@@ -159,28 +159,28 @@ begin
 end;
 
 { REN }
-function renderer_base.ren;
+function renderer_base.ren: pixel_formats_ptr;
 begin
  result:=m_ren;
  
 end;
 
 { WIDTH }
-function renderer_base.width;
+function renderer_base.width: unsigned;
 begin
  result:=m_ren._width;
 
 end;
 
 { HEIGHT }
-function renderer_base.height;
+function renderer_base.height: unsigned;
 begin
  result:=m_ren._height;
 
 end;
 
 { CLIP_BOX_NAKED }
-procedure renderer_base.clip_box_naked;
+procedure renderer_base.clip_box_naked(x1, y1, x2, y2: int);
 begin
  m_clip_box.x1:=x1;
  m_clip_box.y1:=y1;
@@ -190,7 +190,7 @@ begin
 end;
 
 { INBOX }
-function renderer_base.inbox;
+function renderer_base.inbox(x, y: int): boolean;
 begin
  result:=
   (x >= m_clip_box.x1 ) and
@@ -201,7 +201,7 @@ begin
 end;
 
 { CLIP_BOX_ }
-function renderer_base.clip_box_;
+function renderer_base.clip_box_(x1, y1, x2, y2: int): boolean;
 var
  cb ,
  rc : rect;
@@ -232,7 +232,7 @@ begin
 end;
 
 { RESET_CLIPPING }
-procedure renderer_base.reset_clipping;
+procedure renderer_base.reset_clipping(visibility: boolean);
 begin
  if visibility then
   begin
@@ -259,84 +259,84 @@ begin
 end;
 
 { NEXT_CLIP_BOX }
-function renderer_base.next_clip_box;
+function renderer_base.next_clip_box: boolean;
 begin
  result:=false;
 
 end;
 
 { _CLIP_BOX }
-function renderer_base._clip_box;
+function renderer_base._clip_box: rect_ptr;
 begin
  result:=@m_clip_box;
 
 end;
 
 { _XMIN }
-function renderer_base._xmin;
+function renderer_base._xmin: int;
 begin
  result:=m_clip_box.x1;
 
 end;
 
 { _YMIN }
-function renderer_base._ymin;
+function renderer_base._ymin: int;
 begin
  result:=m_clip_box.y1;
 
 end;
 
 { _XMAX }
-function renderer_base._xmax;
+function renderer_base._xmax: int;
 begin
  result:=m_clip_box.x2;
 
 end;
 
 { _YMAX }
-function renderer_base._ymax;
+function renderer_base._ymax: int;
 begin
  result:=m_clip_box.y2;
 
 end;
 
 { BOUNDING_CLIP_BOX }
-function renderer_base.bounding_clip_box;
+function renderer_base.bounding_clip_box: rect_ptr;
 begin
  result:=@m_clip_box;
 
 end;
 
 { BOUNDING_XMIN }
-function renderer_base.bounding_xmin;
+function renderer_base.bounding_xmin: int;
 begin
  result:=m_clip_box.x1;
 
 end;
 
 { BOUNDING_YMIN }
-function renderer_base.bounding_ymin;
+function renderer_base.bounding_ymin: int;
 begin
  result:=m_clip_box.y1;
 
 end;
 
 { BOUNDING_XMAX }
-function renderer_base.bounding_xmax;
+function renderer_base.bounding_xmax: int;
 begin
  result:=m_clip_box.x2;
 
 end;
 
 { BOUNDING_YMAX }
-function renderer_base.bounding_ymax;
+function renderer_base.bounding_ymax: int;
 begin
  result:=m_clip_box.y2;
 
 end;
 
 { CLEAR }
-procedure renderer_base.clear;
+procedure renderer_base.clear(c: aggclr_ptr);
 var
  y : unsigned;
 
@@ -349,7 +349,7 @@ begin
 end;
 
 { COPY_PIXEL }
-procedure renderer_base.copy_pixel;
+procedure renderer_base.copy_pixel(x, y: int; c: aggclr_ptr);
 begin
  if inbox(x ,y ) then
   m_ren.copy_pixel(m_ren ,x ,y ,c );
@@ -357,7 +357,7 @@ begin
 end;
 
 { BLEND_PIXEL }
-procedure renderer_base.blend_pixel;
+procedure renderer_base.blend_pixel(x, y: int; c: aggclr_ptr; cover: int8u);
 begin
  if inbox(x ,y ) then
   m_ren.blend_pixel(m_ren ,x ,y ,c ,cover );
@@ -365,7 +365,7 @@ begin
 end;
 
 { PIXEL }
-function renderer_base.pixel;
+function renderer_base.pixel(x, y: int): aggclr;
 begin
  if inbox(x ,y ) then
   result:=m_ren.pixel(m_ren ,x ,y )
@@ -375,7 +375,7 @@ begin
 end;
 
 { COPY_HLINE }
-procedure renderer_base.copy_hline;
+procedure renderer_base.copy_hline(x1, y, x2: int; c: aggclr_ptr);
 var
  t : int;
 
@@ -411,7 +411,7 @@ begin
 end;
 
 { COPY_VLINE }
-procedure renderer_base.copy_vline;
+procedure renderer_base.copy_vline(x, y1, y2: int; c: aggclr_ptr);
 var
  t : int;
 
@@ -447,7 +447,7 @@ begin
 end;
 
 { BLEND_HLINE }
-procedure renderer_base.blend_hline;
+procedure renderer_base.blend_hline(x1, y, x2: int; c: aggclr_ptr; cover: int8u);
 var
  t : int;
 
@@ -483,7 +483,7 @@ begin
 end;
 
 { BLEND_VLINE }
-procedure renderer_base.blend_vline;
+procedure renderer_base.blend_vline(x, y1, y2: int; c: aggclr_ptr; cover: int8u);
 var
  t : int;
 
@@ -519,7 +519,7 @@ begin
 end;
 
 { COPY_BAR }
-procedure renderer_base.copy_bar;
+procedure renderer_base.copy_bar(x1, y1, x2, y2: int; c: aggclr_ptr);
 var
  y  : int;
  rc : rect;
@@ -545,7 +545,7 @@ begin
 end;
 
 { BLEND_BAR }
-procedure renderer_base.blend_bar;
+procedure renderer_base.blend_bar(x1, y1, x2, y2: int; c: aggclr_ptr; cover: int8u);
 var
  rc : rect;
  y  : int;
@@ -571,12 +571,14 @@ begin
 end;
 
 { SPAN - not_implemented}
-function renderer_base.span;
+{$NOTE renderer_base.span not implemented yet}
+function renderer_base.span(x, y: int; len: unsigned): pointer;
 begin
 end;
 
 { BLEND_SOLID_HSPAN }
-procedure renderer_base.blend_solid_hspan;
+procedure renderer_base.blend_solid_hspan(x, y, len: int; c: aggclr_ptr;
+covers: int8u_ptr);
 begin
  if y > _ymax then
   exit;
@@ -611,7 +613,8 @@ begin
 end;
 
 { BLEND_SOLID_VSPAN }
-procedure renderer_base.blend_solid_vspan;
+procedure renderer_base.blend_solid_vspan(x, y, len: int; c: aggclr_ptr;
+covers: int8u_ptr);
 begin
  if x > _xmax then
   exit;
@@ -646,7 +649,7 @@ begin
 end;
 
 { COPY_COLOR_HSPAN }
-procedure renderer_base.copy_color_hspan;
+procedure renderer_base.copy_color_hspan(x, y, len: int; colors: aggclr_ptr);
 var
  d : int;
 
@@ -686,7 +689,8 @@ begin
 end;
 
 { BLEND_COLOR_HSPAN }
-procedure renderer_base.blend_color_hspan;
+procedure renderer_base.blend_color_hspan(x, y, len: int; colors: aggclr_ptr;
+covers: int8u_ptr; cover: int8u);
 var
  d : int;
 
@@ -729,7 +733,8 @@ begin
 end;
 
 { BLEND_COLOR_VSPAN }
-procedure renderer_base.blend_color_vspan;
+procedure renderer_base.blend_color_vspan(x, y, len: int; colors: aggclr_ptr;
+covers: int8u_ptr; cover: int8u);
 var
  d : int;
 
@@ -772,26 +777,28 @@ begin
 end;
 
 { COPY_COLOR_HSPAN_NO_CLIP - not_implemented}
-procedure renderer_base.copy_color_hspan_no_clip;
+procedure renderer_base.copy_color_hspan_no_clip(x, y, len: int; colors: aggclr_ptr);
 begin
 end;
 
 { BLEND_COLOR_HSPAN_NO_CLIP }
-procedure renderer_base.blend_color_hspan_no_clip;
+procedure renderer_base.blend_color_hspan_no_clip(x, y, len: int; colors: aggclr_ptr;
+covers: int8u_ptr; cover: int8u);
 begin
  m_ren.blend_color_hspan(m_ren ,x ,y ,len ,colors ,covers ,cover );
 
 end;
 
 { BLEND_COLOR_VSPAN_NO_CLIP }
-procedure renderer_base.blend_color_vspan_no_clip;
+procedure renderer_base.blend_color_vspan_no_clip(x, y, len: int; colors: aggclr_ptr;
+covers: int8u_ptr; cover: int8u);
 begin
  m_ren.blend_color_vspan(m_ren ,x ,y ,len ,colors ,covers ,cover );
 
 end;
 
 { CLIP_RECT_AREA }
-function renderer_base.clip_rect_area;
+function renderer_base.clip_rect_area(dst, src: rect_ptr; wsrc, hsrc: int): rect;
 var
  rc ,cb : rect;
 
@@ -857,7 +864,8 @@ begin
 end;
 
 { COPY_FROM }
-procedure renderer_base.copy_from;
+procedure renderer_base.copy_from(src: rendering_buffer_ptr; rect_src_ptr: rect_ptr;
+dx: int; dy: int);
 var
  rsrc ,rdst ,rc : rect;
 
@@ -908,7 +916,8 @@ begin
 end;
 
 { BLEND_FROM }
-procedure renderer_base.blend_from;
+procedure renderer_base.blend_from(src: pixel_formats_ptr; rect_src_ptr: rect_ptr;
+dx: int; dy: int; cover: int8u);
 var
  rsrc ,rdst ,rc : rect;