MathgeomGLS

1
object Form1: TForm1
2
  Left = 601
3
  Top = 244
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  Caption = 'IsoSurfaces'
9
  ClientHeight = 858
10
  ClientWidth = 1276
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
  FormStyle = fsStayOnTop
18
  Position = poScreenCenter
19
  OnCreate = FormCreate
20
  OnDestroy = FormDestroy
21
  PixelsPerInch = 168
22
  TextHeight = 24
23
  object Viewer: TGLSceneViewer
24
    Left = 270
25
    Top = 0
26
    Width = 1006
27
    Height = 858
28
    Margins.Left = 5
29
    Margins.Top = 5
30
    Margins.Right = 5
31
    Margins.Bottom = 5
32
    Camera = Camera
33
    Buffer.BackgroundColor = 10485760
34
    Buffer.ShadeModel = smSmooth
35
    FieldOfView = 90.013168334960940000
36
    PenAsTouch = False
37
    Align = alClient
38
    TabOrder = 0
39
  end
40
  object PanelLeft: TPanel
41
    Left = 0
42
    Top = 0
43
    Width = 270
44
    Height = 858
45
    Margins.Left = 5
46
    Margins.Top = 5
47
    Margins.Right = 5
48
    Margins.Bottom = 5
49
    Align = alLeft
50
    Caption = ' '
51
    TabOrder = 1
52
    object Label2: TLabel
53
      Left = 4
54
      Top = 301
55
      Width = 74
56
      Height = 24
57
      Margins.Left = 5
58
      Margins.Top = 5
59
      Margins.Right = 5
60
      Margins.Bottom = 5
61
      Caption = 'Iso value'
62
    end
63
    object rgSurface: TRadioGroup
64
      Left = 0
65
      Top = 697
66
      Width = 221
67
      Height = 99
68
      Margins.Left = 5
69
      Margins.Top = 5
70
      Margins.Right = 5
71
      Margins.Bottom = 5
72
      Caption = 'Surface type'
73
      ItemIndex = 0
74
      Items.Strings = (
75
        'GLFreeForm'
76
        'GLMesh')
77
      TabOrder = 0
78
      OnClick = rgSurfaceClick
79
    end
80
    object edIsoValue: TEdit
81
      Left = 19
82
      Top = 387
83
      Width = 107
84
      Height = 32
85
      Margins.Left = 5
86
      Margins.Top = 5
87
      Margins.Right = 5
88
      Margins.Bottom = 5
89
      TabOrder = 1
90
      Text = '0.3'
91
    end
92
    object bbRunMC: TBitBtn
93
      Left = 137
94
      Top = 387
95
      Width = 105
96
      Height = 33
97
      Margins.Left = 5
98
      Margins.Top = 5
99
      Margins.Right = 5
100
      Margins.Bottom = 5
101
      Caption = 'Run MC'
102
      TabOrder = 2
103
      OnClick = bbRunMCClick
104
    end
105
    object cbFillLines: TCheckBox
106
      Left = 7
107
      Top = 460
108
      Width = 119
109
      Height = 30
110
      Margins.Left = 5
111
      Margins.Top = 5
112
      Margins.Right = 5
113
      Margins.Bottom = 5
114
      Caption = 'Fill/Lines'
115
      TabOrder = 3
116
      OnClick = cbFillLinesClick
117
    end
118
    object rgScalarField: TRadioGroup
119
      Left = 1
120
      Top = 1
121
      Width = 268
122
      Height = 287
123
      Margins.Left = 5
124
      Margins.Top = 5
125
      Margins.Right = 5
126
      Margins.Bottom = 5
127
      Align = alTop
128
      Caption = 'Scalar Field'
129
      ItemIndex = 0
130
      Items.Strings = (
131
        'Sphere surface'
132
        'Minkowski space'
133
        'Klein Bottle'
134
        'Chmutov-surface-1'
135
        'Chmutov-surface-2'
136
        'Toroidal surface'
137
        'Double torus surface')
138
      TabOrder = 4
139
      OnClick = rgScalarFieldClick
140
    end
141
    object rgFaceCulling: TRadioGroup
142
      Left = 7
143
      Top = 536
144
      Width = 200
145
      Height = 126
146
      Margins.Left = 5
147
      Margins.Top = 5
148
      Margins.Right = 5
149
      Margins.Bottom = 5
150
      Caption = 'Face Culling'
151
      ItemIndex = 0
152
      Items.Strings = (
153
        'fcBufferDefault'
154
        'fcCull'
155
        'fcNoCull')
156
      TabOrder = 5
157
      OnClick = rgFaceCullingClick
158
    end
159
    object tbIsoValue: TTrackBar
160
      Left = 5
161
      Top = 334
162
      Width = 254
163
      Height = 53
164
      Margins.Left = 5
165
      Margins.Top = 5
166
      Margins.Right = 5
167
      Margins.Bottom = 5
168
      Max = 9
169
      Min = 1
170
      Frequency = 10
171
      Position = 5
172
      TabOrder = 6
173
      ThumbLength = 35
174
      OnChange = tbIsoValueChange
175
    end
176
  end
177
  object Scene: TGLScene
178
    Left = 328
179
    Top = 76
180
    object Camera: TGLCamera
181
      DepthOfView = 70.000000000000000000
182
      FocalLength = 428.901397705078100000
183
      TargetObject = dcWorld
184
      Position.Coordinates = {0000E0C0000080400000A0400000803F}
185
      object Light: TGLLightSource
186
        ConstAttenuation = 1.000000000000000000
187
        Position.Coordinates = {0000C8420000A0410000A0400000803F}
188
        SpotCutOff = 180.000000000000000000
189
      end
190
    end
191
    object dcWorld: TGLDummyCube
192
      Direction.Coordinates = {000000000000803F2EBD3BB300000000}
193
      PitchAngle = 90.000000000000000000
194
      ShowAxes = True
195
      Up.Coordinates = {000000002EBD3BB3000080BF00000000}
196
      CubeSize = 1.000000000000000000
197
      object meshSurf: TGLMesh
198
        Material.FrontProperties.Emission.Color = {C9C8483FC9C8C83EC9C8483E0000803F}
199
        Material.FaceCulling = fcNoCull
200
        Material.PolygonMode = pmLines
201
        Mode = mmTriangles
202
        VertexMode = vmVNC
203
      end
204
      object freeSurf: TGLFreeForm
205
        Material.FrontProperties.Emission.Color = {DAD9593F8B8A0A3FEDEC6C3E0000803F}
206
        Material.BlendingMode = bmTransparency
207
      end
208
    end
209
  end
210
  object SimpleNavigation: TGLSimpleNavigation
211
    Form = Owner
212
    GLSceneViewer = Viewer
213
    FormCaption = 'IsoSurfaces - %FPS'
214
    KeyCombinations = <
215
      item
216
        ShiftState = [ssLeft, ssRight]
217
        Action = snaZoom
218
      end
219
      item
220
        ShiftState = [ssLeft]
221
        Action = snaMoveAroundTarget
222
      end
223
      item
224
        ShiftState = [ssRight]
225
        Action = snaMoveAroundTarget
226
      end>
227
    Left = 486
228
    Top = 76
229
  end
230
end
231