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

#include <vcl.h>
#include <tchar.h>

#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLBaseClasses"
#pragma link "GLBitmapFont"
#pragma link "GLCadencer"
#pragma link "GLCoordinates"
#pragma link "GLCrossPlatform"
#pragma link "GLCustomShader"
#pragma link "GLFBORenderer"
#pragma link "GLGeomObjects"
#pragma link "GLHUDObjects"
#pragma link "GLMaterial"
#pragma link "GLObjects"
#pragma link "GLScene"
#pragma link "GLSimpleNavigation"
#pragma link "GLSLShader"
#pragma link "GLWin32Viewer"
#pragma link "GLWindowsFont"
#pragma link "GLMultisampleImage"


#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Width  = Screen->Width;
  Height = Screen->Height;
  WindowState = wsMaximized;

  MainMaterialLibrary->TextureByName("MultisampledColor")->ImageClassName = "TGLMultisampleImage";
  ((TGLMultisampleImage *)(MainMaterialLibrary->TextureByName("MultisampledColor")->Image))->SamplesCount = 16;

  MainMaterialLibrary->TextureByName("Depth")->ImageClassName = "TGLMultisampleImage";
  ((TGLMultisampleImage *)(MainMaterialLibrary->TextureByName("Depth")->Image))->SamplesCount = 16;

  GLSLShader1->Enabled = true;

  GLHUDText1->Text = "F1/F2 - Multisampling and F3/F4 - Wireframe mode";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MainCadencerProgress(TObject *Sender, const double deltaTime,
		  const double newTime)
{
  if (IsKeyDown(VK_F2))
  {
	FBOContainer->Visible = false;
	GLScreenQuad->Visible = false;
	SceneObjects->Visible = true;
  }

  if (IsKeyDown(VK_F1))
  {
	FBOContainer->Visible = true;
	GLScreenQuad->Visible = true;
	SceneObjects->Visible = false;
  }

  if (IsKeyDown(VK_F3))
  {
	GLTorus1->Material->PolygonMode = pmLines;
	GLTorus2->Material->PolygonMode = pmLines;
	GLCone1->Material->PolygonMode = pmLines;
  }

  if (IsKeyDown(VK_F4))
  {
	GLTorus1->Material->PolygonMode = pmFill;
	GLTorus2->Material->PolygonMode = pmFill;
	GLCone1->Material->PolygonMode = pmFill;
  }
  MainViewer->Invalidate();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormResize(TObject *Sender)
{
  MultisampleFBO->Width = MainViewer->Width;
  MultisampleFBO->Height = MainViewer->Height;
  GLScreenQuad->Width  = MainViewer->Width;
  GLScreenQuad->Height = MainViewer->Height;
  GLScreenQuad->Position->SetPoint(
	MainViewer->Width / 2,
	MainViewer->Height / 2, 0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GLSLShader1Apply(TGLCustomGLSLShader *Shader)
{
  Shader->Param["TexUnit0"]->AsTexture[0] =
	 MainMaterialLibrary->TextureByName("MultisampledColor");
  Shader->Param["ViewerSize"]->AsVector2f =
	 Vector2fMake(MainViewer->Width, MainViewer->Height);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MainViewerBeforeRender(TObject *Sender)
{
  if (GL_EXT_framebuffer_multisample)
  {
	ShowMessage
	  ("Sorry, your hardware do not support Multisampling");
	Close();
  }
}
//---------------------------------------------------------------------------