/
glscene
/
ArenaZ
GigaCode
beta
ОбзорЦентр заботыВойти

ArenaZ

Форк
0
Ветки: 1Коммиты: 9Теги: 0
ArenaZ
/Viewer4Win
/
Unit1.lfm 
518 строк · 17.0 Кб
1
object Form1: TForm1
2
  Left = 317
3
  Height = 284
4
  Top = 129
5
  Width = 374
6
  ClientHeight = 284
7
  ClientWidth = 374
8
  LCLVersion = '1.6.4.0'
9
  object Shape1: TShape
10
    Left = 272
11
    Height = 73
12
    Top = 96
13
    Width = 73
14
    Pen.Color = 33023
15
    Pen.Width = 3
16
  end
17
  object pos_r: TImage
18
    Cursor = crSizeWE
19
    Left = 400
20
    Height = 25
21
    Top = 48
22
    Width = 17
23
  end
24
  object pos_t: TImage
25
    Cursor = crSizeNS
26
    Left = 424
27
    Height = 17
28
    Top = 24
29
    Width = 25
30
  end
31
  object pos_c: TImage
32
    Cursor = crSizeAll
33
    Left = 400
34
    Height = 17
35
    Top = 24
36
    Width = 17
37
  end
38
  object Panel1: TPanel
39
    Left = 189
40
    Height = 284
41
    Top = 0
42
    Width = 185
43
    Align = alRight
44
    BevelInner = bvLowered
45
    BevelOuter = bvNone
46
    ClientHeight = 284
47
    ClientWidth = 185
48
    Color = clSilver
49
    ParentColor = False
50
    TabOrder = 0
51
    object vp2: TGLSceneViewer
52
      Left = 1
53
      Height = 134
54
      Top = 1
55
      Width = 183
56
      Camera = cam2
57
      BeforeRender = vp2BeforeRender
58
      AfterRender = vp2AfterRender
59
      Buffer.AmbientColor.Red = 0.200000002980232
60
      Buffer.AmbientColor.Green = 0.200000002980232
61
      Buffer.AmbientColor.Blue = 0.200000002980232
62
      Buffer.AmbientColor.Alpha = 1
63
      Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
64
      Buffer.AntiAliasing = aa6x
65
      FieldOfView = 163.022109985352
66
      Align = alTop
67
      TabOrder = 0
68
    end
69
    object vp: TGLSceneViewer
70
      Left = 1
71
      Height = 148
72
      Top = 135
73
      Width = 183
74
      Camera = cam
75
      Buffer.AmbientColor.Red = 0.200000002980232
76
      Buffer.AmbientColor.Green = 0.200000002980232
77
      Buffer.AmbientColor.Blue = 0.200000002980232
78
      Buffer.AmbientColor.Alpha = 1
79
      Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
80
      Buffer.AntiAliasing = aa6x
81
      FieldOfView = 111.908126831055
82
      Align = alClient
83
      OnMouseDown = vpMouseDown
84
      OnMouseMove = vpMouseMove
85
      TabOrder = 1
86
    end
87
  end
88
  object Panel2: TPanel
89
    Left = 0
90
    Height = 284
91
    Top = 0
92
    Width = 189
93
    Align = alClient
94
    BevelOuter = bvNone
95
    ClientHeight = 284
96
    ClientWidth = 189
97
    TabOrder = 1
98
    object vp1: TGLSceneViewer
99
      Left = 0
100
      Height = 135
101
      Top = 0
102
      Width = 189
103
      Camera = cam1
104
      BeforeRender = vp1BeforeRender
105
      AfterRender = vp1AfterRender
106
      Buffer.AmbientColor.Red = 0.200000002980232
107
      Buffer.AmbientColor.Green = 0.200000002980232
108
      Buffer.AmbientColor.Blue = 0.200000002980232
109
      Buffer.AmbientColor.Alpha = 1
110
      Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
111
      Buffer.AntiAliasing = aa6x
112
      FieldOfView = 163.146057128906
113
      Align = alTop
114
      TabOrder = 0
115
    end
116
    object vp3: TGLSceneViewer
117
      Left = 0
118
      Height = 149
119
      Top = 135
120
      Width = 189
121
      Camera = cam3
122
      BeforeRender = vp3BeforeRender
123
      AfterRender = vp3AfterRender
124
      Buffer.AmbientColor.Red = 0.200000002980232
125
      Buffer.AmbientColor.Green = 0.200000002980232
126
      Buffer.AmbientColor.Blue = 0.200000002980232
127
      Buffer.AmbientColor.Alpha = 1
128
      Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
129
      Buffer.AntiAliasing = aa6x
130
      FieldOfView = 164.709976196289
131
      Align = alClient
132
      TabOrder = 1
133
    end
134
  end
135
  object AsyncTimer1: TGLAsyncTimer
136
    Enabled = True
137
    Interval = 20
138
    OnTimer = AsyncTimer1Timer
139
    left = 552
140
    top = 8
141
  end
142
  object GLScene1: TGLScene
143
    left = 553
144
    top = 40
145
    object dc_world: TGLDummyCube
146
      TagFloat = 0
147
      PitchAngle = 0
148
      RollAngle = 0
149
      TurnAngle = 0
150
      CubeSize = 1
151
      EdgeColor.Red = 1
152
      EdgeColor.Green = 1
153
      EdgeColor.Blue = 1
154
      EdgeColor.Alpha = 1
155
      object dc_light: TGLDummyCube
156
        TagFloat = 0
157
        PitchAngle = 0
158
        RollAngle = 0
159
        TurnAngle = 0
160
        CubeSize = 1
161
        EdgeColor.Red = 1
162
        EdgeColor.Green = 1
163
        EdgeColor.Blue = 1
164
        EdgeColor.Alpha = 1
165
        object light1: TGLLightSource
166
          TagFloat = 0
167
          Ambient.Red = 0
168
          Ambient.Green = 0
169
          Ambient.Blue = 0
170
          Ambient.Alpha = 1
171
          ConstAttenuation = 1
172
          Diffuse.Red = 1
173
          Diffuse.Green = 1
174
          Diffuse.Blue = 1
175
          Diffuse.Alpha = 1
176
          LinearAttenuation = 0
177
          QuadraticAttenuation = 0
178
          Position.Coordinates = {
179
            00004843000096430000C8430000803F
180
          }
181
          Specular.Red = 0
182
          Specular.Green = 0
183
          Specular.Blue = 0
184
          Specular.Alpha = 1
185
          SpotCutOff = 180
186
          SpotExponent = 0
187
        end
188
      end
189
      object dc_cam: TGLDummyCube
190
        TagFloat = 0
191
        PitchAngle = 0
192
        RollAngle = 0
193
        TurnAngle = 0
194
        CubeSize = 1
195
        EdgeColor.Red = 1
196
        EdgeColor.Green = 1
197
        EdgeColor.Blue = 1
198
        EdgeColor.Alpha = 1
199
        object cam: TGLCamera
200
          TagFloat = 0
201
          DepthOfView = 100
202
          FocalLength = 50
203
          TargetObject = dc_cam
204
          Position.Coordinates = {
205
            0000C04000000041000020410000803F
206
          }
207
        end
208
      end
209
      object dc_helpers: TGLDummyCube
210
        TagFloat = 0
211
        PitchAngle = 0
212
        RollAngle = 0
213
        TurnAngle = 0
214
        CubeSize = 1
215
        EdgeColor.Red = 1
216
        EdgeColor.Green = 1
217
        EdgeColor.Blue = 1
218
        EdgeColor.Alpha = 1
219
        object xyz_grid: TGLXYZGrid
220
          TagFloat = 0
221
          PitchAngle = 0
222
          Position.Coordinates = {
223
            00000000000000BF000000000000803F
224
          }
225
          RollAngle = 0
226
          ShowAxes = True
227
          TurnAngle = 0
228
          LineColor.Red = 1
229
          LineColor.Green = 1
230
          LineColor.Blue = 1
231
          LineColor.Alpha = 1
232
          XSamplingScale.Min = -5
233
          XSamplingScale.Max = 5
234
          XSamplingScale.Origin = 0
235
          XSamplingScale.Step = 1
236
          YSamplingScale.Min = 0
237
          YSamplingScale.Max = 0
238
          YSamplingScale.Origin = 0
239
          YSamplingScale.Step = 0.100000001490116
240
          ZSamplingScale.Min = -5
241
          ZSamplingScale.Max = 5
242
          ZSamplingScale.Origin = 0
243
          ZSamplingScale.Step = 1
244
          Parts = [gpX, gpZ]
245
        end
246
        object xy_grid: TGLXYZGrid
247
          TagFloat = 0
248
          PitchAngle = 0
249
          RollAngle = 0
250
          TurnAngle = 0
251
          Visible = False
252
          LineColor.Red = 1
253
          LineColor.Green = 1
254
          LineColor.Blue = 1
255
          LineColor.Alpha = 1
256
          XSamplingScale.Min = -20
257
          XSamplingScale.Max = 20
258
          XSamplingScale.Origin = 0
259
          XSamplingScale.Step = 1
260
          YSamplingScale.Min = -20
261
          YSamplingScale.Max = 20
262
          YSamplingScale.Origin = 0
263
          YSamplingScale.Step = 1
264
          ZSamplingScale.Min = 0
265
          ZSamplingScale.Max = 0
266
          ZSamplingScale.Origin = 0
267
          ZSamplingScale.Step = 0.100000001490116
268
        end
269
        object xz_grid: TGLXYZGrid
270
          TagFloat = 0
271
          PitchAngle = 0
272
          RollAngle = 0
273
          TurnAngle = 0
274
          Visible = False
275
          LineColor.Red = 1
276
          LineColor.Green = 1
277
          LineColor.Blue = 1
278
          LineColor.Alpha = 1
279
          XSamplingScale.Min = -20
280
          XSamplingScale.Max = 20
281
          XSamplingScale.Origin = 0
282
          XSamplingScale.Step = 1
283
          YSamplingScale.Min = 0
284
          YSamplingScale.Max = 0
285
          YSamplingScale.Origin = 0
286
          YSamplingScale.Step = 1
287
          ZSamplingScale.Min = -20
288
          ZSamplingScale.Max = 20
289
          ZSamplingScale.Origin = 0
290
          ZSamplingScale.Step = 1
291
          Parts = [gpX, gpZ]
292
        end
293
        object yz_grid: TGLXYZGrid
294
          TagFloat = 0
295
          PitchAngle = 0
296
          RollAngle = 0
297
          TurnAngle = 0
298
          Visible = False
299
          LineColor.Red = 1
300
          LineColor.Green = 1
301
          LineColor.Blue = 1
302
          LineColor.Alpha = 1
303
          XSamplingScale.Min = 0
304
          XSamplingScale.Max = 0
305
          XSamplingScale.Origin = 0
306
          XSamplingScale.Step = 1
307
          YSamplingScale.Min = -20
308
          YSamplingScale.Max = 20
309
          YSamplingScale.Origin = 0
310
          YSamplingScale.Step = 1
311
          ZSamplingScale.Min = -20
312
          ZSamplingScale.Max = 20
313
          ZSamplingScale.Origin = 0
314
          ZSamplingScale.Step = 1
315
          Parts = [gpY, gpZ]
316
        end
317
      end
318
      object GLCube1: TGLCube
319
        TagFloat = 0
320
        Material.BackProperties.Ambient.Red = 0.200000002980232
321
        Material.BackProperties.Ambient.Green = 0.200000002980232
322
        Material.BackProperties.Ambient.Blue = 0.200000002980232
323
        Material.BackProperties.Ambient.Alpha = 1
324
        Material.BackProperties.Diffuse.Red = 0.800000011920929
325
        Material.BackProperties.Diffuse.Green = 0.800000011920929
326
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
327
        Material.BackProperties.Diffuse.Alpha = 1
328
        Material.BackProperties.Emission.Red = 0
329
        Material.BackProperties.Emission.Green = 0
330
        Material.BackProperties.Emission.Blue = 0
331
        Material.BackProperties.Emission.Alpha = 1
332
        Material.BackProperties.Specular.Red = 0
333
        Material.BackProperties.Specular.Green = 0
334
        Material.BackProperties.Specular.Blue = 0
335
        Material.BackProperties.Specular.Alpha = 1
336
        Material.FrontProperties.Ambient.Red = 0.200000002980232
337
        Material.FrontProperties.Ambient.Green = 0.200000002980232
338
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
339
        Material.FrontProperties.Ambient.Alpha = 1
340
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
341
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
342
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
343
        Material.FrontProperties.Diffuse.Alpha = 1
344
        Material.FrontProperties.Emission.Red = 0
345
        Material.FrontProperties.Emission.Green = 0
346
        Material.FrontProperties.Emission.Blue = 0
347
        Material.FrontProperties.Emission.Alpha = 1
348
        Material.FrontProperties.Specular.Red = 0
349
        Material.FrontProperties.Specular.Green = 0
350
        Material.FrontProperties.Specular.Blue = 0
351
        Material.FrontProperties.Specular.Alpha = 1
352
        Material.Texture.EnvColor.Red = 0
353
        Material.Texture.EnvColor.Green = 0
354
        Material.Texture.EnvColor.Blue = 0
355
        Material.Texture.EnvColor.Alpha = 0
356
        Material.Texture.BorderColor.Red = 0
357
        Material.Texture.BorderColor.Green = 0
358
        Material.Texture.BorderColor.Blue = 0
359
        Material.Texture.BorderColor.Alpha = 0
360
        PitchAngle = 0
361
        RollAngle = 0
362
        TurnAngle = 0
363
      end
364
      object GLCylinder1: TGLCylinder
365
        TagFloat = 0
366
        Material.BackProperties.Ambient.Red = 0.200000002980232
367
        Material.BackProperties.Ambient.Green = 0.200000002980232
368
        Material.BackProperties.Ambient.Blue = 0.200000002980232
369
        Material.BackProperties.Ambient.Alpha = 1
370
        Material.BackProperties.Diffuse.Red = 0.800000011920929
371
        Material.BackProperties.Diffuse.Green = 0.800000011920929
372
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
373
        Material.BackProperties.Diffuse.Alpha = 1
374
        Material.BackProperties.Emission.Red = 0
375
        Material.BackProperties.Emission.Green = 0
376
        Material.BackProperties.Emission.Blue = 0
377
        Material.BackProperties.Emission.Alpha = 1
378
        Material.BackProperties.Specular.Red = 0
379
        Material.BackProperties.Specular.Green = 0
380
        Material.BackProperties.Specular.Blue = 0
381
        Material.BackProperties.Specular.Alpha = 1
382
        Material.FrontProperties.Ambient.Red = 0.200000002980232
383
        Material.FrontProperties.Ambient.Green = 0.200000002980232
384
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
385
        Material.FrontProperties.Ambient.Alpha = 1
386
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
387
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
388
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
389
        Material.FrontProperties.Diffuse.Alpha = 1
390
        Material.FrontProperties.Emission.Red = 0
391
        Material.FrontProperties.Emission.Green = 0
392
        Material.FrontProperties.Emission.Blue = 0
393
        Material.FrontProperties.Emission.Alpha = 1
394
        Material.FrontProperties.Specular.Red = 0
395
        Material.FrontProperties.Specular.Green = 0
396
        Material.FrontProperties.Specular.Blue = 0
397
        Material.FrontProperties.Specular.Alpha = 1
398
        Material.Texture.EnvColor.Red = 0
399
        Material.Texture.EnvColor.Green = 0
400
        Material.Texture.EnvColor.Blue = 0
401
        Material.Texture.EnvColor.Alpha = 0
402
        Material.Texture.BorderColor.Red = 0
403
        Material.Texture.BorderColor.Green = 0
404
        Material.Texture.BorderColor.Blue = 0
405
        Material.Texture.BorderColor.Alpha = 0
406
        PitchAngle = 0
407
        Position.Coordinates = {
408
          000000400000003F000000000000803F
409
        }
410
        RollAngle = 0
411
        TurnAngle = 0
412
        BottomRadius = 0.5
413
        Height = 2
414
        Slices = 6
415
        Stacks = 1
416
        TopRadius = 0.300000011920929
417
      end
418
      object GLSphere1: TGLSphere
419
        TagFloat = 0
420
        Material.BackProperties.Ambient.Red = 0.200000002980232
421
        Material.BackProperties.Ambient.Green = 0.200000002980232
422
        Material.BackProperties.Ambient.Blue = 0.200000002980232
423
        Material.BackProperties.Ambient.Alpha = 1
424
        Material.BackProperties.Diffuse.Red = 0.800000011920929
425
        Material.BackProperties.Diffuse.Green = 0.800000011920929
426
        Material.BackProperties.Diffuse.Blue = 0.800000011920929
427
        Material.BackProperties.Diffuse.Alpha = 1
428
        Material.BackProperties.Emission.Red = 0
429
        Material.BackProperties.Emission.Green = 0
430
        Material.BackProperties.Emission.Blue = 0
431
        Material.BackProperties.Emission.Alpha = 1
432
        Material.BackProperties.Specular.Red = 0
433
        Material.BackProperties.Specular.Green = 0
434
        Material.BackProperties.Specular.Blue = 0
435
        Material.BackProperties.Specular.Alpha = 1
436
        Material.FrontProperties.Ambient.Red = 0.200000002980232
437
        Material.FrontProperties.Ambient.Green = 0.200000002980232
438
        Material.FrontProperties.Ambient.Blue = 0.200000002980232
439
        Material.FrontProperties.Ambient.Alpha = 1
440
        Material.FrontProperties.Diffuse.Red = 0.800000011920929
441
        Material.FrontProperties.Diffuse.Green = 0.800000011920929
442
        Material.FrontProperties.Diffuse.Blue = 0.800000011920929
443
        Material.FrontProperties.Diffuse.Alpha = 1
444
        Material.FrontProperties.Emission.Red = 0
445
        Material.FrontProperties.Emission.Green = 0
446
        Material.FrontProperties.Emission.Blue = 0
447
        Material.FrontProperties.Emission.Alpha = 1
448
        Material.FrontProperties.Specular.Red = 0
449
        Material.FrontProperties.Specular.Green = 0
450
        Material.FrontProperties.Specular.Blue = 0
451
        Material.FrontProperties.Specular.Alpha = 1
452
        Material.Texture.EnvColor.Red = 0
453
        Material.Texture.EnvColor.Green = 0
454
        Material.Texture.EnvColor.Blue = 0
455
        Material.Texture.EnvColor.Alpha = 0
456
        Material.Texture.BorderColor.Red = 0
457
        Material.Texture.BorderColor.Green = 0
458
        Material.Texture.BorderColor.Blue = 0
459
        Material.Texture.BorderColor.Alpha = 0
460
        PitchAngle = 0
461
        Position.Coordinates = {
462
          000000C000000000000000000000803F
463
        }
464
        RollAngle = 0
465
        TurnAngle = 0
466
        Radius = 0.800000011920929
467
        Stacks = 8
468
      end
469
    end
470
    object dc_views: TGLDummyCube
471
      TagFloat = 0
472
      PitchAngle = 0
473
      RollAngle = 0
474
      TurnAngle = 0
475
      CubeSize = 1
476
      EdgeColor.Red = 1
477
      EdgeColor.Green = 1
478
      EdgeColor.Blue = 1
479
      EdgeColor.Alpha = 1
480
      object cam1: TGLCamera
481
        TagFloat = 0
482
        DepthOfView = 1000
483
        FocalLength = 10
484
        CameraStyle = csOrthogonal
485
        Position.Coordinates = {
486
          000000000000FA43000000000000803F
487
        }
488
        Direction.Coordinates = {
489
          00000000000080BF0000000000000000
490
        }
491
        Up.Coordinates = {
492
          0000000000000000000080BF00000000
493
        }
494
      end
495
      object cam2: TGLCamera
496
        TagFloat = 0
497
        DepthOfView = 1000
498
        FocalLength = 10
499
        CameraStyle = csOrthogonal
500
        Position.Coordinates = {
501
          00000000000000000000FA430000803F
502
        }
503
      end
504
      object cam3: TGLCamera
505
        TagFloat = 0
506
        DepthOfView = 1000
507
        FocalLength = 10
508
        CameraStyle = csOrthogonal
509
        Position.Coordinates = {
510
          0000FA4300000000000000000000803F
511
        }
512
        Direction.Coordinates = {
513
          000080BF000000000000000000000000
514
        }
515
      end
516
    end
517
  end
518
end
519

Использование cookies

Мы используем файлы cookie в соответствии с Политикой конфиденциальности и Политикой использования cookies.

Нажимая кнопку «Принимаю», Вы даете АО «СберТех» согласие на обработку Ваших персональных данных в целях совершенствования нашего веб-сайта и Сервиса GitVerse, а также повышения удобства их использования.

Запретить использование cookies Вы можете самостоятельно в настройках Вашего браузера.