| Description | Hierarchy | Fields | Methods | Properties |
type TSlab = class(TArenaObject)
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.
![]() |
constructor Create(Owner: TArena); |
![]() |
destructor Destroy; override; |
![]() |
procedure AddAsStrings(Strings: TStringList); override; |
![]() |
function Edit(Dlg: TArenaObjectEditor = nil): Boolean; override; |
![]() |
procedure GenerateShapes; override; |
![]() |
constructor Create(Owner: TArena); |
Constructor
![]() |
destructor Destroy; override; |
Destructor
![]() |
procedure AddAsStrings(Strings: TStringList); override; |
Adds all properties as strings to a list of strings. Used internally by TArena.SaveToFile.
![]() |
function Edit(Dlg: TArenaObjectEditor = nil): Boolean; override; |
Displays an edit dialog (for visual editing of the object's properties).
Nil. (Only used internally.)True if the user clicks the OK button, False otherwise.
![]() |
procedure GenerateShapes; override; |
Generates geometric representations of the object (4 planes).
![]() |
property BottomTexture: string; |
![]() |
property Length: real; |
![]() |
property NegXTexture: string; |
![]() |
property NegYTexture: string; |
![]() |
property PosXTexture: string; |
![]() |
property PosYTexture: string; |
![]() |
property TextureTileLength: real; |
![]() |
property TextureTileWidth: real; |
![]() |
property TopTexture: string; |
![]() |
property Width: real; |
![]() |
property BottomTexture: string; |
Texture (a file name) to be used on the bottom of the box.
![]() |
property Length: real; |
Length of the box. Assuming that the rotation angle is zero, the length of the box extends along the X-axis.
![]() |
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.
![]() |
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.
![]() |
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.
![]() |
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.
![]() |
property TextureTileLength: real; |
Length of the texture tiles.
![]() |
property TextureTileWidth: real; |
Width of the texture tiles.
![]() |
property TopTexture: string; |
Texture (a file name) to be used on the top of the box.
![]() |
property Width: real; |
Width of the box. Assuming that the rotation angle is zero, the width of the box extends along the Y-axis.