GLScene/Demos/rendering/SkyBox/fSkyBoxC.cpp

// ---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "fSkyBoxC.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"

#pragma link "GLS.LensFlare"
#pragma link "GLS.Material"
#pragma link "GLS.Navigator"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SimpleNavigation"
#pragma link "GLS.SkyDome"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.Utils"
#pragma resource "*.dfm"
TForm1 *Form1;

// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
}
// ---------------------------------------------------------------------------

TGLLibMaterial* __fastcall TForm1::LoadTexture(String Matname, String Filename)
{
	GLMaterialLibrary1->AddTextureMaterial(Matname, Filename);
	GLMaterialLibrary1->Materials->Items[0]
		->Material->Texture->Disabled = false;
	return GLMaterialLibrary1->Materials->GetLibMaterialByName(Matname);
}

void __fastcall TForm1::FormCreate(TObject *Sender) {
	SetGLSceneMediaDir();
	TFileName PathCM = GetCurrentDir() + "\\Cubemaps";
	SetCurrentDir(PathCM);

	// Skybox textures
	LoadTexture("Left", "icecraterlf.jpg");
	GLMaterialLibrary1->Materials->Items[0]->Material->Texture->TextureMode =
		tmDecal;
	LoadTexture("Right", "icecraterrt.jpg");
	GLMaterialLibrary1->Materials->Items[1]->Material->Texture->TextureMode =
		tmDecal;
	LoadTexture("Top", "icecraterup.jpg");
	GLMaterialLibrary1->Materials->Items[2]->Material->Texture->TextureMode =
		tmDecal;
	LoadTexture("Bottom", "icecraterdn.jpg");
	GLMaterialLibrary1->Materials->Items[3]->Material->Texture->TextureMode =
		tmDecal;
	LoadTexture("Front", "icecraterft.jpg");
	GLMaterialLibrary1->Materials->Items[4]->Material->Texture->TextureMode =
		tmDecal;
	LoadTexture("Back", "icecraterbk.jpg");
	GLMaterialLibrary1->Materials->Items[5]->Material->Texture->TextureMode =
		tmDecal;
	SetGLSceneMediaDir();  // back to madia dir with textures
	// Add transparency to clouds

	LoadTexture("Clouds", "Clouds.jpg")->Material->BlendingMode =
		bmTransparency;
	LoadTexture("Clouds", "Clouds.jpg")
		->Material->FrontProperties->Diffuse->Alpha = 0.2;

	// scale the clouds texture
	LoadTexture("Clouds", "Clouds.jpg")->TextureScale->X = 8;
	LoadTexture("Clouds", "Clouds.jpg")->TextureScale->Y = 8;

	// bricks
	LoadTexture("Bricks", "rawwall.jpg")->TextureScale->X = 1;
	LoadTexture("Bricks", "rawwall.jpg")->TextureScale->Y = 32;
	LoadTexture("Bricks", "rawwall.jpg")->Material->Texture->TextureMode =
		tmModulate;

	LoadTexture("Bricks2", "marbletiles.jpg")->TextureScale->X = 6;
	LoadTexture("Bricks2", "marbletiles.jpg")->TextureScale->Y = 1;
	LoadTexture("Bricks2", "marbletiles.jpg")->Material->Texture->TextureMode =
		tmModulate;

	// Moon
	LoadTexture("Moon", "unwrapped moon.jpg")->Material->Texture->TextureMode =
		tmModulate;

	// -----------------------------------------
	// Assign materials to objects
	// -----------------------------------------
	GLCube1->Material->LibMaterialName = "Bricks";
	GLCube11->Material->LibMaterialName = "Bricks";
	GLCube111->Material->LibMaterialName = "Bricks";
	GLCube112->Material->LibMaterialName = "Bricks";
	GLCube2->Material->LibMaterialName = "Bricks2";
	GLCube21->Material->LibMaterialName = "Bricks2";
	GLCube21->Material->LibMaterialName = "Bricks2";
	GLCube211->Material->LibMaterialName = "Bricks2";
	GLCube212->Material->LibMaterialName = "Bricks2";
	GLSphere1->Material->LibMaterialName = "Moon";
	GLSphere2->Material->LibMaterialName = "Moon";

	GLUserInterface1->MouseLookActive = true;

}
// ---------------------------------------------------------------------------

void __fastcall TForm1::GLCadencer1Progress(TObject *Sender,
	const double deltaTime, const double newTime) {
	// Make clouds Texture slide
	GLMaterialLibrary1->Materials->GetLibMaterialByName("Clouds")
		->TextureOffset->X = GLMaterialLibrary1->Materials->GetLibMaterialByName
		("Clouds")->TextureOffset->X + deltaTime * 0.02;
	GLMaterialLibrary1->Materials->GetLibMaterialByName("Clouds")
		->TextureOffset->Y = GLMaterialLibrary1->Materials->GetLibMaterialByName
		("Clouds")->TextureOffset->Y + deltaTime * 0.03;

	// Rotate moons
	GLSphere1->Turn(deltaTime * 7);
	GLSphere2->Turn(deltaTime * 10);

	HandleKeys(deltaTime);
	GLUserInterface1->MouseLook();
	GLUserInterface1->MouseUpdate();

	GLSceneViewer1->Invalidate();
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::HandleKeys(double d) {
	if (IsKeyDown('W') || IsKeyDown('Z'))
		GLCamera1->Move(d);
	if (IsKeyDown('S'))
		GLCamera1->Move(-d);
	if (IsKeyDown('A') || IsKeyDown('A'))
		GLCamera1->Slide(-d);
	if (IsKeyDown('D'))
		GLCamera1->Slide(d);

	if (IsKeyDown(VK_SPACE))
		Castle->Visible = !Castle->Visible;
	if (IsKeyDown(VK_ESCAPE))
		Close();

}