MathgeomGLS

1
object Form1: TForm1
2
  Left = 0
3
  Top = 0
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  BorderIcons = [biSystemMenu, biMinimize]
9
  BorderStyle = bsSingle
10
  Caption = 'Circles'
11
  ClientHeight = 621
12
  ClientWidth = 1012
13
  Color = clBtnFace
14
  Font.Charset = DEFAULT_CHARSET
15
  Font.Color = clWindowText
16
  Font.Height = -19
17
  Font.Name = 'Tahoma'
18
  Font.Style = []
19
  Position = poScreenCenter
20
  OnCreate = FormCreate
21
  PixelsPerInch = 168
22
  TextHeight = 23
23
  object Label1: TLabel
24
    Left = 630
25
    Top = 14
26
    Width = 102
27
    Height = 23
28
    Margins.Left = 5
29
    Margins.Top = 5
30
    Margins.Right = 5
31
    Margins.Bottom = 5
32
    Caption = 'Segments : '
33
  end
34
  object Label2: TLabel
35
    Left = 630
36
    Top = 98
37
    Width = 68
38
    Height = 23
39
    Margins.Left = 5
40
    Margins.Top = 5
41
    Margins.Right = 5
42
    Margins.Bottom = 5
43
    Caption = 'Width : '
44
  end
45
  object Label3: TLabel
46
    Left = 630
47
    Top = 168
48
    Width = 74
49
    Height = 23
50
    Margins.Left = 5
51
    Margins.Top = 5
52
    Margins.Right = 5
53
    Margins.Bottom = 5
54
    Caption = 'Height : '
55
  end
56
  object Label4: TLabel
57
    Left = 630
58
    Top = 238
59
    Width = 88
60
    Height = 23
61
    Margins.Left = 5
62
    Margins.Top = 5
63
    Margins.Right = 5
64
    Margins.Bottom = 5
65
    Caption = 'Rotation : '
66
  end
67
  object GLSceneViewer1: TGLSceneViewer
68
    Left = 14
69
    Top = 14
70
    Width = 589
71
    Height = 547
72
    Margins.Left = 5
73
    Margins.Top = 5
74
    Margins.Right = 5
75
    Margins.Bottom = 5
76
    Camera = Camera
77
    Buffer.BackgroundColor = clBlack
78
    FieldOfView = 159.279708862304700000
79
    PenAsTouch = False
80
    TabOrder = 0
81
  end
82
  object sbSegments: TScrollBar
83
    Left = 630
84
    Top = 47
85
    Width = 324
86
    Height = 28
87
    Margins.Left = 5
88
    Margins.Top = 5
89
    Margins.Right = 5
90
    Margins.Bottom = 5
91
    Max = 64
92
    Min = 3
93
    PageSize = 0
94
    Position = 32
95
    TabOrder = 1
96
    OnChange = sbCircleChange
97
  end
98
  object sbWidth: TScrollBar
99
    Left = 630
100
    Top = 126
101
    Width = 324
102
    Height = 28
103
    Margins.Left = 5
104
    Margins.Top = 5
105
    Margins.Right = 5
106
    Margins.Bottom = 5
107
    Max = 150
108
    PageSize = 0
109
    Position = 90
110
    TabOrder = 2
111
    OnChange = sbCircleChange
112
  end
113
  object sbHeight: TScrollBar
114
    Left = 630
115
    Top = 196
116
    Width = 324
117
    Height = 28
118
    Margins.Left = 5
119
    Margins.Top = 5
120
    Margins.Right = 5
121
    Margins.Bottom = 5
122
    Max = 150
123
    PageSize = 0
124
    Position = 90
125
    TabOrder = 3
126
    OnChange = sbCircleChange
127
  end
128
  object ScrollBar4: TScrollBar
129
    Left = 630
130
    Top = 266
131
    Width = 324
132
    Height = 28
133
    Margins.Left = 5
134
    Margins.Top = 5
135
    Margins.Right = 5
136
    Margins.Bottom = 5
137
    Max = 360
138
    PageSize = 0
139
    TabOrder = 4
140
    OnChange = sbCircleChange
141
  end
142
  object chbSpline: TCheckBox
143
    Left = 630
144
    Top = 308
145
    Width = 170
146
    Height = 30
147
    Margins.Left = 5
148
    Margins.Top = 5
149
    Margins.Right = 5
150
    Margins.Bottom = 5
151
    Caption = 'Cubic spline'
152
    TabOrder = 5
153
    OnClick = chbSplineClick
154
  end
155
  object chbNodes: TCheckBox
156
    Left = 630
157
    Top = 364
158
    Width = 170
159
    Height = 29
160
    Margins.Left = 5
161
    Margins.Top = 5
162
    Margins.Right = 5
163
    Margins.Bottom = 5
164
    Caption = 'Nodes'
165
    TabOrder = 6
166
    OnClick = chbNodesClick
167
  end
168
  object chbDash: TCheckBox
169
    Left = 630
170
    Top = 420
171
    Width = 170
172
    Height = 29
173
    Margins.Left = 5
174
    Margins.Top = 5
175
    Margins.Right = 5
176
    Margins.Bottom = 5
177
    Caption = 'Dash line'
178
    Checked = True
179
    State = cbChecked
180
    TabOrder = 7
181
    OnClick = chbDashClick
182
  end
183
  object StatusBar1: TStatusBar
184
    Left = 0
185
    Top = 588
186
    Width = 1012
187
    Height = 33
188
    Margins.Left = 5
189
    Margins.Top = 5
190
    Margins.Right = 5
191
    Margins.Bottom = 5
192
    Panels = <>
193
  end
194
  object GLScene1: TGLScene
195
    Left = 16
196
    Top = 16
197
    object Camera: TGLCamera
198
      DepthOfView = 100.000000000000000000
199
      FocalLength = 50.000000000000000000
200
      TargetObject = dcMeridian
201
      Position.Coordinates = {000000C000000040000000C00000803F}
202
      object LightSource: TGLLightSource
203
        ConstAttenuation = 1.000000000000000000
204
        Position.Coordinates = {000000410000E0400000C0400000803F}
205
        SpotCutOff = 180.000000000000000000
206
      end
207
    end
208
    object Sphere: TGLSphere
209
      Radius = 0.500000000000000000
210
    end
211
    object dcMeridian: TGLDummyCube
212
      CubeSize = 0.400000005960464500
213
      VisibleAtRunTime = True
214
      object Meridian: TGLLines
215
        LineColor.Color = {0000803F0000803E000000000000803F}
216
        LineWidth = 1.500000000000000000
217
        Nodes = <>
218
        NodesAspect = lnaInvisible
219
        NodeSize = 0.500000000000000000
220
        Options = []
221
      end
222
    end
223
    object dcParallel: TGLDummyCube
224
      Direction.Coordinates = {00000000F8724C320000803F00000000}
225
      Up.Coordinates = {000000000000803FF8724CB200000000}
226
      CubeSize = 1.000000000000000000
227
      object Parallel: TGLLines
228
        LineWidth = 1.500000000000000000
229
        Nodes = <>
230
        NodesAspect = lnaInvisible
231
        NodeSize = 0.500000000000000000
232
        Options = []
233
      end
234
    end
235
    object dcGeogrid: TGLDummyCube
236
      CubeSize = 1.000000000000000000
237
      object Merid1: TGLLines
238
        LineWidth = 1.500000000000000000
239
        Nodes = <>
240
        NodesAspect = lnaInvisible
241
        NodeSize = 0.500000000000000000
242
        SplineMode = lsmSegments
243
        Options = []
244
      end
245
      object Paral1: TGLLines
246
        LineWidth = 1.500000000000000000
247
        Nodes = <>
248
        NodesAspect = lnaInvisible
249
        NodeSize = 0.500000000000000000
250
        SplineMode = lsmSegments
251
        Options = []
252
      end
253
    end
254
  end
255
  object GLSimpleNavigation1: TGLSimpleNavigation
256
    Form = Owner
257
    GLSceneViewer = GLSceneViewer1
258
    FormCaption = 'GLScene Circle - %FPS'
259
    KeyCombinations = <
260
      item
261
        ShiftState = [ssLeft, ssRight]
262
        Action = snaZoom
263
      end
264
      item
265
        ShiftState = [ssLeft]
266
        Action = snaMoveAroundTarget
267
      end
268
      item
269
        ShiftState = [ssRight]
270
        Action = snaMoveAroundTarget
271
      end>
272
    Left = 88
273
    Top = 24
274
  end
275
end
276