ArenaZ

1
object MainForm: TMainForm
2
  Left = 561
3
  Height = 597
4
  Top = 235
5
  Width = 1065
6
  Caption = 'MainForm'
7
  ClientHeight = 597
8
  ClientWidth = 1065
9
  Font.Color = clWindowText
10
  Font.Height = -11
11
  Font.Name = 'Tahoma'
12
  OnActivate = FormActivate
13
  OnCreate = FormCreate
14
  OnDestroy = FormDestroy
15
  OnResize = FormResize
16
  OnShow = FormShow
17
  Position = poScreenCenter
18
  LCLVersion = '1.6.4.0'
19
  Visible = True
20
  object Panel1: TPanel
21
    Left = 0
22
    Height = 597
23
    Top = 0
24
    Width = 432
25
    Align = alLeft
26
    ClientHeight = 597
27
    ClientWidth = 432
28
    TabOrder = 0
29
    object Label54: TLabel
30
      Left = 148
31
      Height = 13
32
      Top = 502
33
      Width = 32
34
      Caption = 'Object'
35
      ParentColor = False
36
    end
37
    object PageControl1: TPageControl
38
      Left = 1
39
      Height = 496
40
      Top = 1
41
      Width = 430
42
      ActivePage = TabSheet1
43
      Align = alTop
44
      MultiLine = True
45
      ParentShowHint = False
46
      ShowHint = True
47
      TabIndex = 0
48
      TabOrder = 0
49
      Options = [nboMultiLine]
50
      object TabSheet1: TTabSheet
51
        Caption = 'Fur'
52
        ClientHeight = 470
53
        ClientWidth = 422
54
        object lblFurDistance: TLabel
55
          Left = 3
56
          Height = 13
57
          Top = 53
58
          Width = 55
59
          Caption = 'Fur Length '
60
          ParentColor = False
61
        end
62
        object Label10: TLabel
63
          Left = 3
64
          Height = 13
65
          Top = 205
66
          Width = 51
67
          Caption = 'Blend Dest'
68
          ParentColor = False
69
        end
70
        object Label11: TLabel
71
          Left = 3
72
          Height = 13
73
          Top = 179
74
          Width = 44
75
          Caption = 'Blend Src'
76
          ParentColor = False
77
        end
78
        object lblFurPassCount1: TLabel
79
          Left = 3
80
          Height = 13
81
          Top = 28
82
          Width = 57
83
          Caption = 'Pass Count '
84
          ParentColor = False
85
        end
86
        object lblFurLength: TLabel
87
          Left = 287
88
          Height = 13
89
          Top = 53
90
          Width = 16
91
          Caption = '0.3'
92
          ParentColor = False
93
        end
94
        object Label7: TLabel
95
          Left = 3
96
          Height = 13
97
          Top = 75
98
          Width = 59
99
          Caption = 'Max Length '
100
          ParentColor = False
101
        end
102
        object lblFurMaxLength: TLabel
103
          Left = 287
104
          Height = 13
105
          Top = 76
106
          Width = 16
107
          Caption = '3.0'
108
          ParentColor = False
109
        end
110
        object lblFurPassCount: TLabel
111
          Left = 287
112
          Height = 13
113
          Top = 28
114
          Width = 12
115
          Caption = '16'
116
          ParentColor = False
117
        end
118
        object Label12: TLabel
119
          Left = 3
120
          Height = 13
121
          Top = 97
122
          Width = 36
123
          Caption = 'Density'
124
          ParentColor = False
125
        end
126
        object lblFurDensity: TLabel
127
          Left = 287
128
          Height = 13
129
          Top = 97
130
          Width = 16
131
          Caption = '1.0'
132
          ParentColor = False
133
        end
134
        object Label6: TLabel
135
          Left = 3
136
          Height = 13
137
          Top = 233
138
          Width = 56
139
          Caption = 'Light Power'
140
          ParentColor = False
141
        end
142
        object lblFurLightPower: TLabel
143
          Left = 287
144
          Height = 13
145
          Top = 233
146
          Width = 16
147
          Caption = '2.5'
148
          ParentColor = False
149
        end
150
        object Label8: TLabel
151
          Left = 3
152
          Height = 13
153
          Top = 263
154
          Width = 56
155
          Caption = 'Color Scale '
156
          ParentColor = False
157
        end
158
        object Label9: TLabel
159
          Left = 3
160
          Height = 13
161
          Top = 285
162
          Width = 67
163
          Caption = 'Ambient Color'
164
          ParentColor = False
165
        end
166
        object Shape1: TShape
167
          Left = 83
168
          Height = 15
169
          Top = 262
170
          Width = 64
171
          OnMouseDown = Shape1MouseDown
172
        end
173
        object Shape2: TShape
174
          Left = 83
175
          Height = 15
176
          Top = 283
177
          Width = 64
178
          OnMouseDown = Shape2MouseDown
179
        end
180
        object Label63: TLabel
181
          Left = 2
182
          Height = 13
183
          Top = 129
184
          Width = 59
185
          Caption = 'Gravity XYZ '
186
          ParentColor = False
187
        end
188
        object chkFurShader: TCheckBox
189
          Left = 3
190
          Height = 19
191
          Top = 3
192
          Width = 58
193
          Caption = 'Enabled'
194
          OnClick = chkFurShaderClick
195
          TabOrder = 0
196
        end
197
        object tbFurLength: TTrackBar
198
          Left = 65
199
          Height = 26
200
          Top = 49
201
          Width = 216
202
          Frequency = 10
203
          Max = 100
204
          Min = 1
205
          OnChange = tbFurLengthChange
206
          PageSize = 10
207
          Position = 30
208
          TickStyle = tsNone
209
          TabOrder = 1
210
        end
211
        object cbxFurBlendSrc: TComboBox
212
          Left = 72
213
          Height = 21
214
          Top = 176
215
          Width = 145
216
          ItemHeight = 13
217
          ItemIndex = 3
218
          Items.Strings = (
219
            'ZERO'
220
            'ONE'
221
            'SRC COLOR'
222
            'ONE MINUS SRC COLOR'
223
            'DST COLOR'
224
            'ONE MINUS DST COLOR'
225
            'SRC ALPHA'
226
            'MINUS SRC ALPHA'
227
            'DST ALPHA'
228
            'MINUS DST ALPHA'
229
            'SRC ALPHA SATURATE'
230
            'CONSTANT COLOR'
231
            'ONE MINUS CONSTANT COLOR'
232
            'CONSTANT ALPHA'
233
            'ONE MINUS CONSTATNT ALPHA'
234
          )
235
          OnChange = cbxFurBlendSrcChange
236
          Style = csDropDownList
237
          TabOrder = 2
238
          Text = 'ONE MINUS SRC COLOR'
239
        end
240
        object cbxFurBlendDest: TComboBox
241
          Left = 72
242
          Height = 21
243
          Top = 203
244
          Width = 145
245
          ItemHeight = 13
246
          ItemIndex = 7
247
          Items.Strings = (
248
            'ZERO'
249
            'ONE'
250
            'SRC COLOR'
251
            'ONE MINUS SRC COLOR'
252
            'DST COLOR'
253
            'ONE MINUS DST COLOR'
254
            'SRC ALPHA'
255
            'MINUS SRC ALPHA'
256
            'DST ALPHA'
257
            'MINUS DST ALPHA'
258
            'SRC ALPHA SATURATE'
259
            'CONSTANT COLOR'
260
            'ONE MINUS CONSTANT COLOR'
261
            'CONSTANT ALPHA'
262
            'ONE MINUS CONSTATNT ALPHA'
263
          )
264
          OnChange = cbxFurBlendDestChange
265
          Style = csDropDownList
266
          TabOrder = 3
267
          Text = 'MINUS SRC ALPHA'
268
        end
269
        object chkAnimateFur: TCheckBox
270
          Left = 72
271
          Height = 19
272
          Top = 3
273
          Width = 78
274
          Caption = 'Animate Fur'
275
          TabOrder = 4
276
        end
277
        object tbFurPassCount: TTrackBar
278
          Left = 65
279
          Height = 23
280
          Top = 24
281
          Width = 216
282
          Frequency = 8
283
          Max = 200
284
          Min = 1
285
          OnChange = tbFurPassCountChange
286
          PageSize = 10
287
          Position = 16
288
          TickStyle = tsNone
289
          TabOrder = 5
290
        end
291
        object tbFurMaxLength: TTrackBar
292
          Left = 65
293
          Height = 26
294
          Top = 72
295
          Width = 216
296
          Frequency = 10
297
          Max = 500
298
          Min = 1
299
          OnChange = tbFurMaxLengthChange
300
          PageSize = 10
301
          Position = 300
302
          TickStyle = tsNone
303
          TabOrder = 6
304
        end
305
        object chkFurRandomLength: TCheckBox
306
          Left = 72
307
          Height = 19
308
          Top = 154
309
          Width = 114
310
          Caption = 'Random Fur Length'
311
          OnClick = chkFurRandomLengthClick
312
          TabOrder = 7
313
        end
314
        object tbFurDensity: TTrackBar
315
          Left = 65
316
          Height = 26
317
          Top = 94
318
          Width = 216
319
          Frequency = 10
320
          Max = 200
321
          Min = 1
322
          OnChange = tbFurDensityChange
323
          PageSize = 10
324
          Position = 100
325
          TickStyle = tsNone
326
          TabOrder = 8
327
        end
328
        object tbFurLightPower: TTrackBar
329
          Left = 65
330
          Height = 26
331
          Top = 230
332
          Width = 216
333
          Frequency = 10
334
          Max = 1000
335
          Min = 1
336
          OnChange = tbFurLightPowerChange
337
          PageSize = 10
338
          Position = 250
339
          TickStyle = tsNone
340
          TabOrder = 9
341
        end
342
        object Button8: TButton
343
          Left = 3
344
          Height = 25
345
          Top = 315
346
          Width = 184
347
          Caption = 'Load Main Texture'
348
          OnClick = Button8Click
349
          TabOrder = 10
350
        end
351
        object Button9: TButton
352
          Left = 3
353
          Height = 25
354
          Top = 346
355
          Width = 184
356
          Caption = 'Load Noise Texture'
357
          OnClick = Button9Click
358
          TabOrder = 11
359
        end
360
        object edtFurGravityX: TEdit
361
          Left = 71
362
          Height = 21
363
          Top = 124
364
          Width = 57
365
          OnChange = edtFurGravityXChange
366
          OnKeyPress = EditFloatKeyPress
367
          TabOrder = 12
368
          Text = '0.0'
369
        end
370
        object edtFurGravityY: TEdit
371
          Left = 141
372
          Height = 21
373
          Top = 124
374
          Width = 57
375
          OnChange = edtFurGravityYChange
376
          OnKeyPress = EditFloatKeyPress
377
          TabOrder = 13
378
          Text = '-2.0'
379
        end
380
        object edtFurGravityZ: TEdit
381
          Left = 216
382
          Height = 21
383
          Top = 124
384
          Width = 57
385
          OnChange = edtFurGravityZChange
386
          OnKeyPress = EditFloatKeyPress
387
          TabOrder = 14
388
          Text = '0.0'
389
        end
390
      end
391
      object TabSheet2: TTabSheet
392
        Caption = 'Lattice'
393
        ClientHeight = 470
394
        ClientWidth = 343
395
        ImageIndex = 1
396
        object lblLatticeScaleX: TLabel
397
          Left = 291
398
          Height = 13
399
          Top = 41
400
          Width = 12
401
          Caption = '10'
402
          ParentColor = False
403
        end
404
        object lblLatticeThresholdX: TLabel
405
          Left = 289
406
          Height = 13
407
          Top = 93
408
          Width = 22
409
          Caption = '0.15'
410
          ParentColor = False
411
        end
412
        object lblLatticeScaleY: TLabel
413
          Left = 290
414
          Height = 13
415
          Top = 67
416
          Width = 12
417
          Caption = '40'
418
          ParentColor = False
419
        end
420
        object Label4: TLabel
421
          Left = 16
422
          Height = 13
423
          Top = 147
424
          Width = 74
425
          Caption = 'Specular Power'
426
          ParentColor = False
427
        end
428
        object Label5: TLabel
429
          Left = 16
430
          Height = 13
431
          Top = 172
432
          Width = 56
433
          Caption = 'Light Power'
434
          ParentColor = False
435
        end
436
        object lblLatticeThresholdY: TLabel
437
          Left = 290
438
          Height = 13
439
          Top = 118
440
          Width = 22
441
          Caption = '0.30'
442
          ParentColor = False
443
        end
444
        object lblLatticeSpecularPower: TLabel
445
          Left = 290
446
          Height = 13
447
          Top = 147
448
          Width = 16
449
          Caption = '8.0'
450
          ParentColor = False
451
        end
452
        object lblLatticeLightPower: TLabel
453
          Left = 290
454
          Height = 13
455
          Top = 173
456
          Width = 16
457
          Caption = '1.0'
458
          ParentColor = False
459
        end
460
        object Label23: TLabel
461
          Left = 10
462
          Height = 13
463
          Top = 41
464
          Width = 34
465
          Caption = 'Scale X'
466
          ParentColor = False
467
        end
468
        object Label29: TLabel
469
          Left = 10
470
          Height = 13
471
          Top = 67
472
          Width = 34
473
          Caption = 'Scale Y'
474
          ParentColor = False
475
        end
476
        object Label31: TLabel
477
          Left = 10
478
          Height = 13
479
          Top = 93
480
          Width = 56
481
          Caption = 'Threshold X'
482
          ParentColor = False
483
        end
484
        object Label33: TLabel
485
          Left = 10
486
          Height = 13
487
          Top = 122
488
          Width = 56
489
          Caption = 'Threshold Y'
490
          ParentColor = False
491
        end
492
        object Label35: TLabel
493
          Left = 10
494
          Height = 13
495
          Top = 200
496
          Width = 62
497
          Caption = 'Diffuse Color'
498
          ParentColor = False
499
        end
500
        object Shape10: TShape
501
          Left = 90
502
          Height = 15
503
          Top = 198
504
          Width = 64
505
          OnMouseDown = Shape10MouseDown
506
        end
507
        object Label38: TLabel
508
          Left = 10
509
          Height = 13
510
          Top = 223
511
          Width = 67
512
          Caption = 'Ambient Color'
513
          ParentColor = False
514
        end
515
        object Shape11: TShape
516
          Left = 90
517
          Height = 15
518
          Top = 222
519
          Width = 64
520
          Brush.Color = 1381653
521
          OnMouseDown = Shape11MouseDown
522
        end
523
        object Label39: TLabel
524
          Left = 10
525
          Height = 13
526
          Top = 244
527
          Width = 69
528
          Caption = 'Specular Color'
529
          ParentColor = False
530
        end
531
        object Shape12: TShape
532
          Left = 90
533
          Height = 15
534
          Top = 244
535
          Width = 64
536
          OnMouseDown = Shape12MouseDown
537
        end
538
        object tbLatticeScaleX: TTrackBar
539
          Left = 73
540
          Height = 30
541
          Top = 37
542
          Width = 215
543
          Frequency = 10
544
          Max = 100
545
          Min = 1
546
          OnChange = tbLatticeScaleXChange
547
          PageSize = 10
548
          Position = 10
549
          TickStyle = tsNone
550
          TabOrder = 0
551
        end
552
        object tbLatticeThresholdX: TTrackBar
553
          Left = 73
554
          Height = 27
555
          Top = 89
556
          Width = 215
557
          Frequency = 10
558
          Max = 100
559
          Min = 1
560
          OnChange = tbLatticeThresholdXChange
561
          PageSize = 10
562
          Position = 15
563
          TickStyle = tsNone
564
          TabOrder = 1
565
        end
566
        object chkLatticeShader: TCheckBox
567
          Left = 16
568
          Height = 19
569
          Top = 12
570
          Width = 58
571
          Caption = 'Enabled'
572
          OnClick = chkLatticeShaderClick
573
          TabOrder = 2
574
        end
575
        object tbLatticeScaleY: TTrackBar
576
          Left = 73
577
          Height = 32
578
          Top = 63
579
          Width = 215
580
          Frequency = 10
581
          Max = 100
582
          Min = 1
583
          OnChange = tbLatticeScaleYChange
584
          PageSize = 10
585
          Position = 40
586
          TickStyle = tsNone
587
          TabOrder = 3
588
        end
589
        object tbLatticeThresholdY: TTrackBar
590
          Left = 73
591
          Height = 27
592
          Top = 114
593
          Width = 211
594
          Frequency = 10
595
          Max = 100
596
          Min = 1
597
          OnChange = tbLatticeThresholdYChange
598
          PageSize = 10
599
          Position = 30
600
          TickStyle = tsNone
601
          TabOrder = 4
602
        end
603
        object tbLatticeSpecularPower: TTrackBar
604
          Left = 96
605
          Height = 32
606
          Top = 143
607
          Width = 188
608
          Frequency = 10
609
          Max = 1000
610
          OnChange = tbLatticeSpecularPowerChange
611
          PageSize = 10
612
          Position = 800
613
          TickStyle = tsNone
614
          TabOrder = 5
615
        end
616
        object tbLatticeLightPower: TTrackBar
617
          Left = 96
618
          Height = 32
619
          Top = 166
620
          Width = 188
621
          Frequency = 10
622
          Max = 500
623
          OnChange = tbLatticeLightPowerChange
624
          PageSize = 10
625
          Position = 100
626
          TickStyle = tsNone
627
          TabOrder = 6
628
        end
629
        object Button7: TButton
630
          Left = 16
631
          Height = 25
632
          Top = 275
633
          Width = 184
634
          Caption = 'Load Main Texture'
635
          OnClick = Button3Click
636
          TabOrder = 7
637
        end
638
      end
639
      object TabSheet3: TTabSheet
640
        Caption = 'Erosion'
641
        ClientHeight = 470
642
        ClientWidth = 343
643
        ImageIndex = 2
644
        object Label1: TLabel
645
          Left = 8
646
          Height = 13
647
          Top = 46
648
          Width = 67
649
          Caption = 'Erosion factor'
650
          ParentColor = False
651
        end
652
        object lblErosionFactor: TLabel
653
          Left = 295
654
          Height = 13
655
          Top = 47
656
          Width = 22
657
          Caption = '0.35'
658
          ParentColor = False
659
        end
660
        object Label3: TLabel
661
          Left = 8
662
          Height = 13
663
          Top = 79
664
          Width = 63
665
          Caption = 'Erosion Scale'
666
          ParentColor = False
667
        end
668
        object lblErosionScale: TLabel
669
          Left = 295
670
          Height = 13
671
          Top = 79
672
          Width = 22
673
          Caption = '0.03'
674
          ParentColor = False
675
        end
676
        object Label25: TLabel
677
          Left = 8
678
          Height = 13
679
          Top = 111
680
          Width = 84
681
          Caption = 'Intensity factor 1'
682
          ParentColor = False
683
        end
684
        object lblErosionIFactor1: TLabel
685
          Left = 295
686
          Height = 13
687
          Top = 111
688
          Width = 22
689
          Caption = '0.75'
690
          ParentColor = False
691
        end
692
        object Label28: TLabel
693
          Left = 8
694
          Height = 13
695
          Top = 142
696
          Width = 86
697
          Caption = 'Intensity Factor 2'
698
          ParentColor = False
699
        end
700
        object lblerosionIFactor2: TLabel
701
          Left = 295
702
          Height = 13
703
          Top = 143
704
          Width = 22
705
          Caption = '1.95'
706
          ParentColor = False
707
        end
708
        object Label2: TLabel
709
          Left = 8
710
          Height = 13
711
          Top = 200
712
          Width = 71
713
          Caption = 'Ambient factor'
714
          ParentColor = False
715
        end
716
        object lblErosionAmbientF: TLabel
717
          Left = 295
718
          Height = 13
719
          Top = 200
720
          Width = 22
721
          Caption = '0.80'
722
          ParentColor = False
723
        end
724
        object Label27: TLabel
725
          Left = 8
726
          Height = 13
727
          Top = 172
728
          Width = 66
729
          Caption = 'Diffuse factor'
730
          ParentColor = False
731
        end
732
        object lblErosionDiffuseF: TLabel
733
          Left = 295
734
          Height = 13
735
          Top = 173
736
          Width = 22
737
          Caption = '0.90'
738
          ParentColor = False
739
        end
740
        object Label30: TLabel
741
          Left = 8
742
          Height = 13
743
          Top = 228
744
          Width = 73
745
          Caption = 'Specular factor'
746
          ParentColor = False
747
        end
748
        object lblErosionSpecularF: TLabel
749
          Left = 295
750
          Height = 13
751
          Top = 228
752
          Width = 22
753
          Caption = '0.90'
754
          ParentColor = False
755
        end
756
        object Label32: TLabel
757
          Left = 8
758
          Height = 13
759
          Top = 260
760
          Width = 97
761
          Caption = 'Specular Roughness'
762
          ParentColor = False
763
        end
764
        object lblErosionSpecularR: TLabel
765
          Left = 297
766
          Height = 13
767
          Top = 260
768
          Width = 22
769
          Caption = '0.45'
770
          ParentColor = False
771
        end
772
        object Label34: TLabel
773
          Left = 8
774
          Height = 13
775
          Top = 292
776
          Width = 109
777
          Caption = 'Anisotropic Roughness'
778
          ParentColor = False
779
        end
780
        object lblErosionAnisoR: TLabel
781
          Left = 297
782
          Height = 13
783
          Top = 292
784
          Width = 22
785
          Caption = '0.35'
786
          ParentColor = False
787
        end
788
        object Label36: TLabel
789
          Left = 6
790
          Height = 13
791
          Top = 327
792
          Width = 67
793
          Caption = 'Ambient Color'
794
          ParentColor = False
795
        end
796
        object Shape8: TShape
797
          Left = 86
798
          Height = 15
799
          Top = 325
800
          Width = 64
801
          Brush.Color = 2105376
802
          OnMouseDown = Shape8MouseDown
803
        end
804
        object Shape9: TShape
805
          Left = 86
806
          Height = 15
807
          Top = 346
808
          Width = 64
809
          Brush.Color = 14540253
810
          OnMouseDown = Shape9MouseDown
811
        end
812
        object Label37: TLabel
813
          Left = 6
814
          Height = 13
815
          Top = 346
816
          Width = 69
817
          Caption = 'Specular Color'
818
          ParentColor = False
819
        end
820
        object chkErosionShader: TCheckBox
821
          Left = 24
822
          Height = 19
823
          Top = 20
824
          Width = 58
825
          Caption = 'Enabled'
826
          OnClick = chkErosionShaderClick
827
          TabOrder = 0
828
        end
829
        object tbErosionFactor: TTrackBar
830
          Left = 98
831
          Height = 26
832
          Top = 43
833
          Width = 191
834
          Frequency = 10
835
          Max = 100
836
          Min = 1
837
          OnChange = tbErosionFactorChange
838
          PageSize = 10
839
          Position = 35
840
          TickStyle = tsNone
841
          TabOrder = 1
842
        end
843
        object tberosionScale: TTrackBar
844
          Left = 98
845
          Height = 26
846
          Top = 75
847
          Width = 191
848
          Frequency = 10
849
          Max = 100
850
          Min = 1
851
          OnChange = tberosionScaleChange
852
          PageSize = 10
853
          Position = 3
854
          TickStyle = tsNone
855
          TabOrder = 2
856
        end
857
        object tbErosionIFactor1: TTrackBar
858
          Left = 98
859
          Height = 26
860
          Top = 107
861
          Width = 191
862
          Frequency = 10
863
          Max = 200
864
          Min = 1
865
          OnChange = tbErosionIFactor1Change
866
          PageSize = 10
867
          Position = 75
868
          TickStyle = tsNone
869
          TabOrder = 3
870
        end
871
        object tbErosionIFactor2: TTrackBar
872
          Left = 100
873
          Height = 26
874
          Top = 139
875
          Width = 189
876
          Frequency = 10
877
          Max = 200
878
          Min = 1
879
          OnChange = tbErosionIFactor2Change
880
          PageSize = 10
881
          Position = 195
882
          TickStyle = tsNone
883
          TabOrder = 4
884
        end
885
        object tbErosionAmbientF: TTrackBar
886
          Left = 98
887
          Height = 28
888
          Top = 194
889
          Width = 191
890
          Frequency = 10
891
          Max = 100
892
          OnChange = tbErosionAmbientFChange
893
          PageSize = 10
894
          Position = 80
895
          TickStyle = tsNone
896
          TabOrder = 5
897
        end
898
        object tbErosionDiffuseF: TTrackBar
899
          Left = 99
900
          Height = 26
901
          Top = 169
902
          Width = 190
903
          Frequency = 10
904
          Max = 100
905
          OnChange = tbErosionDiffuseFChange
906
          PageSize = 10
907
          Position = 90
908
          TickStyle = tsNone
909
          TabOrder = 6
910
        end
911
        object tbErosionSpecularF: TTrackBar
912
          Left = 98
913
          Height = 26
914
          Top = 224
915
          Width = 191
916
          Frequency = 10
917
          Max = 100
918
          OnChange = tbErosionSpecularFChange
919
          PageSize = 10
920
          Position = 90
921
          TickStyle = tsNone
922
          TabOrder = 7
923
        end
924
        object tbErosionSpecularR: TTrackBar
925
          Left = 111
926
          Height = 26
927
          Top = 256
928
          Width = 180
929
          Frequency = 10
930
          Max = 500
931
          OnChange = tbErosionSpecularRChange
932
          PageSize = 10
933
          Position = 45
934
          TickStyle = tsNone
935
          TabOrder = 8
936
        end
937
        object tbErosionAnisoR: TTrackBar
938
          Left = 123
939
          Height = 26
940
          Top = 288
941
          Width = 166
942
          Frequency = 10
943
          Max = 500
944
          OnChange = tbErosionAnisoRChange
945
          PageSize = 10
946
          Position = 35
947
          TickStyle = tsNone
948
          TabOrder = 9
949
        end
950
        object Button5: TButton
951
          Left = 3
952
          Height = 25
953
          Top = 367
954
          Width = 184
955
          Caption = 'Load Main Texture'
956
          OnClick = Button5Click
957
          TabOrder = 10
958
        end
959
        object Button6: TButton
960
          Left = 3
961
          Height = 25
962
          Top = 398
963
          Width = 184
964
          Caption = 'Load Erosion Texture'
965
          OnClick = Button6Click
966
          TabOrder = 11
967
        end
968
      end
969
      object TabSheet4: TTabSheet
970
        Caption = 'Ivory'
971
        ClientHeight = 470
972
        ClientWidth = 343
973
        ImageIndex = 3
974
        object chkIvoryShader: TCheckBox
975
          Left = 16
976
          Height = 19
977
          Top = 16
978
          Width = 58
979
          Caption = 'Enabled'
980
          OnClick = chkIvoryShaderClick
981
          TabOrder = 0
982
        end
983
      end
984
      object TabSheet5: TTabSheet
985
        Caption = 'Gootch'
986
        ClientHeight = 470
987
        ClientWidth = 422
988
        ImageIndex = 4
989
        object Label13: TLabel
990
          Left = 16
991
          Height = 13
992
          Top = 47
993
          Width = 62
994
          Caption = 'Diffuse Color'
995
          ParentColor = False
996
        end
997
        object Shape3: TShape
998
          Left = 96
999
          Height = 15
1000
          Top = 46
1001
          Width = 64
1002
          Brush.Color = clSilver
1003
          OnMouseDown = Shape3MouseDown
1004
        end
1005
        object Label14: TLabel
1006
          Left = 16
1007
          Height = 13
1008
          Top = 67
1009
          Width = 56
1010
          Caption = 'Warm Color'
1011
          ParentColor = False
1012
        end
1013
        object Shape4: TShape
1014
          Left = 96
1015
          Height = 15
1016
          Top = 67
1017
          Width = 64
1018
          Brush.Color = clFuchsia
1019
          OnMouseDown = Shape4MouseDown
1020
        end
1021
        object Label15: TLabel
1022
          Left = 16
1023
          Height = 13
1024
          Top = 88
1025
          Width = 49
1026
          Caption = 'Cool Color'
1027
          ParentColor = False
1028
        end
1029
        object Shape5: TShape
1030
          Left = 96
1031
          Height = 15
1032
          Top = 88
1033
          Width = 64
1034
          Brush.Color = 1145343
1035
          OnMouseDown = Shape5MouseDown
1036
        end
1037
        object Label16: TLabel
1038
          Left = 16
1039
          Height = 13
1040
          Top = 110
1041
          Width = 67
1042
          Caption = 'Ambient Color'
1043
          ParentColor = False
1044
        end
1045
        object Shape6: TShape
1046
          Left = 96
1047
          Height = 15
1048
          Top = 109
1049
          Width = 64
1050
          Brush.Color = 3158064
1051
          OnMouseDown = Shape6MouseDown
1052
        end
1053
        object Label17: TLabel
1054
          Left = 16
1055
          Height = 13
1056
          Top = 131
1057
          Width = 69
1058
          Caption = 'Specular Color'
1059
          ParentColor = False
1060
        end
1061
        object Shape7: TShape
1062
          Left = 96
1063
          Height = 15
1064
          Top = 130
1065
          Width = 64
1066
          OnMouseDown = Shape7MouseDown
1067
        end
1068
        object Label18: TLabel
1069
          Left = 16
1070
          Height = 13
1071
          Top = 163
1072
          Width = 66
1073
          Caption = 'Diffuse factor'
1074
          ParentColor = False
1075
        end
1076
        object lblGoochDFactor: TLabel
1077
          Left = 303
1078
          Height = 13
1079
          Top = 164
1080
          Width = 22
1081
          Caption = '0.80'
1082
          ParentColor = False
1083
        end
1084
        object Label20: TLabel
1085
          Left = 16
1086
          Height = 13
1087
          Top = 195
1088
          Width = 60
1089
          Caption = 'Warm factor'
1090
          ParentColor = False
1091
        end
1092
        object lblGoochWFactor: TLabel
1093
          Left = 303
1094
          Height = 13
1095
          Top = 196
1096
          Width = 22
1097
          Caption = '0.55'
1098
          ParentColor = False
1099
        end
1100
        object Label22: TLabel
1101
          Left = 16
1102
          Height = 13
1103
          Top = 227
1104
          Width = 53
1105
          Caption = 'Cool factor'
1106
          ParentColor = False
1107
        end
1108
        object lblGoochCFactor: TLabel
1109
          Left = 303
1110
          Height = 13
1111
          Top = 228
1112
          Width = 22
1113
          Caption = '0.30'
1114
          ParentColor = False
1115
        end
1116
        object Label24: TLabel
1117
          Left = 16
1118
          Height = 13
1119
          Top = 259
1120
          Width = 71
1121
          Caption = 'Ambient factor'
1122
          ParentColor = False
1123
        end
1124
        object lblGoochAFactor: TLabel
1125
          Left = 303
1126
          Height = 13
1127
          Top = 260
1128
          Width = 16
1129
          Caption = '1.0'
1130
          ParentColor = False
1131
        end
1132
        object Label26: TLabel
1133
          Left = 16
1134
          Height = 13
1135
          Top = 292
1136
          Width = 73
1137
          Caption = 'Specular factor'
1138
          ParentColor = False
1139
        end
1140
        object lblGoochSFactor: TLabel
1141
          Left = 303
1142
          Height = 13
1143
          Top = 292
1144
          Width = 22
1145
          Caption = '0.90'
1146
          ParentColor = False
1147
        end
1148
        object Label40: TLabel
1149
          Left = 16
1150
          Height = 13
1151
          Top = 323
1152
          Width = 55
1153
          Caption = 'Blend Mode'
1154
          ParentColor = False
1155
        end
1156
        object Label41: TLabel
1157
          Left = 164
1158
          Height = 13
1159
          Top = 47
1160
          Width = 27
1161
          Caption = 'Alpha'
1162
          ParentColor = False
1163
        end
1164
        object lblGoochAlpha: TLabel
1165
          Left = 309
1166
          Height = 13
1167
          Top = 47
1168
          Width = 16
1169
          Caption = '1.0'
1170
          ParentColor = False
1171
        end
1172
        object chkGoochShader: TCheckBox
1173
          Left = 16
1174
          Height = 19
1175
          Top = 16
1176
          Width = 58
1177
          Caption = 'Enabled'
1178
          OnClick = chkGoochShaderClick
1179
          TabOrder = 0
1180
        end
1181
        object tbGoochDFactor: TTrackBar
1182
          Left = 96
1183
          Height = 26
1184
          Top = 160
1185
          Width = 201
1186
          Frequency = 10
1187
          Max = 500
1188
          Min = 1
1189
          OnChange = tbGoochDFactorChange
1190
          PageSize = 10
1191
          Position = 80
1192
          TickStyle = tsNone
1193
          TabOrder = 1
1194
        end
1195
        object tbGoochWFactor: TTrackBar
1196
          Left = 96
1197
          Height = 26
1198
          Top = 192
1199
          Width = 201
1200
          Frequency = 10
1201
          Max = 500
1202
          Min = 1
1203
          OnChange = tbGoochWFactorChange
1204
          PageSize = 10
1205
          Position = 55
1206
          TickStyle = tsNone
1207
          TabOrder = 2
1208
        end
1209
        object tbGoochCFactor: TTrackBar
1210
          Left = 96
1211
          Height = 26
1212
          Top = 224
1213
          Width = 201
1214
          Frequency = 10
1215
          Max = 500
1216
          Min = 1
1217
          OnChange = tbGoochCFactorChange
1218
          PageSize = 10
1219
          Position = 30
1220
          TickStyle = tsNone
1221
          TabOrder = 3
1222
        end
1223
        object tbGoochAFactor: TTrackBar
1224
          Left = 96
1225
          Height = 26
1226
          Top = 256
1227
          Width = 201
1228
          Frequency = 10
1229
          Max = 500
1230
          Min = 1
1231
          OnChange = tbGoochAFactorChange
1232
          PageSize = 10
1233
          Position = 100
1234
          TickStyle = tsNone
1235
          TabOrder = 4
1236
        end
1237
        object tbGoochSFactor: TTrackBar
1238
          Left = 96
1239
          Height = 26
1240
          Top = 288
1241
          Width = 201
1242
          Frequency = 10
1243
          Max = 500
1244
          Min = 1
1245
          OnChange = tbGoochSFactorChange
1246
          PageSize = 10
1247
          Position = 90
1248
          TickStyle = tsNone
1249
          TabOrder = 5
1250
        end
1251
        object cbxGootchBlendMode: TComboBox
1252
          Left = 104
1253
          Height = 21
1254
          Top = 320
1255
          Width = 193
1256
          ItemHeight = 13
1257
          ItemIndex = 0
1258
          Items.Strings = (
1259
            'Opaque'
1260
            'Transparency'
1261
            'Additive'
1262
            'AlphaTest50'
1263
            'AlphaTest100'
1264
            'Modulate'
1265
            'DestColorOne'
1266
            'DestAlphaOne'
1267
          )
1268
          OnChange = cbxGootchBlendModeChange
1269
          Style = csDropDownList
1270
          TabOrder = 6
1271
          Text = 'Opaque'
1272
        end
1273
        object tbGoochAlpha: TTrackBar
1274
          Left = 196
1275
          Height = 26
1276
          Top = 44
1277
          Width = 114
1278
          Frequency = 10
1279
          Max = 100
1280
          OnChange = tbGoochAlphaChange
1281
          PageSize = 10
1282
          Position = 100
1283
          TickStyle = tsNone
1284
          TabOrder = 7
1285
        end
1286
      end
1287
      object TabSheet6: TTabSheet
1288
        Caption = 'S.E.M'
1289
        ClientHeight = 470
1290
        ClientWidth = 343
1291
        ImageIndex = 5
1292
        object Label19: TLabel
1293
          Left = 16
1294
          Height = 13
1295
          Top = 44
1296
          Width = 66
1297
          Caption = 'Diffuse factor'
1298
          ParentColor = False
1299
        end
1300
        object lblSemDiffuseF: TLabel
1301
          Left = 303
1302
          Height = 13
1303
          Top = 45
1304
          Width = 22
1305
          Caption = '0.90'
1306
          ParentColor = False
1307
        end
1308
        object Label42: TLabel
1309
          Left = 16
1310
          Height = 13
1311
          Top = 72
1312
          Width = 71
1313
          Caption = 'Ambient factor'
1314
          ParentColor = False
1315
        end
1316
        object lblSemAmbientF: TLabel
1317
          Left = 303
1318
          Height = 13
1319
          Top = 71
1320
          Width = 22
1321
          Caption = '0.80'
1322
          ParentColor = False
1323
        end
1324
        object Label44: TLabel
1325
          Left = 16
1326
          Height = 13
1327
          Top = 100
1328
          Width = 73
1329
          Caption = 'Specular factor'
1330
          ParentColor = False
1331
        end
1332
        object lblSemSpecularF: TLabel
1333
          Left = 303
1334
          Height = 13
1335
          Top = 100
1336
          Width = 22
1337
          Caption = '0.90'
1338
          ParentColor = False
1339
        end
1340
        object Label46: TLabel
1341
          Left = 14
1342
          Height = 13
1343
          Top = 130
1344
          Width = 67
1345
          Caption = 'Ambient Color'
1346
          ParentColor = False
1347
        end
1348
        object Shape13: TShape
1349
          Left = 94
1350
          Height = 15
1351
          Top = 128
1352
          Width = 64
1353
          Brush.Color = 2105376
1354
          OnMouseDown = Shape13MouseDown
1355
        end
1356
        object Label47: TLabel
1357
          Left = 14
1358
          Height = 13
1359
          Top = 149
1360
          Width = 69
1361
          Caption = 'Specular Color'
1362
          ParentColor = False
1363
        end
1364
        object Shape14: TShape
1365
          Left = 94
1366
          Height = 15
1367
          Top = 149
1368
          Width = 64
1369
          Brush.Color = 14540253
1370
          OnMouseDown = Shape14MouseDown
1371
        end
1372
        object tbSemDiffuseF: TTrackBar
1373
          Left = 107
1374
          Height = 26
1375
          Top = 39
1376
          Width = 190
1377
          Frequency = 10
1378
          Max = 100
1379
          OnChange = tbSemDiffuseFChange
1380
          PageSize = 10
1381
          Position = 90
1382
          TickStyle = tsNone
1383
          TabOrder = 0
1384
        end
1385
        object tbSemAmbientF: TTrackBar
1386
          Left = 106
1387
          Height = 28
1388
          Top = 66
1389
          Width = 191
1390
          Frequency = 10
1391
          Max = 100
1392
          OnChange = tbSemAmbientFChange
1393
          PageSize = 10
1394
          Position = 80
1395
          TickStyle = tsNone
1396
          TabOrder = 1
1397
        end
1398
        object tbSemSpecularF: TTrackBar
1399
          Left = 106
1400
          Height = 26
1401
          Top = 96
1402
          Width = 191
1403
          Frequency = 10
1404
          Max = 100
1405
          OnChange = tbSemSpecularFChange
1406
          PageSize = 10
1407
          Position = 90
1408
          TickStyle = tsNone
1409
          TabOrder = 2
1410
        end
1411
        object chkSEMShader: TCheckBox
1412
          Left = 24
1413
          Height = 19
1414
          Top = 16
1415
          Width = 58
1416
          Caption = 'Enabled'
1417
          OnClick = chkSEMShaderClick
1418
          TabOrder = 3
1419
        end
1420
        object Button4: TButton
1421
          Left = 16
1422
          Height = 25
1423
          Top = 179
1424
          Width = 184
1425
          Caption = 'Load MatCap Texture'
1426
          OnClick = Button4Click
1427
          TabOrder = 4
1428
        end
1429
      end
1430
      object Displacement: TTabSheet
1431
        Caption = 'Displacement'
1432
        ClientHeight = 470
1433
        ClientWidth = 422
1434
        ImageIndex = 6
1435
        object Label21: TLabel
1436
          Left = 24
1437
          Height = 13
1438
          Top = 52
1439
          Width = 66
1440
          Caption = 'Diffuse factor'
1441
          ParentColor = False
1442
        end
1443
        object Label43: TLabel
1444
          Left = 24
1445
          Height = 13
1446
          Top = 80
1447
          Width = 71
1448
          Caption = 'Ambient factor'
1449
          ParentColor = False
1450
        end
1451
        object Label45: TLabel
1452
          Left = 24
1453
          Height = 13
1454
          Top = 108
1455
          Width = 73
1456
          Caption = 'Specular factor'
1457
          ParentColor = False
1458
        end
1459
        object lblVDSpecularF: TLabel
1460
          Left = 311
1461
          Height = 13
1462
          Top = 108
1463
          Width = 22
1464
          Caption = '0.90'
1465
          ParentColor = False
1466
        end
1467
        object lblVDAmbientF: TLabel
1468
          Left = 311
1469
          Height = 13
1470
          Top = 79
1471
          Width = 22
1472
          Caption = '0.80'
1473
          ParentColor = False
1474
        end
1475
        object lblVDDiffuseF: TLabel
1476
          Left = 311
1477
          Height = 13
1478
          Top = 53
1479
          Width = 22
1480
          Caption = '0.90'
1481
          ParentColor = False
1482
        end
1483
        object Label51: TLabel
1484
          Left = 22
1485
          Height = 13
1486
          Top = 138
1487
          Width = 67
1488
          Caption = 'Ambient Color'
1489
          ParentColor = False
1490
        end
1491
        object Shape15: TShape
1492
          Left = 102
1493
          Height = 15
1494
          Top = 136
1495
          Width = 64
1496
          Brush.Color = 2105376
1497
          OnMouseDown = Shape13MouseDown
1498
        end
1499
        object Label52: TLabel
1500
          Left = 22
1501
          Height = 13
1502
          Top = 157
1503
          Width = 69
1504
          Caption = 'Specular Color'
1505
          ParentColor = False
1506
        end
1507
        object Shape16: TShape
1508
          Left = 102
1509
          Height = 15
1510
          Top = 157
1511
          Width = 64
1512
          Brush.Color = 14540253
1513
          OnMouseDown = Shape14MouseDown
1514
        end
1515
        object Label48: TLabel
1516
          Left = 22
1517
          Height = 13
1518
          Top = 188
1519
          Width = 26
1520
          Caption = 'Noise'
1521
          ParentColor = False
1522
        end
1523
        object lblVDNoise: TLabel
1524
          Left = 311
1525
          Height = 13
1526
          Top = 188
1527
          Width = 22
1528
          Caption = '10.0'
1529
          ParentColor = False
1530
        end
1531
        object Label49: TLabel
1532
          Left = 22
1533
          Height = 13
1534
          Top = 211
1535
          Width = 30
1536
          Caption = 'Period'
1537
          ParentColor = False
1538
        end
1539
        object lblVDPeriod: TLabel
1540
          Left = 311
1541
          Height = 13
1542
          Top = 211
1543
          Width = 16
1544
          Caption = '5.0'
1545
          ParentColor = False
1546
        end
1547
        object Label53: TLabel
1548
          Left = 22
1549
          Height = 13
1550
          Top = 236
1551
          Width = 54
1552
          Caption = 'Noise Scale'
1553
          ParentColor = False
1554
        end
1555
        object lblVDNScale: TLabel
1556
          Left = 311
1557
          Height = 13
1558
          Top = 237
1559
          Width = 22
1560
          Caption = '0.05'
1561
          ParentColor = False
1562
        end
1563
        object Label55: TLabel
1564
          Left = 22
1565
          Height = 13
1566
          Top = 260
1567
          Width = 53
1568
          Caption = 'Turbulence'
1569
          ParentColor = False
1570
        end
1571
        object lblVDTurb: TLabel
1572
          Left = 311
1573
          Height = 13
1574
          Top = 261
1575
          Width = 16
1576
          Caption = '0.5'
1577
          ParentColor = False
1578
        end
1579
        object Label57: TLabel
1580
          Left = 22
1581
          Height = 13
1582
          Top = 284
1583
          Width = 91
1584
          Caption = 'Displacement Scale'
1585
          ParentColor = False
1586
        end
1587
        object lblVDDispScale: TLabel
1588
          Left = 311
1589
          Height = 13
1590
          Top = 284
1591
          Width = 16
1592
          Caption = '1.0'
1593
          ParentColor = False
1594
        end
1595
        object Label50: TLabel
1596
          Left = 22
1597
          Height = 13
1598
          Top = 307
1599
          Width = 56
1600
          Caption = 'Time Factor'
1601
          ParentColor = False
1602
        end
1603
        object lblVDTimeF: TLabel
1604
          Left = 311
1605
          Height = 13
1606
          Top = 307
1607
          Width = 22
1608
          Caption = '0.05'
1609
          ParentColor = False
1610
        end
1611
        object chkVDShader: TCheckBox
1612
          Left = 32
1613
          Height = 19
1614
          Top = 24
1615
          Width = 58
1616
          Caption = 'Enabled'
1617
          OnClick = chkVDShaderClick
1618
          TabOrder = 0
1619
        end
1620
        object tbVDDiffuseF: TTrackBar
1621
          Left = 115
1622
          Height = 26
1623
          Top = 47
1624
          Width = 190
1625
          Frequency = 10
1626
          Max = 100
1627
          OnChange = tbVDDiffuseFChange
1628
          PageSize = 10
1629
          Position = 90
1630
          TickStyle = tsNone
1631
          TabOrder = 1
1632
        end
1633
        object tbVDAmbientF: TTrackBar
1634
          Left = 114
1635
          Height = 28
1636
          Top = 74
1637
          Width = 191
1638
          Frequency = 10
1639
          Max = 100
1640
          OnChange = tbVDAmbientFChange
1641
          PageSize = 10
1642
          Position = 80
1643
          TickStyle = tsNone
1644
          TabOrder = 2
1645
        end
1646
        object tbVDSpecularF: TTrackBar
1647
          Left = 114
1648
          Height = 26
1649
          Top = 104
1650
          Width = 191
1651
          Frequency = 10
1652
          Max = 100
1653
          OnChange = tbVDSpecularFChange
1654
          PageSize = 10
1655
          Position = 90
1656
          TickStyle = tsNone
1657
          TabOrder = 3
1658
        end
1659
        object chkVDAnimate: TCheckBox
1660
          Left = 128
1661
          Height = 19
1662
          Top = 24
1663
          Width = 59
1664
          Caption = 'Animate'
1665
          TabOrder = 4
1666
        end
1667
        object tbVDNoise: TTrackBar
1668
          Left = 114
1669
          Height = 26
1670
          Top = 184
1671
          Width = 191
1672
          Frequency = 10
1673
          Max = 5000
1674
          OnChange = tbVDNoiseChange
1675
          PageSize = 10
1676
          Position = 1000
1677
          TickStyle = tsNone
1678
          TabOrder = 5
1679
        end
1680
        object tbVDPeriod: TTrackBar
1681
          Left = 114
1682
          Height = 26
1683
          Top = 207
1684
          Width = 191
1685
          Frequency = 10
1686
          Max = 500
1687
          OnChange = tbVDPeriodChange
1688
          PageSize = 10
1689
          Position = 500
1690
          TickStyle = tsNone
1691
          TabOrder = 6
1692
        end
1693
        object tbVDNScale: TTrackBar
1694
          Left = 114
1695
          Height = 26
1696
          Top = 230
1697
          Width = 191
1698
          Frequency = 10
1699
          Max = 100
1700
          OnChange = tbVDNScaleChange
1701
          PageSize = 10
1702
          Position = 5
1703
          TickStyle = tsNone
1704
          TabOrder = 7
1705
        end
1706
        object tbVDTurb: TTrackBar
1707
          Left = 114
1708
          Height = 26
1709
          Top = 256
1710
          Width = 191
1711
          Frequency = 10
1712
          Max = 200
1713
          OnChange = tbVDTurbChange
1714
          PageSize = 10
1715
          Position = 50
1716
          TickStyle = tsNone
1717
          TabOrder = 8
1718
        end
1719
        object tbVDDispScale: TTrackBar
1720
          Left = 114
1721
          Height = 26
1722
          Top = 280
1723
          Width = 191
1724
          Frequency = 10
1725
          Max = 1000
1726
          OnChange = tbVDDispScaleChange
1727
          PageSize = 10
1728
          Position = 100
1729
          TickStyle = tsNone
1730
          TabOrder = 9
1731
        end
1732
        object tbVDTimeF: TTrackBar
1733
          Left = 114
1734
          Height = 26
1735
          Top = 303
1736
          Width = 191
1737
          Frequency = 10
1738
          Max = 1000
1739
          OnChange = tbVDTimeFChange
1740
          PageSize = 10
1741
          Position = 5
1742
          TickStyle = tsNone
1743
          TabOrder = 10
1744
        end
1745
        object Button3: TButton
1746
          Left = 16
1747
          Height = 25
1748
          Top = 344
1749
          Width = 113
1750
          Caption = 'Reset Time'
1751
          OnClick = Button3Click
1752
          TabOrder = 11
1753
        end
1754
        object Button1: TButton
1755
          Left = 16
1756
          Height = 25
1757
          Top = 375
1758
          Width = 184
1759
          Caption = 'Load Main Texture'
1760
          OnClick = Button1Click
1761
          TabOrder = 12
1762
        end
1763
      end
1764
      object TabSheet7: TTabSheet
1765
        Caption = 'Glass'
1766
        ClientHeight = 470
1767
        ClientWidth = 422
1768
        ImageIndex = 7
1769
        object Label56: TLabel
1770
          Left = 11
1771
          Height = 13
1772
          Top = 36
1773
          Width = 29
1774
          Caption = 'Depth'
1775
          ParentColor = False
1776
        end
1777
        object Label58: TLabel
1778
          Left = 24
1779
          Height = 13
1780
          Top = 66
1781
          Width = 16
1782
          Caption = 'Mix'
1783
          ParentColor = False
1784
        end
1785
        object Label59: TLabel
1786
          Left = 14
1787
          Height = 13
1788
          Top = 146
1789
          Width = 62
1790
          Caption = 'Diffuse Color'
1791
          ParentColor = False
1792
        end
1793
        object Shape17: TShape
1794
          Left = 87
1795
          Height = 15
1796
          Top = 145
1797
          Width = 64
1798
          Brush.Color = 2105376
1799
          OnMouseDown = Shape17MouseDown
1800
        end
1801
        object lblGlassDepth: TLabel
1802
          Left = 285
1803
          Height = 13
1804
          Top = 36
1805
          Width = 16
1806
          Caption = '0.1'
1807
          ParentColor = False
1808
        end
1809
        object lblGlassMix: TLabel
1810
          Left = 283
1811
          Height = 13
1812
          Top = 66
1813
          Width = 16
1814
          Caption = '1.0'
1815
          ParentColor = False
1816
        end
1817
        object Label60: TLabel
1818
          Left = 10
1819
          Height = 13
1820
          Top = 99
1821
          Width = 27
1822
          Caption = 'Alpha'
1823
          ParentColor = False
1824
        end
1825
        object lblGlassAlpha: TLabel
1826
          Left = 282
1827
          Height = 13
1828
          Top = 99
1829
          Width = 16
1830
          Caption = '1.0'
1831
          ParentColor = False
1832
        end
1833
        object Label61: TLabel
1834
          Left = 18
1835
          Height = 13
1836
          Top = 179
1837
          Width = 44
1838
          Caption = 'Blend Src'
1839
          ParentColor = False
1840
        end
1841
        object Label62: TLabel
1842
          Left = 18
1843
          Height = 13
1844
          Top = 205
1845
          Width = 51
1846
          Caption = 'Blend Dest'
1847
          ParentColor = False
1848
        end
1849
        object tbGlassDepth: TTrackBar
1850
          Left = 46
1851
          Height = 26
1852
          Top = 33
1853
          Width = 235
1854
          Frequency = 10
1855
          Max = 100
1856
          OnChange = tbGlassDepthChange
1857
          PageSize = 10
1858
          Position = 10
1859
          TickStyle = tsNone
1860
          TabOrder = 0
1861
        end
1862
        object tbGlassMix: TTrackBar
1863
          Left = 45
1864
          Height = 28
1865
          Top = 62
1866
          Width = 236
1867
          Frequency = 10
1868
          Max = 200
1869
          OnChange = tbGlassMixChange
1870
          PageSize = 10
1871
          Position = 100
1872
          TickStyle = tsNone
1873
          TabOrder = 1
1874
        end
1875
        object Button10: TButton
1876
          Left = 3
1877
          Height = 25
1878
          Top = 254
1879
          Width = 184
1880
          Caption = 'Load Refraction Texture'
1881
          OnClick = Button10Click
1882
          TabOrder = 2
1883
        end
1884
        object chkGlassShader: TCheckBox
1885
          Left = 24
1886
          Height = 19
1887
          Top = 8
1888
          Width = 58
1889
          Caption = 'Enabled'
1890
          OnClick = chkGlassShaderClick
1891
          TabOrder = 3
1892
        end
1893
        object tbGlassAlpha: TTrackBar
1894
          Left = 45
1895
          Height = 26
1896
          Top = 96
1897
          Width = 235
1898
          Frequency = 10
1899
          Max = 100
1900
          OnChange = tbGlassAlphaChange
1901
          PageSize = 10
1902
          Position = 100
1903
          TickStyle = tsNone
1904
          TabOrder = 4
1905
        end
1906
        object cbxGlassBlendSrc: TComboBox
1907
          Left = 87
1908
          Height = 21
1909
          Top = 176
1910
          Width = 145
1911
          ItemHeight = 13
1912
          ItemIndex = 6
1913
          Items.Strings = (
1914
            'ZERO'
1915
            'ONE'
1916
            'SRC COLOR'
1917
            'ONE MINUS SRC COLOR'
1918
            'DST COLOR'
1919
            'ONE MINUS DST COLOR'
1920
            'SRC ALPHA'
1921
            'MINUS SRC ALPHA'
1922
            'DST ALPHA'
1923
            'MINUS DST ALPHA'
1924
            'SRC ALPHA SATURATE'
1925
            'CONSTANT COLOR'
1926
            'ONE MINUS CONSTANT COLOR'
1927
            'CONSTANT ALPHA'
1928
            'ONE MINUS CONSTATNT ALPHA'
1929
          )
1930
          OnChange = cbxGlassBlendSrcChange
1931
          Style = csDropDownList
1932
          TabOrder = 5
1933
          Text = 'SRC ALPHA'
1934
        end
1935
        object cbxGlassBlendDst: TComboBox
1936
          Left = 87
1937
          Height = 21
1938
          Top = 203
1939
          Width = 145
1940
          ItemHeight = 13
1941
          ItemIndex = 8
1942
          Items.Strings = (
1943
            'ZERO'
1944
            'ONE'
1945
            'SRC COLOR'
1946
            'ONE MINUS SRC COLOR'
1947
            'DST COLOR'
1948
            'ONE MINUS DST COLOR'
1949
            'SRC ALPHA'
1950
            'MINUS SRC ALPHA'
1951
            'DST ALPHA'
1952
            'MINUS DST ALPHA'
1953
            'SRC ALPHA SATURATE'
1954
            'CONSTANT COLOR'
1955
            'ONE MINUS CONSTANT COLOR'
1956
            'CONSTANT ALPHA'
1957
            'ONE MINUS CONSTATNT ALPHA'
1958
          )
1959
          OnChange = cbxGlassBlendDstChange
1960
          Style = csDropDownList
1961
          TabOrder = 6
1962
          Text = 'DST ALPHA'
1963
        end
1964
      end
1965
      object TabSheet8: TTabSheet
1966
        Caption = 'Toon'
1967
        ClientHeight = 470
1968
        ClientWidth = 422
1969
        ImageIndex = 8
1970
        object Label64: TLabel
1971
          Left = 7
1972
          Height = 13
1973
          Top = 51
1974
          Width = 66
1975
          Caption = 'HighLight Size'
1976
          ParentColor = False
1977
        end
1978
        object lblToonHighlightSize: TLabel
1979
          Left = 290
1980
          Height = 13
1981
          Top = 51
1982
          Width = 22
1983
          Caption = '0.95'
1984
          ParentColor = False
1985
        end
1986
        object Label66: TLabel
1987
          Left = 7
1988
          Height = 13
1989
          Top = 73
1990
          Width = 38
1991
          Caption = 'Mid Size'
1992
          ParentColor = False
1993
        end
1994
        object lblToonMidSize: TLabel
1995
          Left = 290
1996
          Height = 13
1997
          Top = 73
1998
          Width = 16
1999
          Caption = '0.5'
2000
          ParentColor = False
2001
        end
2002
        object Label68: TLabel
2003
          Left = 7
2004
          Height = 13
2005
          Top = 95
2006
          Width = 60
2007
          Caption = 'Shadow Size'
2008
          ParentColor = False
2009
        end
2010
        object lblToonShadowSize: TLabel
2011
          Left = 290
2012
          Height = 13
2013
          Top = 95
2014
          Width = 22
2015
          Caption = '0.25'
2016
          ParentColor = False
2017
        end
2018
        object Label70: TLabel
2019
          Left = 7
2020
          Height = 13
2021
          Top = 117
2022
          Width = 65
2023
          Caption = 'Outline Width'
2024
          ParentColor = False
2025
        end
2026
        object lblToonOutlineWidth: TLabel
2027
          Left = 290
2028
          Height = 13
2029
          Top = 117
2030
          Width = 22
2031
          Caption = '0.25'
2032
          ParentColor = False
2033
        end
2034
        object Label72: TLabel
2035
          Left = 8
2036
          Height = 13
2037
          Top = 146
2038
          Width = 69
2039
          Caption = 'Highlight Color'
2040
          ParentColor = False
2041
        end
2042
        object Shape18: TShape
2043
          Left = 118
2044
          Height = 15
2045
          Top = 146
2046
          Width = 64
2047
          Brush.Color = 15658734
2048
          OnMouseDown = Shape18MouseDown
2049
        end
2050
        object Label73: TLabel
2051
          Left = 8
2052
          Height = 13
2053
          Top = 167
2054
          Width = 44
2055
          Caption = 'Mid Color'
2056
          ParentColor = False
2057
        end
2058
        object Shape19: TShape
2059
          Left = 118
2060
          Height = 15
2061
          Top = 167
2062
          Width = 64
2063
          Brush.Color = 13421772
2064
          OnMouseDown = Shape19MouseDown
2065
        end
2066
        object Label74: TLabel
2067
          Left = 8
2068
          Height = 13
2069
          Top = 188
2070
          Width = 104
2071
          Caption = 'Lighten Shadow Color'
2072
          ParentColor = False
2073
        end
2074
        object Shape20: TShape
2075
          Left = 118
2076
          Height = 15
2077
          Top = 188
2078
          Width = 64
2079
          Brush.Color = clGray
2080
          OnMouseDown = Shape20MouseDown
2081
        end
2082
        object Label75: TLabel
2083
          Left = 8
2084
          Height = 13
2085
          Top = 209
2086
          Width = 103
2087
          Caption = 'Darken Shadow Color'
2088
          ParentColor = False
2089
        end
2090
        object Shape21: TShape
2091
          Left = 118
2092
          Height = 15
2093
          Top = 209
2094
          Width = 64
2095
          Brush.Color = 3158064
2096
          OnMouseDown = Shape21MouseDown
2097
        end
2098
        object Label76: TLabel
2099
          Left = 7
2100
          Height = 13
2101
          Top = 230
2102
          Width = 62
2103
          Caption = 'Outline Color'
2104
          ParentColor = False
2105
        end
2106
        object Shape22: TShape
2107
          Left = 118
2108
          Height = 15
2109
          Top = 230
2110
          Width = 64
2111
          Brush.Color = clBlack
2112
          OnMouseDown = Shape22MouseDown
2113
        end
2114
        object chkToonShader: TCheckBox
2115
          Left = 8
2116
          Height = 19
2117
          Top = 16
2118
          Width = 58
2119
          Caption = 'Enabled'
2120
          OnClick = chkToonShaderClick
2121
          TabOrder = 0
2122
        end
2123
        object tbToonHighlightSize: TTrackBar
2124
          Left = 75
2125
          Height = 26
2126
          Top = 48
2127
          Width = 213
2128
          Frequency = 10
2129
          Max = 100
2130
          OnChange = tbToonHighlightSizeChange
2131
          PageSize = 10
2132
          Position = 95
2133
          TickStyle = tsNone
2134
          TabOrder = 1
2135
        end
2136
        object tbToonMidSize: TTrackBar
2137
          Left = 75
2138
          Height = 26
2139
          Top = 70
2140
          Width = 213
2141
          Frequency = 10
2142
          Max = 100
2143
          OnChange = tbToonMidSizeChange
2144
          PageSize = 10
2145
          Position = 50
2146
          TickStyle = tsNone
2147
          TabOrder = 2
2148
        end
2149
        object tbToonShadowSize: TTrackBar
2150
          Left = 75
2151
          Height = 26
2152
          Top = 92
2153
          Width = 213
2154
          Frequency = 10
2155
          Max = 100
2156
          OnChange = tbToonShadowSizeChange
2157
          PageSize = 10
2158
          Position = 25
2159
          TickStyle = tsNone
2160
          TabOrder = 3
2161
        end
2162
        object tbToonOutlineWidth: TTrackBar
2163
          Left = 75
2164
          Height = 26
2165
          Top = 114
2166
          Width = 213
2167
          Frequency = 10
2168
          Max = 100
2169
          OnChange = tbToonOutlineWidthChange
2170
          PageSize = 10
2171
          Position = 25
2172
          TickStyle = tsNone
2173
          TabOrder = 4
2174
        end
2175
      end
2176
    end
2177
    object chkAnimScene: TCheckBox
2178
      Left = 13
2179
      Height = 19
2180
      Top = 499
2181
      Width = 91
2182
      Caption = 'Animate Scene'
2183
      TabOrder = 1
2184
    end
2185
    object chkLightmoving: TCheckBox
2186
      Left = 13
2187
      Height = 19
2188
      Top = 522
2189
      Width = 80
2190
      Caption = 'Light moving'
2191
      TabOrder = 2
2192
    end
2193
    object cbxObjects: TComboBox
2194
      Left = 187
2195
      Height = 21
2196
      Top = 497
2197
      Width = 145
2198
      ItemHeight = 13
2199
      ItemIndex = 0
2200
      Items.Strings = (
2201
        'Suzanne'
2202
        'Knot'
2203
        'Spoutnik'
2204
        'Rectangle Spirale'
2205
        'Geode'
2206
        'Syamil'
2207
        'GLTorus'
2208
        'GLSphere'
2209
      )
2210
      OnChange = cbxObjectsChange
2211
      Style = csDropDownList
2212
      TabOrder = 3
2213
      Text = 'Suzanne'
2214
    end
2215
    object Button2: TButton
2216
      Left = 148
2217
      Height = 25
2218
      Top = 524
2219
      Width = 184
2220
      Caption = 'Choose Background Color'
2221
      OnClick = Button2Click
2222
      TabOrder = 4
2223
    end
2224
    object chkBackgroundImg: TCheckBox
2225
      Left = 128
2226
      Height = 19
2227
      Hint = 'Show Background Texture'
2228
      Top = 555
2229
      Width = 20
2230
      OnClick = chkBackgroundImgClick
2231
      TabOrder = 5
2232
    end
2233
    object Button11: TButton
2234
      Left = 148
2235
      Height = 25
2236
      Top = 551
2237
      Width = 184
2238
      Caption = 'Load Background Texture'
2239
      Enabled = False
2240
      OnClick = Button11Click
2241
      TabOrder = 6
2242
    end
2243
  end
2244
  object Viewer: TGLSceneViewer
2245
    Left = 432
2246
    Height = 597
2247
    Top = 0
2248
    Width = 633
2249
    Camera = Camera
2250
    Buffer.BackgroundColor = clBlack
2251
    Buffer.AmbientColor.Red = 0.200000002980232
2252
    Buffer.AmbientColor.Green = 0.200000002980232
2253
    Buffer.AmbientColor.Blue = 0.200000002980232
2254
    Buffer.AmbientColor.Alpha = 1
2255
    Buffer.AntiAliasing = aa2x
2256
    FieldOfView = 160.981994628906
2257
    Align = alClient
2258
    TabOrder = 1
2259
  end
2260
  object MaterialLibrary: TGLMaterialLibrary
2261
    Materials = <    
2262
      item
2263
        Name = 'MainTexture'
2264
        Tag = 0
2265
        Material.BackProperties.Ambient.Red = 0.200000002980232
2266
        Material.BackProperties.Ambient.Green = 0.200000002980232
2267
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2268
        Material.BackProperties.Ambient.Alpha = 1
2269
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2270
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2271
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2272
        Material.BackProperties.Diffuse.Alpha = 1
2273
        Material.BackProperties.Emission.Red = 0
2274
        Material.BackProperties.Emission.Green = 0
2275
        Material.BackProperties.Emission.Blue = 0
2276
        Material.BackProperties.Emission.Alpha = 1
2277
        Material.BackProperties.Shininess = 10
2278
        Material.BackProperties.Specular.Red = 0
2279
        Material.BackProperties.Specular.Green = 0
2280
        Material.BackProperties.Specular.Blue = 0
2281
        Material.BackProperties.Specular.Alpha = 1
2282
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2283
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2284
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2285
        Material.FrontProperties.Ambient.Alpha = 1
2286
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2287
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2288
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2289
        Material.FrontProperties.Diffuse.Alpha = 1
2290
        Material.FrontProperties.Emission.Red = 0
2291
        Material.FrontProperties.Emission.Green = 0
2292
        Material.FrontProperties.Emission.Blue = 0
2293
        Material.FrontProperties.Emission.Alpha = 1
2294
        Material.FrontProperties.Shininess = 10
2295
        Material.FrontProperties.Specular.Red = 0.298039227724075
2296
        Material.FrontProperties.Specular.Green = 0.298039227724075
2297
        Material.FrontProperties.Specular.Blue = 0.298039227724075
2298
        Material.FrontProperties.Specular.Alpha = 1
2299
        Material.FrontProperties.Specular.Color = {
2300
          9998983E9998983E9998983E0000803F
2301
        }
2302
        Material.BlendingMode = bmTransparency
2303
        Material.Texture.TextureMode = tmModulate
2304
        Material.Texture.EnvColor.Red = 0
2305
        Material.Texture.EnvColor.Green = 0
2306
        Material.Texture.EnvColor.Blue = 0
2307
        Material.Texture.EnvColor.Alpha = 0
2308
        Material.Texture.BorderColor.Red = 0
2309
        Material.Texture.BorderColor.Green = 0
2310
        Material.Texture.BorderColor.Blue = 0
2311
        Material.Texture.BorderColor.Alpha = 0
2312
        Material.Texture.Disabled = False
2313
      end    
2314
      item
2315
        Name = 'NoiseTexture'
2316
        Tag = 0
2317
        Material.BackProperties.Ambient.Red = 0.200000002980232
2318
        Material.BackProperties.Ambient.Green = 0.200000002980232
2319
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2320
        Material.BackProperties.Ambient.Alpha = 1
2321
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2322
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2323
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2324
        Material.BackProperties.Diffuse.Alpha = 1
2325
        Material.BackProperties.Emission.Red = 0
2326
        Material.BackProperties.Emission.Green = 0
2327
        Material.BackProperties.Emission.Blue = 0
2328
        Material.BackProperties.Emission.Alpha = 1
2329
        Material.BackProperties.Specular.Red = 0
2330
        Material.BackProperties.Specular.Green = 0
2331
        Material.BackProperties.Specular.Blue = 0
2332
        Material.BackProperties.Specular.Alpha = 1
2333
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2334
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2335
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2336
        Material.FrontProperties.Ambient.Alpha = 1
2337
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2338
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2339
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2340
        Material.FrontProperties.Diffuse.Alpha = 1
2341
        Material.FrontProperties.Emission.Red = 0
2342
        Material.FrontProperties.Emission.Green = 0
2343
        Material.FrontProperties.Emission.Blue = 0
2344
        Material.FrontProperties.Emission.Alpha = 1
2345
        Material.FrontProperties.Specular.Red = 0
2346
        Material.FrontProperties.Specular.Green = 0
2347
        Material.FrontProperties.Specular.Blue = 0
2348
        Material.FrontProperties.Specular.Alpha = 1
2349
        Material.Texture.EnvColor.Red = 0
2350
        Material.Texture.EnvColor.Green = 0
2351
        Material.Texture.EnvColor.Blue = 0
2352
        Material.Texture.EnvColor.Alpha = 0
2353
        Material.Texture.BorderColor.Red = 0
2354
        Material.Texture.BorderColor.Green = 0
2355
        Material.Texture.BorderColor.Blue = 0
2356
        Material.Texture.BorderColor.Alpha = 0
2357
        Material.Texture.Disabled = False
2358
      end    
2359
      item
2360
        Name = 'ShaderMaterial'
2361
        Tag = 0
2362
        Material.BackProperties.Ambient.Red = 0.200000002980232
2363
        Material.BackProperties.Ambient.Green = 0.200000002980232
2364
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2365
        Material.BackProperties.Ambient.Alpha = 1
2366
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2367
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2368
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2369
        Material.BackProperties.Diffuse.Alpha = 1
2370
        Material.BackProperties.Emission.Red = 0
2371
        Material.BackProperties.Emission.Green = 0
2372
        Material.BackProperties.Emission.Blue = 0
2373
        Material.BackProperties.Emission.Alpha = 1
2374
        Material.BackProperties.Specular.Red = 0
2375
        Material.BackProperties.Specular.Green = 0
2376
        Material.BackProperties.Specular.Blue = 0
2377
        Material.BackProperties.Specular.Alpha = 1
2378
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2379
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2380
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2381
        Material.FrontProperties.Ambient.Alpha = 1
2382
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2383
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2384
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2385
        Material.FrontProperties.Diffuse.Alpha = 1
2386
        Material.FrontProperties.Emission.Red = 0.0780000016093254
2387
        Material.FrontProperties.Emission.Green = 0.0710000023245811
2388
        Material.FrontProperties.Emission.Blue = 0.063000001013279
2389
        Material.FrontProperties.Emission.Alpha = 1
2390
        Material.FrontProperties.Emission.Color = {
2391
          77BE9F3D7368913D2506813D0000803F
2392
        }
2393
        Material.FrontProperties.Specular.Red = 0.866999983787537
2394
        Material.FrontProperties.Specular.Green = 0.859000027179718
2395
        Material.FrontProperties.Specular.Blue = 0.859000027179718
2396
        Material.FrontProperties.Specular.Alpha = 1
2397
        Material.FrontProperties.Specular.Color = {
2398
          B6F35D3F6DE75B3F6DE75B3F0000803F
2399
        }
2400
        Material.Texture.TextureMode = tmModulate
2401
        Material.Texture.EnvColor.Red = 0
2402
        Material.Texture.EnvColor.Green = 0
2403
        Material.Texture.EnvColor.Blue = 0
2404
        Material.Texture.EnvColor.Alpha = 0
2405
        Material.Texture.BorderColor.Red = 0
2406
        Material.Texture.BorderColor.Green = 0
2407
        Material.Texture.BorderColor.Blue = 0
2408
        Material.Texture.BorderColor.Alpha = 0
2409
        Material.Texture.Disabled = False
2410
        Material.Texture.KeepImageAfterTransfer = True
2411
      end    
2412
      item
2413
        Name = 'ErosionNoiseTexture'
2414
        Tag = 0
2415
        Material.BackProperties.Ambient.Red = 0.200000002980232
2416
        Material.BackProperties.Ambient.Green = 0.200000002980232
2417
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2418
        Material.BackProperties.Ambient.Alpha = 1
2419
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2420
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2421
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2422
        Material.BackProperties.Diffuse.Alpha = 1
2423
        Material.BackProperties.Emission.Red = 0
2424
        Material.BackProperties.Emission.Green = 0
2425
        Material.BackProperties.Emission.Blue = 0
2426
        Material.BackProperties.Emission.Alpha = 1
2427
        Material.BackProperties.Specular.Red = 0
2428
        Material.BackProperties.Specular.Green = 0
2429
        Material.BackProperties.Specular.Blue = 0
2430
        Material.BackProperties.Specular.Alpha = 1
2431
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2432
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2433
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2434
        Material.FrontProperties.Ambient.Alpha = 1
2435
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2436
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2437
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2438
        Material.FrontProperties.Diffuse.Alpha = 1
2439
        Material.FrontProperties.Emission.Red = 0
2440
        Material.FrontProperties.Emission.Green = 0
2441
        Material.FrontProperties.Emission.Blue = 0
2442
        Material.FrontProperties.Emission.Alpha = 1
2443
        Material.FrontProperties.Specular.Red = 0
2444
        Material.FrontProperties.Specular.Green = 0
2445
        Material.FrontProperties.Specular.Blue = 0
2446
        Material.FrontProperties.Specular.Alpha = 1
2447
        Material.Texture.EnvColor.Red = 0
2448
        Material.Texture.EnvColor.Green = 0
2449
        Material.Texture.EnvColor.Blue = 0
2450
        Material.Texture.EnvColor.Alpha = 0
2451
        Material.Texture.BorderColor.Red = 0
2452
        Material.Texture.BorderColor.Green = 0
2453
        Material.Texture.BorderColor.Blue = 0
2454
        Material.Texture.BorderColor.Alpha = 0
2455
        Material.Texture.Disabled = False
2456
      end    
2457
      item
2458
        Name = 'ErosionMainTexture'
2459
        Tag = 0
2460
        Material.BackProperties.Ambient.Red = 0.200000002980232
2461
        Material.BackProperties.Ambient.Green = 0.200000002980232
2462
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2463
        Material.BackProperties.Ambient.Alpha = 1
2464
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2465
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2466
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2467
        Material.BackProperties.Diffuse.Alpha = 1
2468
        Material.BackProperties.Emission.Red = 0
2469
        Material.BackProperties.Emission.Green = 0
2470
        Material.BackProperties.Emission.Blue = 0
2471
        Material.BackProperties.Emission.Alpha = 1
2472
        Material.BackProperties.Specular.Red = 0
2473
        Material.BackProperties.Specular.Green = 0
2474
        Material.BackProperties.Specular.Blue = 0
2475
        Material.BackProperties.Specular.Alpha = 1
2476
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2477
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2478
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2479
        Material.FrontProperties.Ambient.Alpha = 1
2480
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2481
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2482
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2483
        Material.FrontProperties.Diffuse.Alpha = 1
2484
        Material.FrontProperties.Emission.Red = 0
2485
        Material.FrontProperties.Emission.Green = 0
2486
        Material.FrontProperties.Emission.Blue = 0
2487
        Material.FrontProperties.Emission.Alpha = 1
2488
        Material.FrontProperties.Specular.Red = 0
2489
        Material.FrontProperties.Specular.Green = 0
2490
        Material.FrontProperties.Specular.Blue = 0
2491
        Material.FrontProperties.Specular.Alpha = 1
2492
        Material.BlendingMode = bmModulate
2493
        Material.Texture.EnvColor.Red = 0
2494
        Material.Texture.EnvColor.Green = 0
2495
        Material.Texture.EnvColor.Blue = 0
2496
        Material.Texture.EnvColor.Alpha = 0
2497
        Material.Texture.BorderColor.Red = 0
2498
        Material.Texture.BorderColor.Green = 0
2499
        Material.Texture.BorderColor.Blue = 0
2500
        Material.Texture.BorderColor.Alpha = 0
2501
        Material.Texture.Disabled = False
2502
      end    
2503
      item
2504
        Name = 'ErosionTexture'
2505
        Tag = 0
2506
        Material.BackProperties.Ambient.Red = 0.200000002980232
2507
        Material.BackProperties.Ambient.Green = 0.200000002980232
2508
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2509
        Material.BackProperties.Ambient.Alpha = 1
2510
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2511
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2512
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2513
        Material.BackProperties.Diffuse.Alpha = 1
2514
        Material.BackProperties.Emission.Red = 0
2515
        Material.BackProperties.Emission.Green = 0
2516
        Material.BackProperties.Emission.Blue = 0
2517
        Material.BackProperties.Emission.Alpha = 1
2518
        Material.BackProperties.Specular.Red = 0
2519
        Material.BackProperties.Specular.Green = 0
2520
        Material.BackProperties.Specular.Blue = 0
2521
        Material.BackProperties.Specular.Alpha = 1
2522
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2523
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2524
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2525
        Material.FrontProperties.Ambient.Alpha = 1
2526
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2527
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2528
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2529
        Material.FrontProperties.Diffuse.Alpha = 1
2530
        Material.FrontProperties.Emission.Red = 0
2531
        Material.FrontProperties.Emission.Green = 0
2532
        Material.FrontProperties.Emission.Blue = 0
2533
        Material.FrontProperties.Emission.Alpha = 1
2534
        Material.FrontProperties.Specular.Red = 0
2535
        Material.FrontProperties.Specular.Green = 0
2536
        Material.FrontProperties.Specular.Blue = 0
2537
        Material.FrontProperties.Specular.Alpha = 1
2538
        Material.BlendingMode = bmModulate
2539
        Material.Texture.EnvColor.Red = 0
2540
        Material.Texture.EnvColor.Green = 0
2541
        Material.Texture.EnvColor.Blue = 0
2542
        Material.Texture.EnvColor.Alpha = 0
2543
        Material.Texture.BorderColor.Red = 0
2544
        Material.Texture.BorderColor.Green = 0
2545
        Material.Texture.BorderColor.Blue = 0
2546
        Material.Texture.BorderColor.Alpha = 0
2547
        Material.Texture.Disabled = False
2548
      end    
2549
      item
2550
        Name = 'MatCapTexture'
2551
        Tag = 0
2552
        Material.BackProperties.Ambient.Red = 0.200000002980232
2553
        Material.BackProperties.Ambient.Green = 0.200000002980232
2554
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2555
        Material.BackProperties.Ambient.Alpha = 1
2556
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2557
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2558
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2559
        Material.BackProperties.Diffuse.Alpha = 1
2560
        Material.BackProperties.Emission.Red = 0
2561
        Material.BackProperties.Emission.Green = 0
2562
        Material.BackProperties.Emission.Blue = 0
2563
        Material.BackProperties.Emission.Alpha = 1
2564
        Material.BackProperties.Specular.Red = 0
2565
        Material.BackProperties.Specular.Green = 0
2566
        Material.BackProperties.Specular.Blue = 0
2567
        Material.BackProperties.Specular.Alpha = 1
2568
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2569
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2570
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2571
        Material.FrontProperties.Ambient.Alpha = 1
2572
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2573
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2574
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2575
        Material.FrontProperties.Diffuse.Alpha = 1
2576
        Material.FrontProperties.Emission.Red = 0
2577
        Material.FrontProperties.Emission.Green = 0
2578
        Material.FrontProperties.Emission.Blue = 0
2579
        Material.FrontProperties.Emission.Alpha = 1
2580
        Material.FrontProperties.Specular.Red = 0
2581
        Material.FrontProperties.Specular.Green = 0
2582
        Material.FrontProperties.Specular.Blue = 0
2583
        Material.FrontProperties.Specular.Alpha = 1
2584
        Material.Texture.EnvColor.Red = 0
2585
        Material.Texture.EnvColor.Green = 0
2586
        Material.Texture.EnvColor.Blue = 0
2587
        Material.Texture.EnvColor.Alpha = 0
2588
        Material.Texture.BorderColor.Red = 0
2589
        Material.Texture.BorderColor.Green = 0
2590
        Material.Texture.BorderColor.Blue = 0
2591
        Material.Texture.BorderColor.Alpha = 0
2592
        Material.Texture.Disabled = False
2593
      end    
2594
      item
2595
        Name = 'ExplosionTexture'
2596
        Tag = 0
2597
        Material.BackProperties.Ambient.Red = 0.200000002980232
2598
        Material.BackProperties.Ambient.Green = 0.200000002980232
2599
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2600
        Material.BackProperties.Ambient.Alpha = 1
2601
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2602
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2603
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2604
        Material.BackProperties.Diffuse.Alpha = 1
2605
        Material.BackProperties.Emission.Red = 0
2606
        Material.BackProperties.Emission.Green = 0
2607
        Material.BackProperties.Emission.Blue = 0
2608
        Material.BackProperties.Emission.Alpha = 1
2609
        Material.BackProperties.Specular.Red = 0
2610
        Material.BackProperties.Specular.Green = 0
2611
        Material.BackProperties.Specular.Blue = 0
2612
        Material.BackProperties.Specular.Alpha = 1
2613
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2614
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2615
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2616
        Material.FrontProperties.Ambient.Alpha = 1
2617
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2618
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2619
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2620
        Material.FrontProperties.Diffuse.Alpha = 1
2621
        Material.FrontProperties.Emission.Red = 0
2622
        Material.FrontProperties.Emission.Green = 0
2623
        Material.FrontProperties.Emission.Blue = 0
2624
        Material.FrontProperties.Emission.Alpha = 1
2625
        Material.FrontProperties.Specular.Red = 0
2626
        Material.FrontProperties.Specular.Green = 0
2627
        Material.FrontProperties.Specular.Blue = 0
2628
        Material.FrontProperties.Specular.Alpha = 1
2629
        Material.Texture.EnvColor.Red = 0
2630
        Material.Texture.EnvColor.Green = 0
2631
        Material.Texture.EnvColor.Blue = 0
2632
        Material.Texture.EnvColor.Alpha = 0
2633
        Material.Texture.BorderColor.Red = 0
2634
        Material.Texture.BorderColor.Green = 0
2635
        Material.Texture.BorderColor.Blue = 0
2636
        Material.Texture.BorderColor.Alpha = 0
2637
        Material.Texture.Disabled = False
2638
      end    
2639
      item
2640
        Name = 'EnvMap'
2641
        Tag = 0
2642
        Material.BackProperties.Ambient.Red = 0.200000002980232
2643
        Material.BackProperties.Ambient.Green = 0.200000002980232
2644
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2645
        Material.BackProperties.Ambient.Alpha = 1
2646
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2647
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2648
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2649
        Material.BackProperties.Diffuse.Alpha = 1
2650
        Material.BackProperties.Emission.Red = 0
2651
        Material.BackProperties.Emission.Green = 0
2652
        Material.BackProperties.Emission.Blue = 0
2653
        Material.BackProperties.Emission.Alpha = 1
2654
        Material.BackProperties.Specular.Red = 0
2655
        Material.BackProperties.Specular.Green = 0
2656
        Material.BackProperties.Specular.Blue = 0
2657
        Material.BackProperties.Specular.Alpha = 1
2658
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2659
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2660
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2661
        Material.FrontProperties.Ambient.Alpha = 1
2662
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2663
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2664
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2665
        Material.FrontProperties.Diffuse.Alpha = 1
2666
        Material.FrontProperties.Emission.Red = 0
2667
        Material.FrontProperties.Emission.Green = 0
2668
        Material.FrontProperties.Emission.Blue = 0
2669
        Material.FrontProperties.Emission.Alpha = 1
2670
        Material.FrontProperties.Specular.Red = 0
2671
        Material.FrontProperties.Specular.Green = 0
2672
        Material.FrontProperties.Specular.Blue = 0
2673
        Material.FrontProperties.Specular.Alpha = 1
2674
        Material.Texture.ImageClassName = 'TGLBlankImage'
2675
        Material.Texture.Image.ColorFormat = 6408
2676
        Material.Texture.EnvColor.Red = 0
2677
        Material.Texture.EnvColor.Green = 0
2678
        Material.Texture.EnvColor.Blue = 0
2679
        Material.Texture.EnvColor.Alpha = 0
2680
        Material.Texture.BorderColor.Red = 0
2681
        Material.Texture.BorderColor.Green = 0
2682
        Material.Texture.BorderColor.Blue = 0
2683
        Material.Texture.BorderColor.Alpha = 0
2684
        Material.Texture.Disabled = False
2685
      end    
2686
      item
2687
        Name = 'RefractMap'
2688
        Tag = 0
2689
        Material.BackProperties.Ambient.Red = 0.200000002980232
2690
        Material.BackProperties.Ambient.Green = 0.200000002980232
2691
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2692
        Material.BackProperties.Ambient.Alpha = 1
2693
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2694
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2695
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2696
        Material.BackProperties.Diffuse.Alpha = 1
2697
        Material.BackProperties.Emission.Red = 0
2698
        Material.BackProperties.Emission.Green = 0
2699
        Material.BackProperties.Emission.Blue = 0
2700
        Material.BackProperties.Emission.Alpha = 1
2701
        Material.BackProperties.Specular.Red = 0
2702
        Material.BackProperties.Specular.Green = 0
2703
        Material.BackProperties.Specular.Blue = 0
2704
        Material.BackProperties.Specular.Alpha = 1
2705
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2706
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2707
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2708
        Material.FrontProperties.Ambient.Alpha = 1
2709
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2710
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2711
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2712
        Material.FrontProperties.Diffuse.Alpha = 1
2713
        Material.FrontProperties.Emission.Red = 0
2714
        Material.FrontProperties.Emission.Green = 0
2715
        Material.FrontProperties.Emission.Blue = 0
2716
        Material.FrontProperties.Emission.Alpha = 1
2717
        Material.FrontProperties.Specular.Red = 0
2718
        Material.FrontProperties.Specular.Green = 0
2719
        Material.FrontProperties.Specular.Blue = 0
2720
        Material.FrontProperties.Specular.Alpha = 1
2721
        Material.Texture.EnvColor.Red = 0
2722
        Material.Texture.EnvColor.Green = 0
2723
        Material.Texture.EnvColor.Blue = 0
2724
        Material.Texture.EnvColor.Alpha = 0
2725
        Material.Texture.BorderColor.Red = 0
2726
        Material.Texture.BorderColor.Green = 0
2727
        Material.Texture.BorderColor.Blue = 0
2728
        Material.Texture.BorderColor.Alpha = 0
2729
        Material.Texture.Disabled = False
2730
      end    
2731
      item
2732
        Name = 'BackgroundTex'
2733
        Tag = 0
2734
        Material.BackProperties.Ambient.Red = 0.200000002980232
2735
        Material.BackProperties.Ambient.Green = 0.200000002980232
2736
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2737
        Material.BackProperties.Ambient.Alpha = 1
2738
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2739
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2740
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2741
        Material.BackProperties.Diffuse.Alpha = 1
2742
        Material.BackProperties.Emission.Red = 0
2743
        Material.BackProperties.Emission.Green = 0
2744
        Material.BackProperties.Emission.Blue = 0
2745
        Material.BackProperties.Emission.Alpha = 1
2746
        Material.BackProperties.Specular.Red = 0
2747
        Material.BackProperties.Specular.Green = 0
2748
        Material.BackProperties.Specular.Blue = 0
2749
        Material.BackProperties.Specular.Alpha = 1
2750
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2751
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2752
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2753
        Material.FrontProperties.Ambient.Alpha = 1
2754
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2755
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2756
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2757
        Material.FrontProperties.Diffuse.Alpha = 1
2758
        Material.FrontProperties.Emission.Red = 0
2759
        Material.FrontProperties.Emission.Green = 0
2760
        Material.FrontProperties.Emission.Blue = 0
2761
        Material.FrontProperties.Emission.Alpha = 1
2762
        Material.FrontProperties.Specular.Red = 0
2763
        Material.FrontProperties.Specular.Green = 0
2764
        Material.FrontProperties.Specular.Blue = 0
2765
        Material.FrontProperties.Specular.Alpha = 1
2766
        Material.Texture.EnvColor.Red = 0
2767
        Material.Texture.EnvColor.Green = 0
2768
        Material.Texture.EnvColor.Blue = 0
2769
        Material.Texture.EnvColor.Alpha = 0
2770
        Material.Texture.BorderColor.Red = 0
2771
        Material.Texture.BorderColor.Green = 0
2772
        Material.Texture.BorderColor.Blue = 0
2773
        Material.Texture.BorderColor.Alpha = 0
2774
        Material.Texture.Disabled = False
2775
      end    
2776
      item
2777
        Name = 'LibMaterial'
2778
        Tag = 0
2779
        Material.BackProperties.Ambient.Red = 0.200000002980232
2780
        Material.BackProperties.Ambient.Green = 0.200000002980232
2781
        Material.BackProperties.Ambient.Blue = 0.200000002980232
2782
        Material.BackProperties.Ambient.Alpha = 1
2783
        Material.BackProperties.Diffuse.Red = 0.800000011920929
2784
        Material.BackProperties.Diffuse.Green = 0.800000011920929
2785
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
2786
        Material.BackProperties.Diffuse.Alpha = 1
2787
        Material.BackProperties.Emission.Red = 0
2788
        Material.BackProperties.Emission.Green = 0
2789
        Material.BackProperties.Emission.Blue = 0
2790
        Material.BackProperties.Emission.Alpha = 1
2791
        Material.BackProperties.Specular.Red = 0
2792
        Material.BackProperties.Specular.Green = 0
2793
        Material.BackProperties.Specular.Blue = 0
2794
        Material.BackProperties.Specular.Alpha = 1
2795
        Material.FrontProperties.Ambient.Red = 0.200000002980232
2796
        Material.FrontProperties.Ambient.Green = 0.200000002980232
2797
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
2798
        Material.FrontProperties.Ambient.Alpha = 1
2799
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
2800
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
2801
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2802
        Material.FrontProperties.Diffuse.Alpha = 1
2803
        Material.FrontProperties.Emission.Red = 0
2804
        Material.FrontProperties.Emission.Green = 0
2805
        Material.FrontProperties.Emission.Blue = 0
2806
        Material.FrontProperties.Emission.Alpha = 1
2807
        Material.FrontProperties.Specular.Red = 0
2808
        Material.FrontProperties.Specular.Green = 0
2809
        Material.FrontProperties.Specular.Blue = 0
2810
        Material.FrontProperties.Specular.Alpha = 1
2811
        Material.Texture.EnvColor.Red = 0
2812
        Material.Texture.EnvColor.Green = 0
2813
        Material.Texture.EnvColor.Blue = 0
2814
        Material.Texture.EnvColor.Alpha = 0
2815
        Material.Texture.BorderColor.Red = 0
2816
        Material.Texture.BorderColor.Green = 0
2817
        Material.Texture.BorderColor.Blue = 0
2818
        Material.Texture.BorderColor.Alpha = 0
2819
      end>
2820
    left = 416
2821
    top = 24
2822
  end
2823
  object GLScene1: TGLScene
2824
    left = 440
2825
    top = 88
2826
    object Camera: TGLCamera
2827
      TagFloat = 0
2828
      DepthOfView = 100
2829
      FocalLength = 50
2830
      NearPlaneBias = 0.00100000004749745
2831
      TargetObject = World
2832
      CameraStyle = csInfinitePerspective
2833
      Position.Coordinates = {
2834
        0000A0400000A0410000C8420000803F
2835
      }
2836
    end
2837
    object LightCube: TGLDummyCube
2838
      TagFloat = 0
2839
      PitchAngle = 0
2840
      Position.Coordinates = {
2841
        000096C30000A040000096430000803F
2842
      }
2843
      RollAngle = 0
2844
      TurnAngle = 0
2845
      OnProgress = LightCubeProgress
2846
      CubeSize = 1
2847
      EdgeColor.Red = 1
2848
      EdgeColor.Green = 1
2849
      EdgeColor.Blue = 1
2850
      EdgeColor.Alpha = 1
2851
      object GLLightSource1: TGLLightSource
2852
        TagFloat = 0
2853
        Ambient.Red = 0
2854
        Ambient.Green = 0
2855
        Ambient.Blue = 0
2856
        Ambient.Alpha = 1
2857
        ConstAttenuation = 1
2858
        Diffuse.Red = 1
2859
        Diffuse.Green = 1
2860
        Diffuse.Blue = 1
2861
        Diffuse.Alpha = 1
2862
        LinearAttenuation = 0
2863
        QuadraticAttenuation = 0
2864
        LightStyle = lsOmni
2865
        Specular.Red = 0
2866
        Specular.Green = 0
2867
        Specular.Blue = 0
2868
        Specular.Alpha = 1
2869
        SpotCutOff = 180
2870
        SpotExponent = 0
2871
      end
2872
    end
2873
    object LightCube2: TGLDummyCube
2874
      TagFloat = 0
2875
      PitchAngle = 0
2876
      Position.Coordinates = {
2877
        000096430000C842000096430000803F
2878
      }
2879
      RollAngle = 0
2880
      TurnAngle = 0
2881
      OnProgress = LightCube2Progress
2882
      CubeSize = 1
2883
      EdgeColor.Red = 1
2884
      EdgeColor.Green = 1
2885
      EdgeColor.Blue = 1
2886
      EdgeColor.Alpha = 1
2887
      object GLLightSource2: TGLLightSource
2888
        TagFloat = 0
2889
        Ambient.Red = 0.100000001490116
2890
        Ambient.Green = 0.100000001490116
2891
        Ambient.Blue = 0.100000001490116
2892
        Ambient.Alpha = 1
2893
        Ambient.Color = {
2894
          CDCCCC3DCDCCCC3DCDCCCC3D0000803F
2895
        }
2896
        ConstAttenuation = 1
2897
        Diffuse.Red = 0.917647004127502
2898
        Diffuse.Green = 0.917647004127502
2899
        Diffuse.Blue = 0.67843097448349
2900
        Diffuse.Alpha = 1
2901
        Diffuse.Color = {
2902
          EAEA6A3FEAEA6A3FA7AD2D3F0000803F
2903
        }
2904
        LinearAttenuation = 0
2905
        QuadraticAttenuation = 0
2906
        LightStyle = lsParallel
2907
        Specular.Red = 1
2908
        Specular.Green = 0.5
2909
        Specular.Blue = 0.5
2910
        Specular.Alpha = 1
2911
        Specular.Color = {
2912
          0000803F0000003F0000003F0000803F
2913
        }
2914
        SpotCutOff = 180
2915
        SpotExponent = 0
2916
      end
2917
    end
2918
    object World: TGLDummyCube
2919
      TagFloat = 0
2920
      PitchAngle = 0
2921
      RollAngle = 0
2922
      TurnAngle = 0
2923
      CubeSize = 1
2924
      EdgeColor.Red = 1
2925
      EdgeColor.Green = 1
2926
      EdgeColor.Blue = 1
2927
      EdgeColor.Alpha = 1
2928
      object ScreenBackGround: TGLHUDSprite
2929
        TagFloat = 0
2930
        Material.MaterialLibrary = MaterialLibrary
2931
        Material.LibMaterialName = 'BackgroundTex'
2932
        PitchAngle = 0
2933
        RollAngle = 0
2934
        TurnAngle = 0
2935
        Visible = False
2936
        Width = 256
2937
        Height = 256
2938
        Rotation = 0
2939
      end
2940
      object Objects: TGLDummyCube
2941
        TagFloat = 0
2942
        PitchAngle = 0
2943
        RollAngle = 0
2944
        TurnAngle = 0
2945
        CubeSize = 1
2946
        EdgeColor.Red = 1
2947
        EdgeColor.Green = 1
2948
        EdgeColor.Blue = 1
2949
        EdgeColor.Alpha = 1
2950
        object GLSphere1: TGLSphere
2951
          TagFloat = 0
2952
          Material.MaterialLibrary = MaterialLibrary
2953
          Material.LibMaterialName = 'ShaderMaterial'
2954
          PitchAngle = 0
2955
          RollAngle = 0
2956
          TurnAngle = 0
2957
          Visible = False
2958
          Radius = 45
2959
          Slices = 64
2960
          Stacks = 64
2961
        end
2962
        object FreeForm: TGLFreeForm
2963
          TagFloat = 0
2964
          Material.BackProperties.Ambient.Red = 0.200000002980232
2965
          Material.BackProperties.Ambient.Green = 0.200000002980232
2966
          Material.BackProperties.Ambient.Blue = 0.200000002980232
2967
          Material.BackProperties.Ambient.Alpha = 1
2968
          Material.BackProperties.Diffuse.Red = 0.800000011920929
2969
          Material.BackProperties.Diffuse.Green = 0.800000011920929
2970
          Material.BackProperties.Diffuse.Blue = 0.800000011920929
2971
          Material.BackProperties.Diffuse.Alpha = 1
2972
          Material.BackProperties.Emission.Red = 0
2973
          Material.BackProperties.Emission.Green = 0
2974
          Material.BackProperties.Emission.Blue = 0
2975
          Material.BackProperties.Emission.Alpha = 1
2976
          Material.BackProperties.Specular.Red = 0
2977
          Material.BackProperties.Specular.Green = 0
2978
          Material.BackProperties.Specular.Blue = 0
2979
          Material.BackProperties.Specular.Alpha = 1
2980
          Material.FrontProperties.Ambient.Red = 0.200000002980232
2981
          Material.FrontProperties.Ambient.Green = 0.200000002980232
2982
          Material.FrontProperties.Ambient.Blue = 0.200000002980232
2983
          Material.FrontProperties.Ambient.Alpha = 1
2984
          Material.FrontProperties.Diffuse.Red = 0.800000011920929
2985
          Material.FrontProperties.Diffuse.Green = 0.800000011920929
2986
          Material.FrontProperties.Diffuse.Blue = 0.800000011920929
2987
          Material.FrontProperties.Diffuse.Alpha = 1
2988
          Material.FrontProperties.Emission.Red = 0
2989
          Material.FrontProperties.Emission.Green = 0
2990
          Material.FrontProperties.Emission.Blue = 0
2991
          Material.FrontProperties.Emission.Alpha = 1
2992
          Material.FrontProperties.Specular.Red = 0
2993
          Material.FrontProperties.Specular.Green = 0
2994
          Material.FrontProperties.Specular.Blue = 0
2995
          Material.FrontProperties.Specular.Alpha = 1
2996
          Material.Texture.EnvColor.Red = 0
2997
          Material.Texture.EnvColor.Green = 0
2998
          Material.Texture.EnvColor.Blue = 0
2999
          Material.Texture.EnvColor.Alpha = 0
3000
          Material.Texture.BorderColor.Red = 0
3001
          Material.Texture.BorderColor.Green = 0
3002
          Material.Texture.BorderColor.Blue = 0
3003
          Material.Texture.BorderColor.Alpha = 0
3004
          PitchAngle = 0
3005
          RollAngle = 0
3006
          TurnAngle = 0
3007
          AutoCentering = [macCenterX, macCenterY, macCenterZ, macUseBarycenter]
3008
          AutoScaling.Coordinates = {
3009
            0000484200004842000048420000803F
3010
          }
3011
        end
3012
        object GLTorus1: TGLTorus
3013
          TagFloat = 0
3014
          Material.BackProperties.Ambient.Red = 0.200000002980232
3015
          Material.BackProperties.Ambient.Green = 0.200000002980232
3016
          Material.BackProperties.Ambient.Blue = 0.200000002980232
3017
          Material.BackProperties.Ambient.Alpha = 1
3018
          Material.BackProperties.Diffuse.Red = 0.800000011920929
3019
          Material.BackProperties.Diffuse.Green = 0.800000011920929
3020
          Material.BackProperties.Diffuse.Blue = 0.800000011920929
3021
          Material.BackProperties.Diffuse.Alpha = 1
3022
          Material.BackProperties.Emission.Red = 0
3023
          Material.BackProperties.Emission.Green = 0
3024
          Material.BackProperties.Emission.Blue = 0
3025
          Material.BackProperties.Emission.Alpha = 1
3026
          Material.BackProperties.Specular.Red = 0
3027
          Material.BackProperties.Specular.Green = 0
3028
          Material.BackProperties.Specular.Blue = 0
3029
          Material.BackProperties.Specular.Alpha = 1
3030
          Material.FrontProperties.Ambient.Red = 0.200000002980232
3031
          Material.FrontProperties.Ambient.Green = 0.200000002980232
3032
          Material.FrontProperties.Ambient.Blue = 0.200000002980232
3033
          Material.FrontProperties.Ambient.Alpha = 1
3034
          Material.FrontProperties.Diffuse.Red = 0.800000011920929
3035
          Material.FrontProperties.Diffuse.Green = 0.800000011920929
3036
          Material.FrontProperties.Diffuse.Blue = 0.800000011920929
3037
          Material.FrontProperties.Diffuse.Alpha = 1
3038
          Material.FrontProperties.Emission.Red = 0
3039
          Material.FrontProperties.Emission.Green = 0
3040
          Material.FrontProperties.Emission.Blue = 0
3041
          Material.FrontProperties.Emission.Alpha = 1
3042
          Material.FrontProperties.Specular.Red = 0
3043
          Material.FrontProperties.Specular.Green = 0
3044
          Material.FrontProperties.Specular.Blue = 0
3045
          Material.FrontProperties.Specular.Alpha = 1
3046
          Material.Texture.EnvColor.Red = 0
3047
          Material.Texture.EnvColor.Green = 0
3048
          Material.Texture.EnvColor.Blue = 0
3049
          Material.Texture.EnvColor.Alpha = 0
3050
          Material.Texture.BorderColor.Red = 0
3051
          Material.Texture.BorderColor.Green = 0
3052
          Material.Texture.BorderColor.Blue = 0
3053
          Material.Texture.BorderColor.Alpha = 0
3054
          PitchAngle = 0
3055
          RollAngle = 0
3056
          TurnAngle = 0
3057
          Visible = False
3058
          MajorRadius = 40
3059
          MinorRadius = 15
3060
          Rings = 64
3061
          Sides = 64
3062
          StartAngle = 0
3063
          StopAngle = 360
3064
          Parts = [toSides, toStartDisk, toStopDisk]
3065
        end
3066
      end
3067
    end
3068
  end
3069
  object Cadencer: TGLCadencer
3070
    Scene = GLScene1
3071
    Enabled = False
3072
    MaxDeltaTime = 0
3073
    MinDeltaTime = 0
3074
    FixedDeltaTime = 0
3075
    OnProgress = CadencerProgress
3076
    left = 384
3077
    top = 88
3078
  end
3079
  object ColorDialog: TColorDialog
3080
    Color = clBlack
3081
    CustomColors.Strings = (
3082
      'ColorA=000000'
3083
      'ColorB=000080'
3084
      'ColorC=008000'
3085
      'ColorD=008080'
3086
      'ColorE=800000'
3087
      'ColorF=800080'
3088
      'ColorG=808000'
3089
      'ColorH=808080'
3090
      'ColorI=C0C0C0'
3091
      'ColorJ=0000FF'
3092
      'ColorK=00FF00'
3093
      'ColorL=00FFFF'
3094
      'ColorM=FF0000'
3095
      'ColorN=FF00FF'
3096
      'ColorO=FFFF00'
3097
      'ColorP=FFFFFF'
3098
      'ColorQ=C0DCC0'
3099
      'ColorR=F0CAA6'
3100
      'ColorS=F0FBFF'
3101
      'ColorT=A4A0A0'
3102
    )
3103
    left = 381
3104
    top = 153
3105
  end
3106
  object OpenPictureDialog: TOpenPictureDialog
3107
    left = 472
3108
    top = 160
3109
  end
3110
  object GLSimpleNavigation1: TGLSimpleNavigation
3111
    Form = Owner
3112
    GLSceneViewer = Viewer
3113
    FormCaption = 'ShaderLab - %FPS'
3114
    KeyCombinations = <    
3115
      item
3116
        ShiftState = [ssLeft, ssRight]
3117
        Action = snaZoom
3118
      end    
3119
      item
3120
        ShiftState = [ssLeft]
3121
        Action = snaMoveAroundTarget
3122
      end    
3123
      item
3124
        ShiftState = [ssRight]
3125
        Action = snaMoveAroundTarget
3126
      end>
3127
    left = 361
3128
    top = 207
3129
  end
3130
end
3131