GLScene/Demos/CPP/extrusion/tentacles/Unit1.cpp

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

#include <vcl.h>
#include <tchar.h>
#include <System.Math.hpp>

#pragma hdrstop

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

#pragma link "GLS.Extrusion"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
const int
   cNbNodes = 32;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   int i, k;
   TGLPipe *pipe;

   // prepare the TGLPipe objects (add node, set props...)
   for (k =0; k < DCBase->Count-1; k++)
   {
	 if (dynamic_cast<TGLPipe *>(DCBase->Children[k]))
	 {
		pipe = (TGLPipe *)(DCBase->Children[k]);
		pipe->Nodes->Clear();
		for (i=0; i< cNbNodes - 1; i++)
			pipe->Nodes->AddNode(0, i/8, 0);
		pipe->Radius = 0.1;
		 // enable per-node coloring in the TGLPipe
		pipe->NodesColorMode = pncmDiffuse;
		 // divisions between nodes (for spline interpolation)
		pipe->Division = 3;
		 // No geometry compilation/cacheing, render directly
		 // (geometry changes completely from frame to frame)
		pipe->ObjectStyle = pipe->ObjectStyle<<osDirectDraw;
	 }
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLCadencer1Progress(TObject *Sender, const double deltaTime,
		  const double newTime)
{
   int i, k;
   float t, t1, t2, r;
   TGLPipe *pipe;

   t = newTime;
   for (k=0; k < DCBase->Count-1;k++)
	 if (dynamic_cast<TGLPipe *>(DCBase->Children[k]))
	 {
		 pipe = (TGLPipe *)(DCBase->Children[k]);
		 pipe->Nodes->BeginUpdate();
		 for (i=0; i<pipe->Nodes->Count-1; i++)
		 {
			t1 =  -t+i*0.1+k*(2*M_PI)/5;   // GLS.VectorGeometry::c2PI
			r =  (Sin(3*t+k)+2)*0.5*((2*i+pipe->Nodes->Count)/pipe->Nodes->Count);
			pipe->Nodes->Items[i]->X = Cos(t1)*r;
			pipe->Nodes->Items[i]->Z = Sin(t1)*r;
			t2 = 2*(t+i/(pipe->Nodes->Count-1)+k);
			pipe->Material->FrontProperties->Ambient->Color = VectorLerp(clrAqua, clrYellow, Sin(t2));
			pipe->Radius =(1+(Sin(t2)*0.5))*Ln((pipe->Nodes->Count-i))*0.5;
		 }
		// don't search any hidden logic behind the formulaes below:
		// they're just here to induce this sickening weirdo movement
		 pipe->Nodes->EndUpdate();
	 }
   Sphere1->Radius = 1.4+Sin(2*t)*0.1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   // standard FPS counter
   PanelFPS->Caption = Format("%.1f FPS",
	 ARRAYOFCONST((GLSceneViewer1->FramesPerSecond())));
   GLSceneViewer1->ResetPerformanceMonitor();

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