Unit1.dfm 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Newton Simple Spawn'
  5. ClientHeight = 385
  6. ClientWidth = 553
  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. Position = poScreenCenter
  15. WindowState = wsMaximized
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object GLSceneViewer1: TGLSceneViewer
  19. Left = 105
  20. Top = 0
  21. Width = 448
  22. Height = 385
  23. Camera = GLCamera1
  24. Buffer.BackgroundColor = clBackground
  25. FieldOfView = 150.879455566406300000
  26. Align = alClient
  27. TabOrder = 0
  28. end
  29. object Panel1: TPanel
  30. Left = 0
  31. Top = 0
  32. Width = 105
  33. Height = 385
  34. Align = alLeft
  35. Caption = ' '
  36. TabOrder = 1
  37. object Button1: TButton
  38. Left = 14
  39. Top = 8
  40. Width = 75
  41. Height = 25
  42. Caption = 'AddCube'
  43. TabOrder = 0
  44. OnClick = Button1Click
  45. end
  46. object Button2: TButton
  47. Left = 14
  48. Top = 39
  49. Width = 75
  50. Height = 25
  51. Caption = 'AddSphere'
  52. TabOrder = 1
  53. OnClick = Button2Click
  54. end
  55. object Button3: TButton
  56. Left = 14
  57. Top = 70
  58. Width = 75
  59. Height = 25
  60. Caption = 'AddCone'
  61. TabOrder = 2
  62. OnClick = Button3Click
  63. end
  64. object Button4: TButton
  65. Left = 14
  66. Top = 101
  67. Width = 75
  68. Height = 25
  69. Caption = 'AddCylinder'
  70. TabOrder = 3
  71. OnClick = Button4Click
  72. end
  73. object Button5: TButton
  74. Left = 14
  75. Top = 132
  76. Width = 75
  77. Height = 25
  78. Caption = 'AddCapsule'
  79. TabOrder = 4
  80. OnClick = Button5Click
  81. end
  82. object Button6: TButton
  83. Left = 14
  84. Top = 163
  85. Width = 75
  86. Height = 25
  87. Caption = 'Remove All'
  88. TabOrder = 5
  89. OnClick = Button6Click
  90. end
  91. end
  92. object GLScene1: TGLScene
  93. Left = 128
  94. Top = 8
  95. object GLCamera1: TGLCamera
  96. DepthOfView = 100.000000000000000000
  97. FocalLength = 50.000000000000000000
  98. TargetObject = Floor
  99. Position.Coordinates = {0000000000004040000020C10000803F}
  100. object GLLightSource1: TGLLightSource
  101. ConstAttenuation = 1.000000000000000000
  102. SpotCutOff = 180.000000000000000000
  103. end
  104. end
  105. object Floor: TGLCube
  106. BehavioursData = {
  107. 0458434F4C02010201060C54474C4E47445374617469630200060C5374617469
  108. 6320466C6F6F7202000201060D474C4E47444D616E6167657231080009050000
  109. 0000000AD7A3F83F1200000000}
  110. CubeSize = {000020410000003F00002041}
  111. end
  112. object GLDummyCube1: TGLDummyCube
  113. Position.Coordinates = {0000000000004040000000000000803F}
  114. CubeSize = 1.000000000000000000
  115. end
  116. object GLResolutionIndependantHUDText1: TGLResolutionIndependantHUDText
  117. Position.Coordinates = {0000003F6666663F000000000000803F}
  118. Text = 'Bodycount:=1'
  119. Rotation = 0.000000000000000000
  120. end
  121. end
  122. object GLCadencer1: TGLCadencer
  123. Scene = GLScene1
  124. OnProgress = GLCadencer1Progress
  125. Left = 216
  126. Top = 8
  127. end
  128. object GLSimpleNavigation1: TGLSimpleNavigation
  129. Form = Owner
  130. GLSceneViewer = GLSceneViewer1
  131. FormCaption = 'Newton Simple Spawn - %FPS'
  132. KeyCombinations = <
  133. item
  134. ShiftState = [ssLeft, ssRight]
  135. Action = snaZoom
  136. end
  137. item
  138. ShiftState = [ssLeft]
  139. Action = snaMoveAroundTarget
  140. end
  141. item
  142. ShiftState = [ssRight]
  143. Action = snaMoveAroundTarget
  144. end>
  145. Left = 216
  146. Top = 72
  147. end
  148. object GLNGDManager1: TGLNGDManager
  149. NewtonSurfaceItem = <>
  150. NewtonSurfacePair = <>
  151. NewtonJoint = <>
  152. Left = 440
  153. Top = 8
  154. end
  155. end