Class TSkybox

Unit

a3dge.Skybox

Declaration

type TSkybox = class(TModel3D)

Description

Defines a skybox.

The texture is a bitmap with the 6 sides compacted as follow:

+--------+-------+------+
| front  | right | back |
+--------+-------+------+
| bottom | left  | top  |
+--------+-------+------+

Look at the image "map.png" at the envmap directory for more info.

Hierarchy

• TObject
• TModel3D
• TSkybox

Overview

Methods

	constructor Create; override; overload;
	CONSTRUCTOR Create (FileName: STRING); OVERLOAD;
	DESTRUCTOR Destroy; OVERRIDE;
	PROCEDURE Render (CONST aObject: TObject3D); OVERRIDE;

Properties

	property OwnsTexture: Boolean read fOwnsTexture write fOwnsTexture;
	property Texture: ALLEGRO_BITMAPptr read fTexture write SetTexture;

Description

Methods

	constructor Create; override; overload;
Constructor.

	CONSTRUCTOR Create (FileName: STRING); OVERLOAD;
Creates the skybox loading the texture map from the image file.

	DESTRUCTOR Destroy; OVERRIDE;
Releases resources.

	PROCEDURE Render (CONST aObject: TObject3D); OVERRIDE;
Renders the skybox. Call it after TCamera.ApplyRotationmatrix. The size is 20 x 20 x 20 so the "far" plane should be more than 50 to be sure it won't cut it.

Properties

	property OwnsTexture: Boolean read fOwnsTexture write fOwnsTexture;
Should free the Texture when removed.

	property Texture: ALLEGRO_BITMAPptr read fTexture write SetTexture;
Access to texture.