Unit1.dfm 3.7 KB

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