Unit1.dfm 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'GLScene Quake Actor'
  5. ClientHeight = 458
  6. ClientWidth = 783
  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. WindowState = wsMaximized
  15. OnCreate = FormCreate
  16. OnDestroy = FormDestroy
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object Panel1: TPanel
  20. Left = 0
  21. Top = 0
  22. Width = 783
  23. Height = 73
  24. Align = alTop
  25. TabOrder = 0
  26. object Label1: TLabel
  27. Left = 16
  28. Top = 16
  29. Width = 72
  30. Height = 13
  31. Caption = 'Legs Animation'
  32. end
  33. object Label2: TLabel
  34. Left = 200
  35. Top = 16
  36. Width = 77
  37. Height = 13
  38. Caption = 'Torso Animaiton'
  39. end
  40. object Label3: TLabel
  41. Left = 380
  42. Top = 8
  43. Width = 71
  44. Height = 13
  45. Caption = 'Torso direction'
  46. end
  47. object Label4: TLabel
  48. Left = 496
  49. Top = 8
  50. Width = 25
  51. Height = 13
  52. Caption = 'Head'
  53. end
  54. object Label5: TLabel
  55. Left = 616
  56. Top = 20
  57. Width = 19
  58. Height = 13
  59. Caption = 'Skin'
  60. end
  61. object ComboBox1: TComboBox
  62. Left = 16
  63. Top = 32
  64. Width = 169
  65. Height = 21
  66. Style = csDropDownList
  67. TabOrder = 0
  68. OnChange = ComboBox1Change
  69. end
  70. object ComboBox2: TComboBox
  71. Left = 200
  72. Top = 32
  73. Width = 145
  74. Height = 21
  75. Style = csDropDownList
  76. TabOrder = 1
  77. OnChange = ComboBox2Change
  78. end
  79. object TrackBar1: TTrackBar
  80. Left = 372
  81. Top = 24
  82. Width = 109
  83. Height = 21
  84. Max = 90
  85. Min = -90
  86. TabOrder = 2
  87. end
  88. object TrackBar2: TTrackBar
  89. Left = 372
  90. Top = 48
  91. Width = 109
  92. Height = 21
  93. Max = 90
  94. Min = -90
  95. TabOrder = 3
  96. end
  97. object TrackBar3: TTrackBar
  98. Left = 488
  99. Top = 24
  100. Width = 109
  101. Height = 21
  102. Max = 90
  103. Min = -90
  104. TabOrder = 4
  105. end
  106. object TrackBar4: TTrackBar
  107. Left = 488
  108. Top = 48
  109. Width = 109
  110. Height = 21
  111. Max = 90
  112. Min = -90
  113. TabOrder = 5
  114. end
  115. object ComboSkin: TComboBox
  116. Left = 612
  117. Top = 36
  118. Width = 85
  119. Height = 21
  120. TabOrder = 6
  121. Text = 'Default'
  122. OnChange = ComboSkinChange
  123. Items.Strings = (
  124. 'Default'
  125. 'Red'
  126. 'Blue')
  127. end
  128. end
  129. object GLSceneViewer1: TGLSceneViewer
  130. Left = 0
  131. Top = 73
  132. Width = 783
  133. Height = 385
  134. Camera = GLCamera1
  135. Buffer.BackgroundColor = clSkyBlue
  136. Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
  137. FieldOfView = 51.398372650146480000
  138. Align = alClient
  139. OnMouseDown = GLSceneViewer1MouseDown
  140. OnMouseMove = GLSceneViewer1MouseMove
  141. TabOrder = 1
  142. end
  143. object GLScene1: TGLScene
  144. Left = 32
  145. Top = 80
  146. object DummyCube1: TGLDummyCube
  147. CubeSize = 1.000000000000000000
  148. object GLLightSource1: TGLLightSource
  149. Ambient.Color = {0000803F0000803F0000803F0000803F}
  150. ConstAttenuation = 1.000000000000000000
  151. Position.Coordinates = {0000204100000000000020410000803F}
  152. LightStyle = lsOmni
  153. SpotCutOff = 180.000000000000000000
  154. end
  155. object GLCamera1: TGLCamera
  156. DepthOfView = 1000.000000000000000000
  157. FocalLength = 400.000000000000000000
  158. TargetObject = DummyCube1
  159. Position.Coordinates = {00009041000080410000C0400000803F}
  160. Direction.Coordinates = {2EF964BF2EF9E43E0000000000000000}
  161. Up.Coordinates = {00000000000000000000803F00000000}
  162. end
  163. end
  164. object ModelCube: TGLDummyCube
  165. CubeSize = 1.000000000000000000
  166. object Legs: TGLActor
  167. Interval = 100
  168. MaterialLibrary = MatLib
  169. object Torso: TGLActor
  170. Interval = 100
  171. MaterialLibrary = MatLib
  172. object Head: TGLActor
  173. Interval = 100
  174. MaterialLibrary = MatLib
  175. end
  176. object Weapon: TGLActor
  177. Interval = 100
  178. MaterialLibrary = MatLib
  179. object GunSmoke: TGLDummyCube
  180. CubeSize = 1.000000000000000000
  181. EffectsData = {
  182. 0458434F4C02010201061254474C536F75726365504658456666656374020202
  183. 001200000000020002000617474C506F696E744C696768745046584D616E6167
  184. 657231050000000000000080FF3F0206020008020008020008050000000000CD
  185. CCCCFA3F050000000000CDCCCCFA3F050000000000CDCCCCFA3F020002000905
  186. 00000000000000000000080200}
  187. end
  188. end
  189. end
  190. end
  191. end
  192. object GLShadowPlane1: TGLShadowPlane
  193. Material.DepthProperties.DepthWrite = False
  194. Position.Coordinates = {0000000000000000000080BF0000803F}
  195. Height = 10.000000000000000000
  196. Width = 10.000000000000000000
  197. ShadowingObject = ModelCube
  198. ShadowedLight = GLLightSource1
  199. end
  200. object GLParticleFXRenderer1: TGLParticleFXRenderer
  201. end
  202. end
  203. object GLCadencer1: TGLCadencer
  204. Scene = GLScene1
  205. SleepLength = 0
  206. OnProgress = GLCadencer1Progress
  207. Left = 120
  208. Top = 80
  209. end
  210. object Timer1: TTimer
  211. OnTimer = Timer1Timer
  212. Left = 208
  213. Top = 80
  214. end
  215. object MatLib: TGLMaterialLibrary
  216. Left = 32
  217. Top = 144
  218. end
  219. object GLPointLightPFXManager1: TGLPointLightPFXManager
  220. Cadencer = GLCadencer1
  221. Renderer = GLParticleFXRenderer1
  222. Acceleration.Coordinates = {0000000000000000CDCC4C3E00000000}
  223. Friction = 1.000000000000000000
  224. ParticleSize = 0.200000002980232200
  225. ColorInner.Color = {0000403F0000403F0000403F0000403F}
  226. ColorOuter.Color = {0000403F0000403F0000403F00000000}
  227. LifeColors = <
  228. item
  229. LifeTime = 3.000000000000000000
  230. SizeScale = 1.000000000000000000
  231. end>
  232. Left = 120
  233. Top = 144
  234. end
  235. end