lab_3/Unit1.cpp - master - Frogush/LabVR

lab_3/Unit1.cpp
76 строк3 KB
Frogush
upload files
08 дек 2025, 21:06
08 дек 2025, 21:064c63f9b
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Coordinates"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.Material"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
 TGLPoints* P[1000];
	for (int i = 0; i < 1000; i++) {
		P[i] = new TGLPoints(GLCube1);
        P[i]->Colors->Add(((float)(rand() % 256)) / 256.0,
            ((float)(rand() % 256)) / 256.0, ((float)(rand() % 256)) / 256.0,
            0.5);
		P[i]->Size = 3;
        P[i]->Position->X = 1.0 * rand() / RAND_MAX - 0.5;
        P[i]->Position->Y = 1.0 * rand() / RAND_MAX - 0.5;
        P[i]->Position->Z = 1.0 * rand() / RAND_MAX - 0.5;
	}
 TGLPoints* R[1000];
	for (int i = 0; i < 1000; i++) {
		R[i] = new TGLPoints(GLSphere1);
		R[i]->Colors->Add(((float)(rand() % 256)) / 256.0,
			((float)(rand() % 256)) / 256.0, ((float)(rand() % 256)) / 256.0,
            0.5);
		R[i]->Size = 3;
		R[i]->Position->X = 1.0 * rand() / RAND_MAX - 0.5;
		R[i]->Position->Y = 1.0 * rand() / RAND_MAX - 0.5;
		R[i]->Position->Z = 1.0 * rand() / RAND_MAX - 0.5;
		while ((R[i]->Position->X*R[i]->Position->X +
		R[i]->Position->Y*R[i]->Position->Y +
		R[i]->Position->Z*R[i]->Position->Z) >= 0.5*0.5){
			R[i]->Position->X = 1.0 * rand() / RAND_MAX - 0.5;
			R[i]->Position->Y = 1.0 * rand() / RAND_MAX - 0.5;
			R[i]->Position->Z = 1.0 * rand() / RAND_MAX - 0.5;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
GLSceneViewer1->Camera = GLCamera1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
GLSceneViewer1->Camera = GLCamera2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
GLSceneViewer1->Camera = GLCamera3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLSceneViewer1MouseWheel(TObject *Sender, TShiftState Shift,
          int WheelDelta, TPoint &MousePos, bool &Handled)
{
    if (GLSceneViewer1->MouseInControl == true) {
		GLCamera1->AdjustDistanceToTarget(Power(1.1, -WheelDelta / 120));
		GLCamera2->AdjustDistanceToTarget(Power(1.1, -WheelDelta / 120));
		GLCamera3->AdjustDistanceToTarget(Power(1.1, -WheelDelta / 120));
    }
}
//---------------------------------------------------------------------------