Class TSlab

DescriptionHierarchyFieldsMethodsProperties

Unit

Arena

Declaration

type TSlab = class(TArenaObject)

Description

An arena object representing a box. In Table 1 below follows an example of a definition of a slab and in Figure 1 the corresponding graphics is shown.

Table 1: Example definition of a slab.

object MySlab: TSlab
  Position = 0.000 0.000 0.000
  Velocity = 0.000 0.000 0.000
  Angle = 0.000
  Height = 0.500
  Mass = -1.000
  RGBColor = 0 0 30
#  Texture =
  Length = 2.000
  Width = 1.000
#  TopTexture =
#  BottomTexture =
#  PosXTexture =
#  NegXTexture =
#  PosYTexture =
#  NegYTexture =
  TextureTileLength = 1.000
  TextureTileWidth = 1.000
end



Figure 1: Graphical appearance of the slab defined in Table 1.



Hierarchy

TSlab > TArenaObject > TObject

Methods

Overview

Public constructor Create(Owner: TArena);
Public destructor Destroy; override;
Public procedure AddAsStrings(Strings: TStringList); override;
Public function Edit(Dlg: TArenaObjectEditor = nil): Boolean; override;
Public procedure GenerateShapes; override;

Description

Public constructor Create(Owner: TArena);

Constructor

parameters
Owner
is the TArena that owns this object.
Public destructor Destroy; override;

Destructor

Public procedure AddAsStrings(Strings: TStringList); override;

Adds all properties as strings to a list of strings. Used internally by TArena.SaveToFile.

Public function Edit(Dlg: TArenaObjectEditor = nil): Boolean; override;

Displays an edit dialog (for visual editing of the object's properties).

parameters
Dlg
should always be Nil. (Only used internally.)
returns

True if the user clicks the OK button, False otherwise.

Public procedure GenerateShapes; override;

Generates geometric representations of the object (4 planes).

Properties

Overview

Public property BottomTexture: string;
Public property Length: real;
Public property NegXTexture: string;
Public property NegYTexture: string;
Public property PosXTexture: string;
Public property PosYTexture: string;
Public property TextureTileLength: real;
Public property TextureTileWidth: real;
Public property TopTexture: string;
Public property Width: real;

Description

Public property BottomTexture: string;

Texture (a file name) to be used on the bottom of the box.

Public property Length: real;

Length of the box. Assuming that the rotation angle is zero, the length of the box extends along the X-axis.

Public property NegXTexture: string;

Texture (a file name) to be used on side of the box that has its normal pointing in the negative X-direction.

Public property NegYTexture: string;

Texture (a file name) to be used on side of the box that has its normal pointing in the negative Y-direction.

Public property PosXTexture: string;

Texture (a file name) to be used on side of the box that has its normal pointing in the positive X-direction.

Public property PosYTexture: string;

Texture (a file name) to be used on side of the box that has its normal pointing in the positive Y-direction.

Public property TextureTileLength: real;

Length of the texture tiles.

Public property TextureTileWidth: real;

Width of the texture tiles.

Public property TopTexture: string;

Texture (a file name) to be used on the top of the box.

Public property Width: real;

Width of the box. Assuming that the rotation angle is zero, the width of the box extends along the Y-axis.


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