/
SergeyGerasimov
/
VRLabs
Обзор
Документация
Войти
/
SergeyGerasimov
/
VRLabs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
Lab1_BaseObjects/fcBaseObjects.dfm
1 134 строки
32 KB
SergeyGerasimov
Загрузка всех лабораторных работ
01 май 2026, 15:32
01 май 2026, 15:32
83d1a16
Код
Авторство
О чём код?
object FormBaseObjects: TFormBaseObjects Left = 0 Top = 0 Caption = 'Lab1 - '#1041#1072#1079#1086#1074#1099#1077' '#1086#1073#1098#1077#1082#1090#1099 ClientHeight = 480 ClientWidth = 640 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] OnCreate = FormCreate TextHeight = 15 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 640 Height = 480 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 156.463424682617200000 PenAsTouch = False Align = alClient TabOrder = 0 ExplicitLeft = 8 end object Panel1: TPanel Left = 8 Top = 431 Width = 624 Height = 41 TabOrder = 1 object RadioGroup1: TRadioGroup Left = 1 Top = 1 Width = 622 Height = 39 Align = alClient BiDiMode = bdLeftToRight Caption = #1042#1099#1073#1077#1088#1077#1090#1077' '#1092#1080#1075#1091#1088#1091':' Columns = 5 ItemIndex = 0 Items.Strings = ( #1058#1077#1090#1088#1072#1101#1076#1088 #1043#1077#1082#1089#1072#1101#1076#1088 #1054#1082#1090#1072#1101#1076#1088 #1044#1086#1076#1077#1082#1072#1101#1076#1088 #1048#1082#1086#1089#1072#1101#1076#1088) ParentBiDiMode = False TabOrder = 0 OnClick = RadioGroup1Click end end object Panel2: TPanel Left = 8 Top = 333 Width = 145 Height = 73 TabOrder = 2 object Label1: TLabel Left = 1 Top = 8 Width = 130 Height = 15 Caption = #1042#1099#1073#1077#1088#1077#1090#1077' '#1085#1086#1084#1077#1088' '#1075#1088#1072#1085#1080':' Color = clBtnText Font.Charset = DEFAULT_CHARSET Font.Color = clDefault Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] ParentColor = False ParentFont = False end object ComboBox1: TComboBox Left = 1 Top = 29 Width = 56 Height = 23 TabOrder = 0 Text = 'ComboBox1' OnChange = ComboBox1Change end end object GLScene1: TGLScene Left = 40 Top = 24 object GLCamera1: TGLCamera DepthOfView = 10000.000000000000000000 FocalLength = 50.000000000000000000 SceneScale = 5.000000000000000000 TargetObject = dc CameraStyle = csInfinitePerspective Position.Coordinates = {0000804000008040000080400000803F} object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000803F00004040000000400000803F} SpotCutOff = 180.000000000000000000 end end object dc: TGLDummyCube CubeSize = 1.000000000000000000 object dcPolyDod: TGLDummyCube ShowAxes = True Visible = False CubeSize = 1.000000000000000000 object Pentagon0: TGLPolygon Nodes = < item X = -0.485410183668136600 Z = 0.185410201549530000 end item X = -0.300000011920929000 Y = -0.300000011920929000 Z = 0.300000011920929000 end item Y = -0.185410201549530000 Z = 0.485410213470459000 end item Y = 0.185410201549530000 Z = 0.485410213470459000 end item X = -0.300000011920929000 Y = 0.300000011920929000 Z = 0.300000011920929000 end> end object Pentagon1: TGLPolygon Material.LibMaterialName = 'clrMidnightBlue' Nodes = < item X = -0.485410213470459000 Z = -0.185410201549530000 end item X = -0.300000011920929000 Y = 0.300000011920929000 Z = -0.300000011920929000 end item Y = 0.185410201549530000 Z = -0.485410213470459000 end item Y = -0.185410201549530000 Z = -0.485410213470459000 end item X = -0.300000011920929000 Y = -0.300000011920929000 Z = -0.300000011920929000 end> end object Pentagon2: TGLPolygon Material.LibMaterialName = 'clrViolet' Nodes = < item X = 0.485410213470459000 Z = -0.185410201549530000 end item X = 0.300000011920929000 Y = -0.300000011920929000 Z = -0.300000011920929000 end item Y = -0.185410201549530000 Z = -0.485410213470459000 end item Y = 0.185410201549530000 Z = -0.485410213470459000 end item X = 0.300000011920929000 Y = 0.300000011920929000 Z = -0.300000011920929000 end> end object Pentagon3: TGLPolygon Material.LibMaterialName = 'clrRed' Nodes = < item X = 0.485410213470459000 Z = 0.185410201549530000 end item X = 0.300000011920929000 Y = 0.300000011920929000 Z = 0.300000011920929000 end item Y = 0.185410201549530000 Z = 0.485410213470459000 end item Y = -0.185410201549530000 Z = 0.485410213470459000 end item X = 0.300000011920929000 Y = -0.300000011920929000 Z = 0.300000011920929000 end> end object Pentagon4: TGLPolygon Material.LibMaterialName = 'clrOrangeRed' Nodes = < item X = 0.185410201549530000 Y = -0.485410213470459000 end item X = 0.300000011920929000 Y = -0.300000011920929000 Z = -0.300000011920929000 end item X = 0.485410213470459000 Z = -0.185410201549530000 end item X = 0.485410213470459000 Z = 0.185410201549530000 end item X = 0.300000011920929000 Y = -0.300000011920929000 Z = 0.300000011920929000 end> end object Pentagon5: TGLPolygon Material.LibMaterialName = 'clrOrange' Nodes = < item X = -0.185410201549530000 Y = -0.485410213470459000 end item X = -0.300000011920929000 Y = -0.300000011920929000 Z = 0.300000011920929000 end item X = -0.485410213470459000 Z = 0.185410201549530000 end item X = -0.485410213470459000 Z = -0.185410201549530000 end item X = -0.300000011920929000 Y = -0.300000011920929000 Z = -0.300000011920929000 end> end object Pentagon6: TGLPolygon Material.LibMaterialName = 'clrOrange' Nodes = < item X = -0.185410201549530000 Y = 0.485410213470459000 end item X = -0.300000011920929000 Y = 0.300000011920929000 Z = -0.300000011920929000 end item X = -0.485410213470459000 Z = -0.185410201549530000 end item X = -0.485410213470459000 Z = 0.185410201549530000 end item X = -0.300000011920929000 Y = 0.300000011920929000 Z = 0.300000011920929000 end> end object Pentagon7: TGLPolygon Material.LibMaterialName = 'clrOldGold' Nodes = < item X = 0.185410201549530000 Y = 0.485410213470459000 end item X = 0.300000011920929000 Y = 0.300000011920929000 Z = 0.300000011920929000 end item X = 0.485410213470459000 Z = 0.185410201549530000 end item X = 0.485410213470459000 Z = -0.185410201549530000 end item X = 0.300000011920929000 Y = 0.300000011920929000 Z = -0.300000011920929000 end> end object Pentagon8: TGLPolygon Material.LibMaterialName = 'clrGreen' Nodes = < item Y = 0.185410201549530000 Z = -0.485410213470459000 end item X = -0.300000011920929000 Y = 0.300000011920929000 Z = -0.300000011920929000 end item X = -0.185410201549530000 Y = 0.485410213470459000 end item X = 0.185410201549530000 Y = 0.485410213470459000 end item X = 0.300000011920929000 Y = 0.300000011920929000 Z = -0.300000011920929000 end> end object Pentagon9: TGLPolygon Material.LibMaterialName = 'clrForestGreen' Nodes = < item Y = -0.185410201549530000 Z = -0.485410213470459000 end item X = 0.300000011920929000 Y = -0.300000011920929000 Z = -0.300000011920929000 end item X = 0.185410201549530000 Y = -0.485410213470459000 end item X = -0.185410201549530000 Y = -0.485410213470459000 end item X = -0.300000011920929000 Y = -0.300000011920929000 Z = -0.300000011920929000 end> end object Pentagon10: TGLPolygon Material.LibMaterialName = 'clrSkyBlue' Nodes = < item Y = -0.185410201549530000 Z = 0.485410213470459000 end item X = -0.300000011920929000 Y = -0.300000011920929000 Z = 0.300000011920929000 end item X = -0.185410201549530000 Y = -0.485410213470459000 end item X = 0.185410201549530000 Y = -0.485410213470459000 end item X = 0.300000011920929000 Y = -0.300000011920929000 Z = 0.300000011920929000 end> end object Pentagon11: TGLPolygon Material.LibMaterialName = 'clrSteelBlue' Nodes = < item Y = 0.185410201549530000 Z = 0.485410213470459000 end item X = 0.300000011920929000 Y = 0.300000011920929000 Z = 0.300000011920929000 end item X = 0.185410201549530000 Y = 0.485410213470459000 end item X = -0.185410201549530000 Y = 0.485410213470459000 end item X = -0.300000011920929000 Y = 0.300000011920929000 Z = 0.300000011920929000 end> end end object dcPolyOct: TGLDummyCube Visible = False CubeSize = 1.000000000000000000 object OctTriangle0: TGLPolygon Material.LibMaterialName = 'clrAquamarine' Nodes = < item X = 0.500000000000000000 end item Z = -0.500000000000000000 end item Y = 0.500000000000000000 end> end object OctTriangle1: TGLPolygon Material.LibMaterialName = 'clrBakersChoc' Nodes = < item X = -0.500000000000000000 end item Y = 0.500000000000000000 end item Z = 0.500000000000000000 end> end object OctTriangle2: TGLPolygon Material.LibMaterialName = 'clrBlueViolet' Nodes = < item X = 0.500000000000000000 end item Y = -0.500000000000000000 end item Z = 0.500000000000000000 end> end object OctTriangle3: TGLPolygon Material.LibMaterialName = 'clrBrass' Nodes = < item X = -0.500000000000000000 end item Z = 0.500000000000000000 end item Y = -0.500000000000000000 end> end object OctTriangle4: TGLPolygon Material.LibMaterialName = 'clrBrightGold' Nodes = < item X = 0.500000000000000000 end item Z = 0.500000000000000000 end item Y = 0.500000000000000000 end> end object OctTriangle5: TGLPolygon Material.LibMaterialName = 'clrCadetBlue' Nodes = < item X = -0.500000000000000000 end item Z = -0.500000000000000000 end item Y = 0.500000000000000000 end> end object OctTriangle6: TGLPolygon Material.LibMaterialName = 'clrSkyBlue' Nodes = < item X = 0.500000000000000000 end item Z = -0.500000000000000000 end item Y = -0.500000000000000000 end> end object OctTriangle7: TGLPolygon Material.LibMaterialName = 'clrCoral' Nodes = < item X = -0.500000000000000000 end item Y = -0.500000000000000000 end item Z = -0.500000000000000000 end> end end object dcPolyHex: TGLDummyCube Visible = False CubeSize = 1.000000000000000000 object Quadrangle0: TGLPolygon Material.LibMaterialName = 'clrGreen' Nodes = < item X = -0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end> end object Quadrangle1: TGLPolygon Material.LibMaterialName = 'clrMidnightBlue' Nodes = < item X = -0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end> end object Quadrangle2: TGLPolygon Material.LibMaterialName = 'clrViolet' Nodes = < item X = -0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end> end object Quadrangle3: TGLPolygon Material.LibMaterialName = 'clrRed' Nodes = < item X = -0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end> end object Quadrangle4: TGLPolygon Material.LibMaterialName = 'clrBronze' Nodes = < item X = -0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end> end object Quadrangle5: TGLPolygon Material.LibMaterialName = 'clrSteelBlue' Nodes = < item X = 0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end> end end object dcPolyIco: TGLDummyCube Visible = False CubeSize = 1.000000000000000000 object IcoTriangle0: TGLPolygon Material.LibMaterialName = 'clrBlue' Nodes = < item Y = 0.309017002582550000 Z = -0.500000000000000000 end item X = -0.309017002582550000 Y = 0.500000000000000000 end item X = 0.309017002582550000 Y = 0.500000000000000000 end> end object IcoTriangle1: TGLPolygon Material.LibMaterialName = 'clrMidnightBlue' Nodes = < item Y = 0.309017002582550000 Z = 0.500000000000000000 end item X = 0.309017002582550000 Y = 0.500000000000000000 end item X = -0.309017002582550000 Y = 0.500000000000000000 end> end object IcoTriangle2: TGLPolygon Material.LibMaterialName = 'clrViolet' Nodes = < item Y = 0.309017002582550000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Z = 0.309017002582550000 end item Y = -0.309017002582550000 Z = 0.500000000000000000 end> end object IcoTriangle3: TGLPolygon Material.LibMaterialName = 'clrRed' Nodes = < item Y = 0.309017002582550000 Z = 0.500000000000000000 end item Y = -0.309017002582550000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Z = 0.309017002582550000 end> end object IcoTriangle4: TGLPolygon Material.LibMaterialName = 'clrOrangeRed' Nodes = < item Y = 0.309017002582550000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Z = -0.309017002582550000 end item Y = -0.309017002582550000 Z = -0.500000000000000000 end> end object IcoTriangle5: TGLPolygon Material.LibMaterialName = 'clrBronze' Nodes = < item Y = 0.309017002582550000 Z = -0.500000000000000000 end item Y = -0.309017002582550000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Z = -0.309017002582550000 end> end object IcoTriangle6: TGLPolygon Material.LibMaterialName = 'clrOldGold' Nodes = < item Y = -0.309017002582550000 Z = 0.500000000000000000 end item X = -0.309017002582550000 Y = -0.500000000000000000 end item X = 0.309017002582550000 Y = -0.500000000000000000 end> end object IcoTriangle7: TGLPolygon Material.LibMaterialName = 'clrGreen' Nodes = < item Y = -0.309017002582550000 Z = -0.500000000000000000 end item X = 0.309017002582550000 Y = -0.500000000000000000 end item X = -0.309017002582550000 Y = -0.500000000000000000 end> end object IcoTriangle8: TGLPolygon Material.LibMaterialName = 'clrForestGreen' Nodes = < item X = -0.309017002582550000 Y = 0.500000000000000000 end item X = -0.500000000000000000 Z = -0.309017002582550000 end item X = -0.500000000000000000 Z = 0.309017002582550000 end> end object IcoTriangle9: TGLPolygon Material.LibMaterialName = 'clrSkyBlue' Nodes = < item X = -0.309017002582550000 Y = -0.500000000000000000 end item X = -0.500000000000000000 Z = 0.309017002582550000 end item X = -0.500000000000000000 Z = -0.309017002582550000 end> end object IcoTriangle10: TGLPolygon Material.LibMaterialName = 'clrSteelBlue' Nodes = < item X = 0.309017002582550000 Y = 0.500000000000000000 end item X = 0.500000000000000000 Z = 0.309017002582550000 end item X = 0.500000000000000000 Z = -0.309017002582550000 end> end object IcoTriangle11: TGLPolygon Material.LibMaterialName = 'clrAquamarine' Nodes = < item X = 0.309017002582550000 Y = -0.500000000000000000 end item X = 0.500000000000000000 Z = -0.309017002582550000 end item X = 0.500000000000000000 Z = 0.309017002582550000 end> end object IcoTriangle12: TGLPolygon Material.LibMaterialName = 'clrBakersChoc' Nodes = < item Y = 0.309017002582550000 Z = 0.500000000000000000 end item X = -0.309017002582550000 Y = 0.500000000000000000 end item X = -0.500000000000000000 Z = 0.309017002582550000 end> end object IcoTriangle13: TGLPolygon Material.LibMaterialName = 'clrBlueViolet' Nodes = < item Y = 0.309017002582550000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Z = 0.309017002582550000 end item X = 0.309017002582550000 Y = 0.500000000000000000 end> end object IcoTriangle14: TGLPolygon Material.LibMaterialName = 'clrBrass' Nodes = < item Y = 0.309017002582550000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Z = -0.309017002582550000 end item X = -0.309017002582550000 Y = 0.500000000000000000 end> end object IcoTriangle15: TGLPolygon Material.LibMaterialName = 'clrBrightGold' Nodes = < item Y = 0.309017002582550000 Z = -0.500000000000000000 end item X = 0.309017002582550000 Y = 0.500000000000000000 end item X = 0.500000000000000000 Z = -0.309017002582550000 end> end object IcoTriangle16: TGLPolygon Material.LibMaterialName = 'clrCadetBlue' Nodes = < item Y = -0.309017002582550000 Z = -0.500000000000000000 end item X = -0.309017002582550000 Y = -0.500000000000000000 end item X = -0.500000000000000000 Z = -0.309017002582550000 end> end object IcoTriangle17: TGLPolygon Material.LibMaterialName = 'clrMidnightBlue' Nodes = < item Y = -0.309017002582550000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Z = -0.309017002582550000 end item X = 0.309017002582550000 Y = -0.500000000000000000 end> end object IcoTriangle18: TGLPolygon Material.LibMaterialName = 'clrCoolCopper' Nodes = < item Y = -0.309017002582550000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Z = 0.309017002582550000 end item X = -0.309017002582550000 Y = -0.500000000000000000 end> end object IcoTriangle19: TGLPolygon Material.LibMaterialName = 'clrCoral' Nodes = < item Y = -0.309017002582550000 Z = 0.500000000000000000 end item X = 0.309017002582550000 Y = -0.500000000000000000 end item X = 0.500000000000000000 Z = 0.309017002582550000 end> end end object dcPolyTet: TGLDummyCube CubeSize = 1.000000000000000000 object TetTriangle0: TGLPolygon Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'clBlue' Nodes = < item X = 0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end> end object TetTriangle1: TGLPolygon Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'clRed' Nodes = < item X = -0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end> end object TetTriangle2: TGLPolygon Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'clGreen' Nodes = < item X = -0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end item X = -0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = 0.500000000000000000 Y = 0.500000000000000000 Z = 0.500000000000000000 end> end object TetTriangle3: TGLPolygon Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'clYellow' Nodes = < item X = 0.500000000000000000 Y = -0.500000000000000000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Y = 0.500000000000000000 Z = -0.500000000000000000 end item X = -0.500000000000000000 Y = -0.500000000000000000 Z = 0.500000000000000000 end> end end end end object GLSimpleNavigation1: TGLSimpleNavigation Form = Owner GLSceneViewer = GLSceneViewer1 FormCaption = 'Lab1 - '#1041#1072#1079#1086#1074#1099#1077' '#1086#1073#1098#1077#1082#1090#1099' - %FPS' KeyCombinations = < item ShiftState = [ssLeft, ssRight] Action = snaZoom end item ShiftState = [ssLeft] Action = snaMoveAroundTarget end item ShiftState = [ssRight] Action = snaMoveAroundTarget end> Left = 40 Top = 88 end object GLMaterialLibrary1: TGLMaterialLibrary Materials = < item Name = 'clRed' Tag = 0 Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F} end item Name = 'clGreen' Tag = 0 Material.FrontProperties.Diffuse.Color = {000000000000803F000000000000803F} end item Name = 'clYellow' Tag = 0 Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F} end item Name = 'clBlue' Tag = 0 Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F} end> Left = 40 Top = 160 end object ColorDialog1: TColorDialog Left = 40 Top = 240 end end