GLScene/Demos/CPP/rendering/basicsdl/Unit1.cpp

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


#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "System.Classes.TPersistent"
#pragma link "GLBaseClasses"
#pragma link "GLCoordinates"
#pragma link "GLCrossPlatform"
#pragma link "GLScene"
#pragma link "GLTeapot"
#pragma link "OpenGL1x"

#pragma resource "*.dfm"
TDataModule1 *DataModule1;
//---------------------------------------------------------------------------
__fastcall TDataModule1::TDataModule1(TComponent* Owner)
	: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void TDataModule1::DataModuleCreate(TObject *Sender)
{
   // When using SDL, the standard VCL message queue is no longer operational,
   // so you must have/make your own loop to prevent the application from
   // terminating immediately
   GLSDLViewer1->Render();
   while (GLSDLViewer1->Active())
   {
	  // Message queue is not operational, but there may still be some messages
	  Forms::Application->ProcessMessages();
	  // Relinquish some of that CPU time
	  SDL_Delay(1);
	  // Slowly rotate the teapot
	  Teapot1->RollAngle = 4*Frac(24*(Now()))*3600;
   }
}
//---------------------------------------------------------------------------
void TDataModule1::GLSDLViewer1EventPollDone(TObject *Sender)
{
   SetGLSceneMediaDir();
   if (!firstPassDone)
   {
	  // Loads a texture map for the teapot
	  // (see materials/cubemap for details on that)
	  //
	  // The odd bit is that it must be done upon first render, otherwise
	  // SDL OpenGL support has not been initialized and things like checking
	  // an extension support (cube maps here) would fail...
	  // Something less clunky will be introduced, someday...
	  firstPassDone = true;
	  GLSDLViewer1->Buffer->RenderingContext->Activate();
	  try {
		if (!GL_ARB_texture_cube_map)
		   ShowMessage("Your graphics board does not support cube maps");
		else
		{
			  TGLTexture *tex = Teapot1->Material->Texture;
			  tex->ImageClassName = __classid(TGLCubeMapImage)->ClassName();
			  TGLCubeMapImage *img = (TGLCubeMapImage *) tex->Image;

				 img->Picture[CmtPX]->LoadFromFile("cm_left.jpg");
				 img->Picture[CmtNX]->LoadFromFile("cm_right.jpg");
				 img->Picture[CmtPY]->LoadFromFile("cm_top.jpg");
				 img->Picture[CmtNY]->LoadFromFile("cm_bottom.jpg");
				 img->Picture[CmtPZ]->LoadFromFile("cm_back.jpg");
				 img->Picture[CmtNZ]->LoadFromFile("cm_front.jpg");

			  Teapot1->Material->Texture->MappingMode = tmmCubeMapReflection;
			  Teapot1->Material->Texture->Disabled = false;
		}
	  }
	  __finally
	  {
		GLSDLViewer1->Buffer->RenderingContext->Deactivate();
	  }
   }
   GLSDLViewer1->Render();
}
//---------------------------------------------------------------------------

void TDataModule1::GLSDLViewer1Resize(TObject *Sender)
{
   // Zoom if SDL window gets smaller/bigger
   GLCamera1->SceneScale = GLSDLViewer1->Width/160;
}
//---------------------------------------------------------------------------