object FormVolcano: TFormVolcano Left = 171 Top = 95 Margins.Left = 2 Margins.Top = 2 Margins.Right = 2 Margins.Bottom = 2 Caption = 'Volcano' ClientHeight = 494 ClientWidth = 699 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate TextHeight = 13 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 615 Height = 467 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 155.827239990234400000 PenAsTouch = False Align = alClient TabOrder = 0 end object RadioGroup1: TRadioGroup Left = 615 Top = 0 Width = 84 Height = 467 Align = alRight Caption = 'Mode' ItemIndex = 1 Items.Strings = ( 'Sleepy' 'Gentle' 'Average' 'Restless' 'Angry' 'Inferno') TabOrder = 1 OnClick = RadioGroup1Click ExplicitLeft = 607 ExplicitHeight = 442 end object Panel1: TPanel Left = 0 Top = 467 Width = 699 Height = 27 Align = alBottom Caption = 'FPS' TabOrder = 2 ExplicitTop = 442 ExplicitWidth = 691 end object GLScene1: TGLScene Left = 24 Top = 16 object DCVolcano: TGLDummyCube CubeSize = 1.000000000000000000 BehavioursData = { 0458434F4C02010201060B54474C42496E65727469610200060E53696D706C65 20496E657274696102000200050000000000000080FF3F020008050000000000 0000B40540050000000000000000000005000000000000000000000902000802 0008} EffectsData = { 0458434F4C02010201061254474C536F75726365504658456666656374020202 00120000000002000200060A504658566F6C63616E6F050000000000000080FF 3F02060200090000000000004040000000000000000002000802000805000000 0000000080FF3F050000000000CDCCCCFC3F0500000000008FC2F5F83F020002 00090500000000000000000000080200} object Sphere1: TGLSphere Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F} Material.FrontProperties.Emission.Color = {00000000000000008180003F0000803F} Position.Coordinates = {0000000000000040000000400000803F} Radius = 0.300000011920929000 Slices = 12 Stacks = 12 EffectsData = { 0458434F4C02010201061254474C536F75726365504658456666656374020202 001200000000020002000607504658426C7565050000000000000080FF3F0206 020008020008020008050000000000CDCCCCFB3F050000000000CDCCCCFB3F05 0000000000CDCCCCFB3F02000200090500000000000000000000080200} end end object PFXRenderer: TGLParticleFXRenderer end object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000204100002041000000000000803F} SpotCutOff = 180.000000000000000000 end object DCCamera: TGLDummyCube Position.Coordinates = {0000000000004040000000000000803F} CubeSize = 1.000000000000000000 object GLCamera1: TGLCamera DepthOfView = 30.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = DCCamera Position.Coordinates = {00002041000000410000C0400000803F} end end end object PFXVolcano: TGLPolygonPFXManager Cadencer = GLCadencer1 Renderer = PFXRenderer Acceleration.Coordinates = {00000000000080BF0000000000000000} Friction = 1.000000000000000000 NbSides = 7 ParticleSize = 0.250000000000000000 ColorOuter.Color = {0000803F000000000000000000000000} LifeColors = < item ColorInner.Color = {0000803F000000000000000000000000} LifeTime = 7.000000000000000000 SizeScale = 1.000000000000000000 end> Left = 96 Top = 16 end object GLCadencer1: TGLCadencer Scene = GLScene1 OnProgress = GLCadencer1Progress Left = 96 Top = 72 end object Timer1: TTimer OnTimer = Timer1Timer Left = 248 Top = 16 end object PFXBlue: TGLPolygonPFXManager Cadencer = GLCadencer1 Renderer = PFXRenderer Friction = 1.000000000000000000 ParticleSize = 0.550000011920929000 ColorInner.Color = {00000000000000000000803F0000803F} ColorOuter.Color = {00000000000000001283203F00000000} LifeColors = < item ColorInner.Color = {0000803F0000803F0000803F00000000} LifeTime = 3.000000000000000000 SizeScale = 1.000000000000000000 end> Left = 24 Top = 72 end end