/
MikeLight
/
Lab
Обзор
Документация
Войти
/
MikeLight
/
Lab
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
lab3/L3_a/fL3_a.cpp
54 строки
2 KB
MikeLight
upload files
24 ноя 2025, 14:59
24 ноя 2025, 14:59
c6bafae
Код
Авторство
О чём код?
//--------------------------------------------------------------------------- #include <vcl.h> #include <tchar.h> #include <math.h> #include <JPEG.hpp> #pragma hdrstop #include "fL3_a.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "GLS.BaseClasses" #pragma link "GLS.Cadencer" #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::GLCadencer1Progress(TObject *Sender, const double deltaTime, const double newTime) { double a = DegToRad(newTime*60); GLCube1->Position->SetPoint(1.5*cos(a), 1.5*sin(a), 1.5*sin(a)); GLCube1->PitchAngle=a*10; a = a+M_PI/2; GLSphere1->Position->SetPoint(1.5*cos(a), 1.5*sin(a), 1.5*sin(a)); GLSphere1->PitchAngle=a*10; } //--------------------------------------------------------------------------- void __fastcall TForm1::miTextureClick(TObject *Sender) { OpenDialog1->InitialDir = ExtractFileDir(Application->ExeName); if(OpenDialog1->Execute()){ GLCube1->Material->Texture->Image->LoadFromFile(OpenDialog1->FileName); } } //--------------------------------------------------------------------------- void __fastcall TForm1::N4Click(TObject *Sender) { if(OpenDialog1->Execute()){ GLSphere1->Material->Texture->Image->LoadFromFile(OpenDialog1->FileName); } } //---------------------------------------------------------------------------