-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathMain.fmx
111 lines (111 loc) · 3.33 KB
/
Main.fmx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
object Form1: TForm1
Left = 0
Top = 0
BorderStyle = Single
Caption = 'TriVoxel'
ClientHeight = 570
ClientWidth = 1030
Position = ScreenCenter
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
OnDestroy = FormDestroy
DesignerMasterStyle = 0
object Timer1: TTimer
Interval = 10
OnTimer = Timer1Timer
Left = 25
Top = 50
end
inline GLViewerP: TGLViewer
Position.X = 10.000000000000000000
Position.Y = 35.000000000000000000
Size.Width = 500.000000000000000000
Size.Height = 500.000000000000000000
Size.PlatformDefault = False
OnMouseDown = GLViewerPMouseDown
OnMouseMove = GLViewerPMouseMove
OnMouseUp = GLViewerPMouseUp
end
inline GLViewerS: TGLViewer
Position.X = 520.000000000000000000
Position.Y = 35.000000000000000000
Size.Width = 500.000000000000000000
Size.Height = 500.000000000000000000
Size.PlatformDefault = False
OnMouseDown = GLViewerPMouseDown
OnMouseMove = GLViewerPMouseMove
OnMouseUp = GLViewerPMouseUp
end
object LabelPV: TLabel
StyledSettings = [Family, Style]
Position.X = 10.000000000000000000
Position.Y = 540.000000000000000000
Size.Width = 450.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 15.000000000000000000
TextSettings.HorzAlign = Trailing
Text = '0'
TabOrder = 4
end
object LabelSV: TLabel
StyledSettings = [Family, Style]
Position.X = 520.000000000000000000
Position.Y = 540.000000000000000000
Size.Width = 450.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 15.000000000000000000
TextSettings.HorzAlign = Trailing
Text = '0'
TabOrder = 1
end
object LabelP: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 10.000000000000000000
Position.Y = 10.000000000000000000
Size.Width = 500.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 15.000000000000000000
Text = 'PEF : Projected Edge Function'
TabOrder = 6
end
object LabelS: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 520.000000000000000000
Position.Y = 10.000000000000000000
Size.Width = 500.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 15.000000000000000000
Text = 'SAT : Separating Axis Theorem'
TabOrder = 5
end
object LabelPVU: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 460.000000000000000000
Position.Y = 540.000000000000000000
Size.Width = 50.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 15.000000000000000000
TextSettings.HorzAlign = Trailing
Text = 'voxels'
TabOrder = 3
end
object LabelSVU: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 970.000000000000000000
Position.Y = 540.000000000000000000
Size.Width = 50.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 15.000000000000000000
TextSettings.HorzAlign = Trailing
Text = 'voxels'
TabOrder = 2
end
end