Unit1.dfm 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218
  1. object Form1: TForm1
  2. Left = 155
  3. Top = 121
  4. Align = alClient
  5. BorderStyle = bsNone
  6. Caption = 'Form1'
  7. ClientHeight = 405
  8. ClientWidth = 603
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'MS Sans Serif'
  14. Font.Style = []
  15. OldCreateOrder = False
  16. OnKeyPress = FormKeyPress
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object GLSceneViewer1: TGLSceneViewer
  20. Left = 0
  21. Top = 0
  22. Width = 603
  23. Height = 405
  24. Camera = GLCamera1
  25. Buffer.FogEnvironment.FogColor.Color = {0000803F0000803F0000803F0000803F}
  26. Buffer.FogEnvironment.FogStart = 200.000000000000000000
  27. Buffer.FogEnvironment.FogEnd = 650.000000000000000000
  28. Buffer.FogEnvironment.FogDistance = fdEyeRadial
  29. Buffer.BackgroundColor = clGray
  30. Buffer.FogEnable = True
  31. Buffer.Lighting = False
  32. FieldOfView = 152.260620117187500000
  33. Align = alClient
  34. OnMouseDown = GLSceneViewer1MouseDown
  35. OnMouseMove = GLSceneViewer1MouseMove
  36. TabOrder = 0
  37. end
  38. object GLBitmapHDS1: TGLBitmapHDS
  39. MaxPoolSize = 0
  40. Left = 208
  41. Top = 72
  42. end
  43. object GLScene1: TGLScene
  44. ObjectsSorting = osNone
  45. Left = 24
  46. Top = 16
  47. object InitialRenderPoint: TGLRenderPoint
  48. end
  49. object SkyDome1: TGLSkyDome
  50. Direction.Coordinates = {000000000000803F2EBD3BB300000000}
  51. Up.Coordinates = {000000002EBD3BB3000080BF00000000}
  52. Bands = <
  53. item
  54. StartAngle = -5.000000000000000000
  55. StartColor.Color = {0000803F0000803F0000803F0000803F}
  56. StopAngle = 25.000000000000000000
  57. Slices = 9
  58. end
  59. item
  60. StartAngle = 25.000000000000000000
  61. StopAngle = 90.000000000000000000
  62. StopColor.Color = {938C0C3E938C0C3E938E0E3F0000803F}
  63. Slices = 9
  64. Stacks = 4
  65. end>
  66. Stars = <>
  67. Options = [sdoTwinkle]
  68. object SPMoon: TGLSprite
  69. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  70. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  71. Material.FrontProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
  72. Material.BlendingMode = bmTransparency
  73. Material.MaterialOptions = [moIgnoreFog]
  74. Material.Texture.ImageAlpha = tiaSuperBlackTransparent
  75. Material.Texture.TextureMode = tmReplace
  76. Material.Texture.Compression = tcNone
  77. Material.Texture.Disabled = False
  78. Position.Coordinates = {00000C430000C842000096420000803F}
  79. Visible = False
  80. Width = 30.000000000000000000
  81. Height = 30.000000000000000000
  82. Rotation = 0.000000000000000000
  83. end
  84. object SPSun: TGLSprite
  85. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  86. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  87. Material.BlendingMode = bmAdditive
  88. Material.MaterialOptions = [moIgnoreFog]
  89. Material.Texture.TextureMode = tmReplace
  90. Material.Texture.TextureFormat = tfLuminance
  91. Material.Texture.Compression = tcNone
  92. Material.Texture.Disabled = False
  93. Position.Coordinates = {00000C430000C842000096420000803F}
  94. Width = 60.000000000000000000
  95. Height = 60.000000000000000000
  96. Rotation = 0.000000000000000000
  97. end
  98. end
  99. object DummyCube1: TGLDummyCube
  100. Position.Coordinates = {0000000000000041000000000000803F}
  101. CubeSize = 1.000000000000000000
  102. object GLCamera1: TGLCamera
  103. DepthOfView = 650.000000000000000000
  104. FocalLength = 50.000000000000000000
  105. TargetObject = DummyCube1
  106. Position.Coordinates = {0000A040000020410000C8410000803F}
  107. Left = 264
  108. Top = 160
  109. end
  110. end
  111. object TerrainRenderer1: TGLTerrainRenderer
  112. Material.MaterialLibrary = GLMaterialLibrary1
  113. Material.LibMaterialName = 'ground'
  114. Direction.Coordinates = {000000000000803F0000000000000000}
  115. Scale.Coordinates = {00008040000080400000803E00000000}
  116. Up.Coordinates = {00000000000000000000803F00000000}
  117. HeightDataSource = GLBitmapHDS1
  118. TileSize = 32
  119. TilesPerTexture = 1.000000000000000000
  120. QualityDistance = 150.000000000000000000
  121. ContourWidth = 0
  122. end
  123. object HUDText1: TGLHUDText
  124. Position.Coordinates = {000096420000C841000000000000803F}
  125. BitmapFont = BitmapFont1
  126. Rotation = 0.000000000000000000
  127. end
  128. object DCSound: TGLDummyCube
  129. CubeSize = 1.000000000000000000
  130. end
  131. object GLLensFlare: TGLLensFlare
  132. Size = 100
  133. Seed = 978
  134. FlareIsNotOccluded = True
  135. PreRenderPoint = InitialRenderPoint
  136. Position.Coordinates = {9A620252C9B28B51B743BAD10000803F}
  137. Visible = False
  138. object GLDummyCube1: TGLDummyCube
  139. CubeSize = 100.000000000000000000
  140. VisibleAtRunTime = True
  141. end
  142. end
  143. end
  144. object Timer1: TTimer
  145. OnTimer = Timer1Timer
  146. Left = 496
  147. Top = 24
  148. end
  149. object GLCadencer1: TGLCadencer
  150. Scene = GLScene1
  151. OnProgress = GLCadencer1Progress
  152. Left = 16
  153. Top = 72
  154. end
  155. object GLMaterialLibrary1: TGLMaterialLibrary
  156. Materials = <
  157. item
  158. Name = 'ground'
  159. Tag = 0
  160. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  161. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  162. Material.FrontProperties.Emission.Color = {9A99993E9A99993E9A99993E0000803F}
  163. Material.Texture.TextureMode = tmReplace
  164. Material.Texture.Compression = tcStandard
  165. Material.Texture.Disabled = False
  166. Texture2Name = 'details'
  167. end
  168. item
  169. Name = 'details'
  170. Tag = 0
  171. Material.Texture.TextureMode = tmModulate
  172. Material.Texture.TextureFormat = tfLuminance
  173. Material.Texture.Compression = tcStandard
  174. Material.Texture.Disabled = False
  175. TextureScale.Coordinates = {00000043000000430000004300000000}
  176. end>
  177. Left = 112
  178. Top = 16
  179. end
  180. object BitmapFont1: TGLBitmapFont
  181. GlyphsIntervalX = 1
  182. GlyphsIntervalY = 1
  183. Ranges = <
  184. item
  185. StartASCII = ' '
  186. StopASCII = 'Z'
  187. StartGlyphIdx = 0
  188. end>
  189. CharWidth = 30
  190. CharHeight = 30
  191. Left = 112
  192. Top = 72
  193. end
  194. object GLSMBASS1: TGLSMBASS
  195. Active = True
  196. MaxChannels = 32
  197. MasterVolume = 1.000000000000000000
  198. Listener = GLCamera1
  199. Sources = <>
  200. Cadencer = GLCadencer1
  201. Environment = seForest
  202. Algorithm3D = algFull
  203. Left = 296
  204. Top = 16
  205. Doppler = 0.000000000000000000
  206. end
  207. object TISound: TTimer
  208. Interval = 3000
  209. OnTimer = TISoundTimer
  210. Left = 440
  211. Top = 24
  212. end
  213. object GLSoundLibrary: TGLSoundLibrary
  214. Samples = <>
  215. Left = 208
  216. Top = 16
  217. end
  218. end