diff --git a/extra/bunny/model/model.factor b/extra/bunny/model/model.factor index 79a8a00856..2cb0df5ca1 100755 --- a/extra/bunny/model/model.factor +++ b/extra/bunny/model/model.factor @@ -64,16 +64,19 @@ TUPLE: bunny-buffers array element-array nv ni ; bunny-dlist construct-boa ; : ( model -- geom ) - [ - [ first concat ] [ second concat ] bi - append >float-array - GL_ARRAY_BUFFER swap GL_STATIC_DRAW - ] [ - third concat >c-uint-array - GL_ELEMENT_ARRAY_BUFFER swap GL_STATIC_DRAW - ] - [ first length 3 * ] [ third length 3 * ] tetra - bunny-buffers construct-boa ; + { + [ + [ first concat ] [ second concat ] bi + append >float-array + GL_ARRAY_BUFFER swap GL_STATIC_DRAW + ] + [ + third concat >c-uint-array + GL_ELEMENT_ARRAY_BUFFER swap GL_STATIC_DRAW + ] + [ first length 3 * ] + [ third length 3 * ] + } cleave bunny-buffers construct-boa ; GENERIC: bunny-geom ( geom -- ) GENERIC: draw-bunny ( geom draw -- ) diff --git a/extra/bunny/outlined/outlined.factor b/extra/bunny/outlined/outlined.factor index 7cdfba7c79..6a2f54cceb 100755 --- a/extra/bunny/outlined/outlined.factor +++ b/extra/bunny/outlined/outlined.factor @@ -1,6 +1,6 @@ USING: arrays bunny.model bunny.cel-shaded continuations kernel math multiline opengl opengl.shaders opengl.framebuffers -opengl.gl opengl.capabilities sequences ui.gadgets ; +opengl.gl opengl.capabilities sequences ui.gadgets combinators ; IN: bunny.outlined STRING: outlined-pass1-fragment-shader-main-source diff --git a/extra/combinators/cleave/cleave.factor b/extra/combinators/cleave/cleave.factor index 9ce7a1f553..d99fe7e1d2 100644 --- a/extra/combinators/cleave/cleave.factor +++ b/extra/combinators/cleave/cleave.factor @@ -1,5 +1,5 @@ -USING: kernel sequences macros ; +USING: kernel sequences macros combinators ; IN: combinators.cleave diff --git a/extra/opengl/shaders/shaders.factor b/extra/opengl/shaders/shaders.factor index 4ed43d393b..e352eabc10 100755 --- a/extra/opengl/shaders/shaders.factor +++ b/extra/opengl/shaders/shaders.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2008 Joe Groff. ! See http://factorcode.org/license.txt for BSD license. USING: kernel opengl.gl alien.c-types continuations namespaces -assocs alien libc opengl math sequences combinators.lib -macros arrays ; +assocs alien libc opengl math sequences combinators +combinators.lib macros arrays ; IN: opengl.shaders : with-gl-shader-source-ptr ( string quot -- )