Changeset 63 for Include/abgl.ab

Timestamp:

Jan 16, 2007, 8:13:22 PM (18 years ago)

Author:

NoWest

Message:

 

File:

• Include/abgl.ab (modified) (3 diffs)

Include/abgl.ab

@@ -4 +4 @@
 #include <GL/gl.sbp>
 #include <GL/glu.sbp>
+
+Type XYZ_FLOAT
+    x As GLfloat
+    y As GLfloat
+    z As GLfloat
+End Type
+
+Type XYZ_DOUBLE
+    x As GLdouble
+    y As GLdouble
+    z As GLdouble
+End Type
+
+Class Vector3f
+Public /* constructor */
+    Sub Vector3f(x As GLfloat, y As GLfloat, z As GLfloat)
+        xyz.x=x
+        xyz.y=y
+        xyz.z=z
+    End Sub
+
+Public /* destructor */
+    Sub ~Vector3f()
+    End Sub
+
+Public /* property */
+    Function X() As GLfloat
+        Return xyz.x
+    End Function
+    Function Y() As GLfloat
+        Return xyz.y
+    End Function
+    Function Z() As GLfloat
+        Return xyz.z
+    End Function
+    Sub X(x As GLfloat)
+        xyz.x=x
+    End Sub
+    Sub Y(y As GLfloat)
+        xyz.y=y
+    End Sub
+    Sub Z(z As GLfloat)
+        xyz.z=z
+    End Sub
+
+Protected
+    xyz As XYZ_FLOAT
+End Class
+
+Class Vector3d
+Public /* constructor */
+    Sub Vector3d(x As GLdouble, y As GLdouble, z As GLdouble)
+        xyz.x=x
+        xyz.y=y
+        xyz.z=z
+    End Sub
+
+Public /* destructor */
+    Sub ~Vector3d()
+    End Sub
+
+Public /* property */
+    Function X() As GLdouble
+        Return xyz.x
+    End Function
+    Function Y() As GLdouble
+        Return xyz.y
+    End Function
+    Function Z() As GLdouble
+        Return xyz.z
+    End Function
+    Sub X(x As GLdouble)
+        xyz.x=x
+    End Sub
+    Sub Y(y As GLdouble)
+        xyz.y=y
+    End Sub
+    Sub Z(z As GLdouble)
+        xyz.z=z
+    End Sub
+
+Protected
+    xyz As XYZ_DOUBLE
+End Class
 
 Type RGB_FLOAT
@@ -886 +970 @@
         Lights[6].Light(GL_LIGHT6)
         Lights[7].Light(GL_LIGHT7)
-    End Sub
-    Sub RenderingContext(hdc As HDC)
-        RenderingContext()
     End Sub
     Sub RenderingContext(hdc As HDC, ByRef pfd As PIXELFORMATDESCRIPTOR)
@@ -948 +1029 @@
         RenderingContext(hdc,pfd)
     End Sub
+    Sub RenderingContext(hdc As HDC)
+        RenderingContext(hdc As HDC, ColorType.RgbColor, BufferType.DoubleBuffer)
+    End Sub
 
 Public /* Destructor */