fMultiProxy.dfm 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163
  1. object FormMultiProxy: TFormMultiProxy
  2. Left = 164
  3. Top = 112
  4. Caption = 'Multi Proxy'
  5. ClientHeight = 355
  6. ClientWidth = 546
  7. Color = clBtnFace
  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. Position = poScreenCenter
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object GLSceneViewer1: TGLSceneViewer
  19. Left = 0
  20. Top = 60
  21. Width = 546
  22. Height = 295
  23. Camera = GLCamera
  24. Buffer.BackgroundColor = clGray
  25. FieldOfView = 111.728118896484400000
  26. PenAsTouch = False
  27. Align = alClient
  28. TabOrder = 0
  29. end
  30. object Panel1: TPanel
  31. Left = 0
  32. Top = 0
  33. Width = 546
  34. Height = 60
  35. Align = alTop
  36. BevelOuter = bvLowered
  37. Font.Charset = DEFAULT_CHARSET
  38. Font.Color = clWindowText
  39. Font.Height = -11
  40. Font.Name = 'Arial'
  41. Font.Style = []
  42. ParentFont = False
  43. TabOrder = 1
  44. object LabelFPS: TLabel
  45. Left = 464
  46. Top = 8
  47. Width = 19
  48. Height = 14
  49. Caption = 'FPS'
  50. end
  51. object RBUseLODs: TRadioButton
  52. Left = 88
  53. Top = 8
  54. Width = 129
  55. Height = 17
  56. Caption = 'Use 3 Levels of Detail'
  57. Checked = True
  58. TabOrder = 0
  59. TabStop = True
  60. OnClick = RBUseLODsClick
  61. end
  62. object RBHighRes: TRadioButton
  63. Left = 88
  64. Top = 24
  65. Width = 129
  66. Height = 17
  67. Caption = 'Force High Resolution'
  68. TabOrder = 1
  69. OnClick = RBUseLODsClick
  70. end
  71. object CBColorize: TCheckBox
  72. Left = 240
  73. Top = 8
  74. Width = 97
  75. Height = 17
  76. Caption = 'Colorize LODs'
  77. Checked = True
  78. State = cbChecked
  79. TabOrder = 2
  80. OnClick = RBUseLODsClick
  81. end
  82. object RBLowRes: TRadioButton
  83. Left = 88
  84. Top = 40
  85. Width = 129
  86. Height = 17
  87. Caption = 'Force Low Resolution'
  88. TabOrder = 3
  89. OnClick = RBUseLODsClick
  90. end
  91. end
  92. object GLScene: TGLScene
  93. Left = 24
  94. Top = 72
  95. object DCTarget: TGLDummyCube
  96. CubeSize = 1.000000000000000000
  97. object GLParticles: TGLParticles
  98. Direction.Coordinates = {0000000000000000FFFF7F3F00000000}
  99. Position.Coordinates = {0000000000000040000000000000803F}
  100. RollAngle = -5.000000000000000000
  101. Up.Coordinates = {B97EB23D9E067F3F0000000000000000}
  102. CubeSize = 1.000000000000000000
  103. object MPSphere: TGLMultiProxy
  104. OnProgress = MPSphereProgress
  105. MasterObjects = <
  106. item
  107. MasterObject = SPHighRes
  108. DistanceMax = 20.000000000000000000
  109. end
  110. item
  111. MasterObject = SPMedRes
  112. DistanceMin = 20.000000000000000000
  113. DistanceMax = 60.000000000000000000
  114. end
  115. item
  116. MasterObject = SPLowRes
  117. DistanceMin = 60.000000000000000000
  118. DistanceMax = 99999.000000000000000000
  119. end>
  120. end
  121. end
  122. end
  123. object DCReferences: TGLDummyCube
  124. Visible = False
  125. CubeSize = 1.000000000000000000
  126. object SPHighRes: TGLSphere
  127. Radius = 0.500000000000000000
  128. Slices = 32
  129. Stacks = 32
  130. end
  131. object SPMedRes: TGLSphere
  132. Radius = 0.500000000000000000
  133. end
  134. object SPLowRes: TGLSphere
  135. Radius = 0.500000000000000000
  136. Slices = 8
  137. Stacks = 8
  138. end
  139. end
  140. object GLLightSource1: TGLLightSource
  141. ConstAttenuation = 1.000000000000000000
  142. Position.Coordinates = {00004842000020420000F0410000803F}
  143. SpotCutOff = 180.000000000000000000
  144. end
  145. object GLCamera: TGLCamera
  146. DepthOfView = 200.000000000000000000
  147. FocalLength = 100.000000000000000000
  148. TargetObject = DCTarget
  149. Position.Coordinates = {0000F04100004040000000400000803F}
  150. end
  151. end
  152. object GLCadencer: TGLCadencer
  153. Scene = GLScene
  154. TimeMultiplier = 0.500000000000000000
  155. Left = 24
  156. Top = 128
  157. end
  158. object Timer1: TTimer
  159. OnTimer = Timer1Timer
  160. Left = 152
  161. Top = 72
  162. end
  163. end