MathgeomGLS

1
object FormMesh: TFormMesh
2
  Left = 70
3
  Top = 80
4
  Margins.Left = 4
5
  Margins.Top = 4
6
  Margins.Right = 4
7
  Margins.Bottom = 4
8
  Caption = 'Superellipsoid Mesh'
9
  ClientHeight = 729
10
  ClientWidth = 1904
11
  Color = clBtnFace
12
  Font.Charset = DEFAULT_CHARSET
13
  Font.Color = clWindowText
14
  Font.Height = -19
15
  Font.Name = 'Tahoma'
16
  Font.Style = []
17
  KeyPreview = True
18
  Position = poScreenCenter
19
  WindowState = wsMaximized
20
  OnCreate = FormCreate
21
  OnShow = FormShow
22
  PixelsPerInch = 168
23
  DesignSize = (
24
    1904
25
    729)
26
  TextHeight = 23
27
  object StatusBar: TStatusBar
28
    Left = 0
29
    Top = 697
30
    Width = 1904
31
    Height = 32
32
    Cursor = crHandPoint
33
    Margins.Left = 6
34
    Margins.Top = 6
35
    Margins.Right = 6
36
    Margins.Bottom = 6
37
    Color = clCream
38
    Panels = <
39
      item
40
        Alignment = taCenter
41
        Width = 308
42
      end
43
      item
44
        Alignment = taCenter
45
        Width = 308
46
      end
47
      item
48
        Alignment = taCenter
49
        Width = 308
50
      end
51
      item
52
        Alignment = taCenter
53
        Width = 308
54
      end
55
      item
56
        Width = 88
57
      end>
58
  end
59
  object Panel1: TPanel
60
    Left = 0
61
    Top = 536
62
    Width = 1904
63
    Height = 161
64
    Margins.Left = 6
65
    Margins.Top = 6
66
    Margins.Right = 6
67
    Margins.Bottom = 6
68
    Align = alBottom
69
    TabOrder = 1
70
    DesignSize = (
71
      1904
72
      161)
73
    object Label1: TLabel
74
      Left = 22
75
      Top = 6
76
      Width = 76
77
      Height = 27
78
      Margins.Left = 6
79
      Margins.Top = 6
80
      Margins.Right = 6
81
      Margins.Bottom = 6
82
      Anchors = [akLeft, akTop, akBottom]
83
      Caption = 'xRadius'
84
      Font.Charset = DEFAULT_CHARSET
85
      Font.Color = clWindowText
86
      Font.Height = -22
87
      Font.Name = 'Tahoma'
88
      Font.Style = []
89
      ParentFont = False
90
    end
91
    object Label2: TLabel
92
      Left = 22
93
      Top = 55
94
      Width = 76
95
      Height = 27
96
      Margins.Left = 6
97
      Margins.Top = 6
98
      Margins.Right = 6
99
      Margins.Bottom = 6
100
      Anchors = [akLeft, akTop, akBottom]
101
      Caption = 'yRadius'
102
      Font.Charset = DEFAULT_CHARSET
103
      Font.Color = clWindowText
104
      Font.Height = -22
105
      Font.Name = 'Tahoma'
106
      Font.Style = []
107
      ParentFont = False
108
    end
109
    object Label3: TLabel
110
      Left = 22
111
      Top = 104
112
      Width = 75
113
      Height = 27
114
      Margins.Left = 6
115
      Margins.Top = 6
116
      Margins.Right = 6
117
      Margins.Bottom = 6
118
      Anchors = [akLeft, akTop, akBottom]
119
      Caption = 'zRadius'
120
      Font.Charset = DEFAULT_CHARSET
121
      Font.Color = clWindowText
122
      Font.Height = -22
123
      Font.Name = 'Tahoma'
124
      Font.Style = []
125
      ParentFont = False
126
    end
127
    object Label5: TLabel
128
      Left = 351
129
      Top = 6
130
      Width = 54
131
      Height = 27
132
      Margins.Left = 6
133
      Margins.Top = 6
134
      Margins.Right = 6
135
      Margins.Bottom = 6
136
      Anchors = [akLeft, akTop, akBottom]
137
      Caption = 'Slices'
138
      Font.Charset = DEFAULT_CHARSET
139
      Font.Color = clWindowText
140
      Font.Height = -22
141
      Font.Name = 'Tahoma'
142
      Font.Style = []
143
      ParentFont = False
144
    end
145
    object Label8: TLabel
146
      Left = 344
147
      Top = 55
148
      Width = 62
149
      Height = 27
150
      Margins.Left = 6
151
      Margins.Top = 6
152
      Margins.Right = 6
153
      Margins.Bottom = 6
154
      Anchors = [akLeft, akTop, akBottom]
155
      Caption = 'Stacks'
156
      Font.Charset = DEFAULT_CHARSET
157
      Font.Color = clWindowText
158
      Font.Height = -22
159
      Font.Name = 'Tahoma'
160
      Font.Style = []
161
      ParentFont = False
162
    end
163
    object Label7: TLabel
164
      Left = 953
165
      Top = 6
166
      Width = 69
167
      Height = 27
168
      Margins.Left = 6
169
      Margins.Top = 6
170
      Margins.Right = 6
171
      Margins.Bottom = 6
172
      Anchors = [akLeft, akTop, akBottom]
173
      Caption = 'Bottom'
174
      Font.Charset = DEFAULT_CHARSET
175
      Font.Color = clWindowText
176
      Font.Height = -22
177
      Font.Name = 'Tahoma'
178
      Font.Style = []
179
      ParentFont = False
180
    end
181
    object Label12: TLabel
182
      Left = 1271
183
      Top = 55
184
      Width = 43
185
      Height = 27
186
      Margins.Left = 6
187
      Margins.Top = 6
188
      Margins.Right = 6
189
      Margins.Bottom = 6
190
      Anchors = [akLeft, akTop, akBottom]
191
      Caption = 'Stop'
192
      Font.Charset = DEFAULT_CHARSET
193
      Font.Color = clWindowText
194
      Font.Height = -22
195
      Font.Name = 'Tahoma'
196
      Font.Style = []
197
      ParentFont = False
198
    end
199
    object Label10: TLabel
200
      Left = 1271
201
      Top = 6
202
      Width = 46
203
      Height = 27
204
      Margins.Left = 6
205
      Margins.Top = 6
206
      Margins.Right = 6
207
      Margins.Bottom = 6
208
      Anchors = [akLeft, akTop, akBottom]
209
      Caption = 'Start'
210
      Font.Charset = DEFAULT_CHARSET
211
      Font.Color = clWindowText
212
      Font.Height = -22
213
      Font.Name = 'Tahoma'
214
      Font.Style = []
215
      ParentFont = False
216
    end
217
    object Label9: TLabel
218
      Left = 658
219
      Top = 6
220
      Width = 37
221
      Height = 27
222
      Margins.Left = 6
223
      Margins.Top = 6
224
      Margins.Right = 6
225
      Margins.Bottom = 6
226
      Anchors = [akLeft, akTop, akBottom]
227
      Caption = 'Top'
228
      Font.Charset = DEFAULT_CHARSET
229
      Font.Color = clWindowText
230
      Font.Height = -22
231
      Font.Name = 'Tahoma'
232
      Font.Style = []
233
      ParentFont = False
234
    end
235
    object Label4: TLabel
236
      Left = 1572
237
      Top = 6
238
      Width = 78
239
      Height = 27
240
      Margins.Left = 6
241
      Margins.Top = 6
242
      Margins.Right = 6
243
      Margins.Bottom = 6
244
      Anchors = [akLeft, akBottom]
245
      Caption = 'xyCurve'
246
      Font.Charset = DEFAULT_CHARSET
247
      Font.Color = clWindowText
248
      Font.Height = -22
249
      Font.Name = 'Tahoma'
250
      Font.Style = []
251
      ParentFont = False
252
    end
253
    object Label6: TLabel
254
      Left = 1572
255
      Top = 55
256
      Width = 66
257
      Height = 27
258
      Margins.Left = 6
259
      Margins.Top = 6
260
      Margins.Right = 6
261
      Margins.Bottom = 6
262
      Anchors = [akLeft, akBottom]
263
      Caption = 'zCurve'
264
      Font.Charset = DEFAULT_CHARSET
265
      Font.Color = clWindowText
266
      Font.Height = -22
267
      Font.Name = 'Tahoma'
268
      Font.Style = []
269
      ParentFont = False
270
    end
271
    object zRadiusTrackBar: TTrackBar
272
      Left = 102
273
      Top = 99
274
      Width = 245
275
      Height = 54
276
      Cursor = crHandPoint
277
      Margins.Left = 6
278
      Margins.Top = 6
279
      Margins.Right = 6
280
      Margins.Bottom = 6
281
      Anchors = [akLeft, akTop, akBottom]
282
      Max = 100
283
      Min = 1
284
      PageSize = 1
285
      Position = 20
286
      TabOrder = 2
287
      ThumbLength = 35
288
      TickStyle = tsNone
289
      OnChange = AnyChange
290
    end
291
    object yRadiusTrackBar: TTrackBar
292
      Left = 102
293
      Top = 50
294
      Width = 245
295
      Height = 54
296
      Cursor = crHandPoint
297
      Margins.Left = 6
298
      Margins.Top = 6
299
      Margins.Right = 6
300
      Margins.Bottom = 6
301
      Anchors = [akLeft, akTop, akBottom]
302
      Max = 100
303
      Min = 1
304
      PageSize = 1
305
      Position = 20
306
      TabOrder = 1
307
      ThumbLength = 35
308
      TickStyle = tsNone
309
      OnChange = AnyChange
310
    end
311
    object xRadiusTrackBar: TTrackBar
312
      Left = 102
313
      Top = 1
314
      Width = 245
315
      Height = 54
316
      Cursor = crHandPoint
317
      Margins.Left = 6
318
      Margins.Top = 6
319
      Margins.Right = 6
320
      Margins.Bottom = 6
321
      Anchors = [akLeft, akTop, akBottom]
322
      Max = 100
323
      Min = 1
324
      PageSize = 1
325
      Position = 20
326
      TabOrder = 0
327
      ThumbLength = 35
328
      TickStyle = tsNone
329
      OnChange = AnyChange
330
    end
331
    object GridCheckBox: TCheckBox
332
      Left = 354
333
      Top = 105
334
      Width = 123
335
      Height = 29
336
      Margins.Left = 6
337
      Margins.Top = 6
338
      Margins.Right = 6
339
      Margins.Bottom = 6
340
      Anchors = [akLeft, akTop, akBottom]
341
      Caption = 'Hide Grid'
342
      TabOrder = 5
343
      OnClick = GridCheckBoxClick
344
    end
345
    object ArrowsCheckBox: TCheckBox
346
      Left = 483
347
      Top = 105
348
      Width = 154
349
      Height = 29
350
      Margins.Left = 6
351
      Margins.Top = 6
352
      Margins.Right = 6
353
      Margins.Bottom = 6
354
      Anchors = [akLeft, akTop, akBottom]
355
      Caption = 'Hide Arrows'
356
      TabOrder = 6
357
      OnClick = ArrowsCheckBoxClick
358
    end
359
    object StacksTrackBar: TTrackBar
360
      Left = 413
361
      Top = 50
362
      Width = 245
363
      Height = 54
364
      Cursor = crHandPoint
365
      Margins.Left = 6
366
      Margins.Top = 6
367
      Margins.Right = 6
368
      Margins.Bottom = 6
369
      Anchors = [akLeft, akTop, akBottom]
370
      Max = 128
371
      Min = 2
372
      PageSize = 4
373
      Position = 16
374
      TabOrder = 4
375
      ThumbLength = 35
376
      TickStyle = tsNone
377
      OnChange = AnyChange
378
    end
379
    object SlicesTrackBar: TTrackBar
380
      Left = 413
381
      Top = 6
382
      Width = 245
383
      Height = 51
384
      Cursor = crHandPoint
385
      Margins.Left = 6
386
      Margins.Top = 6
387
      Margins.Right = 6
388
      Margins.Bottom = 6
389
      Anchors = [akLeft, akTop, akBottom]
390
      Max = 128
391
      Min = 2
392
      PageSize = 4
393
      Position = 16
394
      TabOrder = 3
395
      ThumbLength = 35
396
      TickStyle = tsNone
397
      OnChange = AnyChange
398
    end
399
    object TopCapRadioGroup: TRadioGroup
400
      Left = 659
401
      Top = 83
402
      Width = 290
403
      Height = 51
404
      Margins.Left = 6
405
      Margins.Top = 6
406
      Margins.Right = 6
407
      Margins.Bottom = 6
408
      Anchors = [akLeft, akTop, akBottom]
409
      Caption = 'Top Cap'
410
      Columns = 3
411
      ItemIndex = 0
412
      Items.Strings = (
413
        'None'
414
        'Center'
415
        'Flat')
416
      TabOrder = 8
417
      OnClick = AnyChange
418
    end
419
    object BottomTrackBar: TTrackBar
420
      Left = 1022
421
      Top = 1
422
      Width = 245
423
      Height = 54
424
      Cursor = crHandPoint
425
      Margins.Left = 6
426
      Margins.Top = 6
427
      Margins.Right = 6
428
      Margins.Bottom = 6
429
      Anchors = [akLeft, akTop, akBottom]
430
      Max = 90
431
      PageSize = 5
432
      Position = 90
433
      TabOrder = 9
434
      ThumbLength = 35
435
      TickStyle = tsNone
436
      OnChange = AnyChange
437
    end
438
    object TopTrackBar: TTrackBar
439
      Left = 704
440
      Top = 6
441
      Width = 245
442
      Height = 51
443
      Cursor = crHandPoint
444
      Margins.Left = 6
445
      Margins.Top = 6
446
      Margins.Right = 6
447
      Margins.Bottom = 6
448
      Anchors = [akLeft, akTop, akBottom]
449
      Max = 90
450
      PageSize = 5
451
      Position = 90
452
      TabOrder = 7
453
      ThumbLength = 35
454
      TickStyle = tsNone
455
      OnChange = AnyChange
456
    end
457
    object BottomCapRadioGroup: TRadioGroup
458
      Left = 956
459
      Top = 83
460
      Width = 311
461
      Height = 51
462
      Margins.Left = 6
463
      Margins.Top = 6
464
      Margins.Right = 6
465
      Margins.Bottom = 6
466
      Anchors = [akLeft, akTop, akBottom]
467
      Caption = 'Bottom Cap'
468
      Columns = 3
469
      ItemIndex = 0
470
      Items.Strings = (
471
        'None'
472
        'Center'
473
        'Flat')
474
      TabOrder = 10
475
      OnClick = AnyChange
476
    end
477
    object Button1: TButton
478
      Left = 1322
479
      Top = 98
480
      Width = 238
481
      Height = 43
482
      Margins.Left = 6
483
      Margins.Top = 6
484
      Margins.Right = 6
485
      Margins.Bottom = 6
486
      Anchors = [akLeft, akTop, akBottom]
487
      Caption = 'Cube Map'
488
      TabOrder = 13
489
      OnClick = Button1Click
490
    end
491
    object StopTrackBar: TTrackBar
492
      Left = 1322
493
      Top = 53
494
      Width = 245
495
      Height = 52
496
      Cursor = crHandPoint
497
      Margins.Left = 6
498
      Margins.Top = 6
499
      Margins.Right = 6
500
      Margins.Bottom = 6
501
      Anchors = [akLeft, akTop, akBottom]
502
      Max = 360
503
      PageSize = 5
504
      Position = 360
505
      TabOrder = 12
506
      ThumbLength = 35
507
      TickStyle = tsNone
508
      OnChange = StopTrackBarChange
509
    end
510
    object StartTrackBar: TTrackBar
511
      Left = 1322
512
      Top = 6
513
      Width = 245
514
      Height = 51
515
      Cursor = crHandPoint
516
      Margins.Left = 6
517
      Margins.Top = 6
518
      Margins.Right = 6
519
      Margins.Bottom = 6
520
      Anchors = [akLeft, akTop, akBottom]
521
      Max = 360
522
      PageSize = 5
523
      TabOrder = 11
524
      ThumbLength = 35
525
      TickStyle = tsNone
526
      OnChange = StartTrackBarChange
527
    end
528
    object xyCurveTrackBar: TTrackBar
529
      Left = 1652
530
      Top = 1
531
      Width = 245
532
      Height = 54
533
      Cursor = crHandPoint
534
      Margins.Left = 6
535
      Margins.Top = 6
536
      Margins.Right = 6
537
      Margins.Bottom = 6
538
      Anchors = [akLeft, akBottom]
539
      Max = 100
540
      Min = 2
541
      PageSize = 5
542
      Position = 10
543
      TabOrder = 14
544
      ThumbLength = 35
545
      TickStyle = tsNone
546
      OnChange = AnyChange
547
    end
548
    object zCurveTrackBar: TTrackBar
549
      Left = 1652
550
      Top = 50
551
      Width = 245
552
      Height = 54
553
      Cursor = crHandPoint
554
      Margins.Left = 6
555
      Margins.Top = 6
556
      Margins.Right = 6
557
      Margins.Bottom = 6
558
      Anchors = [akLeft, akBottom]
559
      Max = 100
560
      Min = 2
561
      PageSize = 5
562
      Position = 10
563
      TabOrder = 15
564
      ThumbLength = 35
565
      TickStyle = tsNone
566
      OnChange = AnyChange
567
    end
568
  end
569
  object GLSceneViewer1: TGLSceneViewer
570
    Left = 0
571
    Top = 0
572
    Width = 1904
573
    Height = 529
574
    Cursor = crHandPoint
575
    Margins.Left = 6
576
    Margins.Top = 6
577
    Margins.Right = 6
578
    Margins.Bottom = 6
579
    Camera = GLCamera1
580
    FieldOfView = 55.757678985595700000
581
    PenAsTouch = False
582
    Anchors = [akLeft, akTop, akRight, akBottom]
583
    OnMouseDown = GLSceneViewer1MouseDown
584
    OnMouseMove = GLSceneViewer1MouseMove
585
    OnMouseUp = GLSceneViewer1MouseUp
586
    TabOrder = 2
587
  end
588
  object GLScene1: TGLScene
589
    Left = 40
590
    Top = 40
591
    object GLCamera1: TGLCamera
592
      DepthOfView = 1000.000000000000000000
593
      FocalLength = 500.000000000000000000
594
      TargetObject = GLDummyCube1
595
      Position.Coordinates = {0000F0410000A0410000F0410000803F}
596
      object GLLightSource1: TGLLightSource
597
        ConstAttenuation = 1.000000000000000000
598
        SpotCutOff = 180.000000000000000000
599
      end
600
    end
601
    object GLDummyCube1: TGLDummyCube
602
      Direction.Coordinates = {0000000000000000000080BF00000000}
603
      CubeSize = 1.000000000000000000
604
      EdgeColor.Color = {EC51B83ECDCC4C3EEC51B83D0000803F}
605
      object GLMesh1: TGLMesh
606
        Material.FrontProperties.Diffuse.Color = {B1A8A83EB1A8A83EB1A8A83E0000803F}
607
        Direction.Coordinates = {0000000000000000000080BF00000000}
608
        Mode = mmTriangles
609
      end
610
    end
611
    object ObjectsCube: TGLDummyCube
612
      CubeSize = 1.000000000000000000
613
      EdgeColor.Color = {0000803F00000000000000000000803F}
614
      object ArrowX: TGLArrowLine
615
        Material.FrontProperties.Emission.Color = {0000803F00000000000000000000803F}
616
        Direction.Coordinates = {0000803F000000000000000000000000}
617
        Position.Coordinates = {0000004000000000000000000000803F}
618
        BottomRadius = 0.050000000745058060
619
        Height = 4.000000000000000000
620
        TopRadius = 0.050000000745058060
621
        TopArrowHeadHeight = 0.500000000000000000
622
        TopArrowHeadRadius = 0.100000001490116100
623
        BottomArrowHeadHeight = 0.500000000000000000
624
        BottomArrowHeadRadius = 0.200000002980232200
625
      end
626
      object ArrowY: TGLArrowLine
627
        Material.FrontProperties.Emission.Color = {000000000000003F000000000000803F}
628
        Direction.Coordinates = {000000000000803F0000000000000000}
629
        Position.Coordinates = {0000000000000040000000000000803F}
630
        Up.Coordinates = {00000000000000000000803F00000000}
631
        BottomRadius = 0.050000000745058060
632
        Height = 4.000000000000000000
633
        TopRadius = 0.050000000745058060
634
        TopArrowHeadHeight = 0.500000000000000000
635
        TopArrowHeadRadius = 0.100000001490116100
636
        BottomArrowHeadHeight = 0.500000000000000000
637
        BottomArrowHeadRadius = 0.200000002980232200
638
      end
639
      object ArrowZ: TGLArrowLine
640
        Material.FrontProperties.Emission.Color = {00000000000000000000803F0000803F}
641
        Position.Coordinates = {0000000000000000000000400000803F}
642
        BottomRadius = 0.050000000745058060
643
        Height = 4.000000000000000000
644
        TopRadius = 0.050000000745058060
645
        TopArrowHeadHeight = 0.500000000000000000
646
        TopArrowHeadRadius = 0.100000001490116100
647
        BottomArrowHeadHeight = 0.500000000000000000
648
        BottomArrowHeadRadius = 0.200000002980232200
649
      end
650
      object GLXYZGridXZ: TGLXYZGrid
651
        LineColor.Color = {B1A8A83EB1A8A83EB1A8A83E0000803F}
652
        XSamplingScale.Min = -10.000000000000000000
653
        XSamplingScale.Max = 10.000000000000000000
654
        XSamplingScale.Step = 1.000000000000000000
655
        YSamplingScale.Step = 1.000000000000000000
656
        ZSamplingScale.Min = -10.000000000000000000
657
        ZSamplingScale.Max = 10.000000000000000000
658
        ZSamplingScale.Step = 1.000000000000000000
659
        Parts = [gpX, gpZ]
660
      end
661
    end
662
    object GLHUDText1: TGLHUDText
663
      Position.Coordinates = {0000804000000000000000000000803F}
664
      BitmapFont = GLWindowsBitmapFont1
665
      Rotation = 0.000000000000000000
666
      ModulateColor.Color = {EC51B83ECDCC4C3EEC51B83D0000803F}
667
    end
668
  end
669
  object GLWindowsBitmapFont1: TGLWindowsBitmapFont
670
    Font.Charset = DEFAULT_CHARSET
671
    Font.Color = clMaroon
672
    Font.Height = -19
673
    Font.Name = 'Tahoma'
674
    Font.Style = []
675
    Ranges = <
676
      item
677
        StartASCII = ' '
678
        StopASCII = #176
679
        StartGlyphIdx = 0
680
      end>
681
    Left = 127
682
    Top = 40
683
  end
684
end
685