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

gpu.buffers: allocate-byte-array word, equivalent to [ byte-length ] keep allocate-buffer

db4
Joe Groff 2010-02-05 14:07:45 -08:00
parent 60561dd490
commit a9586de62d
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/gpu/buffers/buffers-docs.factor
View File

@ -34,6 +34,12 @@ HELP: allocate-buffer
}
{ $description "Discards any memory currently held by " { $snippet "buffer" } " and reallocates a new memory block of " { $snippet "size" } " bytes for it. If " { $snippet "initial-data" } " is not " { $link f } ", " { $snippet "size" } " bytes are copied from " { $snippet "initial-data" } " into the buffer to initialize it; otherwise, the buffer content is left uninitialized." } ;
HELP: allocate-byte-array
{ $values
{ "buffer" buffer } { "byte-array" byte-array }
}
{ $description "Discards any memory currently held by " { $snippet "buffer" } " and reallocates a new memory block large enough to store " { $snippet "byte-array" } ". The contents of " { $snippet "byte-array" } " are then copied into the buffer." } ;
HELP: buffer
{ $class-description "Objects of this class represent GPU-accessible memory buffers. Buffer objects can be used to store vertex data and to update or read pixel data from textures and framebuffers without CPU involvement. The data inside buffer objects may be resident in main memory or different parts of GPU memory; the graphics driver will choose a location for a buffer based on usage hints specified when the buffer object is constructed with " { $link <buffer> } " or " { $link byte-array>buffer } ":"
{ $list
@ -201,7 +207,7 @@ HELP: with-mapped-buffer
}
{ $description "Maps " { $snippet "buffer" } " into CPU address space with " { $snippet "access" } " for the dynamic extent of " { $snippet "quot" } ". " { $snippet "quot" } " is called with a pointer to the mapped memory on top of the stack." } ;
{ allocate-buffer buffer-size update-buffer read-buffer copy-buffer with-mapped-buffer } related-words
{ allocate-buffer allocate-byte-array buffer-size update-buffer read-buffer copy-buffer with-mapped-buffer } related-words
HELP: write-access
{ $class-description "This " { $link buffer-access-mode } " value requests write-only access when mapping a buffer object through " { $link with-mapped-buffer } "." } ;
@ -229,6 +235,7 @@ ARTICLE: "gpu.buffers" "Buffer objects"
"Manipulating buffer data:"
{ $subsections
allocate-buffer
allocate-byte-array
update-buffer
read-buffer
copy-buffer

7
extra/gpu/buffers/buffers.factor
View File

@ -86,9 +86,12 @@ TYPED: buffer-size ( buffer: buffer -- size: integer )
2dup [ buffer-size ] dip -
buffer-range boa ; inline
TYPED:: allocate-buffer ( buffer: buffer size: integer initial-data -- )
:: allocate-buffer ( buffer size initial-data -- )
buffer bind-buffer :> target
target size initial-data buffer gl-buffer-usage glBufferData ;
target size initial-data buffer gl-buffer-usage glBufferData ; inline
: allocate-byte-array ( buffer byte-array -- )
[ byte-length ] [ ] bi allocate-buffer ; inline
TYPED: <buffer> ( upload: buffer-upload-pattern
usage: buffer-usage-pattern