rabit/r3/Module_Main.bas

Attribute VB_Name = "Module_Main"
Option Explicit
'

Public Function CreateLitVertex(X As Single, Y As Single, Z As Single, Colour As Long, Specular As Long, tU As Single, tV As Single) As LITVERTEX
    
    With CreateLitVertex
        
        .X = X
        .Y = Y
        .Z = Z
        .Color = Colour
        .Specular = Specular
        .tU = tU
        .tV = tV

    End With

End Function

Public Function MakeVector(X As Single, Y As Single, Z As Single) As D3DVECTOR
    
    With MakeVector
        
        .X = X
        .Y = Y
        .Z = Z
        
    End With

End Function

Public Sub Main()

    Form_Start.Show
    Load Form_Debug

End Sub

Public Function GetNormal(v0 As D3DVECTOR, v1 As D3DVECTOR, v2 As D3DVECTOR) As D3DVECTOR

Dim v01 As D3DVECTOR, v02 As D3DVECTOR, vNorm As D3DVECTOR
    
    '1. Get the vectors 0->1 and 0->2
    D3DXVec3Subtract v01, v1, v0
    D3DXVec3Subtract v02, v2, v0
    
    '2. Get the cross product
    D3DXVec3Cross vNorm, v01, v02
    
    '3. Normalize this vector
    D3DXVec3Normalize vNorm, vNorm
        
    '4. Return the value:
    GetNormal = vNorm

End Function

Public Function CreateD3DColorVal(A As Single, R As Single, G As Single, B As Single) As D3DCOLORVALUE
    
    With CreateD3DColorVal
    
        .A = A
        .R = R
        .G = G
        .B = B

    End With

End Function

Public Function Benchmark(lPointer) As Long

Static colBenchmarks As New Collection

    If lPointer > 0 Then
    
        Benchmark = GetTickCount - colBenchmarks(lPointer)
'        colBenchmarks.Remove lPointer
        
    Else
    
        Benchmark = colBenchmarks.Count + 1
        colBenchmarks.Add GetTickCount

    End If

End Function

Public Function UnQuote(strTerm As String) As String

    UnQuote = Replace(strTerm, """", "")

End Function
1	cvsrabit	1.1	Attribute VB_Name = "Module_Main"
2			Option Explicit
3			'
4
5			Public Function CreateLitVertex(X As Single, Y As Single, Z As Single, Colour As Long, Specular As Long, tU As Single, tV As Single) As LITVERTEX
6
7			With CreateLitVertex
8
9			.X = X
10			.Y = Y
11			.Z = Z
12			.Color = Colour
13			.Specular = Specular
14			.tU = tU
15			.tV = tV
16
17			End With
18
19			End Function
20
21			Public Function MakeVector(X As Single, Y As Single, Z As Single) As D3DVECTOR
22
23			With MakeVector
24
25			.X = X
26			.Y = Y
27			.Z = Z
28
29			End With
30
31			End Function
32
33			Public Sub Main()
34
35			Form_Start.Show
36			Load Form_Debug
37
38			End Sub
39
40			Public Function GetNormal(v0 As D3DVECTOR, v1 As D3DVECTOR, v2 As D3DVECTOR) As D3DVECTOR
41
42			Dim v01 As D3DVECTOR, v02 As D3DVECTOR, vNorm As D3DVECTOR
43
44			'1. Get the vectors 0->1 and 0->2
45			D3DXVec3Subtract v01, v1, v0
46			D3DXVec3Subtract v02, v2, v0
47
48			'2. Get the cross product
49			D3DXVec3Cross vNorm, v01, v02
50
51			'3. Normalize this vector
52			D3DXVec3Normalize vNorm, vNorm
53
54			'4. Return the value:
55			GetNormal = vNorm
56
57			End Function
58
59			Public Function CreateD3DColorVal(A As Single, R As Single, G As Single, B As Single) As D3DCOLORVALUE
60
61			With CreateD3DColorVal
62
63			.A = A
64			.R = R
65			.G = G
66			.B = B
67
68			End With
69
70			End Function
71
72			Public Function Benchmark(lPointer) As Long
73
74			Static colBenchmarks As New Collection
75
76			If lPointer > 0 Then
77
78			Benchmark = GetTickCount - colBenchmarks(lPointer)
79			' colBenchmarks.Remove lPointer
80
81			Else
82
83			Benchmark = colBenchmarks.Count + 1
84			colBenchmarks.Add GetTickCount
85
86			End If
87
88			End Function
89
90			Public Function UnQuote(strTerm As String) As String
91
92			UnQuote = Replace(strTerm, """", "")
93
94			End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26