Gorilla.Capsule

Fields

• protected FRadius : Single
  
• protected FSegments : Integer
  
• protected FRings : Integer
  

Methods

• public constructor Create  ( AOwner :  TComponent ) ;
• protected procedure SetRadius  ( const  AValue :  Single ) ;  virtual;
• protected procedure SetSegments  ( const  AValue :  Integer ) ;  virtual;
• protected procedure SetRings  ( const  AValue :  Integer ) ;  virtual;
• protected function PointOnSpheroid  ( ARadius :  Single; AHeight :  Single; AHorizontalAngle :  Single; AVerticalAngle :  Single )  : TPoint3D ;  class;

  Returns a point on a spheroid in geographic coordinate system

  Parameters

  • ARadius :  Single  -  Spheroid radiusSpheroid heightHorizontal angle in degrees [0, 360]Vertical angle in degrees [-90, 90]
  • AHeight :  Single  -  Spheroid radiusSpheroid heightHorizontal angle in degrees [0, 360]Vertical angle in degrees [-90, 90]
  • AHorizontalAngle :  Single  -  Spheroid radiusSpheroid heightHorizontal angle in degrees [0, 360]Vertical angle in degrees [-90, 90]
  • AVerticalAngle :  Single  -  Spheroid radiusSpheroid heightHorizontal angle in degrees [0, 360]Vertical angle in degrees [-90, 90]
• protected procedure RebuildMesh  ( ) ;

  Rebuilds the sphere mesh depending on the configured SubdivisionsAxes and SubdivisionsHeight values.

• protected procedure Resize3D  ( ) ;  override;
• protected procedure CreateStaticBuffer  ( ) ;

  Creates a new static buffer for this sphere mesh in the local mesh definition.

Properties

• published Radius : Single

  The radius of the capsule

  read FRadius
  write SetRadius
  
• published Segments : Integer

  The number of radial segments. Defaults to 32

  read FSegments
  write SetSegments
  
• published Rings : Integer

  The number of end-cap rings. Defaults to 8

  read FRings
  write SetRings
  
• published MaterialSource : TMaterialSource
  read GetMaterialSource
  write SetMaterialSource
  
• published Cursor : TCursor
  read GetCursor
  write SetCursor
  
• published DragMode : TDragMode
  read GetDragMode
  write SetDragMode
  
• published Position : TPosition3D
  read FPosition
  write FPosition
  
• published Scale : TPosition3D
  read FScale
  write FScale
  
• published RotationAngle : TPosition3D
  read FRotationAngle
  write FRotationAngle
  
• published Locked : Boolean
  read FLocked
  write SetLocked
  
• published Opacity : Single
  read FOpacity
  write SetOpacity
  
• published Projection : TProjection
  read FProjection
  write SetProjection
  
• published HitTest : Boolean
  read FHitTest
  write SetHitTest
  
• published VisibleContextMenu : Boolean
  read FVisibleContextMenu
  write FVisibleContextMenu
  
• published TwoSide : Boolean
  read FTwoSide
  write FTwoSide
  
• published Visible : Boolean
  read FVisible
  write SetVisible
  
• published ZWrite : Boolean
  read FZWrite
  write SetZWrite