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

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

db4
Joe Groff 2009-08-26 15:05:07 -05:00
parent 8f99661f9a
commit eae92a404a
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 ;