MathgeomGLS

1
object FrmMain: TFrmMain
2
  Left = 192
3
  Top = 107
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  Caption = 'IsoSurface Cube'
9
  ClientHeight = 886
10
  ClientWidth = 1190
11
  Color = clBtnFace
12
  Font.Charset = DEFAULT_CHARSET
13
  Font.Color = clWindowText
14
  Font.Height = -19
15
  Font.Name = 'MS Sans Serif'
16
  Font.Style = []
17
  Menu = MainMenu
18
  Position = poScreenCenter
19
  OnCreate = FormCreate
20
  OnMouseWheel = FormMouseWheel
21
  PixelsPerInch = 168
22
  TextHeight = 24
23
  object GLSceneViewer: TGLSceneViewer
24
    Left = 268
25
    Top = 0
26
    Width = 922
27
    Height = 886
28
    Margins.Left = 5
29
    Margins.Top = 5
30
    Margins.Right = 5
31
    Margins.Bottom = 5
32
    Camera = Camera
33
    Buffer.BackgroundColor = clGray
34
    FieldOfView = 154.559234619140600000
35
    PenAsTouch = False
36
    Align = alClient
37
    OnMouseDown = GLSceneViewerMouseDown
38
    OnMouseMove = GLSceneViewerMouseMove
39
    TabOrder = 0
40
  end
41
  object PUSerInterface: TPanel
42
    Left = 0
43
    Top = 0
44
    Width = 268
45
    Height = 886
46
    Margins.Left = 5
47
    Margins.Top = 5
48
    Margins.Right = 5
49
    Margins.Bottom = 5
50
    Align = alLeft
51
    BevelOuter = bvLowered
52
    TabOrder = 1
53
    object Label1: TLabel
54
      Left = 14
55
      Top = 350
56
      Width = 68
57
      Height = 24
58
      Margins.Left = 5
59
      Margins.Top = 5
60
      Margins.Right = 5
61
      Margins.Bottom = 5
62
      Caption = 'Vertices'
63
    end
64
    object Label2: TLabel
65
      Left = 14
66
      Top = 378
67
      Width = 78
68
      Height = 24
69
      Margins.Left = 5
70
      Margins.Top = 5
71
      Margins.Right = 5
72
      Margins.Bottom = 5
73
      Caption = 'Triangles'
74
    end
75
    object lblVertices: TLabel
76
      Left = 154
77
      Top = 350
78
      Width = 100
79
      Height = 23
80
      Margins.Left = 5
81
      Margins.Top = 5
82
      Margins.Right = 5
83
      Margins.Bottom = 5
84
      Alignment = taRightJustify
85
      AutoSize = False
86
      Caption = '0'
87
    end
88
    object lblTriangles: TLabel
89
      Left = 154
90
      Top = 378
91
      Width = 100
92
      Height = 23
93
      Margins.Left = 5
94
      Margins.Top = 5
95
      Margins.Right = 5
96
      Margins.Bottom = 5
97
      Alignment = taRightJustify
98
      AutoSize = False
99
      Caption = '0'
100
    end
101
    object LEXDim: TLabeledEdit
102
      Left = 18
103
      Top = 42
104
      Width = 239
105
      Height = 32
106
      Margins.Left = 5
107
      Margins.Top = 5
108
      Margins.Right = 5
109
      Margins.Bottom = 5
110
      EditLabel.Width = 109
111
      EditLabel.Height = 24
112
      EditLabel.Margins.Left = 7
113
      EditLabel.Margins.Top = 7
114
      EditLabel.Margins.Right = 7
115
      EditLabel.Margins.Bottom = 7
116
      EditLabel.Caption = 'X Dimension'
117
      Enabled = False
118
      TabOrder = 0
119
      Text = '27'
120
    end
121
    object LEYDim: TLabeledEdit
122
      Left = 14
123
      Top = 126
124
      Width = 240
125
      Height = 32
126
      Margins.Left = 5
127
      Margins.Top = 5
128
      Margins.Right = 5
129
      Margins.Bottom = 5
130
      EditLabel.Width = 107
131
      EditLabel.Height = 24
132
      EditLabel.Margins.Left = 7
133
      EditLabel.Margins.Top = 7
134
      EditLabel.Margins.Right = 7
135
      EditLabel.Margins.Bottom = 7
136
      EditLabel.Caption = 'Y Dimension'
137
      Enabled = False
138
      TabOrder = 1
139
      Text = '27'
140
    end
141
    object LEZDim: TLabeledEdit
142
      Left = 14
143
      Top = 210
144
      Width = 240
145
      Height = 32
146
      Margins.Left = 5
147
      Margins.Top = 5
148
      Margins.Right = 5
149
      Margins.Bottom = 5
150
      EditLabel.Width = 107
151
      EditLabel.Height = 24
152
      EditLabel.Margins.Left = 7
153
      EditLabel.Margins.Top = 7
154
      EditLabel.Margins.Right = 7
155
      EditLabel.Margins.Bottom = 7
156
      EditLabel.Caption = 'Z Dimension'
157
      Enabled = False
158
      TabOrder = 2
159
      Text = '27'
160
    end
161
    object LEIsoVal: TLabeledEdit
162
      Left = 14
163
      Top = 294
164
      Width = 240
165
      Height = 32
166
      Margins.Left = 5
167
      Margins.Top = 5
168
      Margins.Right = 5
169
      Margins.Bottom = 5
170
      EditLabel.Width = 69
171
      EditLabel.Height = 24
172
      EditLabel.Margins.Left = 7
173
      EditLabel.Margins.Top = 7
174
      EditLabel.Margins.Right = 7
175
      EditLabel.Margins.Bottom = 7
176
      EditLabel.Caption = 'Isovalue'
177
      Enabled = False
178
      TabOrder = 3
179
      Text = '128'
180
    end
181
    object rbgAlgorithm: TRadioGroup
182
      Left = 4
183
      Top = 434
184
      Width = 253
185
      Height = 128
186
      Margins.Left = 5
187
      Margins.Top = 5
188
      Margins.Right = 5
189
      Margins.Bottom = 5
190
      Caption = 'Algorithm'
191
      ItemIndex = 0
192
      Items.Strings = (
193
        'Marching Tetras'
194
        'Marching Cubes')
195
      TabOrder = 4
196
      OnClick = rbgAlgorithmClick
197
    end
198
    object rbgSurface: TRadioGroup
199
      Left = 14
200
      Top = 585
201
      Width = 242
202
      Height = 122
203
      Margins.Left = 5
204
      Margins.Top = 5
205
      Margins.Right = 5
206
      Margins.Bottom = 5
207
      Caption = 'Surface type'
208
      ItemIndex = 1
209
      Items.Strings = (
210
        'Fill'
211
        'Lines')
212
      TabOrder = 5
213
      OnClick = rbgSurfaceClick
214
    end
215
  end
216
  object GLScene: TGLScene
217
    Left = 232
218
    Top = 120
219
    object dcBox: TGLDummyCube
220
      Direction.Coordinates = {F304353F86768AB2F304353F00000000}
221
      Position.Coordinates = {000000BF000000BF000000BF0000803F}
222
      TurnAngle = 45.000000000000000000
223
      Up.Coordinates = {F40435320000803FF404353200000000}
224
      CubeSize = 1.000000000000000000
225
      EdgeColor.Color = {0000000000000000000000000000803F}
226
      object ffCube: TGLFreeForm
227
      end
228
    end
229
    object Camera: TGLCamera
230
      DepthOfView = 1000.000000000000000000
231
      FocalLength = 100.000000000000000000
232
      TargetObject = dcBox
233
      Position.Coordinates = {0000000000000000000048420000803F}
234
      object Light: TGLLightSource
235
        ConstAttenuation = 1.000000000000000000
236
        SpotCutOff = 180.000000000000000000
237
      end
238
    end
239
  end
240
  object OpenDialog: TOpenDialog
241
    Left = 232
242
    Top = 56
243
  end
244
  object MainMenu: TMainMenu
245
    Left = 344
246
    Top = 56
247
    object File1: TMenuItem
248
      Caption = '&File'
249
      object miFileOpen: TMenuItem
250
        Caption = '&Open...'
251
        OnClick = miFileOpenClick
252
      end
253
      object N3: TMenuItem
254
        Caption = '-'
255
      end
256
      object miFileExit: TMenuItem
257
        Caption = 'E&xit'
258
        OnClick = miFileExitClick
259
      end
260
    end
261
  end
262
end
263