/[cvs]/rabit/r3/Class_GeoObject.cls
ViewVC logotype

Contents of /rabit/r3/Class_GeoObject.cls

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Tue Mar 12 21:29:07 2002 UTC (22 years ago) by cvsrabit
Branch: NFO, MAIN
CVS Tags: v034a, HEAD
Changes since 1.1: +0 -0 lines
Initial project import

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_GeoObject"
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 lMaterialIndex As Long
19 Public lVertexBufferIndex As Long
20
21 Public strName As String
22
23 Public sgPositionX As Single
24 Public sgPositionY As Single
25 Public sgPositionZ As Single
26
27 Public lVertexCount As Long
28
29 ' --- private --------------------------------------------------------------------------------------------
30
31 Private prvclD3DVertexBuffer As Direct3DVertexBuffer8
32 '
33
34 Property Let D3DVertexBuffer(ByVal clD3DVertexBuffer As Direct3DVertexBuffer8)
35
36 Set prvclD3DVertexBuffer = clD3DVertexBuffer
37
38 End Property
39
40 Property Get D3DVertexBuffer() As Direct3DVertexBuffer8
41
42 Set D3DVertexBuffer = prvclD3DVertexBuffer
43
44 End Property

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed