unmaintained/cfdg/gl/gl.factor

   1
   2 USING: kernel alien.c-types namespaces sequences opengl.gl ;
   3
   4 IN: cfdg.gl
   5
   6 : get-modelview-matrix ( -- alien )
   7   GL_MODELVIEW_MATRIX 16 "GLdouble" <c-array> tuck glGetDoublev ;
   8
   9 SYMBOL: modelview-matrix-stack
  10
  11 : init-modelview-matrix-stack ( -- ) V{ } clone modelview-matrix-stack set ;
  12
  13 : push-modelview-matrix ( -- )
  14   get-modelview-matrix modelview-matrix-stack get push ;
  15
  16 : pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;