Class TMovableEngine (unit uTMovableEngine) |
Inherits from
TObject
constructor Create(OutputCanvas : TCanvas);
- ******************************************************************************
destructor Destroy;
******************************************************************************
procedure GetClosestMovables(MyMovable : TMovable; CloseList : TList);
******************************************************************************
function GetClosestObstacle(MyMovable : TMovable) : TMovable;
******************************************************************************
procedure RunStep;
******************************************************************************
procedure SetNewCanvas(OutputCanvas : TCanvas);
******************************************************************************
Application : TApplication;
bBlanking : boolean;
bDrawGraphics : boolean;
Canvas : TCanvas;
CheckChancePerFrame : integer;
75% chance of checking the neighbourhood! The rest of the time the old info is re-used.
LineLength : single;
MaxSpeed : single;
For speed testing
MaxSpeedChange : single;
MovableList : Tlist;
ObstacleList : TList;
SensorDistance : single;
constructor Create(OutputCanvas : TCanvas);
******************************************************************************
destructor Destroy;
******************************************************************************
procedure GetClosestMovables(MyMovable : TMovable; CloseList : TList);
******************************************************************************
function GetClosestObstacle(MyMovable : TMovable) : TMovable;
******************************************************************************
procedure RunStep;
******************************************************************************
procedure SetNewCanvas(OutputCanvas : TCanvas);
******************************************************************************
Application : TApplication;
bBlanking : boolean;
bDrawGraphics : boolean;
Canvas : TCanvas;
CheckChancePerFrame : integer;
75% chance of checking the neighbourhood! The rest of the time the old info is re-used. Saves on cycles!
LineLength : single;
MaxSpeed : single;
For speed testing
MaxSpeedChange : single;
MovableList : Tlist;
ObstacleList : TList;
SensorDistance : single;