object Form1: TForm1 Left = 0 Top = 0 Caption = 'Ray Box' ClientHeight = 390 ClientWidth = 518 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnKeyPress = FormKeyPress OnMouseWheel = FormMouseWheel OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Viewer: TGLSceneViewer Left = 0 Top = 41 Width = 518 Height = 349 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 148.022491455078100000 Align = alClient OnMouseDown = ViewerMouseDown OnMouseMove = ViewerMouseMove TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 0 Width = 518 Height = 41 Align = alTop TabOrder = 1 object Label1: TLabel Left = 296 Top = 12 Width = 34 Height = 13 Caption = 'Result:' end object LabelFPS: TLabel Left = 488 Top = 12 Width = 18 Height = 13 Caption = 'FPS' end object Button1: TButton Left = 8 Top = 8 Width = 75 Height = 25 Caption = 'Test!' Default = True TabOrder = 0 OnClick = Button1Click end object CheckBox1: TCheckBox Left = 99 Top = 12 Width = 70 Height = 17 Caption = 'View box' Checked = True State = cbChecked TabOrder = 1 OnClick = CheckBox1Click end object CheckBox2: TCheckBox Left = 178 Top = 12 Width = 112 Height = 17 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