/
Fuv
/
KMiVVR
Обзор
Документация
Войти
/
Fuv
/
KMiVVR
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
Lab3/Unit1.pas
41 строка
1 KB
Fuv
upload files
12 ноя 2025, 19:20
12 ноя 2025, 19:20
ca035ee
Код
Авторство
О чём код?
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, GLS.Scene, GLS.Objects, GLS.GeomObjects, GLS.Coordinates, GLS.SceneViewer, GLS.BaseClasses, GLS.Material, Vcl.Menus; type TForm1 = class(TForm) GLScene1: TGLScene; GLSceneViewer1: TGLSceneViewer; GLLightSource1: TGLLightSource; GLCube1: TGLCube; GLCone1: TGLCone; GLCamera1: TGLCamera; GLLightSource2: TGLLightSource; GLMaterialLibrary1: TGLMaterialLibrary; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin // Просто назначаем уже существующие материалы объектам GLCube1.Material.LibMaterialName := 'Cube'; // Используем имя 'Cube' GLCone1.Material.LibMaterialName := 'Cone'; // Используем имя 'Cone' end; end.