ArenaZ

1
object MainForm: TMainForm
2
  Left = 444
3
  Height = 612
4
  Top = 185
5
  Width = 832
6
  ActiveControl = GLSViewer
7
  Caption = 'Scene Master'
8
  ClientHeight = 612
9
  ClientWidth = 832
10
  Menu = MainMenu
11
  OnCreate = FormCreate
12
  OnMouseWheel = FormMouseWheel
13
  OnShow = FormShow
14
  LCLVersion = '1.8.0.6'
15
  Visible = False
16
  object Panel1: TPanel
17
    Left = 0
18
    Height = 83
19
    Top = 479
20
    Width = 832
21
    Align = alBottom
22
    TabOrder = 0
23
  end
24
  object Panel2: TPanel
25
    Left = 662
26
    Height = 453
27
    Top = 26
28
    Width = 170
29
    Align = alRight
30
    TabOrder = 1
31
  end
32
  object ToolBar1: TToolBar
33
    Left = 0
34
    Height = 26
35
    Top = 0
36
    Width = 832
37
    Caption = 'ToolBar1'
38
    Color = clGray
39
    ParentColor = False
40
    TabOrder = 2
41
  end
42
  object GLSViewer: TGLSceneViewer
43
    Left = 0
44
    Height = 453
45
    Top = 26
46
    Width = 662
47
    Camera = Camera1
48
    AfterRender = GLSViewerAfterRender
49
    Buffer.AmbientColor.Red = 0.200000002980232
50
    Buffer.AmbientColor.Green = 0.200000002980232
51
    Buffer.AmbientColor.Blue = 0.200000002980232
52
    Buffer.AmbientColor.Alpha = 1
53
    FieldOfView = 97.1108551025391
54
    Align = alClient
55
    OnMouseDown = GLSViewerMouseDown
56
    OnMouseMove = GLSViewerMouseMove
57
    OnMouseUp = GLSViewerMouseUp
58
    OnMouseWheel = FormMouseWheel
59
    TabOrder = 3
60
  end
61
  object MainStatusBar: TStatusBar
62
    Left = 0
63
    Height = 21
64
    Top = 562
65
    Width = 832
66
    Panels = <    
67
      item
68
        Alignment = taCenter
69
        Width = 170
70
      end    
71
      item
72
        Alignment = taCenter
73
        Width = 170
74
      end    
75
      item
76
        Alignment = taCenter
77
        Width = 170
78
      end    
79
      item
80
        Alignment = taCenter
81
        Width = 170
82
      end    
83
      item
84
        Alignment = taCenter
85
        Width = 50
86
      end>
87
    SimplePanel = False
88
  end
89
  object MainMenu: TMainMenu
90
    left = 176
91
    top = 552
92
    object MenuItem1: TMenuItem
93
      Caption = '&Fichier'
94
      object MenuItem2: TMenuItem
95
        Action = actOpenModel
96
      end
97
      object MenuItem3: TMenuItem
98
        Caption = '-'
99
      end
100
      object MenuItem4: TMenuItem
101
        Caption = 'Quitter'
102
      end
103
    end
104
    object MenuItem6: TMenuItem
105
      Caption = 'Affichage'
106
      object MenuItem10: TMenuItem
107
        Action = acPointShading
108
        AutoCheck = True
109
      end
110
      object MenuItem11: TMenuItem
111
        Action = acWireFrameShading
112
        AutoCheck = True
113
      end
114
      object MenuItem12: TMenuItem
115
        Action = acFlatShading
116
        AutoCheck = True
117
      end
118
      object MenuItem13: TMenuItem
119
        Action = acSmoothShading
120
        AutoCheck = True
121
      end
122
      object MenuItem17: TMenuItem
123
        Caption = '-'
124
      end
125
      object MenuItem23: TMenuItem
126
        Action = actInvertNormals
127
        AutoCheck = True
128
      end
129
      object MenuItem18: TMenuItem
130
        Action = acTextureShading
131
        AutoCheck = True
132
      end
133
      object MenuItem19: TMenuItem
134
        Action = acSceneLighting
135
        AutoCheck = True
136
      end
137
      object MenuItem14: TMenuItem
138
        Caption = '-'
139
      end
140
      object MenuItem15: TMenuItem
141
        Caption = 'Shader'
142
        object MenuItem16: TMenuItem
143
          Action = acShaderNone
144
          AutoCheck = True
145
          GroupIndex = 2
146
        end
147
        object MenuItem20: TMenuItem
148
          Caption = '-'
149
        end
150
        object MenuItem21: TMenuItem
151
          Action = acShaderHiddenLines
152
          AutoCheck = True
153
          GroupIndex = 2
154
        end
155
        object MenuItem22: TMenuItem
156
          Action = acShaderOutLines
157
          AutoCheck = True
158
          GroupIndex = 2
159
        end
160
      end
161
    end
162
    object MenuItem5: TMenuItem
163
      Caption = 'Outils'
164
    end
165
    object MenuItem7: TMenuItem
166
      Caption = 'Options'
167
    end
168
    object MenuItem8: TMenuItem
169
      Caption = 'Aide'
170
      object MenuItem9: TMenuItem
171
        Caption = 'A Propos'
172
      end
173
    end
174
  end
175
  object ImageList: TImageList
176
    left = 112
177
    top = 552
178
  end
179
  object GLScene: TGLScene
180
    left = 456
181
    top = 552
182
    object DCRoot: TGLDummyCube
183
      TagFloat = 0
184
      ObjectsSorting = osRenderFarthestFirst
185
      PitchAngle = 0
186
      RollAngle = 0
187
      TurnAngle = 0
188
      CubeSize = 1
189
      EdgeColor.Red = 1
190
      EdgeColor.Green = 1
191
      EdgeColor.Blue = 1
192
      EdgeColor.Alpha = 1
193
      object DCCamera: TGLDummyCube
194
        TagFloat = 0
195
        PitchAngle = 0
196
        RollAngle = 0
197
        TurnAngle = 0
198
        CubeSize = 1
199
        EdgeColor.Red = 1
200
        EdgeColor.Green = 1
201
        EdgeColor.Blue = 1
202
        EdgeColor.Alpha = 1
203
        object Camera1: TGLCamera
204
          TagFloat = 0
205
          DepthOfView = 1000
206
          FocalLength = 200
207
          NearPlaneBias = 0.00100000004749745
208
          TargetObject = DCTarget
209
          Position.Coordinates = {
210
            00004842000048420000F0410000803F
211
          }
212
        end
213
      end
214
      object DCTarget: TGLDummyCube
215
        TagFloat = 0
216
        PitchAngle = 0
217
        RollAngle = 0
218
        TurnAngle = 0
219
        CubeSize = 1
220
        EdgeColor.Red = 1
221
        EdgeColor.Green = 1
222
        EdgeColor.Blue = 1
223
        EdgeColor.Alpha = 1
224
      end
225
      object DCGrids: TGLDummyCube
226
        TagFloat = 0
227
        PitchAngle = 0
228
        RollAngle = 0
229
        TurnAngle = 0
230
        CubeSize = 1
231
        EdgeColor.Red = 1
232
        EdgeColor.Green = 1
233
        EdgeColor.Blue = 1
234
        EdgeColor.Alpha = 1
235
        object DCGridXY: TGLDummyCube
236
          TagFloat = 0
237
          PitchAngle = 0
238
          Position.Coordinates = {
239
            0000000000000000000080C00000803F
240
          }
241
          RollAngle = 0
242
          TurnAngle = 0
243
          CubeSize = 1
244
          EdgeColor.Red = 1
245
          EdgeColor.Green = 1
246
          EdgeColor.Blue = 1
247
          EdgeColor.Alpha = 1
248
          object XYGrid: TGLXYZGrid
249
            TagFloat = 0
250
            PitchAngle = 0
251
            RollAngle = 0
252
            TurnAngle = 0
253
            Pickable = False
254
            AntiAliased = True
255
            LineColor.Red = 1
256
            LineColor.Green = 0
257
            LineColor.Blue = 0
258
            LineColor.Alpha = 1
259
            LineColor.Color = {
260
              0000803F00000000000000000000803F
261
            }
262
            XSamplingScale.Min = -4
263
            XSamplingScale.Max = 4
264
            XSamplingScale.Origin = 0
265
            XSamplingScale.Step = 1
266
            YSamplingScale.Min = -4
267
            YSamplingScale.Max = 4
268
            YSamplingScale.Origin = 0
269
            YSamplingScale.Step = 1
270
            ZSamplingScale.Min = 0
271
            ZSamplingScale.Max = 0
272
            ZSamplingScale.Origin = 0
273
            ZSamplingScale.Step = 0.100000001490116
274
          end
275
        end
276
        object DCGridXZ: TGLDummyCube
277
          TagFloat = 0
278
          PitchAngle = 0
279
          Position.Coordinates = {
280
            00000000000080C0000000000000803F
281
          }
282
          RollAngle = 0
283
          TurnAngle = 0
284
          CubeSize = 1
285
          EdgeColor.Red = 1
286
          EdgeColor.Green = 1
287
          EdgeColor.Blue = 1
288
          EdgeColor.Alpha = 1
289
          object XZGrid: TGLXYZGrid
290
            TagFloat = 0
291
            PitchAngle = 0
292
            RollAngle = 0
293
            TurnAngle = 0
294
            Pickable = False
295
            AntiAliased = True
296
            LineColor.Red = 0.19607800245285
297
            LineColor.Green = 0.600000023841858
298
            LineColor.Blue = 0.800000011920929
299
            LineColor.Alpha = 1
300
            LineColor.Color = {
301
              ACC8483E9A99193FCDCC4C3F0000803F
302
            }
303
            XSamplingScale.Min = -4
304
            XSamplingScale.Max = 4
305
            XSamplingScale.Origin = 0
306
            XSamplingScale.Step = 1
307
            YSamplingScale.Min = 0
308
            YSamplingScale.Max = 0
309
            YSamplingScale.Origin = 0
310
            YSamplingScale.Step = 1
311
            ZSamplingScale.Min = -4
312
            ZSamplingScale.Max = 4
313
            ZSamplingScale.Origin = 0
314
            ZSamplingScale.Step = 1
315
            Parts = [gpX, gpZ]
316
          end
317
        end
318
        object DCGridYZ: TGLDummyCube
319
          TagFloat = 0
320
          PitchAngle = 0
321
          Position.Coordinates = {
322
            000080C000000000000000000000803F
323
          }
324
          RollAngle = 0
325
          TurnAngle = 0
326
          CubeSize = 1
327
          EdgeColor.Red = 1
328
          EdgeColor.Green = 1
329
          EdgeColor.Blue = 1
330
          EdgeColor.Alpha = 1
331
          object YZGrid: TGLXYZGrid
332
            TagFloat = 0
333
            PitchAngle = 0
334
            RollAngle = 0
335
            TurnAngle = 0
336
            Pickable = False
337
            AntiAliased = True
338
            LineColor.Red = 0.19607800245285
339
            LineColor.Green = 0.800000011920929
340
            LineColor.Blue = 0.19607800245285
341
            LineColor.Alpha = 1
342
            LineColor.Color = {
343
              ACC8483ECDCC4C3FACC8483E0000803F
344
            }
345
            XSamplingScale.Min = 0
346
            XSamplingScale.Max = 0
347
            XSamplingScale.Origin = 0
348
            XSamplingScale.Step = 1
349
            YSamplingScale.Min = -4
350
            YSamplingScale.Max = 4
351
            YSamplingScale.Origin = 0
352
            YSamplingScale.Step = 1
353
            ZSamplingScale.Min = -4
354
            ZSamplingScale.Max = 4
355
            ZSamplingScale.Origin = 0
356
            ZSamplingScale.Step = 1
357
            Parts = [gpY, gpZ]
358
          end
359
        end
360
      end
361
      object DCWorld: TGLDummyCube
362
        TagFloat = 0
363
        PitchAngle = 0
364
        RollAngle = 0
365
        TurnAngle = 0
366
        CubeSize = 1
367
        EdgeColor.Red = 1
368
        EdgeColor.Green = 1
369
        EdgeColor.Blue = 1
370
        EdgeColor.Alpha = 1
371
        object DCWorldAxis: TGLDummyCube
372
          TagFloat = 0
373
          PitchAngle = 0
374
          RollAngle = 0
375
          ShowAxes = True
376
          TurnAngle = 0
377
          CubeSize = 1
378
          EdgeColor.Red = 1
379
          EdgeColor.Green = 1
380
          EdgeColor.Blue = 1
381
          EdgeColor.Alpha = 1
382
        end
383
        object DCWorldGrid: TGLDummyCube
384
          TagFloat = 0
385
          PitchAngle = 0
386
          RollAngle = 0
387
          TurnAngle = 0
388
          CubeSize = 1
389
          EdgeColor.Red = 1
390
          EdgeColor.Green = 1
391
          EdgeColor.Blue = 1
392
          EdgeColor.Alpha = 1
393
          object WorldGrid: TGLXYZGrid
394
            TagFloat = 0
395
            PitchAngle = 0
396
            Position.Coordinates = {
397
              000000000AD723BC000000000000803F
398
            }
399
            RollAngle = 0
400
            TurnAngle = 0
401
            AntiAliased = True
402
            LineColor.Red = 1
403
            LineColor.Green = 1
404
            LineColor.Blue = 1
405
            LineColor.Alpha = 0.300000011920929
406
            LineColor.Color = {
407
              0000803F0000803F0000803F9A99993E
408
            }
409
            LineWidth = 0.00999999977648258
410
            XSamplingScale.Min = -10
411
            XSamplingScale.Max = 10
412
            XSamplingScale.Origin = 0
413
            XSamplingScale.Step = 1
414
            YSamplingScale.Min = 0
415
            YSamplingScale.Max = 0
416
            YSamplingScale.Origin = 0
417
            YSamplingScale.Step = 1
418
            ZSamplingScale.Min = -10
419
            ZSamplingScale.Max = 10
420
            ZSamplingScale.Origin = 0
421
            ZSamplingScale.Step = 1
422
            Parts = [gpX, gpZ]
423
          end
424
        end
425
        object ffObject: TGLFreeForm
426
          TagFloat = 0
427
          Material.BackProperties.Ambient.Red = 0.200000002980232
428
          Material.BackProperties.Ambient.Green = 0.200000002980232
429
          Material.BackProperties.Ambient.Blue = 0.200000002980232
430
          Material.BackProperties.Ambient.Alpha = 1
431
          Material.BackProperties.Diffuse.Red = 0.800000011920929
432
          Material.BackProperties.Diffuse.Green = 0.800000011920929
433
          Material.BackProperties.Diffuse.Blue = 0.800000011920929
434
          Material.BackProperties.Diffuse.Alpha = 1
435
          Material.BackProperties.Emission.Red = 0
436
          Material.BackProperties.Emission.Green = 0
437
          Material.BackProperties.Emission.Blue = 0
438
          Material.BackProperties.Emission.Alpha = 1
439
          Material.BackProperties.Specular.Red = 0
440
          Material.BackProperties.Specular.Green = 0
441
          Material.BackProperties.Specular.Blue = 0
442
          Material.BackProperties.Specular.Alpha = 1
443
          Material.FrontProperties.Ambient.Red = 0.200000002980232
444
          Material.FrontProperties.Ambient.Green = 0.200000002980232
445
          Material.FrontProperties.Ambient.Blue = 0.200000002980232
446
          Material.FrontProperties.Ambient.Alpha = 1
447
          Material.FrontProperties.Diffuse.Red = 0.800000011920929
448
          Material.FrontProperties.Diffuse.Green = 0.800000011920929
449
          Material.FrontProperties.Diffuse.Blue = 0.800000011920929
450
          Material.FrontProperties.Diffuse.Alpha = 1
451
          Material.FrontProperties.Emission.Red = 0
452
          Material.FrontProperties.Emission.Green = 0
453
          Material.FrontProperties.Emission.Blue = 0
454
          Material.FrontProperties.Emission.Alpha = 1
455
          Material.FrontProperties.Specular.Red = 0
456
          Material.FrontProperties.Specular.Green = 0
457
          Material.FrontProperties.Specular.Blue = 0
458
          Material.FrontProperties.Specular.Alpha = 1
459
          Material.Texture.ImageClassName = 'TGLBlankImage'
460
          Material.Texture.Image.Width = 64
461
          Material.Texture.Image.Height = 64
462
          Material.Texture.Image.ColorFormat = 6408
463
          Material.Texture.MagFilter = maNearest
464
          Material.Texture.MinFilter = miNearest
465
          Material.Texture.Compression = tcNone
466
          Material.Texture.EnvColor.Red = 0
467
          Material.Texture.EnvColor.Green = 0
468
          Material.Texture.EnvColor.Blue = 0
469
          Material.Texture.EnvColor.Alpha = 0
470
          Material.Texture.BorderColor.Red = 0
471
          Material.Texture.BorderColor.Green = 0
472
          Material.Texture.BorderColor.Blue = 0
473
          Material.Texture.BorderColor.Alpha = 0
474
          Direction.Coordinates = {
475
            0000000000000000000080BF00000000
476
          }
477
          PitchAngle = 0
478
          RollAngle = 0
479
          ShowAxes = True
480
          TurnAngle = 0
481
          AutoCentering = [macUseBarycenter]
482
          LightmapLibrary = LightMapLib
483
          object BBox: TGLCube
484
            TagFloat = 0
485
            Material.BackProperties.Ambient.Red = 0.200000002980232
486
            Material.BackProperties.Ambient.Green = 0.200000002980232
487
            Material.BackProperties.Ambient.Blue = 0.200000002980232
488
            Material.BackProperties.Ambient.Alpha = 1
489
            Material.BackProperties.Diffuse.Red = 0.800000011920929
490
            Material.BackProperties.Diffuse.Green = 0.800000011920929
491
            Material.BackProperties.Diffuse.Blue = 0.800000011920929
492
            Material.BackProperties.Diffuse.Alpha = 1
493
            Material.BackProperties.Emission.Red = 0
494
            Material.BackProperties.Emission.Green = 0
495
            Material.BackProperties.Emission.Blue = 0
496
            Material.BackProperties.Emission.Alpha = 1
497
            Material.BackProperties.Specular.Red = 0
498
            Material.BackProperties.Specular.Green = 0
499
            Material.BackProperties.Specular.Blue = 0
500
            Material.BackProperties.Specular.Alpha = 1
501
            Material.FrontProperties.Ambient.Red = 1
502
            Material.FrontProperties.Ambient.Green = 1
503
            Material.FrontProperties.Ambient.Blue = 1
504
            Material.FrontProperties.Ambient.Alpha = 1
505
            Material.FrontProperties.Ambient.Color = {
506
              0000803F0000803F0000803F0000803F
507
            }
508
            Material.FrontProperties.Diffuse.Red = 1
509
            Material.FrontProperties.Diffuse.Green = 1
510
            Material.FrontProperties.Diffuse.Blue = 1
511
            Material.FrontProperties.Diffuse.Alpha = 1
512
            Material.FrontProperties.Diffuse.Color = {
513
              0000803F0000803F0000803F0000803F
514
            }
515
            Material.FrontProperties.Emission.Red = 1
516
            Material.FrontProperties.Emission.Green = 1
517
            Material.FrontProperties.Emission.Blue = 1
518
            Material.FrontProperties.Emission.Alpha = 1
519
            Material.FrontProperties.Emission.Color = {
520
              0000803F0000803F0000803F0000803F
521
            }
522
            Material.FrontProperties.Specular.Red = 1
523
            Material.FrontProperties.Specular.Green = 1
524
            Material.FrontProperties.Specular.Blue = 1
525
            Material.FrontProperties.Specular.Alpha = 1
526
            Material.FrontProperties.Specular.Color = {
527
              0000803F0000803F0000803F0000803F
528
            }
529
            Material.Texture.ImageClassName = 'TGLBlankImage'
530
            Material.Texture.Image.Width = 64
531
            Material.Texture.Image.Height = 64
532
            Material.Texture.Image.ColorFormat = 6408
533
            Material.Texture.MagFilter = maNearest
534
            Material.Texture.MinFilter = miNearest
535
            Material.Texture.Compression = tcNone
536
            Material.Texture.EnvColor.Red = 0
537
            Material.Texture.EnvColor.Green = 0
538
            Material.Texture.EnvColor.Blue = 0
539
            Material.Texture.EnvColor.Alpha = 0
540
            Material.Texture.BorderColor.Red = 0
541
            Material.Texture.BorderColor.Green = 0
542
            Material.Texture.BorderColor.Blue = 0
543
            Material.Texture.BorderColor.Alpha = 0
544
            Material.PolygonMode = pmLines
545
            PitchAngle = 0
546
            RollAngle = 0
547
            Scale.Coordinates = {
548
              00000040000000400000004000000000
549
            }
550
            TurnAngle = 0
551
            Pickable = False
552
            object DCAxis: TGLDummyCube
553
              TagFloat = 0
554
              PitchAngle = 0
555
              RollAngle = 0
556
              ShowAxes = True
557
              TurnAngle = 0
558
              CubeSize = 1
559
              EdgeColor.Red = 1
560
              EdgeColor.Green = 1
561
              EdgeColor.Blue = 1
562
              EdgeColor.Alpha = 1
563
            end
564
          end
565
        end
566
      end
567
      object DCLights: TGLDummyCube
568
        TagFloat = 0
569
        PitchAngle = 0
570
        RollAngle = 0
571
        TurnAngle = 0
572
        CubeSize = 1
573
        EdgeColor.Red = 1
574
        EdgeColor.Green = 1
575
        EdgeColor.Blue = 1
576
        EdgeColor.Alpha = 1
577
        object DCStaticLights: TGLDummyCube
578
          TagFloat = 0
579
          PitchAngle = 0
580
          RollAngle = 0
581
          TurnAngle = 0
582
          CubeSize = 1
583
          EdgeColor.Red = 1
584
          EdgeColor.Green = 1
585
          EdgeColor.Blue = 1
586
          EdgeColor.Alpha = 1
587
          object FrontAmbientLight: TGLLightSource
588
            TagFloat = 0
589
            Ambient.Red = 0
590
            Ambient.Green = 0
591
            Ambient.Blue = 0
592
            Ambient.Alpha = 1
593
            ConstAttenuation = 0.00999999977648258
594
            Diffuse.Red = 0.600000023841858
595
            Diffuse.Green = 0.600000023841858
596
            Diffuse.Blue = 0.600000023841858
597
            Diffuse.Alpha = 1
598
            Diffuse.Color = {
599
              9A99193F9A99193F9A99193F0000803F
600
            }
601
            LinearAttenuation = 0
602
            QuadraticAttenuation = 0
603
            Position.Coordinates = {
604
              000048420000C8420000C8C20000803F
605
            }
606
            LightStyle = lsOmni
607
            Shining = False
608
            Specular.Red = 0
609
            Specular.Green = 0
610
            Specular.Blue = 0
611
            Specular.Alpha = 1
612
            SpotCutOff = 180
613
            SpotExponent = 0
614
          end
615
          object KeyAmbientLigth: TGLLightSource
616
            TagFloat = 0
617
            Ambient.Red = 0
618
            Ambient.Green = 0
619
            Ambient.Blue = 0
620
            Ambient.Alpha = 1
621
            ConstAttenuation = 0.00999999977648258
622
            Diffuse.Red = 0.200000002980232
623
            Diffuse.Green = 0.200000002980232
624
            Diffuse.Blue = 0.200000002980232
625
            Diffuse.Alpha = 1
626
            Diffuse.Color = {
627
              CDCC4C3ECDCC4C3ECDCC4C3E0000803F
628
            }
629
            LinearAttenuation = 0.00999999977648258
630
            QuadraticAttenuation = 0
631
            Position.Coordinates = {
632
              0000C8C200003442000016430000803F
633
            }
634
            LightStyle = lsParallel
635
            Shining = False
636
            Specular.Red = 0
637
            Specular.Green = 0
638
            Specular.Blue = 0
639
            Specular.Alpha = 1
640
            SpotCutOff = 180
641
            SpotExponent = 0
642
          end
643
          object backAmbientLight: TGLLightSource
644
            TagFloat = 0
645
            Ambient.Red = 0
646
            Ambient.Green = 0
647
            Ambient.Blue = 0
648
            Ambient.Alpha = 1
649
            ConstAttenuation = 0.00999999977648258
650
            Diffuse.Red = 0.100000001490116
651
            Diffuse.Green = 0.100000001490116
652
            Diffuse.Blue = 0.100000001490116
653
            Diffuse.Alpha = 1
654
            Diffuse.Color = {
655
              CDCCCC3DCDCCCC3DCDCCCC3D0000803F
656
            }
657
            LinearAttenuation = 0
658
            QuadraticAttenuation = 0
659
            Position.Coordinates = {
660
              000070C1000048420000C8420000803F
661
            }
662
            Shining = False
663
            Specular.Red = 0
664
            Specular.Green = 0
665
            Specular.Blue = 0
666
            Specular.Alpha = 1
667
            SpotCutOff = 180
668
            SpotExponent = 0
669
          end
670
        end
671
        object DCDynamicLights: TGLDummyCube
672
          TagFloat = 0
673
          PitchAngle = 0
674
          RollAngle = 0
675
          TurnAngle = 0
676
          CubeSize = 1
677
          EdgeColor.Red = 1
678
          EdgeColor.Green = 1
679
          EdgeColor.Blue = 1
680
          EdgeColor.Alpha = 1
681
          object MainLightSource1: TGLLightSource
682
            TagFloat = 0
683
            Ambient.Red = 0
684
            Ambient.Green = 0
685
            Ambient.Blue = 0
686
            Ambient.Alpha = 1
687
            ConstAttenuation = 1
688
            Diffuse.Red = 0.992156863212585
689
            Diffuse.Green = 0.996078431606293
690
            Diffuse.Blue = 0.945098042488098
691
            Diffuse.Alpha = 1
692
            Diffuse.Color = {
693
              FEFD7D3FFFFE7E3FF2F1713F0000803F
694
            }
695
            LinearAttenuation = 0
696
            QuadraticAttenuation = 0
697
            Position.Coordinates = {
698
              0000484200009642000048420000803F
699
            }
700
            LightStyle = lsOmni
701
            Specular.Red = 0
702
            Specular.Green = 0
703
            Specular.Blue = 0
704
            Specular.Alpha = 1
705
            SpotCutOff = 180
706
            SpotExponent = 0
707
          end
708
        end
709
      end
710
    end
711
  end
712
  object LightMapLib: TGLMaterialLibrary
713
    left = 576
714
    top = 552
715
  end
716
  object TextureMatLib: TGLMaterialLibrary
717
    left = 656
718
    top = 552
719
  end
720
  object Cadencer: TGLCadencer
721
    Scene = GLScene
722
    MaxDeltaTime = 0
723
    MinDeltaTime = 0
724
    FixedDeltaTime = 0
725
    OnProgress = CadencerProgress
726
    left = 512
727
    top = 552
728
  end
729
  object ASyncTimer: TGLAsyncTimer
730
    OnTimer = MainTimerTimer
731
    ThreadPriority = tpNormal
732
    left = 736
733
    top = 552
734
  end
735
  object MainTimer: TTimer
736
    Enabled = False
737
    OnTimer = MainTimerTimer
738
    left = 392
739
    top = 552
740
  end
741
  object OpenDialog: TOpenDialog
742
    left = 248
743
    top = 552
744
  end
745
  object MainActionList: TActionList
746
    left = 32
747
    top = 552
748
    object acPointShading: TAction
749
      AutoCheck = True
750
      Caption = 'Point'
751
      GroupIndex = 1
752
      OnExecute = acPointShadingExecute
753
    end
754
    object acWireFrameShading: TAction
755
      AutoCheck = True
756
      Caption = 'Fil de fer'
757
      GroupIndex = 1
758
      OnExecute = acWireFrameShadingExecute
759
    end
760
    object acFlatShading: TAction
761
      AutoCheck = True
762
      Caption = 'Plat'
763
      GroupIndex = 1
764
      OnExecute = acFlatShadingExecute
765
    end
766
    object acSmoothShading: TAction
767
      AutoCheck = True
768
      Caption = 'Lisse'
769
      GroupIndex = 1
770
      OnExecute = acSmoothShadingExecute
771
    end
772
    object acTextureShading: TAction
773
      AutoCheck = True
774
      Caption = 'Texturer'
775
      OnExecute = acTextureShadingExecute
776
    end
777
    object acSceneLighting: TAction
778
      AutoCheck = True
779
      Caption = 'Eclairer'
780
      Checked = True
781
      OnExecute = acSceneLightingExecute
782
    end
783
    object actOpenModel: TAction
784
      Caption = 'Ouvrir un model'
785
      OnExecute = actOpenModelExecute
786
    end
787
    object acShaderHiddenLines: TAction
788
      AutoCheck = True
789
      Caption = 'Hidden Lines'
790
      GroupIndex = 2
791
      OnExecute = acShaderHiddenLinesExecute
792
    end
793
    object acShaderOutLines: TAction
794
      AutoCheck = True
795
      Caption = 'Outline'
796
      GroupIndex = 2
797
      OnExecute = acShaderOutLinesExecute
798
    end
799
    object acShaderNone: TAction
800
      AutoCheck = True
801
      Caption = 'None'
802
      DisableIfNoHandler = False
803
      GroupIndex = 2
804
      OnExecute = acShaderNoneExecute
805
    end
806
    object actInvertNormals: TAction
807
      AutoCheck = True
808
      Caption = 'Inverser les normales'
809
      OnExecute = actInvertNormalsExecute
810
    end
811
  end
812
  object SaveDialog: TSaveDialog
813
    left = 320
814
    top = 552
815
  end
816
  object HiddenLineShader: TGLHiddenLineShader
817
    FrontLine.Width = 1
818
    FrontLine.Color.Red = 0.899999976158142
819
    FrontLine.Color.Green = 0.899999976158142
820
    FrontLine.Color.Blue = 0.899999976158142
821
    FrontLine.Color.Alpha = 1
822
    FrontLine.Color.Color = {
823
      6666663F6666663F6666663F0000803F
824
    }
825
    BackLine.Width = 1
826
    BackLine.Color.Red = 0.200000002980232
827
    BackLine.Color.Green = 0.200000002980232
828
    BackLine.Color.Blue = 0.200000002980232
829
    BackLine.Color.Alpha = 1
830
    LineSmooth = True
831
    Solid = True
832
    BackgroundColor.Red = 0
833
    BackgroundColor.Green = 0
834
    BackgroundColor.Blue = 0
835
    BackgroundColor.Alpha = 1
836
    BackgroundColor.Color = {
837
      0000000000000000000000000000803F
838
    }
839
    left = 720
840
    top = 48
841
  end
842
  object OutlineShader: TGLOutlineShader
843
    LineColor.Red = 0.939999997615814
844
    LineColor.Green = 0.810000002384186
845
    LineColor.Blue = 0.990000009536743
846
    LineColor.Alpha = 1
847
    LineColor.Color = {
848
      D7A3703F295C4F3FA4707D3F0000803F
849
    }
850
    LineSmooth = True
851
    LineWidth = 1
852
    left = 720
853
    top = 120
854
  end
855
end
856