Unit1.dfm 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171
  1. object Form1: TForm1
  2. Left = 175
  3. Top = 104
  4. Caption = 'Octree'
  5. ClientHeight = 385
  6. ClientWidth = 554
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. WindowState = wsMaximized
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer2: TGLSceneViewer
  18. Left = 0
  19. Top = 49
  20. Width = 554
  21. Height = 336
  22. Camera = GLCamera2
  23. Buffer.BackgroundColor = 8404992
  24. Buffer.ShadeModel = smSmooth
  25. FieldOfView = 146.851989746093800000
  26. PenAsTouch = False
  27. Align = alClient
  28. OnMouseDown = GLSceneViewer2MouseDown
  29. OnMouseMove = GLSceneViewer2MouseMove
  30. TabOrder = 0
  31. end
  32. object Panel1: TPanel
  33. Left = 0
  34. Top = 0
  35. Width = 554
  36. Height = 49
  37. Align = alTop
  38. BevelOuter = bvNone
  39. TabOrder = 1
  40. object Label1: TLabel
  41. Left = 320
  42. Top = 1
  43. Width = 32
  44. Height = 13
  45. Caption = 'Label1'
  46. end
  47. object Label2: TLabel
  48. Left = 320
  49. Top = 17
  50. Width = 32
  51. Height = 13
  52. Caption = 'Label2'
  53. end
  54. object Label3: TLabel
  55. Left = 320
  56. Top = 33
  57. Width = 32
  58. Height = 13
  59. Caption = 'Label3'
  60. end
  61. object Label5: TLabel
  62. Left = 8
  63. Top = 8
  64. Width = 32
  65. Height = 13
  66. Caption = 'Label5'
  67. end
  68. object LABuild: TLabel
  69. Left = 8
  70. Top = 24
  71. Width = 36
  72. Height = 13
  73. Caption = 'LABuild'
  74. end
  75. object Label4: TLabel
  76. Left = 152
  77. Top = 32
  78. Width = 32
  79. Height = 13
  80. Caption = 'Label4'
  81. end
  82. object LabelFPS: TLabel
  83. Left = 488
  84. Top = 17
  85. Width = 20
  86. Height = 13
  87. Caption = 'FPS'
  88. end
  89. object CheckBox1: TCheckBox
  90. Left = 152
  91. Top = 16
  92. Width = 97
  93. Height = 17
  94. Caption = 'Auto collide'
  95. Checked = True
  96. State = cbChecked
  97. TabOrder = 0
  98. end
  99. object CBOctree: TCheckBox
  100. Left = 152
  101. Top = 0
  102. Width = 97
  103. Height = 17
  104. Caption = 'Octree enabled'
  105. Checked = True
  106. State = cbChecked
  107. TabOrder = 1
  108. end
  109. end
  110. object GLScene1: TGLScene
  111. Left = 40
  112. Top = 72
  113. object GLLightSource1: TGLLightSource
  114. Ambient.Color = {000000001283003F0000803F0000803F}
  115. ConstAttenuation = 1.000000000000000000
  116. Position.Coordinates = {00004842000016430000C8420000803F}
  117. LightStyle = lsOmni
  118. Specular.Color = {0000803F00000000000000000000803F}
  119. SpotCutOff = 180.000000000000000000
  120. end
  121. object DummyCube1: TGLDummyCube
  122. CubeSize = 1.000000000000000000
  123. object FreeForm1: TGLFreeForm
  124. Direction.Coordinates = {000000000000803F0000000000000000}
  125. Scale.Coordinates = {CDCCCC3DCDCCCC3DCDCCCC3D00000000}
  126. Up.Coordinates = {00000000000000000000803F00000000}
  127. end
  128. end
  129. object Sphere1: TGLSphere
  130. Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
  131. Direction.Coordinates = {000000000000803F0000000000000000}
  132. Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
  133. Radius = 0.300000011920929000
  134. Slices = 6
  135. Stacks = 6
  136. object ArrowLine1: TGLArrowLine
  137. Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F9A99193F}
  138. Material.FrontProperties.Emission.Color = {1283803E1283803E000000000000803F}
  139. Material.BlendingMode = bmTransparency
  140. Position.Coordinates = {0000000000000000CDCCCC3D0000803F}
  141. BottomRadius = 0.050000000745058060
  142. Height = 1.000000000000000000
  143. TopRadius = 0.100000001490116100
  144. TopArrowHeadHeight = 0.500000000000000000
  145. TopArrowHeadRadius = 0.200000002980232200
  146. BottomArrowHeadHeight = 0.500000000000000000
  147. BottomArrowHeadRadius = 0.200000002980232200
  148. end
  149. end
  150. object GLCamera2: TGLCamera
  151. DepthOfView = 100.000000000000000000
  152. FocalLength = 50.000000000000000000
  153. TargetObject = DummyCube1
  154. Position.Coordinates = {0000A040000010C10000A0410000803F}
  155. Direction.Coordinates = {00000000000000000000803F00000000}
  156. Up.Coordinates = {67C57BBF3B5B393E0000000000000000}
  157. end
  158. end
  159. object GLCadencer1: TGLCadencer
  160. Scene = GLScene1
  161. OnProgress = GLCadencer1Progress
  162. Left = 40
  163. Top = 144
  164. end
  165. object Timer1: TTimer
  166. Interval = 300
  167. OnTimer = Timer1Timer
  168. Left = 144
  169. Top = 72
  170. end
  171. end