MathgeomGLS

1
object Form1: TForm1
2
  Left = 137
3
  Top = 77
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  Caption = '  SuperGems'
9
  ClientHeight = 1225
10
  ClientWidth = 1225
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 = poDesigned
18
  OnCreate = FormCreate
19
  PixelsPerInch = 168
20
  TextHeight = 23
21
  object GLSceneViewer1: TGLSceneViewer
22
    Left = 0
23
    Top = 0
24
    Width = 1225
25
    Height = 1225
26
    Margins.Left = 5
27
    Margins.Top = 5
28
    Margins.Right = 5
29
    Margins.Bottom = 5
30
    Camera = GLCamera1
31
    FieldOfView = 143.833114624023400000
32
    PenAsTouch = False
33
    Align = alClient
34
    TabOrder = 0
35
  end
36
  object GLSimpleNavigation1: TGLSimpleNavigation
37
    Form = Owner
38
    GLSceneViewer = GLSceneViewer1
39
    ZoomSpeed = 1.009999990463257000
40
    FormCaption = 'Superellipsoids Demo - %FPS'
41
    KeyCombinations = <
42
      item
43
        ShiftState = [ssLeft, ssRight]
44
        Action = snaZoom
45
      end
46
      item
47
        ShiftState = [ssLeft]
48
        Action = snaMoveAroundTarget
49
      end
50
      item
51
        ShiftState = [ssRight]
52
        Action = snaMoveAroundTarget
53
      end>
54
    Left = 120
55
    Top = 80
56
  end
57
  object GLCadencer1: TGLCadencer
58
    Scene = GLScene1
59
    Left = 120
60
    Top = 16
61
  end
62
  object GLScene1: TGLScene
63
    Left = 216
64
    Top = 16
65
    object GLLightSource1: TGLLightSource
66
      ConstAttenuation = 1.000000000000000000
67
      Position.Coordinates = {000020410000A0410000C8420000803F}
68
      Specular.Color = {9A99593F9A99593FCDCCCC3D0000803F}
69
      SpotCutOff = 180.000000000000000000
70
    end
71
    object GLCamera1: TGLCamera
72
      DepthOfView = 500.000000000000000000
73
      FocalLength = 200.000000000000000000
74
      TargetObject = GLDummyCube1
75
      Position.Coordinates = {0000204200004842000070420000803F}
76
    end
77
    object GLDummyCube1: TGLDummyCube
78
      CubeSize = 1.000000000000000000
79
      EdgeColor.Color = {EC51B83ECDCC4C3EEC51B83D0000803F}
80
    end
81
  end
82
end
83