MathgeomGLS

1
object Form1: TForm1
2
  Left = 219
3
  Top = 197
4
  Margins.Left = 4
5
  Margins.Top = 4
6
  Margins.Right = 4
7
  Margins.Bottom = 4
8
  Caption = 'Delaunay Triangulation'
9
  ClientHeight = 1119
10
  ClientWidth = 1736
11
  Color = clBtnFace
12
  Font.Charset = DEFAULT_CHARSET
13
  Font.Color = clWindowText
14
  Font.Height = -18
15
  Font.Name = 'MS Sans Serif'
16
  Font.Style = []
17
  Position = poScreenCenter
18
  OnCreate = FormCreate
19
  OnDestroy = FormDestroy
20
  OnMouseWheel = FormMouseWheel
21
  PixelsPerInch = 168
22
  TextHeight = 24
23
  object Panel1: TPanel
24
    Left = 1249
25
    Top = 0
26
    Width = 487
27
    Height = 1119
28
    Margins.Left = 6
29
    Margins.Top = 6
30
    Margins.Right = 6
31
    Margins.Bottom = 6
32
    Align = alRight
33
    BevelOuter = bvNone
34
    Color = 6316128
35
    TabOrder = 0
36
    object TimeLabel: TLabel
37
      Left = 28
38
      Top = 378
39
      Width = 35
40
      Height = 24
41
      Margins.Left = 6
42
      Margins.Top = 6
43
      Margins.Right = 6
44
      Margins.Bottom = 6
45
      Caption = '       '
46
    end
47
    object GroupBox1: TGroupBox
48
      Left = 13
49
      Top = 14
50
      Width = 463
51
      Height = 211
52
      Margins.Left = 6
53
      Margins.Top = 6
54
      Margins.Right = 6
55
      Margins.Bottom = 6
56
      Caption = 'Subdivide'
57
      TabOrder = 0
58
      object Label3: TLabel
59
        Left = 28
60
        Top = 42
61
        Width = 115
62
        Height = 24
63
        Margins.Left = 6
64
        Margins.Top = 6
65
        Margins.Right = 6
66
        Margins.Bottom = 6
67
        Caption = 'Smooth factor'
68
      end
69
      object SmoothTB: TTrackBar
70
        Left = 28
71
        Top = 70
72
        Width = 365
73
        Height = 35
74
        Margins.Left = 6
75
        Margins.Top = 6
76
        Margins.Right = 6
77
        Margins.Bottom = 6
78
        Max = 50
79
        Frequency = 10
80
        Position = 10
81
        TabOrder = 0
82
        TabStop = False
83
        ThumbLength = 25
84
      end
85
      object SubdivideBtn: TButton
86
        Left = 28
87
        Top = 140
88
        Width = 132
89
        Height = 43
90
        Margins.Left = 6
91
        Margins.Top = 6
92
        Margins.Right = 6
93
        Margins.Bottom = 6
94
        Caption = 'Subdivide'
95
        TabOrder = 1
96
        OnClick = SubdivideBtnClick
97
      end
98
    end
99
    object GroupBox2: TGroupBox
100
      Left = 13
101
      Top = 252
102
      Width = 463
103
      Height = 99
104
      Margins.Left = 6
105
      Margins.Top = 6
106
      Margins.Right = 6
107
      Margins.Bottom = 6
108
      Caption = 'Options'
109
      TabOrder = 1
110
      object WireframeCB: TCheckBox
111
        Left = 28
112
        Top = 42
113
        Width = 169
114
        Height = 29
115
        Margins.Left = 6
116
        Margins.Top = 6
117
        Margins.Right = 6
118
        Margins.Bottom = 6
119
        Caption = 'Wireframe'
120
        TabOrder = 0
121
        OnClick = WireframeCBClick
122
      end
123
      object TexturedCB: TCheckBox
124
        Left = 210
125
        Top = 42
126
        Width = 169
127
        Height = 29
128
        Margins.Left = 6
129
        Margins.Top = 6
130
        Margins.Right = 6
131
        Margins.Bottom = 6
132
        Caption = 'Textured'
133
        TabOrder = 1
134
        OnClick = TexturedCBClick
135
      end
136
    end
137
  end
138
  object GLSceneViewer1: TGLSceneViewer
139
    Left = 0
140
    Top = 0
141
    Width = 1249
142
    Height = 1119
143
    Margins.Left = 6
144
    Margins.Top = 6
145
    Margins.Right = 6
146
    Margins.Bottom = 6
147
    Camera = Camera
148
    Buffer.BackgroundColor = 16492697
149
    Buffer.FaceCulling = False
150
    FieldOfView = 159.732940673828100000
151
    PenAsTouch = False
152
    Align = alClient
153
    OnMouseDown = GLSceneViewer1MouseDown
154
    OnMouseUp = GLSceneViewer1MouseUp
155
    TabOrder = 1
156
  end
157
  object GLScene: TGLScene
158
    Left = 122
159
    Top = 44
160
    object ffWindrose: TGLFreeForm
161
      Visible = False
162
      MaterialLibrary = MatLib
163
    end
164
    object ffTerrain: TGLFreeForm
165
      MaterialLibrary = MatLib
166
    end
167
    object CamH: TGLDummyCube
168
      Direction.Coordinates = {0100003FD7B35D3F0000000000000000}
169
      Position.Coordinates = {00000000000000000000F0410000803F}
170
      TurnAngle = -30.000000000000000000
171
      Up.Coordinates = {00000000000000000000803F00000000}
172
      Visible = False
173
      CubeSize = 1.000000000000000000
174
      VisibleAtRunTime = True
175
      object CamV: TGLDummyCube
176
        Direction.Coordinates = {00000000EA46773FEE83843E00000000}
177
        PitchAngle = 15.000000000000000000
178
        Up.Coordinates = {00000000EE8384BEEA46773F00000000}
179
        Visible = False
180
        CubeSize = 1.000000000000000000
181
        VisibleAtRunTime = True
182
        object Camera: TGLCamera
183
          DepthOfView = 10000.000000000000000000
184
          FocalLength = 100.000000000000000000
185
          NearPlaneBias = 0.100000001490116100
186
          TargetObject = CamH
187
          Position.Coordinates = {000000000000FAC3000000000000803F}
188
          Direction.Coordinates = {000000000000803F0000000000000000}
189
          Up.Coordinates = {00000000000000000000803F00000000}
190
        end
191
      end
192
    end
193
    object GLDirectOpenGL1: TGLDirectOpenGL
194
      UseBuildList = False
195
      OnRender = GLDirectOpenGL1Render
196
      Blend = False
197
    end
198
    object GLLightSource1: TGLLightSource
199
      ConstAttenuation = 1.000000000000000000
200
      Position.Coordinates = {0000000000004842000000000000803F}
201
      LightStyle = lsParallel
202
      SpotCutOff = 180.000000000000000000
203
      SpotDirection.Coordinates = {0000803F0000803F0000803F00000000}
204
    end
205
  end
206
  object Timer1: TTimer
207
    Interval = 100
208
    OnTimer = Timer1Timer
209
    Left = 878
210
    Top = 30
211
  end
212
  object GLCadencer: TGLCadencer
213
    Scene = GLScene
214
    OnProgress = GLCadencerProgress
215
    Left = 388
216
    Top = 38
217
  end
218
  object MatLib: TGLMaterialLibrary
219
    Left = 654
220
    Top = 38
221
  end
222
end
223