MathgeomGLS
408 строк · 11.3 Кб
1object FormPlotStars: TFormPlotStars
2Left = 69
3Top = 77
4Margins.Left = 5
5Margins.Top = 5
6Margins.Right = 5
7Margins.Bottom = 5
8ClientHeight = 850
9ClientWidth = 1312
10Color = clBtnFace
11Font.Charset = DEFAULT_CHARSET
12Font.Color = clWindowText
13Font.Height = -23
14Font.Name = 'Tahoma'
15Font.Style = []
16KeyPreview = True
17Menu = MainMenu
18Position = poDesigned
19OnActivate = FormActivate
20OnClose = FormClose
21OnCloseQuery = FormCloseQuery
22OnCreate = FormCreate
23OnDestroy = FormDestroy
24OnKeyDown = FormKeyDown
25OnKeyUp = FormKeyUp
26OnMouseWheel = FormMouseWheel
27OnShow = FormShow
28PixelsPerInch = 168
29TextHeight = 28
30object GLSViewer: TGLSceneViewer
31Left = 0
32Top = 0
33Width = 1312
34Height = 817
35Cursor = crHandPoint
36Margins.Left = 5
37Margins.Top = 5
38Margins.Right = 5
39Margins.Bottom = 5
40Camera = Camera
41Buffer.BackgroundColor = clActiveCaption
42Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
43FieldOfView = 127.827621459960900000
44PenAsTouch = False
45Align = alClient
46OnMouseDown = GLSViewerMouseDown
47OnMouseMove = GLSViewerMouseMove
48OnMouseUp = GLSViewerMouseUp
49TabOrder = 0
50end
51object StatusBar: TStatusBar
52Left = 0
53Top = 817
54Width = 1312
55Height = 33
56Cursor = crHandPoint
57Margins.Left = 5
58Margins.Top = 5
59Margins.Right = 5
60Margins.Bottom = 5
61Color = clCream
62Panels = <
63item
64Alignment = taCenter
65Width = 308
66end
67item
68Alignment = taCenter
69Width = 308
70end
71item
72Alignment = taCenter
73Width = 308
74end
75item
76Alignment = taCenter
77Width = 308
78end
79item
80Alignment = taCenter
81Width = 88
82end>
83end
84object GLScene: TGLScene
85Left = 64
86Top = 106
87object GLLight: TGLLightSource
88ConstAttenuation = 1.000000000000000000
89Position.Coordinates = {0000484200004842000048420000803F}
90LightStyle = lsOmni
91Specular.Color = {0000803F0000803F0000803F0000803F}
92SpotCutOff = 180.000000000000000000
93SpotDirection.Coordinates = {00000000000000000000000000000000}
94end
95object TargetCube: TGLDummyCube
96Scale.Coordinates = {00000040000000400000004000000000}
97Pickable = False
98CubeSize = 2.000000000000000000
99EdgeColor.Color = {0000803FAE47E13D7B142E3F0000803F}
100end
101object CameraCube: TGLDummyCube
102CubeSize = 1.000000000000000000
103EdgeColor.Color = {CDCC0C3FD7A3F03E295C0F3E0000803F}
104object Camera: TGLCamera
105DepthOfView = 1000.000000000000000000
106FocalLength = 200.000000000000000000
107NearPlaneBias = 0.009999999776482582
108TargetObject = TargetCube
109Position.Coordinates = {00004842000048420000F0410000803F}
110Direction.Coordinates = {000000000000803F0000008000000000}
111Up.Coordinates = {00000000000000000000803F00000000}
112end
113end
114object GLxyGrid: TGLXYZGrid
115LineColor.Color = {00000000000000000000803F0000803F}
116XSamplingScale.Max = 4.000000000000000000
117XSamplingScale.Step = 1.000000000000000000
118YSamplingScale.Max = 4.000000000000000000
119YSamplingScale.Step = 1.000000000000000000
120ZSamplingScale.Step = 1.000000000000000000
121Parts = [gpX, gpY, gpZ]
122end
123object GLxzGrid: TGLXYZGrid
124LineColor.Color = {000000000000003F000000000000803F}
125XSamplingScale.Max = 4.000000000000000000
126XSamplingScale.Step = 1.000000000000000000
127YSamplingScale.Step = 0.100000001490116100
128ZSamplingScale.Max = 4.000000000000000000
129ZSamplingScale.Step = 1.000000000000000000
130Parts = [gpX, gpZ]
131end
132object GLyzGrid: TGLXYZGrid
133LineColor.Color = {0000803F00000000000000000000803F}
134XSamplingScale.Step = 0.100000001490116100
135YSamplingScale.Max = 4.000000000000000000
136YSamplingScale.Step = 1.000000000000000000
137ZSamplingScale.Max = 4.000000000000000000
138ZSamplingScale.Step = 1.000000000000000000
139Parts = [gpY, gpZ]
140end
141object Fields: TGLDummyCube
142CubeSize = 1.000000000000000000
143end
144object xCoordLine: TGLLines
145LineColor.Color = {0000803F00000000000000000000803F}
146LineWidth = 3.000000000000000000
147Nodes = <
148item
149end
150item
151end>
152NodesAspect = lnaInvisible
153Options = []
154end
155object yCoordLine: TGLLines
156LineColor.Color = {0000803F00000000000000000000803F}
157LineWidth = 3.000000000000000000
158Nodes = <
159item
160end
161item
162end>
163NodesAspect = lnaInvisible
164Options = []
165end
166object zCoordLine: TGLLines
167LineColor.Color = {0000803F00000000000000000000803F}
168LineWidth = 3.000000000000000000
169Nodes = <
170item
171end
172item
173end>
174NodesAspect = lnaInvisible
175Options = []
176end
177object AddXLine: TGLLines
178LineColor.Color = {0000803F00000000000000000000803F}
179LineWidth = 3.000000000000000000
180Nodes = <
181item
182end
183item
184end>
185NodesAspect = lnaInvisible
186Options = []
187end
188object AddYLine: TGLLines
189LineColor.Color = {0000803F00000000000000000000803F}
190LineWidth = 3.000000000000000000
191Nodes = <
192item
193end
194item
195end>
196NodesAspect = lnaInvisible
197Options = []
198end
199object AddZLine: TGLLines
200LineColor.Color = {0000803F00000000000000000000803F}
201LineWidth = 3.000000000000000000
202Nodes = <
203item
204end
205item
206end>
207NodesAspect = lnaInvisible
208Options = []
209end
210object BoxLine1: TGLLines
211Nodes = <
212item
213end
214item
215end
216item
217end
218item
219end
220item
221end
222item
223end
224item
225end
226item
227end
228item
229end
230item
231end>
232NodesAspect = lnaInvisible
233Options = []
234end
235object BoxLine2: TGLLines
236Nodes = <
237item
238end
239item
240end>
241NodesAspect = lnaInvisible
242Options = []
243end
244object BoxLine3: TGLLines
245Nodes = <
246item
247end
248item
249end>
250NodesAspect = lnaInvisible
251Options = []
252end
253object BoxLine4: TGLLines
254Nodes = <
255item
256end
257item
258end>
259NodesAspect = lnaInvisible
260Options = []
261end
262object XCoordsCube: TGLDummyCube
263CubeSize = 1.000000000000000000
264end
265object YCoordsCube: TGLDummyCube
266CubeSize = 1.000000000000000000
267end
268object ZCoordsCube: TGLDummyCube
269CubeSize = 1.000000000000000000
270end
271object xArrow: TGLArrowLine
272Visible = False
273BottomRadius = 0.100000001490116100
274Height = 1.000000000000000000
275TopRadius = 0.100000001490116100
276TopArrowHeadHeight = 0.500000000000000000
277TopArrowHeadRadius = 0.200000002980232200
278BottomArrowHeadHeight = 0.500000000000000000
279BottomArrowHeadRadius = 0.200000002980232200
280end
281object yArrow: TGLArrowLine
282Visible = False
283BottomRadius = 0.100000001490116100
284Height = 1.000000000000000000
285TopRadius = 0.100000001490116100
286TopArrowHeadHeight = 0.500000000000000000
287TopArrowHeadRadius = 0.200000002980232200
288BottomArrowHeadHeight = 0.500000000000000000
289BottomArrowHeadRadius = 0.200000002980232200
290end
291object AddedField: TGLDummyCube
292CubeSize = 1.000000000000000000
293end
294object VolumeLines: TGLDummyCube
295CubeSize = 1.000000000000000000
296end
297end
298object GLWinBmpFont: TGLWindowsBitmapFont
299Font.Charset = DEFAULT_CHARSET
300Font.Color = clBlack
301Font.Height = -27
302Font.Name = 'Tahoma'
303Font.Style = []
304MagFilter = maNearest
305MinFilter = miNearest
306Left = 64
307Top = 32
308end
309object MainMenu: TMainMenu
310AutoHotkeys = maManual
311OwnerDraw = True
312Left = 248
313Top = 33
314object miFile: TMenuItem
315Caption = '&'#1060#1072#1081#1083
316object miNew: TMenuItem
317Caption = #1053#1086#1074#1099#1081
318OnClick = miNewClick
319end
320object miOpenFile: TMenuItem
321Caption = #1054#1090#1082#1088#1099#1090#1100'...'
322OnClick = miOpenFileClick
323end
324object miRecent: TMenuItem
325Caption = #1055#1086#1089#1083#1077#1076#1085#1080#1077
326end
327object miSave: TMenuItem
328Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
329OnClick = miSaveClick
330end
331object miSaveas: TMenuItem
332Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1082#1072#1082'...'
333OnClick = miSaveasClick
334end
335object N1: TMenuItem
336Caption = '-'
337end
338object miExit: TMenuItem
339Caption = #1042#1099#1093#1086#1076
340OnClick = miExitClick
341end
342end
343object miView: TMenuItem
344Caption = #1042#1080#1076
345object miGraf1d: TMenuItem
346Caption = #1043#1088#1072#1092#1080#1082#1080' y=f(x)...'
347end
348object miGraf2d: TMenuItem
349Caption = #1043#1088#1072#1092#1080#1082#1080' z=f(x,y)...'
350end
351end
352object miOptions: TMenuItem
353Caption = #1054#1087#1094#1080#1080
354object miDefaultLayout: TMenuItem
355Caption = #1048#1089#1093#1086#1076#1085#1099#1077' '#1085#1072#1089#1090#1088#1086#1081#1082#1080
356OnClick = miDefaultLayoutClick
357end
358object N2: TMenuItem
359Caption = '-'
360end
361object miGrid: TMenuItem
362Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1089#1077#1090#1082#1080' '#1082#1086#1086#1088#1076#1080#1085#1072#1090'...'
363OnClick = miGridClick
364end
365object miCoordText: TMenuItem
366Caption = #1054#1089#1080' '#1082#1086#1086#1088#1076#1080#1085#1072#1090'...'
367OnClick = miCoordTextClick
368end
369object miGridColours: TMenuItem
370Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1094#1074#1077#1090#1072' '#1089#1077#1090#1082#1080'...'
371OnClick = miGridColoursClick
372end
373object N3: TMenuItem
374Caption = '-'
375end
376object miEvaluate: TMenuItem
377Caption = #1054#1094#1077#1085#1082#1072' '#1079#1085#1072#1095#1077#1085#1080#1081' '#1092#1091#1085#1082#1094#1080#1080'...'
378OnClick = miEvaluateClick
379end
380object miPlotColours: TMenuItem
381Caption = #1042#1099#1073#1086#1088' '#1094#1074#1077#1090#1072' '#1075#1088#1072#1092#1080#1082#1072'...'
382OnClick = miPlotColoursClick
383end
384object N4: TMenuItem
385Caption = '-'
386end
387object miDerivativeOps: TMenuItem
388Caption = #1055#1088#1086#1080#1079#1074#1086#1076#1085#1099#1077' '#1080' '#1080#1085#1090#1077#1075#1088#1072#1083#1099'...'
389OnClick = miDerivativeOpsClick
390end
391object miDerivativePlotColours: TMenuItem
392Caption = #1062#1074#1077#1090' '#1075#1088#1072#1092#1080#1082#1072' '#1087#1088#1086#1080#1079#1074#1086#1076#1085#1086#1081' '#1080' '#1080#1085#1090#1077#1075#1088#1072#1083#1072'...'
393Enabled = False
394OnClick = miDerivativePlotColoursClick
395end
396end
397object miHelp: TMenuItem
398Caption = #1057#1087#1088#1072#1074#1082#1072
399object miRuwiki: TMenuItem
400Caption = #1056#1091#1074#1080#1082#1080'...'
401end
402object miAbout: TMenuItem
403Caption = #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077'...'
404OnClick = miAboutClick
405end
406end
407end
408end
409