anchor.diff:  end;
   
   { FILLRADIALGRADIENT }
  -procedure TAgg2D.FillRadialGradient(x ,y ,r : double; c1 ,c2 : TAggColor; profile : double = 1.0 );
  +procedure TAgg2D.FillRadialGradient(const x ,y ,r : double; c1 ,c2 : TAggColor; profile : double = 1.0 );
   var
    i ,startGradient ,endGradient : int;
   
  
positive.code: 
    // Basic Shapes
     procedure Line     (x1 ,y1 ,x2 ,y2 : double );
     procedure Triangle (x1 ,y1 ,x2 ,y2 ,x3 ,y3 : double );
     procedure Rectangle(x1 ,y1 ,x2 ,y2 : double );
  
     procedure RoundedRect(x1 ,y1 ,x2 ,y2 ,r : double ); overload;
     procedure RoundedRect(x1 ,y1 ,x2 ,y2 ,rx ,ry : double ); overload;
     procedure RoundedRect(
                x1 ,y1 ,x2 ,y2 ,
                rxBottom ,ryBottom ,
                rxTop ,ryTop : double ); overload;
  
     procedure Ellipse(cx ,cy ,rx ,ry : double );
  
     procedure Arc (cx ,cy ,rx ,ry ,start ,sweep : double );
     procedure Star(cx ,cy ,r1 ,r2 ,startAngle : double; numRays : integer );
  
     procedure Curve(x1 ,y1 ,x2 ,y2 ,x3 ,y3 : double ); overload;
     procedure Curve(x1 ,y1 ,x2 ,y2 ,x3 ,y3 ,x4 ,y4 : double ); overload;
  
     procedure Polygon (xy : PDouble; numPoints : integer );
     procedure Polyline(xy : PDouble; numPoints : integer );
  
    // Path Commands
     procedure ResetPath;
  
     procedure MoveTo (x ,y : double );
     procedure MoveRel(dx ,dy : double );
  
     procedure LineTo (x ,y : double );
     procedure LineRel(dx ,dy : double );
  
     procedure HorLineTo (x : double );
     procedure HorLineRel(dx : double );
  
     procedure VerLineTo (y : double );
     procedure VerLineRel(dy : double );
  
     procedure ArcTo(
                rx ,ry ,angle : double;
  
negative.code: end;
  
  { LINERADIALGRADIENT }
  procedure TAgg2D.LineRadialGradient(const x ,y ,r : double; c1 ,c2 : TAggColor; profile : double = 1.0 );
  var
   i ,startGradient ,endGradient : int;
  
  