ArenaZ

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