fHeightField.dfm 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221
  1. object FormHeightField: TFormHeightField
  2. Left = 196
  3. Top = 94
  4. BorderWidth = 4
  5. Caption = 'Height Field'
  6. ClientHeight = 364
  7. ClientWidth = 602
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. OnCreate = FormCreate
  16. OnMouseWheel = FormMouseWheel
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object GLSceneViewer1: TGLSceneViewer
  20. Left = 0
  21. Top = 0
  22. Width = 435
  23. Height = 364
  24. Camera = GLCamera1
  25. Buffer.BackgroundColor = clBackground
  26. FieldOfView = 122.426765441894500000
  27. PenAsTouch = False
  28. Align = alClient
  29. OnMouseDown = GLSceneViewer1MouseDown
  30. OnMouseMove = GLSceneViewer1MouseMove
  31. TabOrder = 0
  32. end
  33. object Panel1: TPanel
  34. Left = 435
  35. Top = 0
  36. Width = 167
  37. Height = 364
  38. Align = alRight
  39. TabOrder = 1
  40. object Label1: TLabel
  41. Left = 48
  42. Top = 8
  43. Width = 44
  44. Height = 13
  45. Caption = 'X extents'
  46. end
  47. object Label2: TLabel
  48. Left = 48
  49. Top = 58
  50. Width = 44
  51. Height = 13
  52. Caption = 'Y extents'
  53. end
  54. object Label3: TLabel
  55. Left = 56
  56. Top = 108
  57. Width = 22
  58. Height = 13
  59. Caption = 'Step'
  60. end
  61. object Label4: TLabel
  62. Left = 19
  63. Top = 277
  64. Width = 54
  65. Height = 13
  66. Caption = 'Color Mode'
  67. end
  68. object LabelFPS: TLabel
  69. Left = 14
  70. Top = 360
  71. Width = 20
  72. Height = 13
  73. Caption = 'FPS'
  74. end
  75. object TrackBar1: TTrackBar
  76. Left = 0
  77. Top = 19
  78. Width = 129
  79. Height = 33
  80. Max = 50
  81. Position = 10
  82. TabOrder = 0
  83. ThumbLength = 10
  84. TickMarks = tmBoth
  85. OnChange = TrackBar1Change
  86. end
  87. object TrackBar2: TTrackBar
  88. Left = 0
  89. Top = 69
  90. Width = 129
  91. Height = 33
  92. Max = 50
  93. Position = 10
  94. TabOrder = 1
  95. ThumbLength = 10
  96. TickMarks = tmBoth
  97. OnChange = TrackBar2Change
  98. end
  99. object TrackBar3: TTrackBar
  100. Left = 0
  101. Top = 120
  102. Width = 129
  103. Height = 33
  104. Max = 160
  105. Min = 10
  106. Frequency = 10
  107. Position = 80
  108. TabOrder = 2
  109. ThumbLength = 10
  110. TickMarks = tmBoth
  111. OnChange = TrackBar3Change
  112. end
  113. object RadioGroup1: TRadioGroup
  114. Left = 32
  115. Top = 159
  116. Width = 81
  117. Height = 89
  118. Caption = 'Formula'
  119. ItemIndex = 0
  120. Items.Strings = (
  121. 'Formula 1'
  122. 'Formula 2'
  123. 'Dynamic')
  124. TabOrder = 3
  125. OnClick = RadioGroup1Click
  126. end
  127. object CheckBox1: TCheckBox
  128. Left = 16
  129. Top = 254
  130. Width = 73
  131. Height = 17
  132. Caption = 'Two-sided'
  133. Checked = True
  134. State = cbChecked
  135. TabOrder = 4
  136. OnClick = CheckBox1Click
  137. end
  138. object ComboBox1: TComboBox
  139. Left = 16
  140. Top = 296
  141. Width = 81
  142. Height = 21
  143. Style = csDropDownList
  144. TabOrder = 5
  145. OnChange = ComboBox1Change
  146. Items.Strings = (
  147. 'none'
  148. 'emission'
  149. 'diffuse')
  150. end
  151. object CheckBox2: TCheckBox
  152. Left = 16
  153. Top = 323
  154. Width = 65
  155. Height = 17
  156. Caption = 'Lighting'
  157. Checked = True
  158. State = cbChecked
  159. TabOrder = 6
  160. OnClick = CheckBox2Click
  161. end
  162. end
  163. object GLScene1: TGLScene
  164. Left = 40
  165. Top = 24
  166. object HeightField1: TGLHeightField
  167. Direction.Coordinates = {000000000000803F2EBD3BB300000000}
  168. Scale.Coordinates = {00004040000040400000404000000000}
  169. Up.Coordinates = {000000002EBD3BB3000080BF00000000}
  170. XSamplingScale.Min = -1.000000000000000000
  171. XSamplingScale.Max = 1.000000000000000000
  172. XSamplingScale.Step = 0.079999998211860660
  173. YSamplingScale.Min = -1.000000000000000000
  174. YSamplingScale.Max = 1.000000000000000000
  175. YSamplingScale.Step = 0.079999998211860660
  176. object Sphere1: TGLSphere
  177. Material.FrontProperties.Diffuse.Color = {F8FEFE3E0000803F000000000000803F}
  178. Position.Coordinates = {0000803F0000803F000000000000803F}
  179. Visible = False
  180. OnProgress = Sphere1Progress
  181. Radius = 0.100000001490116100
  182. Slices = 12
  183. Stacks = 9
  184. object Lines1: TGLLines
  185. Nodes = <
  186. item
  187. end
  188. item
  189. Z = -1.500000000000000000
  190. end>
  191. NodesAspect = lnaInvisible
  192. Options = []
  193. end
  194. end
  195. end
  196. object GLLightSource1: TGLLightSource
  197. ConstAttenuation = 1.000000000000000000
  198. Position.Coordinates = {0000F041000048420000C8420000803F}
  199. SpotCutOff = 180.000000000000000000
  200. end
  201. object GLCamera1: TGLCamera
  202. DepthOfView = 100.000000000000000000
  203. FocalLength = 100.000000000000000000
  204. TargetObject = HeightField1
  205. Position.Coordinates = {0000404000008040000000410000803F}
  206. Left = 208
  207. Top = 168
  208. end
  209. end
  210. object Timer1: TTimer
  211. OnTimer = Timer1Timer
  212. Left = 128
  213. Top = 24
  214. end
  215. object GLCadencer1: TGLCadencer
  216. Scene = GLScene1
  217. SleepLength = 1
  218. Left = 40
  219. Top = 80
  220. end
  221. end