123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221 |
- object FormHeightField: TFormHeightField
- Left = 196
- Top = 94
- BorderWidth = 4
- Caption = 'Height Field'
- ClientHeight = 364
- ClientWidth = 602
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnMouseWheel = FormMouseWheel
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 0
- Width = 435
- Height = 364
- Camera = GLCamera1
- Buffer.BackgroundColor = clBackground
- FieldOfView = 122.426765441894500000
- PenAsTouch = False
- Align = alClient
- OnMouseDown = GLSceneViewer1MouseDown
- OnMouseMove = GLSceneViewer1MouseMove
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 435
- Top = 0
- Width = 167
- Height = 364
- Align = alRight
- TabOrder = 1
- object Label1: TLabel
- Left = 48
- Top = 8
- Width = 44
- Height = 13
- Caption = 'X extents'
- end
- object Label2: TLabel
- Left = 48
- Top = 58
- Width = 44
- Height = 13
- Caption = 'Y extents'
- end
- object Label3: TLabel
- Left = 56
- Top = 108
- Width = 22
- Height = 13
- Caption = 'Step'
- end
- object Label4: TLabel
- Left = 19
- Top = 277
- Width = 54
- Height = 13
- Caption = 'Color Mode'
- end
- object LabelFPS: TLabel
- Left = 14
- Top = 360
- Width = 20
- Height = 13
- Caption = 'FPS'
- end
- object TrackBar1: TTrackBar
- Left = 0
- Top = 19
- Width = 129
- Height = 33
- Max = 50
- Position = 10
- TabOrder = 0
- ThumbLength = 10
- TickMarks = tmBoth
- OnChange = TrackBar1Change
- end
- object TrackBar2: TTrackBar
- Left = 0
- Top = 69
- Width = 129
- Height = 33
- Max = 50
- Position = 10
- TabOrder = 1
- ThumbLength = 10
- TickMarks = tmBoth
- OnChange = TrackBar2Change
- end
- object TrackBar3: TTrackBar
- Left = 0
- Top = 120
- Width = 129
- Height = 33
- Max = 160
- Min = 10
- Frequency = 10
- Position = 80
- TabOrder = 2
- ThumbLength = 10
- TickMarks = tmBoth
- OnChange = TrackBar3Change
- end
- object RadioGroup1: TRadioGroup
- Left = 32
- Top = 159
- Width = 81
- Height = 89
- Caption = 'Formula'
- ItemIndex = 0
- Items.Strings = (
- 'Formula 1'
- 'Formula 2'
- 'Dynamic')
- TabOrder = 3
- OnClick = RadioGroup1Click
- end
- object CheckBox1: TCheckBox
- Left = 16
- Top = 254
- Width = 73
- Height = 17
- Caption = 'Two-sided'
- Checked = True
- State = cbChecked
- TabOrder = 4
- OnClick = CheckBox1Click
- end
- object ComboBox1: TComboBox
- Left = 16
- Top = 296
- Width = 81
- Height = 21
- Style = csDropDownList
- TabOrder = 5
- OnChange = ComboBox1Change
- Items.Strings = (
- 'none'
- 'emission'
- 'diffuse')
- end
- object CheckBox2: TCheckBox
- Left = 16
- Top = 323
- Width = 65
- Height = 17
- Caption = 'Lighting'
- Checked = True
- State = cbChecked
- TabOrder = 6
- OnClick = CheckBox2Click
- end
- end
- object GLScene1: TGLScene
- Left = 40
- Top = 24
- object HeightField1: TGLHeightField
- Direction.Coordinates = {000000000000803F2EBD3BB300000000}
- Scale.Coordinates = {00004040000040400000404000000000}
- Up.Coordinates = {000000002EBD3BB3000080BF00000000}
- XSamplingScale.Min = -1.000000000000000000
- XSamplingScale.Max = 1.000000000000000000
- XSamplingScale.Step = 0.079999998211860660
- YSamplingScale.Min = -1.000000000000000000
- YSamplingScale.Max = 1.000000000000000000
- YSamplingScale.Step = 0.079999998211860660
- object Sphere1: TGLSphere
- Material.FrontProperties.Diffuse.Color = {F8FEFE3E0000803F000000000000803F}
- Position.Coordinates = {0000803F0000803F000000000000803F}
- Visible = False
- OnProgress = Sphere1Progress
- Radius = 0.100000001490116100
- Slices = 12
- Stacks = 9
- object Lines1: TGLLines
- Nodes = <
- item
- end
- item
- Z = -1.500000000000000000
- end>
- NodesAspect = lnaInvisible
- Options = []
- end
- end
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000F041000048420000C8420000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 100.000000000000000000
- TargetObject = HeightField1
- Position.Coordinates = {0000404000008040000000410000803F}
- Left = 208
- Top = 168
- end
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 128
- Top = 24
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- SleepLength = 1
- Left = 40
- Top = 80
- end
- end
|