2D Vector Object

[rdc]

I don't think I posted this yet (I didn't see it at least) so: Here is a 2D vector object that I wrote for DDD2. It has some simple translation operators that I needed. More could easily be added.

Code: [Select]

/'****************************************************************************
*
* Name: vec.bas
*
* Synopsis: 2D Vector object
*
* Description: This implements a 2D vector as an object along with useful operators.
*
* Copyright 2006, Richard D. Clark
*
*                          The Wide Open License (WOL)
*
* Permission to use, copy, modify, distribute and sell this software and its
* documentation for any purpose is hereby granted without fee, provided that
* the above copyright notice and this license appear in all source copies.
* THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY OF
* ANY KIND. See http://www.dspguru.com/wol.htm for more information.
*
*****************************************************************************'/

'2D Vector type.
Type vec
Private:
_x As Integer
_y As Integer
Public:
Declare Constructor ()
Declare Constructor (x As Integer, y As Integer)
Declare Property vx (x As Integer)
Declare Property vx () As Integer
Declare Property vy (y As Integer)
Declare Property vy () As Integer
Declare Operator Let (rhs As vec)
Declare Operator += (rhs As vec)
Declare Operator += (rhs As Integer)
Declare Operator -= (rhs As vec)
Declare Operator -= (rhs As Integer)
Declare Operator *= (rhs As Double)
Declare Sub ClearVec()
End Type

'Empty constructor. Used when part of another object.
Constructor vec ()
_x = 0
_y = 0
End Constructor

'Initialzed vector.
Constructor vec (x As Integer, y As Integer)
_x = x
_y = y
End Constructor

'Properties to set and return the x and y components.
Property vec.vx (x As Integer)
_x = x
End Property

Property vec.vx () As Integer
Return _x
End Property

Property vec.vy (y As Integer)
_y = y
End Property

Property vec.vy () As Integer
Return _y
End Property

'Assignment operator.
Operator vec.Let (rhs As vec)
_x = rhs.vx
_y = rhs.vy
End Operator

'Translation operators. These operate on both components.
Operator vec.+= (rhs As vec)
_x += rhs.vx
_y += rhs.vy
End Operator

Operator vec.+= (rhs As Integer)
_x += rhs
_y += rhs
End Operator

Operator vec.-= (rhs As vec)
_x -= rhs.vx
_y -= rhs.vy
End Operator

Operator vec.-= (rhs As Integer)
_x -= rhs
_y -= rhs
End Operator

'Scaling operator.
Operator vec.*= (rhs As Double)
_x *= rhs
_y *= rhs
End Operator

'Translation operators.
Operator + (lhs As vec, rhs As vec) As vec
Dim tmp As vec

tmp.vx = lhs.vx + rhs.vx
tmp.vy = lhs.vy + rhs.vy

Return tmp
End Operator

Operator - (lhs As vec, rhs As vec) As vec
Dim tmp As vec

tmp.vx = lhs.vx - rhs.vx
tmp.vy = lhs.vy - rhs.vy

Return tmp
End Operator

'Scale operator.
Operator * (lhs As vec, rhs As Double) As vec
Dim tmp As vec

tmp.vx = lhs.vx * rhs
tmp.vy = lhs.vy * rhs

Return tmp
End Operator

'Sets vector to 0.
Sub vec.Clearvec ()
_x = 0
_y = 0
End Sub

'*****************************************************************************
'*****************************************************************************

'Test program.

Dim v1 As vec
Dim v2 As vec = vec(10, 10)
Dim v3 As vec

'Show initial values.
Print "Inital Values"
Print "Vector 1 x: " & v1.vx & " y: " & v1.vy
Print "Vector 2 x: " & v2.vx & " y: " & v2.vy
Print

'Translate vec1 by 1.
v1 += 1
v2 += 1
Print "Translate +1"
Print "Vector 1 x: " & v1.vx & " y: " & v1.vy
Print "Vector 2 x: " & v2.vx & " y: " & v2.vy
Print

'Translate by -1.
v2 -= 1
Print "Translate -1"
Print "Vector 2 x: " & v2.vx & " y: " & v2.vy
Print

'Scale by .5
v2 *= .5
Print "Scale .5"
Print "Vector 2 x: " & v2.vx & " y: " & v2.vy
Print

'Translate operators
v1 += v2
Print "Translate by Vector (+=)"
Print "Vector 1 x: " & v1.vx & " y: " & v1.vy
Print

v1 -= v2
Print "Translate by Vector (-=)"
Print "Vector 1 x: " & v1.vx & " y: " & v1.vy
Print

v3 = v1 + v2
Print "Translate by Vector (+)"
Print "Vector 3 x: " & v3.vx & " y: " & v3.vy
Print

v3 = v1 - v2
Print "Translate by Vector (-)"
Print "Vector 3 x: " & v3.vx & " y: " & v3.vy
Print

v2 += 1
v3 = v2 * .5
Print "Scale by Vector (*)"
Print "Vector 3 x: " & v3.vx & " y: " & v3.vy
Print

v3.ClearVec
Print "Clear Vector"
Print "Vector 3 x: " & v3.vx & " y: " & v3.vy
Print

Sleep