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

use single-precision floats in bunny vertex buffers for much better performance

db4
Joe Groff 2008-07-11 19:34:42 -07:00
parent 109f7685c0
commit b19c3ee65e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/bunny/model/model.factor
View File

@ -2,7 +2,7 @@ USING: alien alien.c-types arrays sequences math math.vectors
math.matrices math.parser io io.files kernel opengl opengl.gl math.matrices math.parser io io.files kernel opengl opengl.gl
opengl.glu io.encodings.ascii opengl.capabilities shuffle opengl.glu io.encodings.ascii opengl.capabilities shuffle
http.client vectors splitting system combinators http.client vectors splitting system combinators
float-arrays continuations destructors namespaces sequences.lib continuations destructors namespaces sequences.lib
accessors ; accessors ;
IN: bunny.model IN: bunny.model
@ -66,7 +66,7 @@ TUPLE: bunny-buffers array element-array nv ni ;
{ {
[ [
[ first concat ] [ second concat ] bi [ first concat ] [ second concat ] bi
append >c-double-array append >c-float-array
GL_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer> GL_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer>
] ]
[ [
@ -86,10 +86,10 @@ M: bunny-dlist bunny-geom
M: bunny-buffers bunny-geom M: bunny-buffers bunny-geom
dup { array>> element-array>> } get-slots [ dup { array>> element-array>> } get-slots [
{ GL_VERTEX_ARRAY GL_NORMAL_ARRAY } [ { GL_VERTEX_ARRAY GL_NORMAL_ARRAY } [
GL_DOUBLE 0 0 buffer-offset glNormalPointer GL_FLOAT 0 0 buffer-offset glNormalPointer
[ [
nv>> "double" heap-size * buffer-offset nv>> "float" heap-size * buffer-offset
3 GL_DOUBLE 0 roll glVertexPointer 3 GL_FLOAT 0 roll glVertexPointer
] [ ] [
ni>> ni>>
GL_TRIANGLES swap GL_UNSIGNED_INT 0 buffer-offset glDrawElements GL_TRIANGLES swap GL_UNSIGNED_INT 0 buffer-offset glDrawElements