fdFxy.dfm 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216
  1. object FormFxy: TFormFxy
  2. Left = 179
  3. Top = 106
  4. BorderWidth = 4
  5. Caption = 'Fxy'
  6. ClientHeight = 610
  7. ClientWidth = 890
  8. Color = clBtnFace
  9. DockSite = True
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'MS Sans Serif'
  14. Font.Style = []
  15. Position = poScreenCenter
  16. OnMouseWheel = FormMouseWheel
  17. TextHeight = 13
  18. object GLSceneViewer1: TGLSceneViewer
  19. Left = 0
  20. Top = 0
  21. Width = 675
  22. Height = 610
  23. Camera = GLCamera1
  24. Buffer.BackgroundColor = clCream
  25. FieldOfView = 135.428817749023400000
  26. PenAsTouch = False
  27. Align = alClient
  28. OnMouseDown = GLSceneViewer1MouseDown
  29. OnMouseMove = GLSceneViewer1MouseMove
  30. TabOrder = 0
  31. ExplicitWidth = 593
  32. end
  33. object Panel1: TPanel
  34. Left = 675
  35. Top = 0
  36. Width = 215
  37. Height = 610
  38. Align = alRight
  39. TabOrder = 1
  40. ExplicitLeft = 584
  41. ExplicitHeight = 585
  42. object Label2: TLabel
  43. Left = 46
  44. Top = 5
  45. Width = 7
  46. Height = 13
  47. Caption = 'X'
  48. end
  49. object Label3: TLabel
  50. Left = 101
  51. Top = 5
  52. Width = 7
  53. Height = 13
  54. Caption = 'Y'
  55. end
  56. object Label4: TLabel
  57. Left = 150
  58. Top = 5
  59. Width = 7
  60. Height = 13
  61. Caption = 'Z'
  62. end
  63. object TBXYPosition: TTrackBar
  64. Left = 138
  65. Top = 24
  66. Width = 45
  67. Height = 193
  68. Min = -10
  69. Orientation = trVertical
  70. TabOrder = 0
  71. TickMarks = tmBoth
  72. OnChange = TBXYPositionChange
  73. end
  74. object TBYZPosition: TTrackBar
  75. Left = 36
  76. Top = 24
  77. Width = 45
  78. Height = 193
  79. Min = -10
  80. Orientation = trVertical
  81. TabOrder = 1
  82. TickMarks = tmBoth
  83. OnChange = TBYZPositionChange
  84. end
  85. object TBXZPosition: TTrackBar
  86. Left = 87
  87. Top = 24
  88. Width = 45
  89. Height = 193
  90. Min = -10
  91. Orientation = trVertical
  92. TabOrder = 2
  93. TickMarks = tmBoth
  94. OnChange = TBXZPositionChange
  95. end
  96. object rgFormula: TRadioGroup
  97. Left = -2
  98. Top = 215
  99. Width = 211
  100. Height = 105
  101. Caption = 'Formula'
  102. ItemIndex = 2
  103. Items.Strings = (
  104. 'x*y'
  105. 'x*y*z'
  106. 'sin(z*12)/(2*(z*6.28+1))'
  107. '(pow(x,2)+pow(y,2))*sin(8*atan2(x,y))')
  108. TabOrder = 3
  109. OnClick = rgFormulaClick
  110. end
  111. object rgPolygonMode: TRadioGroup
  112. Left = 6
  113. Top = 326
  114. Width = 203
  115. Height = 83
  116. Caption = 'Mode'
  117. ItemIndex = 0
  118. Items.Strings = (
  119. 'pmFill'
  120. 'pmLines'
  121. 'pmPoints')
  122. TabOrder = 4
  123. OnClick = rgPolygonModeClick
  124. end
  125. object CBCentered: TCheckBox
  126. Left = 40
  127. Top = 422
  128. Width = 97
  129. Height = 17
  130. Caption = 'Centered grids'
  131. TabOrder = 5
  132. OnClick = CBCenteredClick
  133. end
  134. end
  135. object GLScene1: TGLScene
  136. Left = 24
  137. Top = 24
  138. object GLLightSource1: TGLLightSource
  139. ConstAttenuation = 1.000000000000000000
  140. Position.Coordinates = {0000F041000048420000C8420000803F}
  141. SpotCutOff = 180.000000000000000000
  142. end
  143. object GLCamera1: TGLCamera
  144. DepthOfView = 1000.000000000000000000
  145. FocalLength = 125.000000000000000000
  146. TargetObject = HeightField
  147. Position.Coordinates = {0000404000008040000080400000803F}
  148. Left = 208
  149. Top = 168
  150. end
  151. object HeightField: TGLHeightField
  152. Material.BlendingMode = bmTransparency
  153. Direction.Coordinates = {0044F4970000803F2EBD3BB300000000}
  154. ShowAxes = True
  155. Up.Coordinates = {0000803F583DAF262EBD3B3300000000}
  156. XSamplingScale.Min = -1.000000000000000000
  157. XSamplingScale.Max = 1.000000000000000000
  158. XSamplingScale.Step = 0.009999999776482582
  159. YSamplingScale.Min = -1.000000000000000000
  160. YSamplingScale.Max = 1.000000000000000000
  161. YSamplingScale.Step = 0.009999999776482582
  162. object YZGrid: TGLXYZGrid
  163. LineColor.Color = {0000803F00000000000000000000803F}
  164. XSamplingScale.Min = -1.000000000000000000
  165. XSamplingScale.Max = 1.000000000000000000
  166. XSamplingScale.Origin = -1.000000000000000000
  167. XSamplingScale.Step = 0.100000001490116100
  168. YSamplingScale.Min = -1.000000000000000000
  169. YSamplingScale.Max = 1.000000000000000000
  170. YSamplingScale.Origin = -1.000000000000000000
  171. YSamplingScale.Step = 0.100000001490116100
  172. ZSamplingScale.Min = -1.000000000000000000
  173. ZSamplingScale.Max = 1.000000000000000000
  174. ZSamplingScale.Origin = -1.000000000000000000
  175. ZSamplingScale.Step = 0.100000001490116100
  176. Parts = [gpY, gpZ]
  177. end
  178. object XZGrid: TGLXYZGrid
  179. LineColor.Color = {000000000000803F000000000000803F}
  180. XSamplingScale.Min = -1.000000000000000000
  181. XSamplingScale.Max = 1.000000000000000000
  182. XSamplingScale.Origin = -1.000000000000000000
  183. XSamplingScale.Step = 0.100000001490116100
  184. YSamplingScale.Min = -1.000000000000000000
  185. YSamplingScale.Max = 1.000000000000000000
  186. YSamplingScale.Origin = -1.000000000000000000
  187. YSamplingScale.Step = 0.100000001490116100
  188. ZSamplingScale.Min = -1.000000000000000000
  189. ZSamplingScale.Max = 1.000000000000000000
  190. ZSamplingScale.Origin = -1.000000000000000000
  191. ZSamplingScale.Step = 0.100000001490116100
  192. Parts = [gpX, gpZ]
  193. end
  194. object XYGrid: TGLXYZGrid
  195. LineColor.Color = {00000000000000000000803F0000803F}
  196. XSamplingScale.Min = -1.000000000000000000
  197. XSamplingScale.Max = 1.000000000000000000
  198. XSamplingScale.Origin = -1.000000000000000000
  199. XSamplingScale.Step = 0.100000001490116100
  200. YSamplingScale.Min = -1.000000000000000000
  201. YSamplingScale.Max = 1.000000000000000000
  202. YSamplingScale.Origin = -1.000000000000000000
  203. YSamplingScale.Step = 0.100000001490116100
  204. ZSamplingScale.Min = -1.000000000000000000
  205. ZSamplingScale.Max = 1.000000000000000000
  206. ZSamplingScale.Origin = -1.000000000000000000
  207. ZSamplingScale.Step = 0.100000001490116100
  208. end
  209. end
  210. end
  211. object GLAsyncTimer1: TGLAsyncTimer
  212. OnTimer = GLAsyncTimer1Timer
  213. Left = 125
  214. Top = 21
  215. end
  216. end