vector

type vector = object

  i: ArbFloat;

  j: ArbFloat;

  k: ArbFloat;

  procedure Init();

  procedure Unary;

  procedure Add();

  procedure Sub();

  function Vi;

  function Vj;

  function Vk;

  function Norm;

  function Norm8;

  function Size;

  function InProd();

  procedure Uitprod();

  procedure Scale();

  procedure DScale();

  procedure Normalize;

  procedure Rotate();

  procedure Show();

end;

vector

TObject