Changeset 67 for Include/abgl.ab


Ignore:
Timestamp:
Jan 17, 2007, 4:38:41 AM (18 years ago)
Author:
NoWest
Message:

Vector Classes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/abgl.ab

    r63 r67  
    44#include <GL/gl.sbp>
    55#include <GL/glu.sbp>
     6
     7Type XY_FLOAT
     8    x As GLfloat
     9    y As GLfloat
     10End Type
     11
     12Type XY_DOUBLE
     13    x As GLdouble
     14    y As GLdouble
     15End Type
     16
     17Class Vector2f
     18Public /* constructor */
     19    Sub Vector2f(x As GLfloat, y As GLfloat)
     20        This.X=x
     21        This.Y=y
     22    End Sub
     23
     24Public /* destructor */
     25    Sub ~Vector2f()
     26    End Sub
     27
     28Public /* property */
     29    Function X() As GLfloat
     30        Return xy.x
     31    End Function
     32    Function Y() As GLfloat
     33        Return xy.y
     34    End Function
     35    Sub X(x As GLfloat)
     36        xy.x=x
     37    End Sub
     38    Sub Y(y As GLfloat)
     39        xy.y=y
     40    End Sub
     41
     42Public /* operator */
     43    Sub Operator = (vec As Vector2f)
     44        This.X=vec.X
     45        This.Y=vec.Y
     46    End Sub
     47    Function Operator + (vec1 As Vector2f, vec2 As Vector2f) As Vector2f
     48        Return Add(vec1,vec2)
     49    End Function
     50    Function Operator - (vec1 As Vector2f, vec2 As Vector2f) As Vector2f
     51        Return Substract(vec1,vec2)
     52    End Function
     53/*  Function Operator * (vec1 As Vector2f, vec2 As Vector2f) As Vector2f
     54        Return Dot(vec1,vec2)
     55    End Function
     56*/
     57    Function Operator * (vec As Vector2f, sca As GLfloat) As Vector2f
     58        Dim ret As Vector2f(vec.X*sca,vec.Y*sca)
     59        Return ret
     60    End Function
     61    Function Operator / (vec As Vector2f, sca As GLfloat) As Vector2f
     62        Dim ret As Vector2f(vec.X/sca,vec.Y/sca)
     63        Return ret
     64    End Function
     65
     66
     67Public /* method */
     68    Function Add(vec1 As Vector2f, vec2 As Vector2f) As Vector2f
     69        Dim ret As Vector2f(vec1.X+vec2.X,vec1.Y+vec2.Y)
     70        Return ret
     71    End Function
     72    Function Distance(vec1 As Vector2f, vec2 As Vector2f) As GLfloat
     73        Dim ret As Vector2f
     74        ret=vec1-vec2
     75        Return ret.Magnitude
     76    End Function
     77    Function Dot(vec1 As Vector2f, vec2 As Vector2f) As GLfloat
     78        Return vec1.X*vec2.X+vec1.Y*vec2.Y
     79    End Function
     80    Function Magnitude() As GLfloat
     81        Return Math.Sqrt(This.X^2+This.Y^2) As GLfloat
     82    End Function
     83    Sub Normalize()
     84        Dim ret As Vector2f(This.X/This.Magnitude,This.Y/This.Magnitude)
     85        This = ret
     86    End Sub
     87    Function NormalizedVector() As Vector2f
     88        Dim ret As Vector2f(This.X/This.Magnitude,This.Y/This.Magnitude)
     89        Return ret
     90    End Function
     91    Function Substract(vec1 As Vector2f, vec2 As Vector2f) As Vector2f
     92        Dim ret As Vector2f(vec1.X-vec2.X,vec1.Y-vec2.Y)
     93        Return ret
     94    End Function
     95    Sub Reverse()
     96        Dim ret As Vector2f(-This.X,-This.Y)
     97        This = ret
     98    End Sub
     99    Function ReversedVector() As Vector2f
     100        Dim ret As Vector2f(-This.X,-This.Y)
     101        Return ret
     102    End Function
     103
     104Protected
     105    xy As XY_FLOAT
     106End Class
     107
     108Class Vector2d
     109Public /* constructor */
     110    Sub Vector2d(x As GLdouble, y As GLdouble)
     111        xy.x=x
     112        xy.y=y
     113    End Sub
     114
     115Public /* destructor */
     116    Sub ~Vector2d()
     117    End Sub
     118
     119Public /* property */
     120    Function X() As GLdouble
     121        Return xy.x
     122    End Function
     123    Function Y() As GLdouble
     124        Return xy.y
     125    End Function
     126    Sub X(x As GLdouble)
     127        xy.x=x
     128    End Sub
     129    Sub Y(y As GLdouble)
     130        xy.y=y
     131    End Sub
     132
     133Public /* operator */
     134    Sub Operator = (vec As Vector2d)
     135        This.X=vec.X
     136        This.Y=vec.Y
     137    End Sub
     138    Function Operator + (vec1 As Vector2d, vec2 As Vector2d) As Vector2d
     139        Return Add(vec1,vec2)
     140    End Function
     141    Function Operator - (vec1 As Vector2d, vec2 As Vector2d) As Vector2d
     142        Return Substract(vec1,vec2)
     143    End Function
     144/*  Function Operator * (vec1 As Vector2d, vec2 As Vector2d) As Vector2d
     145        Return Dot(vec1,vec2)
     146    End Function
     147*/
     148    Function Operator * (vec As Vector2d, sca As GLfloat) As Vector2d
     149        Dim ret As Vector2d(vec.X*sca,vec.Y*sca)
     150        Return ret
     151    End Function
     152    Function Operator / (vec As Vector2d, sca As GLfloat) As Vector2d
     153        Dim ret As Vector2d(vec.X/sca,vec.Y/sca)
     154        Return ret
     155    End Function
     156
     157
     158Public /* method */
     159    Function Add(vec1 As Vector2d, vec2 As Vector2d) As Vector2d
     160        Dim ret As Vector2d(vec1.X+vec2.X,vec1.Y+vec2.Y)
     161        Return ret
     162    End Function
     163    Function Distance(vec1 As Vector2d, vec2 As Vector2d) As GLfloat
     164        Dim ret As Vector2d
     165        ret=vec1-vec2
     166        Return ret.Magnitude
     167    End Function
     168    Function Dot(vec1 As Vector2d, vec2 As Vector2d) As GLfloat
     169        Return vec1.X*vec2.X+vec1.Y*vec2.Y
     170    End Function
     171    Function Magnitude() As GLfloat
     172        Return Math.Sqrt(This.X^2+This.Y^2) As GLfloat
     173    End Function
     174    Sub Normalize()
     175        Dim ret As Vector2d(This.X/This.Magnitude,This.Y/This.Magnitude)
     176        This = ret
     177    End Sub
     178    Function NormalizedVector() As Vector2d
     179        Dim ret As Vector2d(This.X/This.Magnitude,This.Y/This.Magnitude)
     180        Return ret
     181    End Function
     182    Function Substract(vec1 As Vector2d, vec2 As Vector2d) As Vector2d
     183        Dim ret As Vector2d(vec1.X-vec2.X,vec1.Y-vec2.Y)
     184        Return ret
     185    End Function
     186    Sub Reverse()
     187        Dim ret As Vector2d(-This.X,-This.Y)
     188        This = ret
     189    End Sub
     190    Function ReversedVector() As Vector2d
     191        Dim ret As Vector2d(-This.X,-This.Y)
     192        Return ret
     193    End Function
     194
     195Protected
     196    xz As XY_DOUBLE
     197End Class
     198
    6199
    7200Type XYZ_FLOAT
     
    88281    xyz As XYZ_DOUBLE
    89282End Class
     283
    90284
    91285Type RGB_FLOAT
Note: See TracChangeset for help on using the changeset viewer.