object FormProjection: TFormProjection Left = 160 Top = 79 Caption = 'Projection' ClientHeight = 408 ClientWidth = 540 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnMouseWheel = FormMouseWheel PixelsPerInch = 96 TextHeight = 13 object SceneViewer: TGLSceneViewer Left = 0 Top = 0 Width = 540 Height = 408 Camera = GLCamera Buffer.BackgroundColor = clBlack Buffer.FaceCulling = False Buffer.AntiAliasing = aa4xHQ FieldOfView = 147.220916748046900000 PenAsTouch = False Align = alClient OnMouseDown = SceneViewerMouseDown OnMouseMove = SceneViewerMouseMove TabOrder = 0 end object GLScene1: TGLScene ObjectsSorting = osNone Left = 24 Top = 24 object GLCamera: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 60.000000000000000000 TargetObject = GLDummyCube Position.Coordinates = {0000E0400000A040000040400000803F} end object GLDummyCube: TGLDummyCube CubeSize = 1.000000000000000000 object GLArrowLine1: TGLArrowLine Direction.Coordinates = {000000000000803F0000000000000000} Up.Coordinates = {0000000000000000000080BF00000000} BottomRadius = 0.100000001490116100 Height = 1.000000000000000000 TopRadius = 0.100000001490116100 TopArrowHeadHeight = 0.500000000000000000 TopArrowHeadRadius = 0.200000002980232200 BottomArrowHeadHeight = 0.500000000000000000 BottomArrowHeadRadius = 0.200000002980232200 end object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000484200004842000000000000803F} SpotCutOff = 180.000000000000000000 end end object DirectOpenGL: TGLDirectOpenGL UseBuildList = False OnRender = DirectOpenGLRender Blend = False end object GLPoints: TGLPoints NoZWrite = False Static = False Size = 5.000000000000000000 Style = psSmooth end object GLPlane: TGLPlane Material.FrontProperties.Diffuse.Color = {0000003F0000003F0000803FCDCC4C3F} Material.BlendingMode = bmTransparency Material.MaterialOptions = [moNoLighting] Direction.Coordinates = {000000000000803F0000000000000000} Up.Coordinates = {00000000000000000000803F00000000} Height = 6.000000000000000000 Width = 6.000000000000000000 object GLXYZGrid1: TGLXYZGrid Visible = False LineColor.Color = {0000803F0000803F0000803F0000003F} XSamplingScale.Min = -3.000000000000000000 XSamplingScale.Max = 3.000000000000000000 XSamplingScale.Origin = 1.000000000000000000 XSamplingScale.Step = 0.500000000000000000 YSamplingScale.Min = -3.000000000000000000 YSamplingScale.Max = 3.000000000000000000 YSamplingScale.Step = 0.500000000000000000 ZSamplingScale.Step = 0.100000001490116100 end end end end