fSkeletalD.dfm 6.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259
  1. object FormSkeletal: TFormSkeletal
  2. Left = 237
  3. Top = 105
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. Caption = 'Skeletal Animation'
  9. ClientHeight = 817
  10. ClientWidth = 1115
  11. Color = clBtnFace
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -19
  15. Font.Name = 'MS Sans Serif'
  16. Font.Style = []
  17. Position = poScreenCenter
  18. OnCreate = FormCreate
  19. OnMouseWheel = FormMouseWheel
  20. PixelsPerInch = 168
  21. TextHeight = 24
  22. object GLSceneViewer1: TGLSceneViewer
  23. Left = 0
  24. Top = 0
  25. Width = 928
  26. Height = 746
  27. Margins.Left = 5
  28. Margins.Top = 5
  29. Margins.Right = 5
  30. Margins.Bottom = 5
  31. Camera = GLCamera1
  32. Buffer.BackgroundColor = clSilver
  33. Buffer.Lighting = False
  34. FieldOfView = 164.730224609375000000
  35. PenAsTouch = False
  36. Align = alClient
  37. OnMouseDown = GLSceneViewer1MouseDown
  38. OnMouseMove = GLSceneViewer1MouseMove
  39. TabOrder = 0
  40. end
  41. object Panel1: TPanel
  42. Left = 928
  43. Top = 0
  44. Width = 187
  45. Height = 746
  46. Margins.Left = 5
  47. Margins.Top = 5
  48. Margins.Right = 5
  49. Margins.Bottom = 5
  50. Align = alRight
  51. BevelOuter = bvNone
  52. Font.Charset = ANSI_CHARSET
  53. Font.Color = clWindowText
  54. Font.Height = -23
  55. Font.Name = 'Arial'
  56. Font.Style = []
  57. ParentFont = False
  58. TabOrder = 1
  59. DesignSize = (
  60. 187
  61. 746)
  62. object LabelFPS: TLabel
  63. Left = 56
  64. Top = 53
  65. Width = 44
  66. Height = 26
  67. Margins.Left = 5
  68. Margins.Top = 5
  69. Margins.Right = 5
  70. Margins.Bottom = 5
  71. Alignment = taCenter
  72. Anchors = []
  73. Caption = 'FPS'
  74. Font.Charset = ANSI_CHARSET
  75. Font.Color = clWindowText
  76. Font.Height = -23
  77. Font.Name = 'Arial'
  78. Font.Style = []
  79. ParentFont = False
  80. end
  81. object BULongJump: TButton
  82. Left = 28
  83. Top = 266
  84. Width = 142
  85. Height = 44
  86. Margins.Left = 5
  87. Margins.Top = 5
  88. Margins.Right = 5
  89. Margins.Bottom = 5
  90. Caption = 'Long Jump'
  91. TabOrder = 0
  92. OnClick = BULongJumpClick
  93. end
  94. object CheckBox1: TCheckBox
  95. Left = 28
  96. Top = 420
  97. Width = 142
  98. Height = 30
  99. Margins.Left = 5
  100. Margins.Top = 5
  101. Margins.Right = 5
  102. Margins.Bottom = 5
  103. Caption = 'Skeleton'
  104. Checked = True
  105. State = cbChecked
  106. TabOrder = 1
  107. OnClick = CheckBox1Click
  108. end
  109. object BUHighJump: TButton
  110. Left = 28
  111. Top = 336
  112. Width = 142
  113. Height = 44
  114. Margins.Left = 5
  115. Margins.Top = 5
  116. Margins.Right = 5
  117. Margins.Bottom = 5
  118. Caption = 'High Jump'
  119. TabOrder = 2
  120. OnClick = BUHighJumpClick
  121. end
  122. object RBWalk: TRadioButton
  123. Left = 28
  124. Top = 154
  125. Width = 114
  126. Height = 30
  127. Margins.Left = 5
  128. Margins.Top = 5
  129. Margins.Right = 5
  130. Margins.Bottom = 5
  131. Caption = 'Walk'
  132. Checked = True
  133. TabOrder = 3
  134. TabStop = True
  135. OnClick = RBWalkClick
  136. end
  137. object RBRun: TRadioButton
  138. Left = 28
  139. Top = 196
  140. Width = 128
  141. Height = 30
  142. Margins.Left = 5
  143. Margins.Top = 5
  144. Margins.Right = 5
  145. Margins.Bottom = 5
  146. Caption = 'Run'
  147. TabOrder = 4
  148. OnClick = RBRunClick
  149. end
  150. end
  151. object Panel2: TPanel
  152. Left = 0
  153. Top = 746
  154. Width = 1115
  155. Height = 71
  156. Margins.Left = 5
  157. Margins.Top = 5
  158. Margins.Right = 5
  159. Margins.Bottom = 5
  160. Align = alBottom
  161. BevelOuter = bvNone
  162. TabOrder = 2
  163. DesignSize = (
  164. 1115
  165. 71)
  166. object TrackBar1: TTrackBar
  167. Left = 112
  168. Top = 0
  169. Width = 989
  170. Height = 59
  171. Margins.Left = 5
  172. Margins.Top = 5
  173. Margins.Right = 5
  174. Margins.Bottom = 5
  175. Anchors = [akLeft, akTop, akRight, akBottom]
  176. Max = 100
  177. Position = 50
  178. TabOrder = 0
  179. ThumbLength = 35
  180. TickMarks = tmBoth
  181. OnChange = TrackBar1Change
  182. end
  183. object CBBlend: TCheckBox
  184. Left = 14
  185. Top = 21
  186. Width = 86
  187. Height = 30
  188. Margins.Left = 5
  189. Margins.Top = 5
  190. Margins.Right = 5
  191. Margins.Bottom = 5
  192. Caption = 'Blend'
  193. TabOrder = 1
  194. OnClick = CBBlendClick
  195. end
  196. end
  197. object GLScene1: TGLScene
  198. Left = 32
  199. Top = 8
  200. object GLLightSource1: TGLLightSource
  201. Ambient.Color = {0000803F0000803F0000803F0000803F}
  202. ConstAttenuation = 1.000000000000000000
  203. Position.Coordinates = {0000C8420000C8420000C8420000803F}
  204. SpotCutOff = 180.000000000000000000
  205. end
  206. object Actor1: TGLActor
  207. Direction.Coordinates = {000000000000803F0000000000000000}
  208. Scale.Coordinates = {0000003F0000003F0000003F00000000}
  209. Up.Coordinates = {0000000000000080000080BF00000000}
  210. AnimationMode = aamLoop
  211. Interval = 100
  212. OnEndFrameReached = Actor1EndFrameReached
  213. MaterialLibrary = GLMaterialLibrary1
  214. end
  215. object DummyCube1: TGLDummyCube
  216. CubeSize = 1.000000000000000000
  217. end
  218. object XYZGrid1: TGLXYZGrid
  219. Position.Coordinates = {00000000000090C1000000000000803F}
  220. LineColor.Color = {1283803E1283003F1283003F0000803F}
  221. XSamplingScale.Min = -12.000000000000000000
  222. XSamplingScale.Max = 12.000000000000000000
  223. XSamplingScale.Step = 4.000000000000000000
  224. YSamplingScale.Step = 1.000000000000000000
  225. ZSamplingScale.Min = -20.000000000000000000
  226. ZSamplingScale.Max = 20.000000000000000000
  227. ZSamplingScale.Step = 4.000000000000000000
  228. Parts = [gpX, gpZ]
  229. end
  230. object GLCamera1: TGLCamera
  231. DepthOfView = 500.000000000000000000
  232. FocalLength = 50.000000000000000000
  233. TargetObject = DummyCube1
  234. Position.Coordinates = {000048420000A0410000A0400000803F}
  235. Direction.Coordinates = {00000000000000000000803F00000000}
  236. Left = 224
  237. Top = 160
  238. end
  239. end
  240. object GLMaterialLibrary1: TGLMaterialLibrary
  241. Left = 160
  242. Top = 8
  243. end
  244. object Timer1: TTimer
  245. OnTimer = Timer1Timer
  246. Left = 272
  247. Top = 8
  248. end
  249. object GLCadencer1: TGLCadencer
  250. Scene = GLScene1
  251. OnProgress = GLCadencer1Progress
  252. Left = 32
  253. Top = 64
  254. end
  255. object AnimationControler1: TGLAnimationControler
  256. Left = 160
  257. Top = 64
  258. end
  259. end