/
Pyatigor_Yaroslav
/
KMiVVR
Обзор
Документация
Войти
/
Pyatigor_Yaroslav
/
KMiVVR
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
Lab3/Lab3.pas
71 строка
2 KB
Пятигор2302
upload files
17 ноя 2025, 20:07
17 ноя 2025, 20:07
9abc49a
Код
Авторство
О чём код?
unit Lab3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, GLS.Material, GLS.SceneViewer, GLS.BaseClasses, GLS.Scene, GLS.Objects, GLS.Coordinates, GLS.Cadencer; type TForm1 = class(TForm) GLScene1: TGLScene; GLSceneViewer1: TGLSceneViewer; GLMaterialLibrary1: TGLMaterialLibrary; OpenDialog1: TOpenDialog; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; GLLightSource1: TGLLightSource; GLCube1: TGLCube; GLSphere1: TGLSphere; GLCamera1: TGLCamera; GLCadencer1: TGLCadencer; procedure N2Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure GLCadencer1Progress(Sender: TObject; const DeltaTime, NewTime: Double); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GLCadencer1Progress(Sender: TObject; const DeltaTime, NewTime: Double); var a: Double; begin a := newTime * 60 * Pi / 180; a := (a + Pi / 2); GLCube1.Position.x := 1.25 * Sin(a); GLCube1.Position.y := 1.25 * Cos(a); end; procedure TForm1.N2Click(Sender: TObject); begin OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName); if OpenDialog1.Execute then begin GLCube1.Material.Texture.Image.LoadFromFile(OpenDialog1.FileName); end; end; procedure TForm1.N4Click(Sender: TObject); begin if OpenDialog1.Execute then begin GLSphere1.Material.Texture.Image.LoadFromFile(OpenDialog1.FileName); end; end; end.