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

gpu.demos.bunny: tokenize model file as it's read to avoid an extra splitting-and-filtering pass

db4
Joe Groff 2009-10-23 00:08:14 -05:00
parent d5d89f03a7
commit 15f4196d43
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@ gpu.util.wasd gpu.framebuffers gpu.render gpu.shaders gpu.state
gpu.textures gpu.util grouping http.client images images.loader gpu.textures gpu.util grouping http.client images images.loader
io io.encodings.ascii io.files io.files.temp kernel locals math io io.encodings.ascii io.files io.files.temp kernel locals math
math.matrices math.vectors.simd math.parser math.vectors math.matrices math.vectors.simd math.parser math.vectors
method-chains sequences splitting threads ui ui.gadgets method-chains namespaces sequences splitting threads ui ui.gadgets
ui.gadgets.worlds ui.pixel-formats specialized-arrays ui.gadgets.worlds ui.pixel-formats specialized-arrays
specialized-vectors ; specialized-vectors ;
FROM: alien.c-types => float ; FROM: alien.c-types => float ;
@ -79,13 +79,30 @@ UNIFORM-TUPLE: loading-uniforms
{ "texcoord-scale" vec2-uniform f } { "texcoord-scale" vec2-uniform f }
{ "loading-texture" texture-uniform f } ; { "loading-texture" texture-uniform f } ;
: numbers ( str -- seq ) : numbers ( tokens -- seq )
" " split [ empty? not ] filter [ string>number ] map ; inline [ string>number ] map ; inline
: <bunny-vertex> ( vertex -- struct ) : <bunny-vertex> ( vertex -- struct )
bunny-vertex-struct <struct> bunny-vertex-struct <struct>
swap first3 0.0 float-4-boa >>vertex ; inline swap first3 0.0 float-4-boa >>vertex ; inline
: (read-line-tokens) ( seq stream -- seq )
" \n" over stream-read-until
[ [ pick push ] unless-empty ]
[
{
{ CHAR: \s [ (read-line-tokens) ] }
{ CHAR: \n [ drop ] }
[ 2drop [ f ] when-empty ]
} case
] bi* ; inline recursive
: stream-read-line-tokens ( stream -- seq )
V{ } clone swap (read-line-tokens) ;
: each-line-tokens ( quot -- )
input-stream get [ stream-read-line-tokens ] curry each-morsel ; inline
: (parse-bunny-model) ( vs is -- vs is ) : (parse-bunny-model) ( vs is -- vs is )
[ [
numbers { numbers {
@ -93,7 +110,7 @@ UNIFORM-TUPLE: loading-uniforms
{ [ dup first 3 = ] [ rest over push-all ] } { [ dup first 3 = ] [ rest over push-all ] }
[ drop ] [ drop ]
} cond } cond
] each-line ; inline ] each-line-tokens ; inline
: parse-bunny-model ( -- vertexes indexes ) : parse-bunny-model ( -- vertexes indexes )
100000 <bunny-vertex-struct-vector> 100000 <bunny-vertex-struct-vector>