ArenaZ

1
object Form1: TForm1
2
  Left = 189
3
  Height = 659
4
  Top = 161
5
  Width = 868
6
  Caption = 'Form1'
7
  ClientHeight = 659
8
  ClientWidth = 868
9
  Color = clBtnFace
10
  Font.Color = clWindowText
11
  Font.Height = -11
12
  Font.Name = 'MS Sans Serif'
13
  OnCreate = FormCreate
14
  OnResize = FormResize
15
  LCLVersion = '1.6.4.0'
16
  object GLSceneViewer1: TGLSceneViewer
17
    Left = 0
18
    Height = 659
19
    Top = 0
20
    Width = 868
21
    Camera = GLCamera1
22
    Buffer.BackgroundColor = clBlack
23
    Buffer.AmbientColor.Red = 0.200000002980232
24
    Buffer.AmbientColor.Green = 0.200000002980232
25
    Buffer.AmbientColor.Blue = 0.200000002980232
26
    Buffer.AmbientColor.Alpha = 1
27
    Buffer.DepthTest = False
28
    FieldOfView = 162.742950439453
29
    Align = alClient
30
    OnMouseDown = GLSceneViewer1MouseDown
31
    OnMouseMove = GLSceneViewer1MouseMove
32
    OnMouseWheel = FormMouseWheel
33
    TabOrder = 0
34
  end
35
  object GLScene1: TGLScene
36
    left = 8
37
    top = 8
38
    object GLDummyCube1: TGLDummyCube
39
      TagFloat = 0
40
      PitchAngle = 0
41
      RollAngle = 0
42
      TurnAngle = 0
43
      CubeSize = 20
44
      EdgeColor.Red = 1
45
      EdgeColor.Green = 1
46
      EdgeColor.Blue = 1
47
      EdgeColor.Alpha = 1
48
      VisibleAtRunTime = True
49
      object GLParticles1: TGLParticles
50
        TagFloat = 0
51
        ObjectsSorting = osNone
52
        PitchAngle = 0
53
        RollAngle = 0
54
        Scale.Coordinates = {
55
          00000040000000400000004000000000
56
        }
57
        TurnAngle = 0
58
        CubeSize = 1
59
        EdgeColor.Red = 1
60
        EdgeColor.Green = 1
61
        EdgeColor.Blue = 1
62
        EdgeColor.Alpha = 1
63
        OnActivateParticle = GLParticles1ActivateParticle
64
      end
65
    end
66
    object GLCamera1: TGLCamera
67
      TagFloat = 0
68
      DepthOfView = 100
69
      FocalLength = 50
70
      TargetObject = GLParticles1
71
      Position.Coordinates = {
72
        0000704100000000000000000000803F
73
      }
74
    end
75
  end
76
  object GLCadencer1: TGLCadencer
77
    Scene = GLScene1
78
    MaxDeltaTime = 0
79
    MinDeltaTime = 0
80
    FixedDeltaTime = 0
81
    SleepLength = 1
82
    left = 8
83
    top = 48
84
  end
85
  object Timer1: TTimer
86
    Interval = 100
87
    OnTimer = Timer1Timer
88
    left = 48
89
    top = 8
90
  end
91
  object Timer2: TTimer
92
    OnTimer = Timer2Timer
93
    left = 48
94
    top = 48
95
  end
96
end
97