Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
vectorverwaltung mit oop v.1
| Uploader: |  csde_rats |
| Datum/Zeit: | 23.11.2007 17:11:38 |
Type Vector2D
Declare Property x() As Integer
Declare Property x(i As Integer)
Declare Property y() As Integer
Declare Property y(i As Integer)
Declare Sub xy(i1 As Integer, i2 As Integer)
Private:
_x As Integer
_y As Integer
End Type
Property Vector2D.x() As Integer
Return this._x
End Property
Property Vector2D.x(i As Integer)
this._x = i
End Property
Property Vector2D.y(i As Integer)
this._y = i
End Property
Property Vector2D.y() As Integer
Return this._y
End Property
Sub Vector2D.xy(i1 As Integer, i2 As Integer)
this._x = i1
this._y = i2
End Sub
Type Vector3D
Declare Property x() As Integer
Declare Property x(i As Integer)
Declare Property y() As Integer
Declare Property y(i As Integer)
Declare Property z() As Integer
Declare Property z(i As Integer)
Declare Sub xyz(i1 As Integer, i2 As Integer, i3 As Integer)
Private:
_x As Integer
_y As Integer
_z As Integer
End Type
Property Vector3D.x() As Integer
Return this._x
End Property
Property Vector3D.x(i As Integer)
this._x = i
End Property
Property Vector3D.y(i As Integer)
this._y = i
End Property
Property Vector3D.y() As Integer
Return this._y
End Property
Property Vector3D.z(i As Integer)
this._z = i
End Property
Property Vector3D.z() As Integer
Return this._z
End Property
Sub Vector3D.xyz(i1 As Integer, i2 As Integer, i3 As Integer)
this._x = i1
this._y = i2
this._z = i3
End Sub