Unit1.dfm 5.2 KB

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