fNewtonMousePickD.dfm 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417
  1. object FormNewtonMousePick: TFormNewtonMousePick
  2. Left = 0
  3. Top = 0
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. Caption = 'Newton Mouse Pick'
  9. ClientHeight = 777
  10. ClientWidth = 1276
  11. Color = clBtnFace
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -19
  15. Font.Name = 'Tahoma'
  16. Font.Style = []
  17. Position = poScreenCenter
  18. OnCreate = FormCreate
  19. PixelsPerInch = 168
  20. TextHeight = 23
  21. object GLSceneViewer1: TGLSceneViewer
  22. Left = 0
  23. Top = 0
  24. Width = 1276
  25. Height = 777
  26. Margins.Left = 5
  27. Margins.Top = 5
  28. Margins.Right = 5
  29. Margins.Bottom = 5
  30. Camera = GLCamera1
  31. Buffer.BackgroundColor = clBackground
  32. FieldOfView = 165.332672119140600000
  33. PenAsTouch = False
  34. Align = alClient
  35. OnMouseDown = GLSceneViewer1MouseDown
  36. OnMouseMove = GLSceneViewer1MouseMove
  37. OnMouseUp = GLSceneViewer1MouseUp
  38. TabOrder = 0
  39. end
  40. object GLScene1: TGLScene
  41. Left = 160
  42. object GLCamera1: TGLCamera
  43. DepthOfView = 100.000000000000000000
  44. FocalLength = 50.000000000000000000
  45. Position.Coordinates = {0000000000004040000020410000803F}
  46. object GLLightSource1: TGLLightSource
  47. ConstAttenuation = 1.000000000000000000
  48. SpotCutOff = 180.000000000000000000
  49. end
  50. end
  51. object Floor: TGLCube
  52. Position.Coordinates = {00000000000080BF000000000000803F}
  53. BehavioursData = {
  54. 0458434F4C02010201060C54474C4E47445374617469630200060A4E47442053
  55. 746174696302000201060D474C4E47444D616E61676572310800080500000000
  56. 000AD7A3F83F1200000000}
  57. CubeSize = {000020410000803F00002041}
  58. object GLCube2: TGLCube
  59. Position.Coordinates = {000000000000A0400000A0C00000803F}
  60. BehavioursData = {
  61. 0458434F4C02010201060C54474C4E47445374617469630200060A4E47442053
  62. 746174696302000201060D474C4E47444D616E61676572310800080500000000
  63. 000AD7A3F83F1200000000}
  64. CubeSize = {00002041000020410000803F}
  65. end
  66. object GLCube3: TGLCube
  67. Position.Coordinates = {0000C0400000A040000080BF0000803F}
  68. BehavioursData = {
  69. 0458434F4C02010201060C54474C4E47445374617469630200060A4E47442053
  70. 746174696302000201060D474C4E47444D616E61676572310800080500000000
  71. 000AD7A3F83F1200000000}
  72. CubeSize = {0000803F0000204100002041}
  73. end
  74. object GLCube4: TGLCube
  75. Position.Coordinates = {0000C0C00000A040000080BF0000803F}
  76. BehavioursData = {
  77. 0458434F4C02010201060C54474C4E47445374617469630200060A4E47442053
  78. 746174696302000201060D474C4E47444D616E61676572310800080500000000
  79. 000AD7A3F83F1200000000}
  80. CubeSize = {0000803F0000204100002041}
  81. end
  82. end
  83. object GLCube1: TGLCube
  84. BehavioursData = {
  85. 0458434F4C02010201060D54474C4E474444796E616D69630200060B4E474420
  86. 44796E616D696302000201060D474C4E47444D616E6167657231080008050000
  87. 00000000000000001200000000020109050000000000CDCCCCFB3F0500000000
  88. 00000080FF3F0905000000000000000000000200080200080200090000000000
  89. 000000000000000000803F020008}
  90. end
  91. object GLSphere1: TGLSphere
  92. Position.Coordinates = {000000C000004040000000000000803F}
  93. Radius = 0.500000000000000000
  94. BehavioursData = {
  95. 0458434F4C02010201060D54474C4E474444796E616D69630200060B4E474420
  96. 44796E616D696302000201060D474C4E47444D616E6167657231080008050000
  97. 00000000000000001200000000020109050000000000CDCCCCFB3F0500000000
  98. 00000080FF3F0905000000000000000000000200080200080200090000000000
  99. 000000000000000000803F020008}
  100. end
  101. object GLLines1: TGLLines
  102. Pickable = False
  103. Nodes = <
  104. item
  105. X = -0.625000000000000000
  106. Y = -0.625000000000000000
  107. Z = -0.625000000000000000
  108. Color.Color = {0000803F0000803F000000000000803F}
  109. end
  110. item
  111. X = 0.625000000000000000
  112. Y = -0.625000000000000000
  113. Z = -0.625000000000000000
  114. Color.Color = {0000803F0000803F000000000000803F}
  115. end
  116. item
  117. X = 0.625000000000000000
  118. Y = -0.625000000000000000
  119. Z = -0.625000000000000000
  120. Color.Color = {0000803F0000803F000000000000803F}
  121. end
  122. item
  123. X = 0.625000000000000000
  124. Y = 0.625000000000000000
  125. Z = -0.625000000000000000
  126. Color.Color = {0000803F0000803F000000000000803F}
  127. end
  128. item
  129. X = 0.625000000000000000
  130. Y = 0.625000000000000000
  131. Z = -0.625000000000000000
  132. Color.Color = {0000803F0000803F000000000000803F}
  133. end
  134. item
  135. X = -0.625000000000000000
  136. Y = 0.625000000000000000
  137. Z = -0.625000000000000000
  138. Color.Color = {0000803F0000803F000000000000803F}
  139. end
  140. item
  141. X = -0.625000000000000000
  142. Y = 0.625000000000000000
  143. Z = -0.625000000000000000
  144. Color.Color = {0000803F0000803F000000000000803F}
  145. end
  146. item
  147. X = -0.625000000000000000
  148. Y = -0.625000000000000000
  149. Z = -0.625000000000000000
  150. Color.Color = {0000803F0000803F000000000000803F}
  151. end
  152. item
  153. X = -0.625000000000000000
  154. Y = -0.625000000000000000
  155. Z = 0.625000000000000000
  156. Color.Color = {0000803F0000803F000000000000803F}
  157. end
  158. item
  159. X = 0.625000000000000000
  160. Y = -0.625000000000000000
  161. Z = 0.625000000000000000
  162. Color.Color = {0000803F0000803F000000000000803F}
  163. end
  164. item
  165. X = 0.625000000000000000
  166. Y = -0.625000000000000000
  167. Z = 0.625000000000000000
  168. Color.Color = {0000803F0000803F000000000000803F}
  169. end
  170. item
  171. X = 0.625000000000000000
  172. Y = 0.625000000000000000
  173. Z = 0.625000000000000000
  174. Color.Color = {0000803F0000803F000000000000803F}
  175. end
  176. item
  177. X = 0.625000000000000000
  178. Y = 0.625000000000000000
  179. Z = 0.625000000000000000
  180. Color.Color = {0000803F0000803F000000000000803F}
  181. end
  182. item
  183. X = -0.625000000000000000
  184. Y = 0.625000000000000000
  185. Z = 0.625000000000000000
  186. Color.Color = {0000803F0000803F000000000000803F}
  187. end
  188. item
  189. X = -0.625000000000000000
  190. Y = 0.625000000000000000
  191. Z = 0.625000000000000000
  192. Color.Color = {0000803F0000803F000000000000803F}
  193. end
  194. item
  195. X = -0.625000000000000000
  196. Y = -0.625000000000000000
  197. Z = 0.625000000000000000
  198. Color.Color = {0000803F0000803F000000000000803F}
  199. end
  200. item
  201. X = -0.625000000000000000
  202. Y = -0.625000000000000000
  203. Z = 0.625000000000000000
  204. Color.Color = {0000803F0000803F000000000000803F}
  205. end
  206. item
  207. X = -0.625000000000000000
  208. Y = -0.625000000000000000
  209. Z = -0.625000000000000000
  210. Color.Color = {0000803F0000803F000000000000803F}
  211. end
  212. item
  213. X = 0.625000000000000000
  214. Y = -0.625000000000000000
  215. Z = 0.625000000000000000
  216. Color.Color = {0000803F0000803F000000000000803F}
  217. end
  218. item
  219. X = 0.625000000000000000
  220. Y = -0.625000000000000000
  221. Z = -0.625000000000000000
  222. Color.Color = {0000803F0000803F000000000000803F}
  223. end
  224. item
  225. X = 0.625000000000000000
  226. Y = 0.625000000000000000
  227. Z = 0.625000000000000000
  228. Color.Color = {0000803F0000803F000000000000803F}
  229. end
  230. item
  231. X = 0.625000000000000000
  232. Y = 0.625000000000000000
  233. Z = -0.625000000000000000
  234. Color.Color = {0000803F0000803F000000000000803F}
  235. end
  236. item
  237. X = -0.625000000000000000
  238. Y = 0.625000000000000000
  239. Z = 0.625000000000000000
  240. Color.Color = {0000803F0000803F000000000000803F}
  241. end
  242. item
  243. X = -0.625000000000000000
  244. Y = 0.625000000000000000
  245. Z = -0.625000000000000000
  246. Color.Color = {0000803F0000803F000000000000803F}
  247. end
  248. item
  249. X = -2.625000000000000000
  250. Y = 2.375000000000000000
  251. Z = -0.625000000000000000
  252. Color.Color = {0000803F0000803F000000000000803F}
  253. end
  254. item
  255. X = -1.375000000000000000
  256. Y = 2.375000000000000000
  257. Z = -0.625000000000000000
  258. Color.Color = {0000803F0000803F000000000000803F}
  259. end
  260. item
  261. X = -1.375000000000000000
  262. Y = 2.375000000000000000
  263. Z = -0.625000000000000000
  264. Color.Color = {0000803F0000803F000000000000803F}
  265. end
  266. item
  267. X = -1.375000000000000000
  268. Y = 3.625000000000000000
  269. Z = -0.625000000000000000
  270. Color.Color = {0000803F0000803F000000000000803F}
  271. end
  272. item
  273. X = -1.375000000000000000
  274. Y = 3.625000000000000000
  275. Z = -0.625000000000000000
  276. Color.Color = {0000803F0000803F000000000000803F}
  277. end
  278. item
  279. X = -2.625000000000000000
  280. Y = 3.625000000000000000
  281. Z = -0.625000000000000000
  282. Color.Color = {0000803F0000803F000000000000803F}
  283. end
  284. item
  285. X = -2.625000000000000000
  286. Y = 3.625000000000000000
  287. Z = -0.625000000000000000
  288. Color.Color = {0000803F0000803F000000000000803F}
  289. end
  290. item
  291. X = -2.625000000000000000
  292. Y = 2.375000000000000000
  293. Z = -0.625000000000000000
  294. Color.Color = {0000803F0000803F000000000000803F}
  295. end
  296. item
  297. X = -2.625000000000000000
  298. Y = 2.375000000000000000
  299. Z = 0.625000000000000000
  300. Color.Color = {0000803F0000803F000000000000803F}
  301. end
  302. item
  303. X = -1.375000000000000000
  304. Y = 2.375000000000000000
  305. Z = 0.625000000000000000
  306. Color.Color = {0000803F0000803F000000000000803F}
  307. end
  308. item
  309. X = -1.375000000000000000
  310. Y = 2.375000000000000000
  311. Z = 0.625000000000000000
  312. Color.Color = {0000803F0000803F000000000000803F}
  313. end
  314. item
  315. X = -1.375000000000000000
  316. Y = 3.625000000000000000
  317. Z = 0.625000000000000000
  318. Color.Color = {0000803F0000803F000000000000803F}
  319. end
  320. item
  321. X = -1.375000000000000000
  322. Y = 3.625000000000000000
  323. Z = 0.625000000000000000
  324. Color.Color = {0000803F0000803F000000000000803F}
  325. end
  326. item
  327. X = -2.625000000000000000
  328. Y = 3.625000000000000000
  329. Z = 0.625000000000000000
  330. Color.Color = {0000803F0000803F000000000000803F}
  331. end
  332. item
  333. X = -2.625000000000000000
  334. Y = 3.625000000000000000
  335. Z = 0.625000000000000000
  336. Color.Color = {0000803F0000803F000000000000803F}
  337. end
  338. item
  339. X = -2.625000000000000000
  340. Y = 2.375000000000000000
  341. Z = 0.625000000000000000
  342. Color.Color = {0000803F0000803F000000000000803F}
  343. end
  344. item
  345. X = -2.625000000000000000
  346. Y = 2.375000000000000000
  347. Z = 0.625000000000000000
  348. Color.Color = {0000803F0000803F000000000000803F}
  349. end
  350. item
  351. X = -2.625000000000000000
  352. Y = 2.375000000000000000
  353. Z = -0.625000000000000000
  354. Color.Color = {0000803F0000803F000000000000803F}
  355. end
  356. item
  357. X = -1.375000000000000000
  358. Y = 2.375000000000000000
  359. Z = 0.625000000000000000
  360. Color.Color = {0000803F0000803F000000000000803F}
  361. end
  362. item
  363. X = -1.375000000000000000
  364. Y = 2.375000000000000000
  365. Z = -0.625000000000000000
  366. Color.Color = {0000803F0000803F000000000000803F}
  367. end
  368. item
  369. X = -1.375000000000000000
  370. Y = 3.625000000000000000
  371. Z = 0.625000000000000000
  372. Color.Color = {0000803F0000803F000000000000803F}
  373. end
  374. item
  375. X = -1.375000000000000000
  376. Y = 3.625000000000000000
  377. Z = -0.625000000000000000
  378. Color.Color = {0000803F0000803F000000000000803F}
  379. end
  380. item
  381. X = -2.625000000000000000
  382. Y = 3.625000000000000000
  383. Z = 0.625000000000000000
  384. Color.Color = {0000803F0000803F000000000000803F}
  385. end
  386. item
  387. X = -2.625000000000000000
  388. Y = 3.625000000000000000
  389. Z = -0.625000000000000000
  390. Color.Color = {0000803F0000803F000000000000803F}
  391. end>
  392. NodesAspect = lnaInvisible
  393. SplineMode = lsmSegments
  394. Options = [loUseNodeColorForLines]
  395. end
  396. end
  397. object GLCadencer1: TGLCadencer
  398. Scene = GLScene1
  399. OnProgress = GLCadencer1Progress
  400. Left = 288
  401. end
  402. object GLNGDManager1: TGLNGDManager
  403. VisibleAtRunTime = True
  404. NewtonSurfaceItem = <>
  405. NewtonSurfacePair = <>
  406. DebugOption.NGDManagerDebugs = [mdShowAABB, mdShowJoint]
  407. Line = GLLines1
  408. NewtonJoint = <
  409. item
  410. KinematicControllerOptions.PickModeLinear = True
  411. KinematicControllerOptions.AngularFriction = 500.000000000000000000
  412. JointType = nj_KinematicController
  413. CollisionState = True
  414. end>
  415. Left = 470
  416. end
  417. end