Vector Compare

''' ---------------
''' Compare two 3D vectors for equality
''' ---------------

Function VectorCompare(v1, v2)
VectorCompare = vbFalse

If v1(XX) = v2(XX) And v1(YY) = v2(YY) And v1(ZZ) = v2(ZZ) Then
VectorCompare = vbTrue
End If

End Function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License