object FormTrails: TFormTrails Left = 222 Top = 103 Margins.Left = 4 Margins.Top = 4 Margins.Right = 4 Margins.Bottom = 4 Caption = 'Trails' ClientHeight = 771 ClientWidth = 874 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 168 TextHeight = 24 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 57 Width = 874 Height = 714 Margins.Left = 6 Margins.Top = 6 Margins.Right = 6 Margins.Bottom = 6 Camera = GLCamera1 Buffer.BackgroundColor = 4194304 FieldOfView = 164.054489135742200000 PenAsTouch = False Align = alClient OnMouseDown = GLSceneViewer1MouseDown OnMouseMove = GLSceneViewer1MouseMove TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 0 Width = 874 Height = 57 Margins.Left = 6 Margins.Top = 6 Margins.Right = 6 Margins.Bottom = 6 Align = alTop Caption = ' ' TabOrder = 1 object Label1: TLabel Left = 14 Top = 21 Width = 61 Height = 24 Margins.Left = 6 Margins.Top = 6 Margins.Right = 6 Margins.Bottom = 6 Caption = 'Speed:' end object TrackBarSpeed: TTrackBar Left = 84 Top = 7 Width = 232 Height = 43 Margins.Left = 6 Margins.Top = 6 Margins.Right = 6 Margins.Bottom = 6 Position = 1 TabOrder = 0 ThumbLength = 35 end end object GLScene1: TGLScene Left = 60 Top = 36 object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {00000000E1A22B41000000000000803F} SpotCutOff = 180.000000000000000000 end object GLSphere1: TGLSphere Position.Coordinates = {000000008E2EBA3F8C2EBA3E0000803F} Radius = 0.500000000000000000 end object Room: TGLSphere Material.PolygonMode = pmLines NormalDirection = ndInside Radius = 8.000000000000000000 end object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = Room Position.Coordinates = {CFBD804073312F409AF80A410000803F} Direction.Coordinates = {82FABBBE331FC9BE96D857BF00000000} Up.Coordinates = {3F9720BE056C6B3FE965B8BE00000000} end end object GLCadencer1: TGLCadencer Scene = GLScene1 OnProgress = GLCadencer1Progress Left = 100 Top = 36 end object Timer1: TTimer OnTimer = Timer1Timer Left = 140 Top = 36 end end