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

Remove .lib dependencies from bunny

db4
Slava Pestov 2008-12-13 07:14:23 -06:00
parent 42b580c80a
commit 62737d3778
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/bunny/cel-shaded/cel-shaded.factor
View File

@ -1,6 +1,6 @@
USING: arrays bunny.model continuations destructors kernel
multiline opengl opengl.shaders opengl.capabilities opengl.gl
sequences sequences.lib accessors combinators ;
sequences accessors combinators ;
IN: bunny.cel-shaded
STRING: vertex-shader-source

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

@ -2,8 +2,8 @@ USING: accessors alien.c-types arrays combinators destructors
http.client io io.encodings.ascii io.files kernel math
math.matrices math.parser math.vectors opengl
opengl.capabilities opengl.gl opengl.demo-support sequences
sequences.lib splitting vectors words
specialized-arrays.float specialized-arrays.uint ;
splitting vectors words specialized-arrays.float
specialized-arrays.uint ;
IN: bunny.model
: numbers ( str -- seq )
@ -27,7 +27,7 @@ IN: bunny.model
vneg normalize ;
: normal ( ns vs triple -- )
[ n ] keep [ rot [ v+ ] change-nth ] each-with2 ;
[ n ] keep [ rot [ v+ ] change-nth ] with with each ;
: normals ( vs is -- ns )
over length { 0.0 0.0 0.0 } <array> -rot
@ -50,10 +50,10 @@ IN: bunny.model
] unless ;
: (draw-triangle) ( ns vs triple -- )
[ dup roll nth gl-normal swap nth gl-vertex ] each-with2 ;
[ dup roll nth gl-normal swap nth gl-vertex ] with with each ;
: draw-triangles ( ns vs is -- )
GL_TRIANGLES [ [ (draw-triangle) ] each-with2 ] do-state ;
GL_TRIANGLES [ [ (draw-triangle) ] with with each ] do-state ;
TUPLE: bunny-dlist list ;
TUPLE: bunny-buffers array element-array nv ni ;