fBoxedinD.dfm 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223
  1. object FormBoxedin: TFormBoxedin
  2. Left = 62
  3. Top = 15
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. Caption = 'Boxedin'
  9. ClientHeight = 740
  10. ClientWidth = 994
  11. Color = clGray
  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. PixelsPerInch = 168
  20. TextHeight = 24
  21. object GLSceneViewer2: TGLSceneViewer
  22. Left = 0
  23. Top = 114
  24. Width = 994
  25. Height = 626
  26. Margins.Left = 5
  27. Margins.Top = 5
  28. Margins.Right = 5
  29. Margins.Bottom = 5
  30. Camera = Camera
  31. Buffer.BackgroundColor = 8404992
  32. Buffer.ShadeModel = smFlat
  33. FieldOfView = 161.848007202148400000
  34. PenAsTouch = False
  35. Align = alClient
  36. TabOrder = 0
  37. end
  38. object Panel1: TPanel
  39. Left = 0
  40. Top = 0
  41. Width = 994
  42. Height = 114
  43. Margins.Left = 5
  44. Margins.Top = 5
  45. Margins.Right = 5
  46. Margins.Bottom = 5
  47. Align = alTop
  48. BevelOuter = bvNone
  49. TabOrder = 1
  50. object Label1: TLabel
  51. Left = 494
  52. Top = 9
  53. Width = 56
  54. Height = 24
  55. Margins.Left = 5
  56. Margins.Top = 5
  57. Margins.Right = 5
  58. Margins.Bottom = 5
  59. Caption = 'Label1'
  60. end
  61. object Label2: TLabel
  62. Left = 494
  63. Top = 42
  64. Width = 56
  65. Height = 24
  66. Margins.Left = 5
  67. Margins.Top = 5
  68. Margins.Right = 5
  69. Margins.Bottom = 5
  70. Caption = 'Label2'
  71. end
  72. object Label3: TLabel
  73. Left = 494
  74. Top = 75
  75. Width = 56
  76. Height = 24
  77. Margins.Left = 5
  78. Margins.Top = 5
  79. Margins.Right = 5
  80. Margins.Bottom = 5
  81. Caption = 'Label3'
  82. end
  83. object Label4: TLabel
  84. Left = 280
  85. Top = 9
  86. Width = 66
  87. Height = 24
  88. Margins.Left = 5
  89. Margins.Top = 5
  90. Margins.Right = 5
  91. Margins.Bottom = 5
  92. Caption = 'Velocity'
  93. end
  94. object LabelFPS: TLabel
  95. Left = 742
  96. Top = 42
  97. Width = 36
  98. Height = 24
  99. Margins.Left = 5
  100. Margins.Top = 5
  101. Margins.Right = 5
  102. Margins.Bottom = 5
  103. Caption = 'FPS'
  104. end
  105. object TrackBar1: TTrackBar
  106. Left = 156
  107. Top = 42
  108. Width = 308
  109. Height = 44
  110. Margins.Left = 5
  111. Margins.Top = 5
  112. Margins.Right = 5
  113. Margins.Bottom = 5
  114. Max = 50
  115. Position = 1
  116. TabOrder = 0
  117. ThumbLength = 35
  118. end
  119. object Button1: TButton
  120. Left = 14
  121. Top = 42
  122. Width = 131
  123. Height = 44
  124. Margins.Left = 5
  125. Margins.Top = 5
  126. Margins.Right = 5
  127. Margins.Bottom = 5
  128. Caption = 'Reset'
  129. TabOrder = 1
  130. OnClick = Button1Click
  131. end
  132. end
  133. object GLScene1: TGLScene
  134. Left = 48
  135. Top = 88
  136. object Camera: TGLCamera
  137. DepthOfView = 1000.000000000000000000
  138. FocalLength = 50.000000000000000000
  139. TargetObject = Sphere2
  140. Position.Coordinates = {0000000000008040000040C00000803F}
  141. Direction.Coordinates = {00000000000000800000803F00000000}
  142. end
  143. object LightSource1: TGLLightSource
  144. Ambient.Color = {000000001283003F9CC4403F0000803F}
  145. ConstAttenuation = 1.000000000000000000
  146. Diffuse.Color = {1283003F1283003F1283003F0000803F}
  147. Position.Coordinates = {00004842000016430000C8420000803F}
  148. LightStyle = lsOmni
  149. Specular.Color = {0000803F0000803F0000803F0000803F}
  150. SpotCutOff = 180.000000000000000000
  151. end
  152. object LightSource2: TGLLightSource
  153. Ambient.Color = {000000001283803E1283003F0000803F}
  154. ConstAttenuation = 1.000000000000000000
  155. Diffuse.Color = {BEC0403FBEC0403FBEC0403F0000803F}
  156. Specular.Color = {0000803F0000803F0000803F0000803F}
  157. SpotCutOff = 180.000000000000000000
  158. end
  159. object DummyCube1: TGLDummyCube
  160. CubeSize = 1.000000000000000000
  161. object FreeForm1: TGLFreeForm
  162. Direction.Coordinates = {000000000000803F0000000000000000}
  163. Up.Coordinates = {00000000000000000000803F00000000}
  164. end
  165. end
  166. object Sphere1: TGLSphere
  167. Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
  168. Direction.Coordinates = {000000000000803F0000000000000000}
  169. Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
  170. Radius = 0.100000001490116100
  171. Slices = 6
  172. Stacks = 6
  173. object ArrowLine1: TGLArrowLine
  174. Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F9A99193F}
  175. Material.FrontProperties.Emission.Color = {1283803E1283803E000000000000803F}
  176. Material.BlendingMode = bmTransparency
  177. Position.Coordinates = {0000000000000000CDCCCC3D0000803F}
  178. BottomRadius = 0.050000000745058060
  179. Height = 1.000000000000000000
  180. TopRadius = 0.100000001490116100
  181. TopArrowHeadHeight = 2.000000000000000000
  182. TopArrowHeadRadius = 0.200000002980232200
  183. BottomArrowHeadHeight = 0.500000000000000000
  184. BottomArrowHeadRadius = 0.200000002980232200
  185. end
  186. end
  187. object DummyCube2: TGLDummyCube
  188. CubeSize = 1.000000000000000000
  189. end
  190. object Sphere2: TGLSphere
  191. Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
  192. Material.FrontProperties.Shininess = 128
  193. Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
  194. VisibilityCulling = vcObjectBased
  195. Direction.Coordinates = {4A602B3FC61C69BE490635BF00000000}
  196. Position.Coordinates = {000000000000E040000000C00000803F}
  197. Up.Coordinates = {B819C33EF71E6C3FCDAE823D00000000}
  198. Radius = 20.000000000000000000
  199. Slices = 24
  200. Stacks = 24
  201. end
  202. object Lines1: TGLLines
  203. LineColor.Color = {0000803F0000803F0000003F3333733F}
  204. LineWidth = 3.000000000000000000
  205. NodeColor.Color = {0000803F0000803F000000000000803F}
  206. Nodes = <>
  207. NodesAspect = lnaCube
  208. NodeSize = 10.000000000000000000
  209. Options = [loUseNodeColorForLines]
  210. end
  211. end
  212. object GLCadencer1: TGLCadencer
  213. Scene = GLScene1
  214. OnProgress = GLCadencer1Progress
  215. Left = 136
  216. Top = 88
  217. end
  218. object Timer1: TTimer
  219. OnTimer = Timer1Timer
  220. Left = 488
  221. Top = 88
  222. end
  223. end