GLScene/Examples/Demos/collisions/boxedin/fBoxC.cpp

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

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

#include <stdlib.h>
#include <GLS.Keyboard.hpp>
#pragma hdrstop

#include "fBoxC.h"
#include "GLS.FPSMovement.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.GeomObjects"
#pragma link "GLS.Navigator"
#pragma link "GLS.Cadencer"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.Objects"
#pragma link "GLS.VectorFileObjects"
#pragma link "GLS.Scene"
#pragma link "GLS.File3DS"
#pragma link "GLS.VectorGeometry"
#pragma link "GLS.Keyboard"
#pragma link "GLS.Coordinates"

#pragma link "GLS.BaseClasses"
#pragma link "GLS.Coordinates"
#pragma link "GLS.Cadencer"
#pragma link "GLS.SceneViewer"
#pragma resource "*.dfm"
TForm1 *Form1;

float random()
{
  return (float)(rand() & 0x1FFF) / (float)0x1FFF;
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent * Owner):TForm(Owner)
{
  TFileName Path = GetCurrentAssetPath();
  SetCurrentDir(Path  + "\\model");
  FreeForm1->LoadFromFile("BoxedIn.3ds");

  FreeForm1->BuildOctree(3);
  Label1->Caption =
	"Octree Nodes    : " + IntToStr(FreeForm1->Octree->NodeCount);
  Label2->Caption =
	"Tri Count Octree: " + IntToStr(FreeForm1->Octree->TriCountOctree);
  Label3->Caption =
	"Tri Count Mesh  : " + IntToStr(FreeForm1->Octree->TriCountMesh);

  Lines1->AddNode(0, 0, 0);
  Lines1->ObjectStyle = Lines1->ObjectStyle << osDirectDraw;
}

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

void __fastcall TForm1::GLCadencer1Progress(TObject * Sender,
											const double deltaTime,
											const double newTime)
{
  TGLVector rayStart, rayVector;
  float velocity;
  TGLVector pPoint;
  TGLVector pNormal;
  __int64 t;

  if(IsKeyDown(VK_ESCAPE))
	Close();

  velocity = TrackBar1->Position * deltaTime * 50;

  t = StartPrecisionTimer();

  SetVector(rayStart, Sphere2->AbsolutePosition);
  SetVector(rayVector, Sphere2->AbsoluteDirection);
  NormalizeVector(rayVector);
  //Note: since collision may be performed on multiple meshes, we might need to know which hit
  //      is closest (ie: d=raystart - pPoint)->
  if(FreeForm1->
	 OctreeSphereSweepIntersect(rayStart, rayVector, velocity, Sphere2->Radius,
								&pPoint, &pNormal))
  {
	// Show the polygon intersection point
	NormalizeVector(pNormal);
	Sphere1->Position->AsVector = pPoint;
	Sphere1->Direction->AsVector = pNormal;

	// Make it rebound->->->
	Sphere2->Direction->AsAffineVector =
	  VectorReflect(Sphere2->Direction->AsAffineVector,
                    AffineVectorMake(pNormal));
    // Add some "english"->->->
	Sphere2->Direction->X = Sphere2->Direction->X + random() / 10;
	Sphere2->Direction->Y = Sphere2->Direction->Y + random() / 10;
    Sphere2->Direction->Z = Sphere2->Direction->Z + random() / 10;

    // Add intersect point to trail
    AddToTrail(pPoint);
  }
  else
  {
    Sphere2->Move(velocity);    //No collision, so just move the ball->
  }
  // Last trail point is always the sphere's current position
  Lines1->Nodes->Last()->AsVector = Sphere2->Position->AsVector;

  colTotalTime = colTotalTime + StopPrecisionTimer(t);
  colCount++;
}

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

void TForm1::AddToTrail(const TGLVector & p)
{
  int i, k;
  Lines1->Nodes->Last()->AsVector = p;
  Lines1->AddNode(0, 0, 0);
  if(Lines1->Nodes->Count > 20) // limit trail to 20 points
	Lines1->Nodes->Delete(0);

  for(i = 0; i <= 19; i++)
  {
	k = Lines1->Nodes->Count - i - 1;
	if(k >= 0)
	  ((TGLLinesNode *) Lines1->Nodes->Items[k])->Color->Alpha =
		0.95 - i * 0.05;
  }
}
void __fastcall TForm1::Timer1Timer(TObject * Sender)
{
  float t;
  String s;

  if(colCount > 0)
	t = colTotalTime * 1000 / colCount;
  else
	t = 0;
	LabelFPS->Caption = Format("%.2f FPS for collisions/frame",
	  ARRAYOFCONST((GLSceneViewer2->FramesPerSecond())));
	GLSceneViewer2->ResetPerformanceMonitor();
	colTotalTime = 0;
	colCount = 0;
}

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

void __fastcall TForm1::Button1Click(TObject * Sender)
{
//if(the ball gets stuck in a pattern, hit the reset button->

  Sphere2->Position->X = random();
  Sphere2->Position->Y = random();
  Sphere2->Position->Z = random();

  Sphere2->Direction->X = random();
  if(random() > 0.5)
    Sphere2->Direction->X = -Sphere2->Direction->X;
  Sphere2->Direction->Y = random();
  if(random() > 0.5)
    Sphere2->Direction->Y = -Sphere2->Direction->Y;
  Sphere2->Direction->Z = random();
  if(random() > 0.5)
	Sphere2->Direction->Z = -Sphere2->Direction->Z;

}

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