rabit/RaBit%27s%20Rapid%20Racers/Class_TrackSegment.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_TrackSegment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

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

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

Private prvtpVecPoint1 As D3DVECTOR
Private prvtpVecPoint2 As D3DVECTOR
'

Public Sub SetPoints(tpVecPoint1 As D3DVECTOR, tpVecPoint2 As D3DVECTOR)

    prvtpVecPoint1 = tpVecPoint1
    prvtpVecPoint2 = tpVecPoint2

End Sub

Public Function GetSide(tpVecPoint As D3DVECTOR) As Boolean

Dim sgVsX As Single
Dim sgVsZ As Single

Dim sgVnX As Single
Dim sgVnZ As Single

Dim sgVpX As Single
Dim sgVpZ As Single

Dim sgScalar As Single

    sgVsX = prvtpVecPoint2.X - prvtpVecPoint1.X ' Vs
    sgVsZ = prvtpVecPoint2.Z - prvtpVecPoint1.Z

    sgVnX = sgVsZ ' normal of Vs
    sgVnZ = -sgVsX

    sgVpX = tpVecPoint.X - prvtpVecPoint1.X ' Vs
    sgVpZ = tpVecPoint.Z - prvtpVecPoint1.Z ' Vs

    sgScalar = sgVpX * sgVnX + sgVpZ * sgVnZ

    GetSide = sgScalar < 0

End Function
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_TrackSegment"
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	' --- private --------------------------------------------------------------------------------------------
19
20	Private prvtpVecPoint1 As D3DVECTOR
21	Private prvtpVecPoint2 As D3DVECTOR
22	'
23
24	Public Sub SetPoints(tpVecPoint1 As D3DVECTOR, tpVecPoint2 As D3DVECTOR)
25
26	prvtpVecPoint1 = tpVecPoint1
27	prvtpVecPoint2 = tpVecPoint2
28
29	End Sub
30
31	Public Function GetSide(tpVecPoint As D3DVECTOR) As Boolean
32
33	Dim sgVsX As Single
34	Dim sgVsZ As Single
35
36	Dim sgVnX As Single
37	Dim sgVnZ As Single
38
39	Dim sgVpX As Single
40	Dim sgVpZ As Single
41
42	Dim sgScalar As Single
43
44	sgVsX = prvtpVecPoint2.X - prvtpVecPoint1.X ' Vs
45	sgVsZ = prvtpVecPoint2.Z - prvtpVecPoint1.Z
46
47	sgVnX = sgVsZ ' normal of Vs
48	sgVnZ = -sgVsX
49
50	sgVpX = tpVecPoint.X - prvtpVecPoint1.X ' Vs
51	sgVpZ = tpVecPoint.Z - prvtpVecPoint1.Z ' Vs
52
53	sgScalar = sgVpX * sgVnX + sgVpZ * sgVnZ
54
55	GetSide = sgScalar < 0
56
57	End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26