Unit GLScene_Glue

DescriptionusesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

Unit containing helper classes and utility procedures needed for mapping internal geometric descriptions of TArenaObjects to their GLScene counterparts.

uses

Classes, Interfaces, Objects and Records

NameDescription
Class TGraphicBaseObject  
Class TCylinderObject  
Class TXYPlaneObject  
Class TBoxObject  
Class TSphereObject  
Class TLineObject  
Class T3DStructure  

Functions and Procedures

Overview

procedure GenerateArena(Arena: TArena; Parent: TGLBaseSceneObject);
procedure SetArenaObjectGraphics(Obj: TArenaObject; Base: TGLBaseSceneObject; CreateGraphics: Boolean);
procedure SetBookShelfGraphics(Root: TGLBaseSceneObject; BookShelf: TBookShelf; CreateGraphics: Boolean);
procedure SetCornerWallGraphics(Root: TGLBaseSceneObject; CornerWall: TCornerWall; CreateGraphics: Boolean);
procedure SetDoorWayGraphics(Root: TGLBaseSceneObject; DoorWay: TDoorWay; CreateGraphics: Boolean);
procedure SetFloorGraphics(Root: TGLBaseSceneObject; Floor: TFloor; CreateGraphics: Boolean);
procedure SetGridShelfGraphics(Root: TGLBaseSceneObject; GridShelf: TGridShelf; CreateGraphics: Boolean);
procedure SetIRBeaconGraphics(Root: TGLBaseSceneObject; IRBeacon: TIRBeacon; CreateGraphics: Boolean);
procedure SetSlabGraphics(Root: TGLBaseSceneObject; Slab: TSlab; CreateGraphics: Boolean);
procedure SetTeeWallGraphics(Root: TGLBaseSceneObject; TeeWall: TTeeWall; CreateGraphics: Boolean);
procedure SetWallGraphics(Root: TGLBaseSceneObject; Wall: TWall; CreateGraphics: Boolean);

Description

procedure GenerateArena(Arena: TArena; Parent: TGLBaseSceneObject);

Generates all the necessary GLScene objects needed to represent the objects in the arena.

parameters
Arena
is the arena that should be generated in GLScene.
Parent
is the GLScene object that will own all generated GLScene objects. This way, removing the arena is a simple matter of deleting all children of Parent.
procedure SetArenaObjectGraphics(Obj: TArenaObject; Base: TGLBaseSceneObject; CreateGraphics: Boolean);
 
procedure SetBookShelfGraphics(Root: TGLBaseSceneObject; BookShelf: TBookShelf; CreateGraphics: Boolean);
 
procedure SetCornerWallGraphics(Root: TGLBaseSceneObject; CornerWall: TCornerWall; CreateGraphics: Boolean);
 
procedure SetDoorWayGraphics(Root: TGLBaseSceneObject; DoorWay: TDoorWay; CreateGraphics: Boolean);
 
procedure SetFloorGraphics(Root: TGLBaseSceneObject; Floor: TFloor; CreateGraphics: Boolean);
 
procedure SetGridShelfGraphics(Root: TGLBaseSceneObject; GridShelf: TGridShelf; CreateGraphics: Boolean);
 
procedure SetIRBeaconGraphics(Root: TGLBaseSceneObject; IRBeacon: TIRBeacon; CreateGraphics: Boolean);
 
procedure SetSlabGraphics(Root: TGLBaseSceneObject; Slab: TSlab; CreateGraphics: Boolean);
 
procedure SetTeeWallGraphics(Root: TGLBaseSceneObject; TeeWall: TTeeWall; CreateGraphics: Boolean);
 
procedure SetWallGraphics(Root: TGLBaseSceneObject; Wall: TWall; CreateGraphics: Boolean);
 

Types

NameDescription
TGraphicType  
  • gtCylinder:
  • gtPlane:
  • gtBox:
  • gtSphere:
  • gtCone:
  • gtLine:
TGraphicBaseList = array of TGraphicBaseObject;  

Constants

NameDescription
FLOOR_TAG = 100;

Constant used internally for locating GLScene objects representing a TFloor.

SLAB_TAG = 110;

Constant used internally for locating GLScene objects representing a TSlab.

WALL_TAG = 120;

Constant used internally for locating GLScene objects representing a TWall.

CORNERWALL_TAG = 130;

Constant used internally for locating GLScene objects representing a TCornerWall.

TEEWALL_TAG = 140;

Constant used internally for locating GLScene objects representing a TTeeWall.

DOORWAY_TAG = 150;

Constant used internally for locating GLScene objects representing a TDoorWay.

BOOKSHELF_TAG = 160;

Constant used internally for locating GLScene objects representing a TBookShelf.

GRIDSHELF_TAG = 170;

Constant used internally for locating GLScene objects representing a TGridShelf.

IRBEACON_TAG = 180;

Constant used internally for locating GLScene objects representing a TIRBeacon.


Generated by PasDoc 0.8.8.3 on 2005-05-28 08:13:49