object FormWhirl: TFormWhirl Left = 0 Top = 0 Caption = 'Whirlwind' ClientHeight = 378 ClientWidth = 513 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Position = poScreenCenter TextHeight = 13 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 513 Height = 350 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 163.739791870117200000 PenAsTouch = False Align = alClient OnMouseDown = GLSceneViewer1MouseDown OnMouseMove = GLSceneViewer1MouseMove TabOrder = 0 ExplicitWidth = 472 ExplicitHeight = 301 end object Panel1: TPanel Left = 0 Top = 350 Width = 513 Height = 28 Align = alBottom Caption = 'FPS' TabOrder = 1 ExplicitTop = 268 ExplicitWidth = 441 end object Timer1: TTimer Interval = 10000 OnTimer = Timer1Timer Left = 152 Top = 40 end object GLCadencer1: TGLCadencer Scene = GLScene1 OnProgress = GLCadencer1Progress Left = 64 Top = 104 end object GLScene1: TGLScene Left = 64 Top = 40 object GLParticles1: TGLParticles ObjectsSorting = osNone CubeSize = 1.000000000000000000 ParticlePoolSize = 10 OnActivateParticle = GLParticles1ActivateParticle object DummyCube1: TGLDummyCube CubeSize = 1.000000000000000000 BehavioursData = { 0458434F4C02010201060B54474C42496E657274696102001200000000020002 00050000000000000080FF3F0200080500000000000000000000050000000000 0000000000050000000000000000000008020008020008} object Sprite1: TGLSprite Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F} Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F} Material.FrontProperties.Emission.Color = {0000803F0000803F0000803F0000803F} Width = 0.100000001490116100 Height = 0.100000001490116100 Rotation = 0.000000000000000000 end end end object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 25.000000000000000000 TargetObject = GLParticles1 Position.Coordinates = {0000204100004040000000000000803F} end end end