Index: /Include/abgl.ab
===================================================================
--- /Include/abgl.ab	(revision 62)
+++ /Include/abgl.ab	(revision 63)
@@ -4,4 +4,88 @@
 #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,7 +970,4 @@
 		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,4 +1029,7 @@
 		RenderingContext(hdc,pfd)
 	End Sub
+	Sub RenderingContext(hdc As HDC)
+		RenderingContext(hdc As HDC, ColorType.RgbColor, BufferType.DoubleBuffer)
+	End Sub
 
 Public /* Destructor */