Unit1.dfm 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182
  1. object Form1: TForm1
  2. Left = 62
  3. Top = 15
  4. Caption = 'Boxedin'
  5. ClientHeight = 530
  6. ClientWidth = 697
  7. Color = clGray
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. WindowState = wsMaximized
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer2: TGLSceneViewer
  18. Left = 0
  19. Top = 65
  20. Width = 697
  21. Height = 465
  22. Camera = GLCamera2
  23. Buffer.BackgroundColor = 8404992
  24. Buffer.ShadeModel = smFlat
  25. FieldOfView = 155.726348876953100000
  26. PenAsTouch = False
  27. Align = alClient
  28. TabOrder = 0
  29. end
  30. object Panel1: TPanel
  31. Left = 0
  32. Top = 0
  33. Width = 697
  34. Height = 65
  35. Align = alTop
  36. BevelOuter = bvNone
  37. TabOrder = 1
  38. object Label1: TLabel
  39. Left = 344
  40. Top = 11
  41. Width = 32
  42. Height = 13
  43. Caption = 'Label1'
  44. end
  45. object Label2: TLabel
  46. Left = 344
  47. Top = 26
  48. Width = 32
  49. Height = 13
  50. Caption = 'Label2'
  51. end
  52. object Label3: TLabel
  53. Left = 344
  54. Top = 43
  55. Width = 32
  56. Height = 13
  57. Caption = 'Label3'
  58. end
  59. object Label4: TLabel
  60. Left = 192
  61. Top = 8
  62. Width = 37
  63. Height = 13
  64. Caption = 'Velocity'
  65. end
  66. object LabelFPS: TLabel
  67. Left = 440
  68. Top = 26
  69. Width = 20
  70. Height = 13
  71. Caption = 'FPS'
  72. end
  73. object TrackBar1: TTrackBar
  74. Left = 112
  75. Top = 27
  76. Width = 201
  77. Height = 25
  78. Max = 50
  79. Position = 1
  80. TabOrder = 0
  81. end
  82. object Button1: TButton
  83. Left = 8
  84. Top = 24
  85. Width = 75
  86. Height = 25
  87. Caption = 'Reset'
  88. TabOrder = 1
  89. OnClick = Button1Click
  90. end
  91. end
  92. object GLScene1: TGLScene
  93. Left = 40
  94. Top = 88
  95. object GLLightSource1: TGLLightSource
  96. Ambient.Color = {000000001283003F9CC4403F0000803F}
  97. ConstAttenuation = 1.000000000000000000
  98. Diffuse.Color = {1283003F1283003F1283003F0000803F}
  99. Position.Coordinates = {00004842000016430000C8420000803F}
  100. LightStyle = lsOmni
  101. Specular.Color = {0000803F0000803F0000803F0000803F}
  102. SpotCutOff = 180.000000000000000000
  103. end
  104. object DummyCube1: TGLDummyCube
  105. CubeSize = 1.000000000000000000
  106. object FreeForm1: TGLFreeForm
  107. Direction.Coordinates = {000000000000803F0000000000000000}
  108. Up.Coordinates = {00000000000000000000803F00000000}
  109. end
  110. end
  111. object Sphere1: TGLSphere
  112. Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
  113. Direction.Coordinates = {000000000000803F0000000000000000}
  114. Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
  115. Radius = 0.100000001490116100
  116. Slices = 6
  117. Stacks = 6
  118. object ArrowLine1: TGLArrowLine
  119. Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F9A99193F}
  120. Material.FrontProperties.Emission.Color = {1283803E1283803E000000000000803F}
  121. Material.BlendingMode = bmTransparency
  122. Position.Coordinates = {0000000000000000CDCCCC3D0000803F}
  123. BottomRadius = 0.050000000745058060
  124. Height = 1.000000000000000000
  125. TopRadius = 0.100000001490116100
  126. TopArrowHeadHeight = 2.000000000000000000
  127. TopArrowHeadRadius = 0.200000002980232200
  128. BottomArrowHeadHeight = 0.500000000000000000
  129. BottomArrowHeadRadius = 0.200000002980232200
  130. end
  131. end
  132. object DummyCube2: TGLDummyCube
  133. CubeSize = 1.000000000000000000
  134. end
  135. object Sphere2: TGLSphere
  136. Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
  137. Material.FrontProperties.Shininess = 128
  138. Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
  139. VisibilityCulling = vcObjectBased
  140. Direction.Coordinates = {4A602B3FC61C69BE490635BF00000000}
  141. Position.Coordinates = {000000000000E040000000C00000803F}
  142. Up.Coordinates = {B819C33EF71E6C3FCDAE823D00000000}
  143. Radius = 20.000000000000000000
  144. Slices = 24
  145. Stacks = 24
  146. end
  147. object GLLightSource2: TGLLightSource
  148. Ambient.Color = {000000001283803E1283003F0000803F}
  149. ConstAttenuation = 1.000000000000000000
  150. Diffuse.Color = {BEC0403FBEC0403FBEC0403F0000803F}
  151. Specular.Color = {0000803F0000803F0000803F0000803F}
  152. SpotCutOff = 180.000000000000000000
  153. end
  154. object Lines1: TGLLines
  155. LineColor.Color = {0000803F0000803F0000003F3333733F}
  156. LineWidth = 3.000000000000000000
  157. NodeColor.Color = {0000803F0000803F000000000000803F}
  158. Nodes = <>
  159. NodesAspect = lnaCube
  160. NodeSize = 10.000000000000000000
  161. Options = [loUseNodeColorForLines]
  162. end
  163. object GLCamera2: TGLCamera
  164. DepthOfView = 1000.000000000000000000
  165. FocalLength = 50.000000000000000000
  166. TargetObject = Sphere2
  167. Position.Coordinates = {0000000000008040000040C00000803F}
  168. Direction.Coordinates = {00000000000000800000803F00000000}
  169. end
  170. end
  171. object GLCadencer1: TGLCadencer
  172. Scene = GLScene1
  173. OnProgress = GLCadencer1Progress
  174. Left = 112
  175. Top = 88
  176. end
  177. object Timer1: TTimer
  178. OnTimer = Timer1Timer
  179. Left = 624
  180. Top = 80
  181. end
  182. end