TGLPathNode

type TGLPathNode = class(TCollectionItem)

protected

  function GetDisplayName; override;

  procedure WriteToFiler();

  procedure ReadFromFiler();

public

  constructor Create(); override;

  destructor Destroy; override;

  function PositionAsAddress;

  function RotationAsAddress;

  function ScaleAsAddress;

  procedure Assign(); override;

  procedure InitializeByObject();

  function EqualNode();

  property RotationAsVector: TVector; [rw]

  property PositionAsVector: TVector; [rw]

  property ScaleAsVector: TVector; [rw]

  property UpAsVector: TVector; [rw]

  property DirectionAsVector: TVector; [rw]

published

  property X: TGLFloat; [rw]

  property Y: TGLFloat; [rw]

  property Z: TGLFloat; [rw]

  property PitchAngle: TGLFloat; [rw]

  property TurnAngle: TGLFloat; [rw]

  property RollAngle: TGLFloat; [rw]

  property ScaleX: TGLFloat; [rw]

  property ScaleY: TGLFloat; [rw]

  property ScaleZ: TGLFloat; [rw]

  property DirectionX: TGLFloat; [rw]

  property DirectionY: TGLFloat; [rw]

  property DirectionZ: TGLFloat; [rw]

  property UpX: TGLFloat; [rw]

  property UpY: TGLFloat; [rw]

  property UpZ: TGLFloat; [rw]

  property Speed: Single; [rw]

end;

TGLPathNode

TObject