anchor.diff:      R, G, B, A: Byte;
   
       {$IFDEF CAN_METHODS}
  -    procedure Clear();
  +    procedure Clear(anAlpha: Byte = 255);
       procedure Make(aR, aG, aB: Byte; anA: Byte = 255);
   
       function ToString(): String;
  
positive.code: 
    Result := @tmpVec;
  end;
  	
  procedure TelVector2f.Add(Vector: TelVector2f);
  begin
    Self.X := Self.X + Vector.X;
  
negative.code:   TelShadow = record
      Blur: Integer;
      Color: TelColor;
      Position: TelVector2f;
      Visible: Boolean;
    end;
  
  