| Class TMovableEngine (unit uTMovableEngine) |
TObject
| Constructors |
constructor Create(OutputCanvas : TCanvas);| Functions |
destructor Destroy;
procedure GetClosestMovables(MyMovable : TMovable; CloseList : TList);
function GetClosestObstacle(MyMovable : TMovable) : TMovable;
procedure RunStep;
procedure SetNewCanvas(OutputCanvas : TCanvas);| Properties |
| Events |
| Variables |
Application : TApplication;
bBlanking : boolean;
bDrawGraphics : boolean;
Canvas : TCanvas;
CheckChancePerFrame : integer;
LineLength : single;
MaxSpeed : single;
MaxSpeedChange : single;
MovableList : Tlist;
ObstacleList : TList;
SensorDistance : single;| Constructors |
constructor Create(OutputCanvas : TCanvas);******************************************************************************
| Functions |
destructor Destroy;******************************************************************************
procedure GetClosestMovables(MyMovable : TMovable; CloseList : TList);******************************************************************************
function GetClosestObstacle(MyMovable : TMovable) : TMovable;******************************************************************************
procedure RunStep;******************************************************************************
procedure SetNewCanvas(OutputCanvas : TCanvas);******************************************************************************
| Properties |
| Events |
| Variables |
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;