Lab10/BumpShader/fBumpShader.cpp - patch - ArtemSls/O3DM

Lab10/BumpShader/fBumpShader.cpp
197 строк8 KB
ArtemSls
upload files
24 янв 2025, 03:46
24 янв 2025, 03:462bfe740
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "fBumpShader.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"
#pragma link "GLS.GeomObjects"
#pragma link "GLS.Graph"
#pragma link "GLS.Material"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.VectorFileObjects"
#pragma link "GLS.FileSMD"
#pragma link "GLS.File3DS"
#pragma link "GLSL.BumpShaders"
#pragma link "GLSL.CustomShader"
#pragma link "GLSL.Shader"
#pragma link "Formats.DDSImage"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	int I;
	SetCurrentDir("..\\..\\Assets");
	Fighter->LoadFromFile("TRINITYrage.smd"); //Fighter
	Fighter->AddDataFromFile("walk.smd");
	Fighter->Animations->Items[1]->MakeSkeletalTranslationStatic();
	Fighter->AddDataFromFile("run.smd");
	Fighter->Animations->Items[2]->MakeSkeletalTranslationStatic();
	Fighter->AddDataFromFile("long_jump.smd");
	Fighter->Animations->Items[3]->MakeSkeletalTranslationStatic();
	Fighter->AddDataFromFile("jump.smd");
	Fighter->AddDataFromFile("look_left_right.smd");
	Fighter->Animations->Items[5]->MakeSkeletalRotationDelta();
  	Fighter->SwitchToAnimation(1);
	Fighter->AnimationMode = aamLoop;
	Fighter->Scale->Scale(3);
	//  Fighter->MeshObjects->BuildTangentSpace;
	// Loading static models
	Teapot->LoadFromFile("Teapot.3ds"); //Teapot
	Teapot->Scale->Scale(0.8);
	//  Teapot.MeshObjects->BuildTangentSpace; does not have texture coordinates...
	Sphere_big->LoadFromFile("Sphere_big.3DS"); //Sphere_big
	Sphere_big->Scale->Scale(70);
	Sphere_big->MeshObjects->BuildTangentSpace();
	Sphere_little->LoadFromFile("Sphere_little.3ds"); //Sphere_little
	Sphere_little->Scale->Scale(1);
	Sphere_little->MeshObjects->BuildTangentSpace();
	// Then load textures
	MaterialLibrary->LibMaterialByName("Earth")->Material->Texture->Image->LoadFromFile("Earth.jpg");
	MaterialLibrary->LibMaterialByName("EarthNormals")->Material->Texture->Image->LoadFromFile("EarthNormals.jpg");
	// And cubemaps
	MaterialLibrary->LibMaterialByName("EarthGross")->Material->Texture->Image->LoadFromFile("EarthSpec.dds");
	// Create Shader
	MultiLightShader = new TGLSLMLBumpShader(this);
	MultiLightShader->LightSources = MultiLightShader->LightSources << 1, 2 ;
	MultiLightShader->LightCompensation = 0.7;
	MultiLightShader->NormalTexture = MaterialLibrary->LibMaterialByName("EarthNormals")->Material->Texture;
	MultiLightShader->SpecularTexture = MaterialLibrary->LibMaterialByName("EarthGross")->Material->Texture;
	// Attach shader to the material
	MaterialLibrary->LibMaterialByName("Earth")->Shader = MyBumpShader;
	for (I = 0; I < TrinityMatlib->Materials->Count - 1; I++)
		TrinityMatlib->Materials->Items[I]->Shader = MyBumpShader;
	ShowNotGLSceneObjectsCheckBoxClick(this);
  	MyBumpShader->Enabled = ShaderEnabledCheckBox->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShaderEnabledCheckBoxClick(TObject *Sender)
{
    MyBumpShader->Enabled = ShaderEnabledCheckBox->Checked;
  	MultiLightShader->Enabled = ShaderEnabledCheckBox->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MultiLightShaderCheckBoxClick(TObject *Sender)
{
    int I;
	if (MultiLightShaderCheckBox->Checked)
	{
		MaterialLibrary->LibMaterialByName("Earth")->Shader = MultiLightShader;
		for (I = 0; I < TrinityMatlib->Materials->Count - 1; I++)
			TrinityMatlib->Materials->Items[I]->Shader = MultiLightShader;
	}
	else
	{
		MaterialLibrary->LibMaterialByName("Earth")->Shader = MyBumpShader;
		for (I = 0; I < TrinityMatlib->Materials->Count - 1; I++)
			TrinityMatlib->Materials->Items[I]->Shader = MyBumpShader;
	}
	Light2->Shining = MultiLightShaderCheckBox->Checked;
  	LightCube2->Visible = MultiLightShaderCheckBox->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UseSpecularTextureCheckBoxClick(TObject *Sender)
{
	if (UseSpecularTextureCheckBox->Checked)
	{
		MyBumpShader->SpecularTexture = MaterialLibrary->LibMaterialByName("EarthGross")->Material->Texture;
		MultiLightShader->SpecularTexture = MaterialLibrary->LibMaterialByName("EarthGross")->Material->Texture;
	}
	else
	{
		MyBumpShader->SpecularTexture = NULL;
		MultiLightShader->SpecularTexture = NULL;
  	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UseNormalTextureCheckBoxClick(TObject *Sender)
{
	if (UseNormalTextureCheckBox->Checked)
	{
		MyBumpShader->NormalTexture = MaterialLibrary->LibMaterialByName("EarthNormals")->Material->Texture;
		MultiLightShader->NormalTexture = MaterialLibrary->LibMaterialByName("EarthNormals")->Material->Texture;
	}
	else
	{
		MyBumpShader->NormalTexture = NULL;
		MultiLightShader->NormalTexture = NULL;
  	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShowNotGLSceneObjectsCheckBoxClick(TObject *Sender)
{
    Teapot->Visible = ShowNotGLSceneObjectsCheckBox->Checked;
	Fighter->Visible = ShowNotGLSceneObjectsCheckBox->Checked;
	GLCube->Visible = ShowNotGLSceneObjectsCheckBox->Checked;
	GLDodecahedron->Visible = ShowNotGLSceneObjectsCheckBox->Checked;
  	GLSphere->Visible = ShowNotGLSceneObjectsCheckBox->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CadencerProgress(TObject *Sender, const double DeltaTime,
          const double NewTime)
{
	Viewer->Invalidate();
	if (RollPitchTurnCheckBox->Checked)
	{
		Sphere_big->Turn(DeltaTime * 40);
		Sphere_big->Roll(DeltaTime * 40);
		Sphere_little->Pitch(DeltaTime * 20);
		Fighter->Roll(DeltaTime * 20);
		Teapot->Roll(-DeltaTime * 10);
		GLCube->Pitch(-DeltaTime * 10);
		GLDodecahedron->Pitch(DeltaTime * 10);
		GLSphere->Roll(-DeltaTime * 10);
  	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	Form1->Caption = "Lab10 BumpShader Slesarev - " + Viewer->FramesPerSecondText();
	Viewer->ResetPerformanceMonitor();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ViewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    mx = X;
  	my = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ViewerMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    if (Shift.Contains(ssRight) && Shift.Contains(ssLeft))
		Camera->AdjustDistanceToTarget(Power(1.01, Y - my));
	else
		if (Shift.Contains(ssRight) || Shift.Contains(ssLeft))
			Camera->MoveAroundTarget(my - Y, mx - X);
	mx = X;
  	my = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ViewerMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          TPoint &MousePos, bool &Handled)
{
    Camera->AdjustDistanceToTarget(Power(1.1, -WheelDelta / 120));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LightCubeProgress(TObject *Sender, const double DeltaTime,
          const double NewTime)
{
	if (LightMovingCheckBox->Checked)
		LightCube->MoveObjectAround(Camera->TargetObject, sin(NewTime) * DeltaTime * 10, DeltaTime * 20);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    Cadencer->Enabled = false;
}
//---------------------------------------------------------------------------