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

update gpu.demos.bunny for alien.arrays boxing change

Joe Groff 2009-08-26 15:05:07 -05:00
parent 27164bdbee
commit f9f53b83b0
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/gpu/demos/bunny/bunny.factor
View File

@ -4,8 +4,7 @@ game-worlds gpu gpu.buffers gpu.util.wasd gpu.framebuffers gpu.render
gpu.shaders gpu.state gpu.textures gpu.util grouping http.client images gpu.shaders gpu.state gpu.textures gpu.util grouping http.client images
images.loader io io.encodings.ascii io.files io.files.temp images.loader io io.encodings.ascii io.files io.files.temp
kernel math math.matrices math.parser math.vectors kernel math math.matrices math.parser math.vectors
method-chains sequences specialized-arrays.direct.float method-chains sequences specialized-arrays.float specialized-vectors.uint splitting
specialized-arrays.float specialized-vectors.uint splitting
struct-vectors threads ui ui.gadgets ui.gadgets.worlds struct-vectors threads ui ui.gadgets ui.gadgets.worlds
ui.pixel-formats ; ui.pixel-formats ;
IN: gpu.demos.bunny IN: gpu.demos.bunny
@ -99,10 +98,10 @@ UNIFORM-TUPLE: loading-uniforms
: calc-bunny-normal ( vertexes indexes -- ) : calc-bunny-normal ( vertexes indexes -- )
swap swap
[ [ nth bunny-vertex-struct-vertex 3 <direct-float-array> ] curry { } map-as normal ] [ [ nth bunny-vertex-struct-vertex ] curry { } map-as normal ]
[ [
[ [
nth [ bunny-vertex-struct-normal 3 <direct-float-array> v+ ] keep nth [ bunny-vertex-struct-normal v+ ] keep
set-bunny-vertex-struct-normal set-bunny-vertex-struct-normal
] curry with each ] curry with each
] 2bi ; ] 2bi ;
@ -113,7 +112,7 @@ UNIFORM-TUPLE: loading-uniforms
: normalize-bunny-normals ( vertexes -- ) : normalize-bunny-normals ( vertexes -- )
[ [
[ bunny-vertex-struct-normal 3 <direct-float-array> normalize ] keep [ bunny-vertex-struct-normal normalize ] keep
set-bunny-vertex-struct-normal set-bunny-vertex-struct-normal
] each ; ] each ;