unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / cfdg / gl / gl.factor

diff --git a/cfdg/gl/gl.factor b/cfdg/gl/gl.factor
new file mode 100644 (file)
index 0000000..a54f4ca
--- /dev/null
+++ b/cfdg/gl/gl.factor
@@ -0,0 +1,16 @@
+
+USING: kernel alien.c-types namespaces sequences opengl.gl ;
+
+IN: cfdg.gl
+
+: get-modelview-matrix ( -- alien )
+  GL_MODELVIEW_MATRIX 16 "GLdouble" <c-array> tuck glGetDoublev ;
+
+SYMBOL: modelview-matrix-stack
+
+: init-modelview-matrix-stack ( -- ) V{ } clone modelview-matrix-stack set ;
+
+: push-modelview-matrix ( -- )
+  get-modelview-matrix modelview-matrix-stack get push ;
+
+: pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;