GLScene/Examples/Demos/bench/megacube/fMegaCubeC.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "fMegaCubeC.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)

#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"

#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SimpleNavigation"
#pragma link "GLS.SceneViewer"
#pragma resource "*.dfm"
TFormMegacube* FormMegacube;

const int cSize = 5;

//---------------------------------------------------------------------------
__fastcall TFormMegacube::TFormMegacube(TComponent* Owner) : TForm(Owner) {}

//---------------------------------------------------------------------------
void __fastcall TFormMegacube::FormCreate(TObject* Sender)
{
    int x, y, z;
    TGLCube* cube;
    float factor, cubeSize;

    // bench only creation and 1st render (with lists builds, etc...)
    factor = 70 / (cSize * 2 + 1);
    cubeSize = 0.4 * factor;
    for (x = -cSize; x < cSize; x++)
        for (y = -cSize; y < cSize; y++)
            for (z = -cSize; z < cSize; z++) {
                cube = (TGLCube*)(DummyCube1->AddNewChild(__classid(TGLCube)));
                cube->Position->AsVector =
                    PointMake(factor * x, factor * y, factor * z);
                cube->CubeWidth = cubeSize;
                cube->CubeHeight = cubeSize;
                cube->CubeDepth = cubeSize;
                cube->Material->FrontProperties->Diffuse->Color =
                    VectorLerp(clrYellow, clrRed,
                        (float)(x * x + y * y + z * z) / (cSize * cSize * 3));

                // uncomment following lines to stress OpenGL with more color changes calls

                //cube->Material->FrontProperties->Ambient->Color=VectorLerp(clrYellow, clrRed, (x*x+y*y+z*z)/(cSize*cSize*3));
                //cube->Material->FrontProperties->Emission->Color=VectorLerp(clrYellow, clrRed, (x*x+y*y+z*z)/(cSize*cSize*3));
                //cube->Material->FrontProperties->Specular->Color=VectorLerp(clrYellow, clrRed, (x*x+y*y+z*z)/(cSize*cSize*3));
            }
}
//---------------------------------------------------------------------------
void __fastcall TFormMegacube::GLCadencer1Progress(
    TObject* Sender, const double deltaTime, const double newTime)
{
    DummyCube1->TurnAngle = 90 * newTime; // 90° per second
}
//---------------------------------------------------------------------------