Class TScrap (unit Scrap)

Inherits from

TVisibleObject

****** * * Module: Scrap * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * The TScrap class is instantiate as objects explode into tiny shards. * When this happens, each edge of the original object become an individual * TScrap, complete with is own speed, direction, rotation, etc... * * TScrap objects disintegrate into nothing after a few ticks. * ******

Constructors


constructor Create(polyParent: TVisibleObject; edgeParent: TEdge; fScale: Real; iLifeSpan: Integer; clrScrap: TColor; listObjects: TList);

Class constructor.


Functions

procedure Move;

Overridden movement method.

Properties

Events

Variables

m_edgeScrap : TEdge;

Age at which object begins to visually fade.

m_iLifeFadePoint : Integer;

Number of ticks the scrap has existed.

m_iLifeSpan : Integer;


m_iLifeUsed : Integer;

Lifespan of the scrap in "ticks".


Constructors


constructor Create(polyParent: TVisibleObject; edgeParent: TEdge; fScale: Real; iLifeSpan: Integer; clrScrap: TColor; listObjects: TList);

Class constructor.

Edge comprising the scrap.


Functions


procedure Move;

Overridden movement method.

Compute the size of the edge.


Properties


Events


Variables


m_edgeScrap : TEdge;

Age at which object begins to visually fade.


m_iLifeFadePoint : Integer;

Number of ticks the scrap has existed.


m_iLifeSpan : Integer;


m_iLifeUsed : Integer;

Lifespan of the scrap in "ticks".