MathgeomGLS

1
object FormGrafvol: TFormGrafvol
2
  Left = 0
3
  Top = 0
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  Caption = #1043#1088#1072#1092' '#1074' 3D'
9
  ClientHeight = 741
10
  ClientWidth = 1147
11
  Color = clBtnFace
12
  Font.Charset = DEFAULT_CHARSET
13
  Font.Color = clWindowText
14
  Font.Height = -21
15
  Font.Name = 'Segoe UI'
16
  Font.Style = []
17
  Position = poScreenCenter
18
  OnCreate = FormCreate
19
  PixelsPerInch = 168
20
  TextHeight = 30
21
  object Memo1: TMemo
22
    Left = 824
23
    Top = 180
24
    Width = 323
25
    Height = 561
26
    Margins.Left = 6
27
    Margins.Top = 6
28
    Margins.Right = 6
29
    Margins.Bottom = 6
30
    Lines.Strings = (
31
      'Memo1')
32
    TabOrder = 0
33
  end
34
  object GLSceneViewer: TGLSceneViewer
35
    Left = 155
36
    Top = 0
37
    Width = 992
38
    Height = 741
39
    Margins.Left = 6
40
    Margins.Top = 6
41
    Margins.Right = 6
42
    Margins.Bottom = 6
43
    Camera = cam
44
    VSync = vsmSync
45
    Buffer.BackgroundColor = clLinen
46
    FieldOfView = 164.628417968750000000
47
    PenAsTouch = False
48
    Align = alClient
49
    TabOrder = 1
50
  end
51
  object Panel1: TPanel
52
    Left = 0
53
    Top = 0
54
    Width = 155
55
    Height = 741
56
    Margins.Left = 6
57
    Margins.Top = 6
58
    Margins.Right = 6
59
    Margins.Bottom = 6
60
    Align = alLeft
61
    Font.Charset = DEFAULT_CHARSET
62
    Font.Color = clWindowText
63
    Font.Height = -34
64
    Font.Name = 'Trebuchet MS'
65
    Font.Style = []
66
    ParentFont = False
67
    TabOrder = 2
68
    object Button1: TButton
69
      Left = 14
70
      Top = 98
71
      Width = 127
72
      Height = 71
73
      Margins.Left = 6
74
      Margins.Top = 6
75
      Margins.Right = 6
76
      Margins.Bottom = 6
77
      Caption = 'XY'
78
      TabOrder = 0
79
    end
80
    object Button2: TButton
81
      Left = 14
82
      Top = 182
83
      Width = 127
84
      Height = 71
85
      Margins.Left = 6
86
      Margins.Top = 6
87
      Margins.Right = 6
88
      Margins.Bottom = 6
89
      Caption = 'XZ'
90
      TabOrder = 1
91
    end
92
    object Button3: TButton
93
      Left = 14
94
      Top = 266
95
      Width = 127
96
      Height = 71
97
      Margins.Left = 6
98
      Margins.Top = 6
99
      Margins.Right = 6
100
      Margins.Bottom = 6
101
      Caption = 'YZ'
102
      TabOrder = 2
103
    end
104
    object Button4: TButton
105
      Left = 14
106
      Top = 14
107
      Width = 127
108
      Height = 71
109
      Margins.Left = 6
110
      Margins.Top = 6
111
      Margins.Right = 6
112
      Margins.Bottom = 6
113
      Caption = '3D'
114
      TabOrder = 3
115
    end
116
  end
117
  object GLScene: TGLScene
118
    Left = 196
119
    Top = 14
120
    object cam_XY: TGLCamera
121
      DepthOfView = 100.000000000000000000
122
      FocalLength = 20.000000000000000000
123
      TargetObject = dcWorld
124
      CameraStyle = csOrthogonal
125
      Position.Coordinates = {0000000000000000000020400000803F}
126
    end
127
    object cam_XZ: TGLCamera
128
      DepthOfView = 100.000000000000000000
129
      FocalLength = 20.000000000000000000
130
      TargetObject = dcWorld
131
      CameraStyle = csOrthogonal
132
      Position.Coordinates = {0000000000002040000000000000803F}
133
      Direction.Coordinates = {000000000000803F0000000000000000}
134
      Up.Coordinates = {0000000000000000000080BF00000000}
135
    end
136
    object cam_YZ: TGLCamera
137
      DepthOfView = 100.000000000000000000
138
      FocalLength = 20.000000000000000000
139
      TargetObject = dcWorld
140
      CameraStyle = csOrthogonal
141
      Position.Coordinates = {000020C000000000000000000000803F}
142
    end
143
    object cam: TGLCamera
144
      DepthOfView = 100.000000000000000000
145
      FocalLength = 50.000000000000000000
146
      TargetObject = dcWorld
147
      Position.Coordinates = {0000803F0000C03F000000400000803F}
148
    end
149
    object dcWorld: TGLDummyCube
150
      CubeSize = 1.000000000000000000
151
      EdgeColor.Color = {000000001283803E1283003F0000803F}
152
      object lines1: TGLLines
153
        AntiAliased = True
154
        Nodes = <
155
          item
156
          end>
157
        NodesAspect = lnaInvisible
158
        SplineMode = lsmSegments
159
        Options = [loUseNodeColorForLines]
160
      end
161
      object lines2: TGLLines
162
        AntiAliased = True
163
        LinePattern = 8163
164
        Nodes = <
165
          item
166
          end>
167
        NodesAspect = lnaInvisible
168
        SplineMode = lsmSegments
169
        Options = [loUseNodeColorForLines]
170
      end
171
      object grid2: TGLXYZGrid
172
        Position.Coordinates = {000000006F1283BA000000000000803F}
173
        AntiAliased = True
174
        LineColor.Color = {0000403F0000403F0000403F0000803E}
175
        XSamplingScale.Min = -2.000000000000000000
176
        XSamplingScale.Max = 2.000000000000000000
177
        XSamplingScale.Step = 0.100000001490116100
178
        YSamplingScale.Step = 0.100000001490116100
179
        ZSamplingScale.Min = -2.000000000000000000
180
        ZSamplingScale.Max = 2.000000000000000000
181
        ZSamplingScale.Step = 0.100000001490116100
182
        Parts = [gpX, gpZ]
183
      end
184
      object grid1: TGLXYZGrid
185
        AntiAliased = True
186
        LineColor.Color = {0000403F0000403F0000403F0000003F}
187
        XSamplingScale.Min = -2.000000000000000000
188
        XSamplingScale.Max = 2.000000000000000000
189
        XSamplingScale.Step = 0.500000000000000000
190
        YSamplingScale.Step = 0.100000001490116100
191
        ZSamplingScale.Min = -2.000000000000000000
192
        ZSamplingScale.Max = 2.000000000000000000
193
        ZSamplingScale.Step = 0.500000000000000000
194
        Parts = [gpX, gpZ]
195
      end
196
      object dogl: TGLDirectOpenGL
197
        UseBuildList = False
198
        Blend = False
199
        object sprite: TGLHUDSprite
200
          Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
201
          Material.FrontProperties.Diffuse.Color = {000000001283003F1283003F0000803F}
202
          Material.BlendingMode = bmTransparency
203
          Material.MaterialOptions = [moNoLighting]
204
          Material.Texture.ImageClassName = 'TGLPicFileImage'
205
          Material.Texture.Image.PictureFileName = 'data\image\bubble.tga'
206
          Material.Texture.TextureMode = tmModulate
207
          Material.Texture.TextureWrap = twNone
208
          Material.Texture.Disabled = False
209
          Position.Coordinates = {0000C8420000C842000000000000803F}
210
          Visible = False
211
          Width = 40.000000000000000000
212
          Height = 40.000000000000000000
213
          Rotation = 0.000000000000000000
214
        end
215
        object txt1: TGLHUDText
216
          Visible = False
217
          BitmapFont = GLWinBitFont
218
          Rotation = 0.000000000000000000
219
          Alignment = taCenter
220
          Layout = tlCenter
221
          ModulateColor.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000803F}
222
        end
223
        object txt2: TGLHUDText
224
          Scale.Coordinates = {CDCCCC3ECDCCCC3E0000803F00000000}
225
          Visible = False
226
          BitmapFont = GLWinBitFont
227
          Rotation = 0.000000000000000000
228
          Alignment = taCenter
229
          Layout = tlCenter
230
          ModulateColor.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000803F}
231
        end
232
      end
233
      object pts: TGLPoints
234
        NoZWrite = False
235
        Static = True
236
        Size = 4.000000000000000000
237
        Style = psSmooth
238
      end
239
    end
240
  end
241
  object GLWinBitFont: TGLWindowsBitmapFont
242
    Font.Charset = DEFAULT_CHARSET
243
    Font.Color = clWhite
244
    Font.Height = -27
245
    Font.Name = 'Trebuchet MS'
246
    Font.Style = []
247
    Left = 826
248
    Top = 56
249
  end
250
  object GLCadencer: TGLCadencer
251
    Scene = GLScene
252
    Mode = cmApplicationIdle
253
    SleepLength = 1
254
    Left = 196
255
    Top = 154
256
  end
257
  object GLSimpleNavigation: TGLSimpleNavigation
258
    Form = Owner
259
    GLSceneViewer = GLSceneViewer
260
    FormCaption = #1043#1088#1072#1092#1099' '#1074' 3D - %FPS'
261
    KeyCombinations = <
262
      item
263
        ShiftState = [ssLeft, ssRight]
264
        Action = snaZoom
265
      end
266
      item
267
        ShiftState = [ssLeft]
268
        Action = snaMoveAroundTarget
269
      end
270
      item
271
        ShiftState = [ssRight]
272
        Action = snaMoveAroundTarget
273
      end>
274
    Left = 826
275
    Top = 182
276
  end
277
end
278