TECPoint

type TECPoint = class(TInterfacedObject,IECPoint)

strict protected

  FEMPTY_ZS: ;

  Fm_zs: ;

  Fm_withCompression: Boolean;

  Fm_curve: IECCurve;

  Fm_x: IECFieldElement;

  Fm_y: IECFieldElement;

  function GetIsInfinity;

  function GetIsCompressed;

  function GetpreCompTable;

  procedure SetpreCompTable();

  function GetCurve; virtual;

  function GetCurveCoordinateSystem; virtual;

  function GetAffineXCoord; virtual;

  function GetAffineYCoord; virtual;

  function GetXCoord; virtual;

  function GetCompressionYTilde; virtual; abstract;

  constructor Create();

  function SatisfiesOrder; virtual;

  function SatisfiesCurveEquation; virtual; abstract;

  function Detach; virtual; abstract;

  function RawXCoord;

  function RawYCoord;

  function RawZCoords;

  function CreateScaledPoint(); virtual;

  procedure CheckNormalized; virtual;

  property CurveCoordinateSystem: Int32; [r]

  property CompressionYTilde: Boolean; [r]

  class function GetInitialZCoords();

public

  Fm_preCompTable: TDictionary;

  function GetYCoord; virtual;

  destructor Destroy; override;

  function GetDetachedPoint;

  function GetZCoord(); virtual;

  function GetZCoords; virtual;

  function IsNormalized; virtual;

  function Normalize();

  function ImplIsValid();

  function IsValid;

  function IsValidPartial;

  function ScaleX(); virtual;

  function ScaleY(); virtual;

  function ScaleXNegateY(); virtual;

  function ScaleYNegateX(); virtual;

  function GetEncoded();

  function Add(); virtual; abstract;

  function Subtract(); virtual; abstract;

  function Negate; virtual; abstract;

  function TimesPow2(); virtual;

  function Twice; virtual; abstract;

  function Multiply(); virtual; abstract;

  function TwicePlus(); virtual;

  function ThreeTimes; virtual;

  function Equals();

  function GetHashCode; override;

  function ToString; override;

  property preCompTable: TDictionary; [rw]

  property AffineXCoord: IECFieldElement; [r]

  property AffineYCoord: IECFieldElement; [r]

  property XCoord: IECFieldElement; [r]

  property YCoord: IECFieldElement; [r]

  property curve: IECCurve; [r]

  property IsInfinity: Boolean; [r]

  property IsCompressed: Boolean; [r]

end;

TECPoint

TObject,IECPoint