Class TObstacle (unit uBoids) |
Inherits from
TMovable
constructor Create(inX, inY,inSize : Integer; inColor : TColor; Canvas : TCanvas);
- procedure Move(Canvas : TCanvas);override;
******************************************************************************
procedure Draw(Canvas : TCanvas);
******************************************************************************
function PrepareToMove(ClosestBoids : TList;ClosestObstacle : TMovable; Canvas : TCanvas) : boolean;
******************************************************************************
AvoidSphere : single;
Size : integer;
constructor Create(inX, inY,inSize : Integer; inColor : TColor; Canvas : TCanvas);
procedure Move(Canvas : TCanvas);override;
******************************************************************************
procedure Draw(Canvas : TCanvas);
******************************************************************************
function PrepareToMove(ClosestBoids : TList;ClosestObstacle : TMovable; Canvas : TCanvas) : boolean;
******************************************************************************
AvoidSphere : single;
Size : integer;