cuda.gl: with-mapped-cuda-buffer helper word

2010-05-25 00:37:15 -07:00 · 2010-05-25 00:37:15 -07:00 · bbe156f3de
parent ee995b4770
commit bbe156f3de
1 changed files with 3 additions and 0 deletions
--- a/extra/cuda/gl/gl.factor
+++ b/extra/cuda/gl/gl.factor
@ -50,3 +50,6 @@ TUPLE: cuda-buffer
 M: cuda-buffer dispose
    [ [ free-resource ] when* f ] change-resource
    buffer>> dispose ; inline
+
+: with-mapped-cuda-buffer ( ..a cuda-buffer quot: ( ..a device-ptr size -- ..b ) -- ..b )
+    [ resource>> ] dip with-mapped-resource ; inline