Unit1.dfm 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Align = alClient
  5. BorderStyle = bsNone
  6. Caption = 'Ode Terrain'
  7. ClientHeight = 547
  8. ClientWidth = 639
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'Tahoma'
  14. Font.Style = []
  15. OldCreateOrder = False
  16. OnCreate = FormCreate
  17. OnKeyPress = FormKeyPress
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object GLSceneViewer1: TGLSceneViewer
  21. Left = 0
  22. Top = 0
  23. Width = 639
  24. Height = 547
  25. Camera = GLCamera1
  26. BeforeRender = GLSceneViewer1BeforeRender
  27. Buffer.FogEnvironment.FogColor.Color = {0000803F0000803F0000803F0000803F}
  28. Buffer.FogEnvironment.FogStart = 200.000000000000000000
  29. Buffer.FogEnvironment.FogEnd = 650.000000000000000000
  30. Buffer.FogEnvironment.FogDistance = fdEyeRadial
  31. Buffer.BackgroundColor = clGray
  32. Buffer.FogEnable = True
  33. FieldOfView = 159.279708862304700000
  34. Align = alClient
  35. TabOrder = 0
  36. end
  37. object GLBitmapHDS1: TGLBitmapHDS
  38. MaxPoolSize = 0
  39. Left = 320
  40. Top = 72
  41. end
  42. object GLScene1: TGLScene
  43. ObjectsSorting = osNone
  44. Left = 32
  45. Top = 16
  46. object GLLightSource1: TGLLightSource
  47. ConstAttenuation = 1.000000000000000000
  48. LightStyle = lsParallel
  49. SpotCutOff = 180.000000000000000000
  50. SpotDirection.Coordinates = {00000000F4FD34BFF4FD343F00000000}
  51. end
  52. object SkyDome1: TGLSkyDome
  53. Up.Coordinates = {000000000000803F0000008000000000}
  54. Bands = <
  55. item
  56. StartAngle = -5.000000000000000000
  57. StartColor.Color = {0000803F0000803F0000803F0000803F}
  58. StopAngle = 25.000000000000000000
  59. Slices = 9
  60. end
  61. item
  62. StartAngle = 25.000000000000000000
  63. StopAngle = 90.000000000000000000
  64. StopColor.Color = {938C0C3E938C0C3E938E0E3F0000803F}
  65. Slices = 9
  66. Stacks = 4
  67. end>
  68. Stars = <>
  69. Options = [sdoTwinkle]
  70. object SPMoon: TGLSprite
  71. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  72. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  73. Material.FrontProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
  74. Material.BlendingMode = bmTransparency
  75. Material.MaterialOptions = [moIgnoreFog]
  76. Material.Texture.ImageAlpha = tiaSuperBlackTransparent
  77. Material.Texture.TextureMode = tmReplace
  78. Material.Texture.Compression = tcNone
  79. Material.Texture.Disabled = False
  80. Position.Coordinates = {00000C430000C842000096420000803F}
  81. Visible = False
  82. Width = 30.000000000000000000
  83. Height = 30.000000000000000000
  84. Rotation = 0.000000000000000000
  85. end
  86. object SPSun: TGLSprite
  87. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  88. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  89. Material.BlendingMode = bmAdditive
  90. Material.MaterialOptions = [moIgnoreFog]
  91. Material.Texture.TextureMode = tmReplace
  92. Material.Texture.TextureFormat = tfLuminance
  93. Material.Texture.Compression = tcNone
  94. Material.Texture.Disabled = False
  95. Position.Coordinates = {00000C430000C842000096420000803F}
  96. Width = 60.000000000000000000
  97. Height = 60.000000000000000000
  98. Rotation = 0.000000000000000000
  99. end
  100. end
  101. object TerrainRenderer1: TGLTerrainRenderer
  102. Material.MaterialLibrary = GLMaterialLibrary1
  103. Material.LibMaterialName = 'ground'
  104. Direction.Coordinates = {09260E19ECD96EB30000803F00000000}
  105. Scale.Coordinates = {00008040000080400000803E00000000}
  106. Up.Coordinates = {E146A6250000803FECD96E3300000000}
  107. HeightDataSource = GLBitmapHDS1
  108. TileSize = 32
  109. TilesPerTexture = 1.000000000000000000
  110. QualityDistance = 150.000000000000000000
  111. BehavioursData = {
  112. 0458434F4C02010201061154474C4F44454865696768744669656C6402001200
  113. 00000002000200120000000002000500000000006F1283F53F08000005000000
  114. 00000000FA084005000000000000000000000500000000000000000000050000
  115. 0000000000000000050000000000000000000005000000000000000000000500
  116. 0000000000000000000500000000000000000000050000000000000000000005
  117. 000000000000000000000200050000000000000080FF3F080500000000000000
  118. C000400000803F0200}
  119. end
  120. object ODEObjects: TGLDummyCube
  121. CubeSize = 1.000000000000000000
  122. object ODERenderPoint: TGLRenderPoint
  123. end
  124. end
  125. object HUDText1: TGLHUDText
  126. Position.Coordinates = {000096420000C841000000000000803F}
  127. BitmapFont = BitmapFont1
  128. Rotation = 0.000000000000000000
  129. end
  130. object GLLensFlare: TGLLensFlare
  131. Size = 100
  132. Seed = 978
  133. FlareIsNotOccluded = True
  134. Position.Coordinates = {9A620252C9B28B51B743BAD10000803F}
  135. Visible = False
  136. object GLDummyCube1: TGLDummyCube
  137. CubeSize = 100.000000000000000000
  138. VisibleAtRunTime = True
  139. end
  140. end
  141. object GLCamera1: TGLCamera
  142. DepthOfView = 650.000000000000000000
  143. FocalLength = 50.000000000000000000
  144. Direction.Coordinates = {000000000000803F0000000000000000}
  145. Up.Coordinates = {00000000000000000000803F00000000}
  146. Left = 264
  147. Top = 160
  148. object ODEDrop: TGLDummyCube
  149. Position.Coordinates = {0000000000000000000020410000803F}
  150. CubeSize = 1.000000000000000000
  151. end
  152. end
  153. end
  154. object Timer1: TTimer
  155. OnTimer = Timer1Timer
  156. Left = 224
  157. Top = 72
  158. end
  159. object GLCadencer1: TGLCadencer
  160. Scene = GLScene1
  161. MaxDeltaTime = 0.020000000000000000
  162. OnProgress = GLCadencer1Progress
  163. Left = 128
  164. Top = 16
  165. end
  166. object GLMaterialLibrary1: TGLMaterialLibrary
  167. Materials = <
  168. item
  169. Name = 'ground'
  170. Tag = 0
  171. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  172. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  173. Material.FrontProperties.Emission.Color = {9A99993E9A99993E9A99993E0000803F}
  174. Material.Texture.TextureMode = tmReplace
  175. Material.Texture.Compression = tcStandard
  176. Material.Texture.Disabled = False
  177. Texture2Name = 'details'
  178. end
  179. item
  180. Name = 'details'
  181. Tag = 0
  182. Material.Texture.TextureMode = tmModulate
  183. Material.Texture.TextureFormat = tfLuminance
  184. Material.Texture.Compression = tcStandard
  185. Material.Texture.Disabled = False
  186. TextureScale.Coordinates = {00000043000000430000004300000000}
  187. end>
  188. Left = 32
  189. Top = 72
  190. end
  191. object BitmapFont1: TGLBitmapFont
  192. GlyphsIntervalX = 1
  193. GlyphsIntervalY = 1
  194. Ranges = <
  195. item
  196. StartASCII = ' '
  197. StopASCII = 'Z'
  198. StartGlyphIdx = 0
  199. end>
  200. CharWidth = 30
  201. CharHeight = 30
  202. Left = 320
  203. Top = 16
  204. end
  205. object GLODEManager1: TGLODEManager
  206. Gravity.Coordinates = {0000000000000000C3F51CC10000803F}
  207. Solver = osmQuickStep
  208. Iterations = 3
  209. MaxContacts = 8
  210. RenderPoint = ODERenderPoint
  211. Visible = True
  212. VisibleAtRunTime = True
  213. Left = 416
  214. Top = 16
  215. end
  216. object GLNavigator1: TGLNavigator
  217. VirtualUp.Coordinates = {00000000000000000000803F0000803F}
  218. MovingObject = GLCamera1
  219. UseVirtualUp = True
  220. AutoUpdateObject = True
  221. Left = 224
  222. Top = 16
  223. end
  224. object GLUserInterface1: TGLUserInterface
  225. MouseSpeed = 25.000000000000000000
  226. GLNavigator = GLNavigator1
  227. GLVertNavigator = GLNavigator1
  228. Left = 128
  229. Top = 72
  230. end
  231. end