Unit1.dfm 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'ODE Fur Ball'
  5. ClientHeight = 442
  6. ClientWidth = 753
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. OnClose = FormClose
  15. OnCreate = FormCreate
  16. OnMouseWheel = FormMouseWheel
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object GLSceneViewer1: TGLSceneViewer
  20. Left = 0
  21. Top = 57
  22. Width = 753
  23. Height = 385
  24. Camera = GLCamera1
  25. Buffer.BackgroundColor = clSilver
  26. Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
  27. Buffer.AntiAliasing = aa4xHQ
  28. FieldOfView = 140.033782958984400000
  29. PenAsTouch = False
  30. Align = alClient
  31. OnMouseMove = GLSceneViewer1MouseMove
  32. TabOrder = 0
  33. end
  34. object Panel1: TPanel
  35. Left = 0
  36. Top = 0
  37. Width = 753
  38. Height = 57
  39. Align = alTop
  40. TabOrder = 1
  41. DesignSize = (
  42. 753
  43. 57)
  44. object Label1: TLabel
  45. Left = 327
  46. Top = 10
  47. Width = 153
  48. Height = 13
  49. Caption = '(Steer with A/D W/S UP/DOWN)'
  50. end
  51. object Label_FPS: TLabel
  52. Left = 623
  53. Top = 9
  54. Width = 18
  55. Height = 13
  56. Alignment = taRightJustify
  57. Anchors = [akLeft, akTop, akRight]
  58. Caption = 'FPS'
  59. end
  60. object CheckBox_LockBall: TCheckBox
  61. Left = 8
  62. Top = 8
  63. Width = 65
  64. Height = 17
  65. Caption = '&Lock Ball'
  66. TabOrder = 0
  67. end
  68. object CheckBox_Inertia: TCheckBox
  69. Left = 8
  70. Top = 24
  71. Width = 65
  72. Height = 17
  73. Caption = 'Fur &Inertia'
  74. Checked = True
  75. State = cbChecked
  76. TabOrder = 1
  77. OnClick = CheckBox_InertiaClick
  78. end
  79. object CheckBox_FurGravity: TCheckBox
  80. Left = 80
  81. Top = 8
  82. Width = 81
  83. Height = 17
  84. Caption = 'Fur &Gravity'
  85. Checked = True
  86. State = cbChecked
  87. TabOrder = 2
  88. OnClick = CheckBox_FurGravityClick
  89. end
  90. object CheckBox_WindResistence: TCheckBox
  91. Left = 160
  92. Top = 8
  93. Width = 105
  94. Height = 17
  95. Caption = '&Wind Resistence'
  96. Checked = True
  97. State = cbChecked
  98. TabOrder = 3
  99. OnClick = CheckBox_WindResistenceClick
  100. end
  101. object TrackBar_WindForce: TTrackBar
  102. Left = 160
  103. Top = 24
  104. Width = 105
  105. Height = 17
  106. Max = 100
  107. Position = 50
  108. TabOrder = 4
  109. ThumbLength = 10
  110. TickStyle = tsNone
  111. OnChange = TrackBar_WindForceChange
  112. end
  113. object CheckBox_Bald: TCheckBox
  114. Left = 272
  115. Top = 8
  116. Width = 49
  117. Height = 17
  118. Caption = '&Bald'
  119. TabOrder = 5
  120. OnClick = CheckBox_BaldClick
  121. end
  122. object CheckBox_Shadows: TCheckBox
  123. Left = 496
  124. Top = 8
  125. Width = 65
  126. Height = 17
  127. Caption = '&Shadows'
  128. TabOrder = 6
  129. OnClick = CheckBox_ShadowsClick
  130. end
  131. end
  132. object GLCadencer1: TGLCadencer
  133. Scene = GLScene1
  134. MaxDeltaTime = 0.050000000000000000
  135. OnProgress = GLCadencer1Progress
  136. Left = 40
  137. Top = 184
  138. end
  139. object GLScene1: TGLScene
  140. Left = 40
  141. Top = 128
  142. object DC_LightHolder: TGLDummyCube
  143. OnProgress = DC_LightHolderProgress
  144. CubeSize = 1.000000000000000000
  145. object GLLightSource1: TGLLightSource
  146. ConstAttenuation = 1.000000000000000000
  147. Position.Coordinates = {00000000000000000000A0400000803F}
  148. SpotCutOff = 180.000000000000000000
  149. object Sphere1: TGLSphere
  150. Material.BackProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
  151. Material.BackProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
  152. Material.FrontProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
  153. Material.FrontProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
  154. Radius = 0.100000001490116100
  155. end
  156. end
  157. end
  158. object DCShadowCaster: TGLDummyCube
  159. CubeSize = 1.000000000000000000
  160. object FurBall: TGLSphere
  161. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  162. Material.FrontProperties.Diffuse.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000803F}
  163. Material.Texture.ImageClassName = 'TGLBlankImage'
  164. Material.Texture.Image.ColorFormat = 6408
  165. Material.Texture.TextureMode = tmModulate
  166. Position.Coordinates = {000000000000C0BF000040400000803F}
  167. Radius = 0.250000000000000000
  168. end
  169. end
  170. object GLShadowPlane_Floor: TGLShadowPlane
  171. Material.BackProperties.Diffuse.Color = {1283003F1283003F000000000000803F}
  172. Material.FrontProperties.Diffuse.Color = {1283003F1283003F000000000000803F}
  173. Direction.Coordinates = {00000000B6C8CB3DC2BA7E3F00000000}
  174. Up.Coordinates = {00000000C2BA7E3FB6C8CBBD00000000}
  175. Height = 8.000000000000000000
  176. Width = 8.000000000000000000
  177. XTiles = 10
  178. YTiles = 10
  179. Style = [psTileTexture]
  180. ShadowingObject = DCShadowCaster
  181. ShadowOptions = [spoUseStencil]
  182. end
  183. object GLShadowPlane_Wall: TGLShadowPlane
  184. Material.BackProperties.Diffuse.Color = {000000000000803F000000000000803F}
  185. Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
  186. Direction.Coordinates = {0000803F000000000000000000000000}
  187. Position.Coordinates = {000080C0000080400000803F0000803F}
  188. Up.Coordinates = {0000000000000000FFFF7FBF00000000}
  189. Height = 4.000000000000000000
  190. Width = 16.000000000000000000
  191. XTiles = 10
  192. YTiles = 10
  193. Style = [psTileTexture]
  194. ShadowingObject = DCShadowCaster
  195. ShadowOptions = [spoUseStencil]
  196. end
  197. object GLShadowPlane_Floor2: TGLShadowPlane
  198. Material.BackProperties.Diffuse.Color = {1283003F1283003F000000000000803F}
  199. Material.FrontProperties.Diffuse.Color = {1283003F1283003F000000000000803F}
  200. Direction.Coordinates = {00000000B6C8CBBDC2BA7E3F00000000}
  201. Position.Coordinates = {000000000000F040000000000000803F}
  202. Up.Coordinates = {00000000C2BA7E3FB5C8CB3D00000000}
  203. Height = 10.000000000000000000
  204. Width = 8.000000000000000000
  205. XTiles = 10
  206. YTiles = 10
  207. Style = [psTileTexture]
  208. ShadowingObject = DCShadowCaster
  209. ShadowOptions = [spoUseStencil]
  210. end
  211. object GLLines1: TGLLines
  212. Nodes = <>
  213. Options = []
  214. end
  215. object GLShadowPlane_Wall2: TGLShadowPlane
  216. Material.BackProperties.Diffuse.Color = {000000000000803F000000000000803F}
  217. Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
  218. Direction.Coordinates = {000000000000803F0000000000000000}
  219. Position.Coordinates = {00000000000080C00000803F0000803F}
  220. Up.Coordinates = {0000000000000000000080BF00000000}
  221. Height = 4.000000000000000000
  222. Width = 8.000000000000000000
  223. XTiles = 10
  224. YTiles = 10
  225. Style = [psTileTexture]
  226. ShadowingObject = DCShadowCaster
  227. ShadowOptions = [spoUseStencil]
  228. end
  229. object GLShadowPlane_Wall3: TGLShadowPlane
  230. Material.BackProperties.Diffuse.Color = {000000000000803F000000000000803F}
  231. Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
  232. Direction.Coordinates = {00000000000080BF0000000000000000}
  233. Position.Coordinates = {00000000000040410000803F0000803F}
  234. Up.Coordinates = {0000000000000000000080BF00000000}
  235. Height = 4.000000000000000000
  236. Width = 8.000000000000000000
  237. XTiles = 10
  238. YTiles = 10
  239. Style = [psTileTexture]
  240. ShadowingObject = DCShadowCaster
  241. ShadowOptions = [spoUseStencil]
  242. end
  243. object GLCamera1: TGLCamera
  244. DepthOfView = 100.000000000000000000
  245. FocalLength = 70.000000000000000000
  246. TargetObject = FurBall
  247. Position.Coordinates = {0000004100004040000040400000803F}
  248. Direction.Coordinates = {000000000000803F0000008000000000}
  249. Up.Coordinates = {00000000000000000000803F00000000}
  250. end
  251. end
  252. object Timer1: TTimer
  253. OnTimer = Timer1Timer
  254. Left = 128
  255. Top = 128
  256. end
  257. end