MathgeomGLS

1
object ViewForm: TViewForm
2
  Left = 69
3
  Top = 77
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  ClientHeight = 850
9
  ClientWidth = 1312
10
  Color = clBtnFace
11
  Font.Charset = DEFAULT_CHARSET
12
  Font.Color = clWindowText
13
  Font.Height = -23
14
  Font.Name = 'Tahoma'
15
  Font.Style = []
16
  KeyPreview = True
17
  Menu = MainMenu
18
  Position = poDesigned
19
  OnActivate = FormActivate
20
  OnClose = FormClose
21
  OnCloseQuery = FormCloseQuery
22
  OnCreate = FormCreate
23
  OnDestroy = FormDestroy
24
  OnKeyDown = FormKeyDown
25
  OnKeyUp = FormKeyUp
26
  OnMouseWheel = FormMouseWheel
27
  OnShow = FormShow
28
  PixelsPerInch = 168
29
  TextHeight = 28
30
  object GLSViewer: TGLSceneViewer
31
    Left = 0
32
    Top = 0
33
    Width = 1312
34
    Height = 817
35
    Cursor = crHandPoint
36
    Margins.Left = 5
37
    Margins.Top = 5
38
    Margins.Right = 5
39
    Margins.Bottom = 5
40
    Camera = Camera
41
    Buffer.BackgroundColor = clActiveCaption
42
    Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
43
    FieldOfView = 127.827621459960900000
44
    PenAsTouch = False
45
    Align = alClient
46
    OnMouseDown = GLSViewerMouseDown
47
    OnMouseMove = GLSViewerMouseMove
48
    OnMouseUp = GLSViewerMouseUp
49
    TabOrder = 0
50
  end
51
  object StatusBar: TStatusBar
52
    Left = 0
53
    Top = 817
54
    Width = 1312
55
    Height = 33
56
    Cursor = crHandPoint
57
    Margins.Left = 5
58
    Margins.Top = 5
59
    Margins.Right = 5
60
    Margins.Bottom = 5
61
    Color = clCream
62
    Panels = <
63
      item
64
        Alignment = taCenter
65
        Width = 308
66
      end
67
      item
68
        Alignment = taCenter
69
        Width = 308
70
      end
71
      item
72
        Alignment = taCenter
73
        Width = 308
74
      end
75
      item
76
        Alignment = taCenter
77
        Width = 308
78
      end
79
      item
80
        Alignment = taCenter
81
        Width = 88
82
      end>
83
  end
84
  object GLScene: TGLScene
85
    Left = 64
86
    Top = 106
87
    object GLLight: TGLLightSource
88
      ConstAttenuation = 1.000000000000000000
89
      Position.Coordinates = {0000484200004842000048420000803F}
90
      LightStyle = lsOmni
91
      Specular.Color = {0000803F0000803F0000803F0000803F}
92
      SpotCutOff = 180.000000000000000000
93
      SpotDirection.Coordinates = {00000000000000000000000000000000}
94
    end
95
    object TargetCube: TGLDummyCube
96
      Scale.Coordinates = {00000040000000400000004000000000}
97
      Pickable = False
98
      CubeSize = 2.000000000000000000
99
      EdgeColor.Color = {0000803FAE47E13D7B142E3F0000803F}
100
    end
101
    object CameraCube: TGLDummyCube
102
      CubeSize = 1.000000000000000000
103
      EdgeColor.Color = {CDCC0C3FD7A3F03E295C0F3E0000803F}
104
      object Camera: TGLCamera
105
        DepthOfView = 1000.000000000000000000
106
        FocalLength = 200.000000000000000000
107
        NearPlaneBias = 0.009999999776482582
108
        TargetObject = TargetCube
109
        Position.Coordinates = {00004842000048420000F0410000803F}
110
        Direction.Coordinates = {000000000000803F0000008000000000}
111
        Up.Coordinates = {00000000000000000000803F00000000}
112
      end
113
    end
114
    object GLxyGrid: TGLXYZGrid
115
      LineColor.Color = {00000000000000000000803F0000803F}
116
      XSamplingScale.Max = 4.000000000000000000
117
      XSamplingScale.Step = 1.000000000000000000
118
      YSamplingScale.Max = 4.000000000000000000
119
      YSamplingScale.Step = 1.000000000000000000
120
      ZSamplingScale.Step = 1.000000000000000000
121
      Parts = [gpX, gpY, gpZ]
122
    end
123
    object GLxzGrid: TGLXYZGrid
124
      LineColor.Color = {000000000000003F000000000000803F}
125
      XSamplingScale.Max = 4.000000000000000000
126
      XSamplingScale.Step = 1.000000000000000000
127
      YSamplingScale.Step = 0.100000001490116100
128
      ZSamplingScale.Max = 4.000000000000000000
129
      ZSamplingScale.Step = 1.000000000000000000
130
      Parts = [gpX, gpZ]
131
    end
132
    object GLyzGrid: TGLXYZGrid
133
      LineColor.Color = {0000803F00000000000000000000803F}
134
      XSamplingScale.Step = 0.100000001490116100
135
      YSamplingScale.Max = 4.000000000000000000
136
      YSamplingScale.Step = 1.000000000000000000
137
      ZSamplingScale.Max = 4.000000000000000000
138
      ZSamplingScale.Step = 1.000000000000000000
139
      Parts = [gpY, gpZ]
140
    end
141
    object Fields: TGLDummyCube
142
      CubeSize = 1.000000000000000000
143
    end
144
    object xCoordLine: TGLLines
145
      LineColor.Color = {0000803F00000000000000000000803F}
146
      LineWidth = 3.000000000000000000
147
      Nodes = <
148
        item
149
        end
150
        item
151
        end>
152
      NodesAspect = lnaInvisible
153
      Options = []
154
    end
155
    object yCoordLine: TGLLines
156
      LineColor.Color = {0000803F00000000000000000000803F}
157
      LineWidth = 3.000000000000000000
158
      Nodes = <
159
        item
160
        end
161
        item
162
        end>
163
      NodesAspect = lnaInvisible
164
      Options = []
165
    end
166
    object zCoordLine: TGLLines
167
      LineColor.Color = {0000803F00000000000000000000803F}
168
      LineWidth = 3.000000000000000000
169
      Nodes = <
170
        item
171
        end
172
        item
173
        end>
174
      NodesAspect = lnaInvisible
175
      Options = []
176
    end
177
    object AddXLine: TGLLines
178
      LineColor.Color = {0000803F00000000000000000000803F}
179
      LineWidth = 3.000000000000000000
180
      Nodes = <
181
        item
182
        end
183
        item
184
        end>
185
      NodesAspect = lnaInvisible
186
      Options = []
187
    end
188
    object AddYLine: TGLLines
189
      LineColor.Color = {0000803F00000000000000000000803F}
190
      LineWidth = 3.000000000000000000
191
      Nodes = <
192
        item
193
        end
194
        item
195
        end>
196
      NodesAspect = lnaInvisible
197
      Options = []
198
    end
199
    object AddZLine: TGLLines
200
      LineColor.Color = {0000803F00000000000000000000803F}
201
      LineWidth = 3.000000000000000000
202
      Nodes = <
203
        item
204
        end
205
        item
206
        end>
207
      NodesAspect = lnaInvisible
208
      Options = []
209
    end
210
    object BoxLine1: TGLLines
211
      Nodes = <
212
        item
213
        end
214
        item
215
        end
216
        item
217
        end
218
        item
219
        end
220
        item
221
        end
222
        item
223
        end
224
        item
225
        end
226
        item
227
        end
228
        item
229
        end
230
        item
231
        end>
232
      NodesAspect = lnaInvisible
233
      Options = []
234
    end
235
    object BoxLine2: TGLLines
236
      Nodes = <
237
        item
238
        end
239
        item
240
        end>
241
      NodesAspect = lnaInvisible
242
      Options = []
243
    end
244
    object BoxLine3: TGLLines
245
      Nodes = <
246
        item
247
        end
248
        item
249
        end>
250
      NodesAspect = lnaInvisible
251
      Options = []
252
    end
253
    object BoxLine4: TGLLines
254
      Nodes = <
255
        item
256
        end
257
        item
258
        end>
259
      NodesAspect = lnaInvisible
260
      Options = []
261
    end
262
    object XCoordsCube: TGLDummyCube
263
      CubeSize = 1.000000000000000000
264
    end
265
    object YCoordsCube: TGLDummyCube
266
      CubeSize = 1.000000000000000000
267
    end
268
    object ZCoordsCube: TGLDummyCube
269
      CubeSize = 1.000000000000000000
270
    end
271
    object xArrow: TGLArrowLine
272
      Visible = False
273
      BottomRadius = 0.100000001490116100
274
      Height = 1.000000000000000000
275
      TopRadius = 0.100000001490116100
276
      TopArrowHeadHeight = 0.500000000000000000
277
      TopArrowHeadRadius = 0.200000002980232200
278
      BottomArrowHeadHeight = 0.500000000000000000
279
      BottomArrowHeadRadius = 0.200000002980232200
280
    end
281
    object yArrow: TGLArrowLine
282
      Visible = False
283
      BottomRadius = 0.100000001490116100
284
      Height = 1.000000000000000000
285
      TopRadius = 0.100000001490116100
286
      TopArrowHeadHeight = 0.500000000000000000
287
      TopArrowHeadRadius = 0.200000002980232200
288
      BottomArrowHeadHeight = 0.500000000000000000
289
      BottomArrowHeadRadius = 0.200000002980232200
290
    end
291
    object AddedField: TGLDummyCube
292
      CubeSize = 1.000000000000000000
293
    end
294
    object VolumeLines: TGLDummyCube
295
      CubeSize = 1.000000000000000000
296
    end
297
  end
298
  object GLWinBmpFont: TGLWindowsBitmapFont
299
    Font.Charset = DEFAULT_CHARSET
300
    Font.Color = clBlack
301
    Font.Height = -27
302
    Font.Name = 'Tahoma'
303
    Font.Style = []
304
    MagFilter = maNearest
305
    MinFilter = miNearest
306
    Left = 64
307
    Top = 32
308
  end
309
  object MainMenu: TMainMenu
310
    AutoHotkeys = maManual
311
    OwnerDraw = True
312
    Left = 248
313
    Top = 33
314
    object File1: TMenuItem
315
      Caption = 'File'
316
      object New1: TMenuItem
317
        Caption = 'New'
318
        OnClick = New1Click
319
      end
320
      object OpenFile: TMenuItem
321
        Caption = 'Open...'
322
        OnClick = OpenFileClick
323
      end
324
      object Recent1: TMenuItem
325
        Caption = 'Recent'
326
      end
327
      object Save1: TMenuItem
328
        Caption = 'Save'
329
        OnClick = Save1Click
330
      end
331
      object Saveas1: TMenuItem
332
        Caption = 'Save as...'
333
        OnClick = Saveas1Click
334
      end
335
      object Exit1: TMenuItem
336
        Caption = 'Exit'
337
        OnClick = Exit1Click
338
      end
339
    end
340
    object Options1: TMenuItem
341
      Caption = 'Options'
342
      object DefaultLayout1: TMenuItem
343
        Caption = 'Default Layout'
344
        OnClick = DefaultLayout1Click
345
      end
346
      object N2: TMenuItem
347
        Caption = '-'
348
      end
349
      object Grid1: TMenuItem
350
        Caption = 'Grids...'
351
        OnClick = Grid1Click
352
      end
353
      object CoordText1: TMenuItem
354
        Caption = 'Grids Coordinates...'
355
        OnClick = CoordText1Click
356
      end
357
      object GridColours1: TMenuItem
358
        Caption = 'Grids Colours...'
359
        OnClick = GridColours1Click
360
      end
361
      object N3: TMenuItem
362
        Caption = '-'
363
      end
364
      object Evaluate1: TMenuItem
365
        Caption = 'Evaluate Function...'
366
        OnClick = Evaluate1Click
367
      end
368
      object PlotColours1: TMenuItem
369
        Caption = 'Plot Function Colours...'
370
        OnClick = PlotColours1Click
371
      end
372
      object N4: TMenuItem
373
        Caption = '-'
374
      end
375
      object DerivativeOps: TMenuItem
376
        Caption = 'Partial Derivative or Double Integral...'
377
        OnClick = DerivativeOpsClick
378
      end
379
      object DerivativePlotColours1: TMenuItem
380
        Caption = 'Derivative or Double Integral Plot Colours...'
381
        Enabled = False
382
        OnClick = DerivativePlotColours1Click
383
      end
384
    end
385
    object Help1: TMenuItem
386
      Caption = 'Help'
387
      object About1: TMenuItem
388
        Caption = 'About..'
389
        OnClick = About1Click
390
      end
391
    end
392
  end
393
end
394