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	cvsrabit	1.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