/
Pyatigor_Yaroslav
/
KMiVVR
Обзор
Документация
Войти
/
Pyatigor_Yaroslav
/
KMiVVR
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
Lab2/fLab2.h
65 строк
2 KB
Пятигор2302
upload files
18 ноя 2025, 14:20
18 ноя 2025, 14:20
4981a3d
Код
Авторство
О чём код?
//--------------------------------------------------------------------------- #ifndef fLab2H #define fLab2H #define dead_time 5 #define N 7 //--------------------------------------------------------------------------- #include <System.Classes.hpp> #include <Vcl.Controls.hpp> #include <Vcl.StdCtrls.hpp> #include <Vcl.Forms.hpp> #include "GLS.BaseClasses.hpp" #include "GLS.Cadencer.hpp" #include "GLS.Coordinates.hpp" #include "GLS.Objects.hpp" #include "GLS.Scene.hpp" #include "GLS.SceneViewer.hpp" #include "GLS.Collision.hpp" #include "GLS.GeomObjects.hpp" #include "GLS.ParticleFX.hpp"# //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TGLScene *GLScene1; TGLSceneViewer *GLSceneViewer1; TGLCadencer *GLCadencer1; TGLCamera *GLCamera1; TGLLightSource *GLLightSource1; TGLDummyCube *GLDummyCube1; TButton *Button1; TButton *Button2; TCheckBox *CheckBox1; TCheckBox *CheckBox2; TGLCylinder *GLCylinder1; void __fastcall Button1Click(TObject *Sender); void __fastcall Button2Click(TObject *Sender); void __fastcall CheckBox1Click(TObject *Sender); void __fastcall GLSceneViewer1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall GLSceneViewer1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void __fastcall GLSceneViewer1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled); void __fastcall GLCadencer1Progress(TObject *Sender, const double DeltaTime, const double NewTime); void __fastcall CheckBox2Click(TObject *Sender); void __fastcall initial_time(); void __fastcall update_points(); private: // User declarations; int mx, my; int cur_time[N]; int mas_time[N]; bool mas_flag[N]; public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif