MathgeomGLS

1
object LevelCurvesForm: TLevelCurvesForm
2
  Left = 197
3
  Top = 111
4
  Caption = 'Level curves'
5
  ClientHeight = 664
6
  ClientWidth = 952
7
  Color = clBtnFace
8
  Font.Charset = DEFAULT_CHARSET
9
  Font.Color = clWindowText
10
  Font.Height = -13
11
  Font.Name = 'System'
12
  Font.Style = []
13
  Menu = MainMenu
14
  OldCreateOrder = False
15
  Position = poScreenCenter
16
  WindowState = wsMaximized
17
  OnActivate = FormActivate
18
  OnClose = FormClose
19
  OnCreate = FormCreate
20
  OnDeactivate = FormDeactivate
21
  OnKeyPress = FormKeyPress
22
  PixelsPerInch = 96
23
  TextHeight = 16
24
  object StatusBar: TStatusBar
25
    Left = 0
26
    Top = 645
27
    Width = 952
28
    Height = 19
29
    Margins.Left = 2
30
    Margins.Top = 2
31
    Margins.Right = 2
32
    Margins.Bottom = 2
33
    AutoHint = True
34
    Panels = <>
35
    SimplePanel = True
36
    ExplicitWidth = 928
37
  end
38
  object ToolBar1: TToolBar
39
    Left = 0
40
    Top = 0
41
    Width = 952
42
    Height = 24
43
    BorderWidth = 1
44
    Color = clBtnFace
45
    Indent = 5
46
    ParentColor = False
47
    ParentShowHint = False
48
    ShowHint = True
49
    TabOrder = 1
50
    Wrapable = False
51
    ExplicitWidth = 928
52
    object ToolButton9: TToolButton
53
      Left = 5
54
      Top = 0
55
      Hint = 'New|Create a new file'
56
      Caption = '&New'
57
      ImageIndex = 6
58
      OnClick = FileNew1Execute
59
    end
60
    object ToolButton1: TToolButton
61
      Left = 28
62
      Top = 0
63
      Hint = 'Open|Open a file'
64
      Caption = '&Open'
65
      ImageIndex = 7
66
      OnClick = FileOpen1Execute
67
    end
68
    object ToolButton2: TToolButton
69
      Left = 51
70
      Top = 0
71
      Hint = 'Save|Save current file'
72
      Caption = '&Save'
73
      ImageIndex = 8
74
      OnClick = FileSave1Execute
75
    end
76
    object ToolButton3: TToolButton
77
      Left = 74
78
      Top = 0
79
      Width = 8
80
      Caption = 'ToolButton3'
81
      ImageIndex = 2
82
      Style = tbsSeparator
83
    end
84
    object ToolButton4: TToolButton
85
      Left = 82
86
      Top = 0
87
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
88
      Caption = 'Cu&t'
89
      ImageIndex = 0
90
    end
91
    object ToolButton5: TToolButton
92
      Left = 105
93
      Top = 0
94
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
95
      Caption = '&Copy'
96
      ImageIndex = 1
97
    end
98
    object ToolButton6: TToolButton
99
      Left = 128
100
      Top = 0
101
      Hint = 'Paste|Inserts Clipboard contents'
102
      Caption = '&Paste'
103
      ImageIndex = 2
104
    end
105
  end
106
  object pnlGLscene2: TPanel
107
    Left = 0
108
    Top = 24
109
    Width = 800
110
    Height = 621
111
    Align = alClient
112
    Caption = 'pnlGLscene2'
113
    Color = clBlack
114
    ParentBackground = False
115
    TabOrder = 2
116
    object StaticText1: TStaticText
117
      Left = 936
118
      Top = 4
119
      Width = 58
120
      Height = 20
121
      BorderStyle = sbsSingle
122
      Caption = '??? FPS'
123
      TabOrder = 0
124
    end
125
    object View: TGLSceneViewer
126
      Left = 1
127
      Top = 1
128
      Width = 798
129
      Height = 619
130
      Camera = cam
131
      Buffer.BackgroundColor = clBlack
132
      Buffer.FaceCulling = False
133
      FieldOfView = 161.646209716796900000
134
      PenAsTouch = False
135
      Align = alClient
136
      OnMouseDown = ViewMouseDown
137
      OnMouseMove = ViewMouseMove
138
      OnMouseWheel = ViewMouseWheel
139
      TabOrder = 1
140
    end
141
    object RGpanning: TRadioGroup
142
      Left = 7
143
      Top = 6
144
      Width = 209
145
      Height = 35
146
      Color = clWhite
147
      Columns = 2
148
      ItemIndex = 1
149
      Items.Strings = (
150
        'Panning'
151
        'Stopped')
152
      ParentBackground = False
153
      ParentColor = False
154
      TabOrder = 2
155
      OnClick = RGpanningClick
156
    end
157
  end
158
  object pnlDimensoesGL: TPanel
159
    Left = 800
160
    Top = 24
161
    Width = 152
162
    Height = 621
163
    Align = alRight
164
    Color = clWhite
165
    ParentBackground = False
166
    TabOrder = 3
167
    ExplicitLeft = 805
168
    ExplicitTop = 35
169
    object Label2: TLabel
170
      Left = 51
171
      Top = 270
172
      Width = 48
173
      Height = 40
174
      Caption = 'Plane Position'
175
      Font.Charset = ANSI_CHARSET
176
      Font.Color = clWindowText
177
      Font.Height = -16
178
      Font.Name = 'Arial Narrow'
179
      Font.Style = []
180
      ParentFont = False
181
      WordWrap = True
182
    end
183
    object lbNL: TLabel
184
      Left = 13
185
      Top = 116
186
      Width = 115
187
      Height = 16
188
      Caption = 'Number of Levels'
189
    end
190
    object RGexamples: TRadioGroup
191
      Left = 6
192
      Top = 6
193
      Width = 131
194
      Height = 75
195
      Caption = 'Examples Input Data'
196
      Font.Charset = ANSI_CHARSET
197
      Font.Color = clWindowText
198
      Font.Height = -11
199
      Font.Name = 'Arial'
200
      Font.Style = []
201
      ItemIndex = 0
202
      Items.Strings = (
203
        'Example 1'
204
        'Example 2'
205
        'Example3')
206
      ParentFont = False
207
      TabOrder = 0
208
      OnClick = RGexamplesClick
209
    end
210
    object SeeIsolines: TCheckBox
211
      Left = 12
212
      Top = 83
213
      Width = 125
214
      Height = 25
215
      Caption = 'Draw isolines'
216
      Checked = True
217
      Font.Charset = ANSI_CHARSET
218
      Font.Color = clWindowText
219
      Font.Height = -16
220
      Font.Name = 'Arial Narrow'
221
      Font.Style = []
222
      ParentFont = False
223
      State = cbChecked
224
      TabOrder = 1
225
      WordWrap = True
226
      OnClick = RGexamplesClick
227
    end
228
    object TrackBarNC: TTrackBar
229
      Left = 5
230
      Top = 136
231
      Width = 132
232
      Height = 33
233
      Max = 20
234
      Min = 1
235
      Position = 20
236
      TabOrder = 2
237
      OnChange = TrackBarNCChange
238
    end
239
    object rgNodeAspect: TRadioGroup
240
      Left = 6
241
      Top = 173
242
      Width = 131
243
      Height = 83
244
      Caption = 'Nodes Aspect'
245
      ItemIndex = 0
246
      Items.Strings = (
247
        'Invisible'
248
        'Cube'
249
        'Axis')
250
      TabOrder = 3
251
      OnClick = rgNodeAspectClick
252
    end
253
    object TrackBarPosition: TTrackBar
254
      Left = 6
255
      Top = 262
256
      Width = 43
257
      Height = 152
258
      Max = 20
259
      Min = 1
260
      Orientation = trVertical
261
      Position = 5
262
      TabOrder = 4
263
      OnChange = TrackBarPositionChange
264
    end
265
    object rgPlaneSelection: TRadioGroup
266
      Left = 45
267
      Top = 329
268
      Width = 73
269
      Height = 73
270
      Caption = 'Plane'
271
      Color = clYellow
272
      Ctl3D = True
273
      DoubleBuffered = False
274
      Font.Charset = ANSI_CHARSET
275
      Font.Color = clBlack
276
      Font.Height = -12
277
      Font.Name = 'Arial'
278
      Font.Style = []
279
      ItemIndex = 0
280
      Items.Strings = (
281
        'XY'
282
        'YZ'
283
        'ZX')
284
      ParentBackground = False
285
      ParentColor = False
286
      ParentCtl3D = False
287
      ParentDoubleBuffered = False
288
      ParentFont = False
289
      TabOrder = 5
290
      OnClick = rgPlaneSelectionClick
291
    end
292
    object rgSplineModes: TRadioGroup
293
      Left = -7
294
      Top = 428
295
      Width = 144
296
      Height = 133
297
      Caption = 'Spline Modes'
298
      Font.Charset = DEFAULT_CHARSET
299
      Font.Color = clWindowText
300
      Font.Height = -13
301
      Font.Name = 'System'
302
      Font.Style = []
303
      ItemIndex = 0
304
      Items.Strings = (
305
        'Segments'
306
        'CubicSpline'
307
        'BezierSpline'
308
        'NURBSCurve'
309
        'Lines'
310
        'Loop')
311
      ParentFont = False
312
      TabOrder = 6
313
      OnClick = rgSplineModesClick
314
    end
315
  end
316
  object MainMenu: TMainMenu
317
    Left = 296
318
    Top = 48
319
    object File1: TMenuItem
320
      Caption = '&File'
321
      Hint = 'File related commands'
322
      object FileNewItem: TMenuItem
323
        Caption = '&New'
324
        Hint = 'New|Create a new file'
325
        ImageIndex = 6
326
        ShortCut = 16462
327
        OnClick = FileNew1Execute
328
      end
329
      object FileOpenItem: TMenuItem
330
        Caption = '&Open'
331
        Hint = 'Open|Open a file'
332
        ImageIndex = 7
333
        ShortCut = 16463
334
        OnClick = FileOpen1Execute
335
      end
336
      object FileSaveItem: TMenuItem
337
        Caption = '&Save'
338
        Hint = 'Save|Save current file'
339
        ImageIndex = 8
340
        ShortCut = 16467
341
        OnClick = FileSave1Execute
342
      end
343
      object FileSaveAsItem: TMenuItem
344
        Caption = 'Save &As...'
345
        Hint = 'Save As|Save current file with different name'
346
        OnClick = FileSave1Execute
347
      end
348
      object N1: TMenuItem
349
        Caption = '-'
350
      end
351
      object FileExitItem: TMenuItem
352
        Caption = 'E&xit'
353
        Hint = 'Exit|Exit application'
354
        OnClick = FileExit1Execute
355
      end
356
    end
357
    object Edit1: TMenuItem
358
      Caption = '&Edit'
359
      Hint = 'Edit commands'
360
      object CutItem: TMenuItem
361
        Caption = 'Cu&t'
362
        Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
363
        ImageIndex = 0
364
        ShortCut = 16472
365
      end
366
      object CopyItem: TMenuItem
367
        Caption = '&Copy'
368
        Hint = 'Copy|Copies the selection and puts it on the Clipboard'
369
        ImageIndex = 1
370
        ShortCut = 16451
371
      end
372
      object PasteItem: TMenuItem
373
        Caption = '&Paste'
374
        Hint = 'Paste|Inserts Clipboard contents'
375
        ImageIndex = 2
376
        ShortCut = 16470
377
      end
378
    end
379
    object Help1: TMenuItem
380
      Caption = '&Help'
381
      Hint = 'Help topics'
382
      object HelpAboutItem: TMenuItem
383
        Caption = '&About...'
384
        Hint = 
385
          'About|Displays program information, version number, and copyrigh' +
386
          't'
387
        OnClick = HelpAbout1Execute
388
      end
389
    end
390
  end
391
  object OpenDialog: TOpenDialog
392
    Filter = 'All Files (*.*)|*.*'
393
    Left = 80
394
    Top = 192
395
  end
396
  object SaveDialog: TSaveDialog
397
    Filter = 'All Files (*.*)|*.*'
398
    Left = 176
399
    Top = 192
400
  end
401
  object GLScene: TGLScene
402
    Left = 376
403
    Top = 56
404
    object DC_utils: TGLDummyCube
405
      CubeSize = 1.000000000000000000
406
      object dc_cam: TGLDummyCube
407
        VisibilityCulling = vcNone
408
        CubeSize = 0.079999998211860660
409
        VisibleAtRunTime = True
410
        object cam: TGLCamera
411
          DepthOfView = 100.000000000000000000
412
          FocalLength = 50.000000000000000000
413
          TargetObject = PlaneXY
414
          Position.Coordinates = {0000C841000050410000C8410000803F}
415
          Left = 216
416
          Top = 152
417
          object GLLightSource1: TGLLightSource
418
            ConstAttenuation = 1.000000000000000000
419
            Position.Coordinates = {0000484200002042000070420000803F}
420
            SpotCutOff = 180.000000000000000000
421
          end
422
        end
423
      end
424
    end
425
    object DC_world: TGLDummyCube
426
      CubeSize = 1.000000000000000000
427
      object PlaneXY: TGLFreeForm
428
        Material.MaterialLibrary = GLMaterialLibrary1
429
        Material.LibMaterialName = 'Palette'
430
        ShowAxes = True
431
        MaterialLibrary = GLMaterialLibrary1
432
        LightmapLibrary = GLMaterialLibrary1
433
      end
434
    end
435
  end
436
  object GLMaterialLibrary1: TGLMaterialLibrary
437
    Materials = <
438
      item
439
        Name = 'Palette'
440
        Tag = 0
441
        Material.BackProperties.Ambient.Color = {0000803F0000803F0000803F0000803F}
442
        Material.BackProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
443
        Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
444
        Material.FrontProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
445
        Material.FrontProperties.Emission.Color = {CFCECE3ECFCECE3EC3C2C23ED9CE773F}
446
        Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
447
        Material.Texture.Image.Picture.Data = {
448
          07544269746D617066000000424D660000000000000036000000280000001000
449
          0000010000000100180000000000300000000000000000000000000000000000
450
          0000C200C2FF00FFFC0100FFFF0100FF0100FFFF007FFF0002FBC0C0C0E3E5E5
451
          E3E5E5E3E5E5E3E5E5E3E5E5E3E5E5E3E5E5}
452
        Material.Texture.MagFilter = maNearest
453
        Material.Texture.MinFilter = miLinear
454
        Material.Texture.TextureWrap = twNone
455
        Material.Texture.Disabled = False
456
        TextureScale.Coordinates = {0000003F0000803F0000803F00000000}
457
      end
458
      item
459
        Name = 'LibMaterial'
460
        Tag = 0
461
        Material.FrontProperties.Ambient.Color = {C6BF3F3FDCD8583FDCD8583F0000803F}
462
        Material.FrontProperties.Diffuse.Color = {EBE0E03EE4DB5B3F9A93133F0000803F}
463
        Material.FrontProperties.Emission.Color = {0000000000000000000000009A99993E}
464
        Material.FrontProperties.Specular.Color = {EBE0E03EE4DB5B3FE4DB5B3F0000803F}
465
        Material.BlendingMode = bmTransparency
466
      end>
467
    Left = 480
468
    Top = 48
469
  end
470
  object GLCadencer1: TGLCadencer
471
    Scene = GLScene
472
    Enabled = False
473
    Left = 584
474
    Top = 49
475
  end
476
  object cad: TGLCadencer
477
    Scene = GLScene
478
    Enabled = False
479
    Mode = cmApplicationIdle
480
    OnProgress = cadProgress
481
    Left = 32
482
    Top = 88
483
  end
484
  object AsyncTimer1: TGLAsyncTimer
485
    Enabled = True
486
    Interval = 800
487
    OnTimer = AsyncTimer1Timer
488
    ThreadPriority = tpIdle
489
    Left = 104
490
    Top = 88
491
  end
492
end
493