pixel-unpack-buffer pixel-pack-buffer
transform-feedback-buffer ;
-TUPLE: buffer < gpu-object
+TUPLE: buffer < gpu-object
{ upload-pattern buffer-upload-pattern }
{ usage-pattern buffer-usage-pattern }
{ kind buffer-kind } ;
M: buffer dispose
[ [ delete-gl-buffer ] when* f ] change-handle drop ;
-TUPLE: buffer-ptr
+TUPLE: buffer-ptr
{ buffer buffer read-only }
{ offset integer read-only } ;
C: <buffer-ptr> buffer-ptr
pick buffer-ptr?
[ with-buffer-ptr ]
[ [ gl-target 0 glBindBuffer ] dip call ] if ; inline
-