TPoint3D

type TPoint3D = record

public

type

  TPoint3DArray = array [0..2] of Single;

public

  class function Create();

  class function Zero;

  class operator add(TPoint3D,TPoint3D):TPoint3D();

  class operator divide(TPoint3D,Single):TPoint3D();

  class operator equal(TPoint3D,TPoint3D):Boolean();

  class operator multiply(Single,TPoint3D):TPoint3D();

  class operator multiply(TPoint3D,Single):TPoint3D();

  class operator multiply(TPoint3D,TPoint3D):TPoint3D();

  class operator negative(TPoint3D):TPoint3D();

  class operator notequal(TPoint3D,TPoint3D):Boolean();

  class operator subtract(TPoint3D,TPoint3D):TPoint3D();

  function AngleCosine();

  function CrossProduct();

  function Distance();

  function DotProduct();

  function EqualsTo();

  function Length;

  function MidPoint();

  function Normalize;

  procedure Offset();

  function Reflect();

  function Rotate();

  function ToString;

  case Integer of

    0: (

        V: TPoint3DArray;

      );

    1: (

        X: Single;

        Y: Single;

        Z: Single;

      );

end;