| Class TScrap (unit Scrap) |
****** * * 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);| Functions |
procedure Move;| Properties |
| Events |
| Variables |
m_edgeScrap : TEdge;
m_iLifeFadePoint : Integer;
m_iLifeSpan : Integer;
m_iLifeUsed : Integer;| 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".