object Form1: TForm1 Left = 0 Top = 0 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Ray Box' ClientHeight = 683 ClientWidth = 921 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [] OnCreate = FormCreate OnKeyPress = FormKeyPress OnMouseWheel = FormMouseWheel OnResize = FormResize PixelsPerInch = 168 TextHeight = 23 object Viewer: TGLSceneViewer Left = 0 Top = 72 Width = 921 Height = 611 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 161.410064697265600000 PenAsTouch = False Align = alClient OnMouseDown = ViewerMouseDown OnMouseMove = ViewerMouseMove TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 0 Width = 921 Height = 72 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Align = alTop TabOrder = 1 object Label1: TLabel Left = 518 Top = 21 Width = 58 Height = 23 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Result:' end object LabelFPS: TLabel Left = 854 Top = 21 Width = 31 Height = 23 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'FPS' end object ButtonTest: TButton Left = 14 Top = 14 Width = 131 Height = 44 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Test!' Default = True TabOrder = 0 OnClick = ButtonTestClick end object CheckBox1: TCheckBox Left = 173 Top = 21 Width = 123 Height = 30 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'View box' Checked = True State = cbChecked TabOrder = 1 OnClick = CheckBox1Click end object CheckBox2: TCheckBox Left = 312 Top = 21 Width = 196 Height = 30 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Change pos scale' Checked = True State = cbChecked TabOrder = 2 end end object GLScene: TGLScene Left = 24 Top = 56 object GLCamera1: TGLCamera DepthOfView = 500.000000000000000000 FocalLength = 50.000000000000000000 NearPlaneBias = 0.100000001490116100 TargetObject = DCCamTarg Position.Coordinates = {0000A04000000040000040400000803F} Direction.Coordinates = {000000000000803F0000008000000000} Up.Coordinates = {00000000000000000000803F00000000} Left = 256 Top = 144 end object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {00007A4400004844000016440000803F} SpotCutOff = 180.000000000000000000 end object GLLightSource2: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000FAC30000C8C3000096C30000803F} SpotCutOff = 180.000000000000000000 end object GLDummyCube1: TGLDummyCube CubeSize = 0.100000001490116100 VisibleAtRunTime = True end object DCCamTarg: TGLDummyCube CubeSize = 1.000000000000000000 object DCCube1: TGLDummyCube CubeSize = 1.000000000000000000 object GLCube1: TGLCube end end end object GLLines1: TGLLines Nodes = <> NodesAspect = lnaInvisible Division = 1 SplineMode = lsmSegments Options = [] end object GLPoints1: TGLPoints NoZWrite = False Static = False Size = 7.000000000000000000 end end object GLCadencer: TGLCadencer Scene = GLScene OnProgress = GLCadencerProgress Left = 80 Top = 56 end object Timer1: TTimer OnTimer = Timer1Timer Left = 24 Top = 112 end object GLMaterialLibrary: TGLMaterialLibrary Left = 88 Top = 112 end end