steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cuda.gl: enum>number the flags argument to gl-buffer>resource so that single CUDA flag symbols can be used as arguments

db4
Joe Groff 2010-05-15 16:25:27 -07:00
parent 7c0cd6dc37
commit 5f909cf443
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/cuda/gl/gl.factor
View File

@ -1,7 +1,7 @@
! (c)2010 Joe Groff bsd license
USING: accessors alien.c-types alien.data alien.destructors
continuations cuda cuda.ffi cuda.gl.ffi cuda.utils destructors
fry gpu.buffers kernel ;
alien.enums continuations cuda cuda.ffi cuda.gl.ffi cuda.utils
destructors fry gpu.buffers kernel ;
IN: cuda.gl
: create-gl-cuda-context ( device flags -- context )
@ -13,6 +13,7 @@ IN: cuda.gl
[ [ create-gl-cuda-context ] (set-up-cuda-context) ] dip (with-cuda-context) ; inline
: gl-buffer>resource ( gl-buffer flags -- resource )
enum>number
[ CUgraphicsResource <c-object> ] 2dip
[ cuGraphicsGLRegisterBuffer cuda-error ] 3keep 2drop *void* ; inline