GLScene/Demos/interface/HFPick/fHFPickC.cpp

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

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

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

#pragma link "GLS.Graph"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma resource "*.dfm"
TFormHFPick *FormHFPick;
TColor grid[11][11];

//---------------------------------------------------------------------------
__fastcall TFormHFPick::TFormHFPick(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormHFPick::FormCreate(TObject *Sender)
{
 int ix, iy;

   // initialize grid color to white/gray (checked pattern)
  for (ix=-5; ix < 5; ix++)
	for (iy=-5; iy < 5; iy++)
	  if (((ix ^ iy) && 1)==0)
		 grid[ix][iy] = clWhite;
	  else
		grid[ix][iy] = clSilver;
}
//---------------------------------------------------------------------------

void __fastcall TFormHFPick::HeightFieldGetHeight(const float x, const float y, float &z,
          TVector4f &Color, TTexPoint &TexPoint)
{
   int ix, iy;

   // Nothing fancy here, the color is directly taken from the grid,
   // and the z function is a basic cosinus. The '+0.01' are to take
   // rounding issues out of the equation.
   ix = Int(ClampValue(x+0.01, -5, 5));
   iy = Int(ClampValue(y+0.01, -5, 5));
   Color = ConvertWinColor(grid[ix][iy]);
   z = Cos(VectorLength(x, y)*1.5);
}
//---------------------------------------------------------------------------

void __fastcall TFormHFPick::GLSceneViewerMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
   TAffineVector v;
   int ix, iy;

   mx = X;
   my = Y;
   if (RBPaint->Checked)
   {
	  // In Paint mode
	  // get absolute 3D coordinates of the point below the mouse
	  v = GLSceneViewer->Buffer->PixelRayToWorld(X, Y);
	  // convert to heightfield local coordinates
	  v = HeightField->AbsoluteToLocal(v);
	  // convert that local coords to grid pos
	  ix = Int(v.X);
	  iy = Int(v.Y);
	  // if we are in the grid...
	  if ((ix>=-5) && (ix<=5) && (iy>=-5) && (iy<=5))
	  {
		 // show last coord in the caption bar
		 Label2->Caption = Format("%d   %d",
		   ARRAYOFCONST ((ix, iy)));
		 // and paint blue or red depending on the button
		 if (Button==TMouseButton(mbLeft))
			grid[ix][iy] = clBlue;
		 else
			grid[ix][iy] = clRed;
		 // Height field changed, rebuild it!
		 HeightField->StructureChanged();
	  }
   }
}
//---------------------------------------------------------------------------

void __fastcall TFormHFPick::GLSceneViewerMouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y)
{
   if (RBPaint->Checked)
   {
	  // in paint mode, paint if a button is pressed
	  if (Shift.Contains(ssLeft))
		 GLSceneViewerMouseDown(Sender, TMouseButton(mbLeft), Shift, X, Y);
	  else
	  if (Shift.Contains(ssRight))
		 GLSceneViewerMouseDown(Sender, TMouseButton(mbRight), Shift, X, Y);
   }
   else
   {
	  // rotate mode
	  if (Shift.Contains(ssAlt) || Shift.Contains(ssCtrl) || Shift.Contains(ssShift))
	  {
		 GLCamera1->MoveAroundTarget(my-Y, mx-X);
		 mx = X;
		 my = Y;

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