fMultiproxyC.dfm 3.9 KB

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