/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Examples/Demos/collisions/sphere/fMainC.cpp
39 строк
1 KB
glscene
Update
18 сен 2024, 19:16
18 сен 2024, 19:16
5c21251
Код
Авторство
О чём код?
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "fMainC.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "GLS.BaseClasses" #pragma link "GLS.Collision" #pragma link "GLS.Coordinates" #pragma link "GLS.Objects" #pragma link "GLS.Scene" #pragma link "GLS.SceneViewer" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::TrackBar1Change(TObject *Sender) { Sphere1->Position->Z = (float)TrackBar1->Position/10; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { CollisionManager1->CheckCollisions(); } //--------------------------------------------------------------------------- void __fastcall TForm1::CollisionManager1Collision(TObject *Sender, TGLBaseSceneObject *object1, TGLBaseSceneObject *object2) { ShowMessage("Collision between "+object1->Name+" and "+object2->Name); } //---------------------------------------------------------------------------