MathgeomGLS

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