package body MSHTML.ISVGAnimatedPoints_Object is

   procedure PutRef_points
     (This : ISVGAnimatedPoints_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         ISVGAnimatedPoints_PutRef_points,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_points;

   function Get_points
     (This : ISVGAnimatedPoints_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGAnimatedPoints_Get_points);
   end Get_points;

   procedure PutRef_animatedPoints
     (This : ISVGAnimatedPoints_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         ISVGAnimatedPoints_PutRef_animatedPoints,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_animatedPoints;

   function Get_animatedPoints
     (This : ISVGAnimatedPoints_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGAnimatedPoints_Get_animatedPoints);
   end Get_animatedPoints;

end MSHTML.ISVGAnimatedPoints_Object;

