MathgeomGLS

1
object FormHalfSphere: TFormHalfSphere
2
  Left = 0
3
  Top = 0
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  Caption = 'Half Sphere'
9
  ClientHeight = 830
10
  ClientWidth = 1192
11
  Color = clBtnFace
12
  Font.Charset = DEFAULT_CHARSET
13
  Font.Color = clWindowText
14
  Font.Height = -19
15
  Font.Name = 'Tahoma'
16
  Font.Style = []
17
  Position = poScreenCenter
18
  PixelsPerInch = 168
19
  TextHeight = 23
20
  object GLSceneViewer1: TGLSceneViewer
21
    Left = 0
22
    Top = 0
23
    Width = 1192
24
    Height = 830
25
    Margins.Left = 5
26
    Margins.Top = 5
27
    Margins.Right = 5
28
    Margins.Bottom = 5
29
    Camera = GLCamera1
30
    Buffer.BackgroundColor = clSkyBlue
31
    Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow, roTwoSideLighting, roDebugContext]
32
    FieldOfView = 166.260009765625000000
33
    PenAsTouch = False
34
    Align = alClient
35
    TabOrder = 0
36
  end
37
  object GLScene1: TGLScene
38
    Left = 24
39
    Top = 24
40
    object GLSphere1: TGLSphere
41
      Material.MaterialLibrary = GLMaterialLibrary1
42
      Material.LibMaterialName = 'LibMaterial'
43
      Radius = 1.000000000000000000
44
      Slices = 24
45
      Stacks = 24
46
      Top = 15
47
    end
48
    object GLCamera1: TGLCamera
49
      DepthOfView = 100.000000000000000000
50
      FocalLength = 50.000000000000000000
51
      TargetObject = GLSphere1
52
      Position.Coordinates = {0000803F00000040000040400000803F}
53
      object GLLightSource1: TGLLightSource
54
        ConstAttenuation = 1.000000000000000000
55
        SpotCutOff = 180.000000000000000000
56
      end
57
    end
58
  end
59
  object GLMaterialLibrary1: TGLMaterialLibrary
60
    Materials = <
61
      item
62
        Name = 'LibMaterial'
63
        Tag = 0
64
        Material.BackProperties.Diffuse.Color = {E5E4643EE5E4643EE5E4643E0000803F}
65
        Material.BackProperties.Emission.Color = {A1A0203D000000000000803F0000803F}
66
        Material.FrontProperties.Diffuse.Color = {0000803FEDEC6C3E000000000000803F}
67
        Material.FrontProperties.Shininess = 32
68
        Material.FrontProperties.Specular.Color = {0000803F0000803F000000000000803F}
69
        Material.FaceCulling = fcNoCull
70
        Shader = GLUserShader1
71
      end>
72
    Left = 304
73
    Top = 38
74
  end
75
  object GLSimpleNavigation1: TGLSimpleNavigation
76
    Form = Owner
77
    GLSceneViewer = GLSceneViewer1
78
    FormCaption = 'HalfSphere - %FPS'
79
    KeyCombinations = <
80
      item
81
        ShiftState = [ssLeft, ssRight]
82
        Action = snaZoom
83
      end
84
      item
85
        ShiftState = [ssLeft]
86
        Action = snaMoveAroundTarget
87
      end
88
      item
89
        ShiftState = [ssRight]
90
        Action = snaMoveAroundTarget
91
      end>
92
    Left = 612
93
    Top = 38
94
  end
95
  object GLUserShader1: TGLUserShader
96
    OnDoApply = GLUserShader1DoApply
97
    OnDoUnApply = GLUserShader1DoUnApply
98
    Left = 290
99
    Top = 184
100
  end
101
end
102