Class TShapeLibrary (unit ShapeLib)

Inherits from

TObject

****** * * Module: ShapeLib * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * This module manages all polygon shapes used by the game. This includes * Bart, Aliens, and all letters comprising the game font. When an object * wants to incorporate a shape into its look, the shape is retreived from * the global TShapeLibrary object. * ******

Constructors


constructor Create;

Class constructor and destructor.


Functions

procedure DefineShape(szShapeName: String; aptVertices: Array of TFinePoint; aeEdges: Array of LongInt);

Method to define a new shape as a series of vertices and edges.

destructor Destroy;

Create lists to manage shapes.

function sGetShape(szShapeName: String): TShape;

Method to retrieve a defined shape from the ShapeLib.

Properties

Events

Variables

m_lstShapes : TList;



Constructors


constructor Create;

Class constructor and destructor.


Functions


procedure DefineShape(szShapeName: String; aptVertices: Array of TFinePoint; aeEdges: Array of LongInt);

Method to define a new shape as a series of vertices and edges.

Perform default processing.


destructor Destroy;

Create lists to manage shapes.


function sGetShape(szShapeName: String): TShape;

Method to retrieve a defined shape from the ShapeLib.

Add the shape to the list.


Properties


Events


Variables


m_lstShapes : TList;