rabit/r3/Class_Scene.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class_Scene"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

' --- public ----------------------------------------------------------------------------------------------

Public lAmbientLightColour As Long
Public lBackgroundColour As Long

Public Col_clGeoObjects As New Collection
Public Col_clMaterials As New Collection

Public Col_clSounds As New Collection

Public Col_clTrackSegments As New Collection

'Public sgAreaMinX
'Public sgAreaMaxX
'Public sgAreaMinY
'Public sgAreaMaxY
'Public sgAreaMinZ
'Public sgAreaMaxZ

' --- private --------------------------------------------------------------------------------------------

Private prvtpVecPlayerStartPosition As D3DVECTOR

'

Public Property Get VecPlayerStartPosition() As D3DVECTOR

    VecPlayerStartPosition = prvtpVecPlayerStartPosition

End Property

Public Property Let VecPlayerStartPosition(tpPlayerStartPosition As D3DVECTOR)

    prvtpVecPlayerStartPosition = tpPlayerStartPosition

End Property
1	VERSION 1.0 CLASS
2	BEGIN
3	MultiUse = -1 'True
4	Persistable = 0 'NotPersistable
5	DataBindingBehavior = 0 'vbNone
6	DataSourceBehavior = 0 'vbNone
7	MTSTransactionMode = 0 'NotAnMTSObject
8	END
9	Attribute VB_Name = "Class_Scene"
10	Attribute VB_GlobalNameSpace = False
11	Attribute VB_Creatable = True
12	Attribute VB_PredeclaredId = False
13	Attribute VB_Exposed = False
14	Option Explicit
15
16	' --- public ----------------------------------------------------------------------------------------------
17
18	Public lAmbientLightColour As Long
19	Public lBackgroundColour As Long
20
21	Public Col_clGeoObjects As New Collection
22	Public Col_clMaterials As New Collection
23
24	Public Col_clSounds As New Collection
25
26	Public Col_clTrackSegments As New Collection
27
28	'Public sgAreaMinX
29	'Public sgAreaMaxX
30	'Public sgAreaMinY
31	'Public sgAreaMaxY
32	'Public sgAreaMinZ
33	'Public sgAreaMaxZ
34
35	' --- private --------------------------------------------------------------------------------------------
36
37	Private prvtpVecPlayerStartPosition As D3DVECTOR
38
39	'
40
41	Public Property Get VecPlayerStartPosition() As D3DVECTOR
42
43	VecPlayerStartPosition = prvtpVecPlayerStartPosition
44
45	End Property
46
47	Public Property Let VecPlayerStartPosition(tpPlayerStartPosition As D3DVECTOR)
48
49	prvtpVecPlayerStartPosition = tpPlayerStartPosition
50
51	End Property
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26