Class TObstacle (unit uBoids)

Inherits from

TMovable

Constructors


constructor Create(inX, inY,inSize : Integer; inColor : TColor; Canvas : TCanvas);

procedure Move(Canvas : TCanvas);override;

******************************************************************************



Functions

procedure Draw(Canvas : TCanvas);

******************************************************************************

function PrepareToMove(ClosestBoids : TList;ClosestObstacle : TMovable; Canvas : TCanvas) : boolean;

******************************************************************************

Properties

Events

Variables

AvoidSphere : single;


Size : integer;



Constructors


constructor Create(inX, inY,inSize : Integer; inColor : TColor; Canvas : TCanvas);

procedure Move(Canvas : TCanvas);override;

******************************************************************************


Functions


procedure Draw(Canvas : TCanvas);

******************************************************************************


function PrepareToMove(ClosestBoids : TList;ClosestObstacle : TMovable; Canvas : TCanvas) : boolean;

******************************************************************************


Properties


Events


Variables


AvoidSphere : single;


Size : integer;