Fix some load errors

db4
Slava Pestov 2008-03-29 04:07:06 -05:00
parent adb1dd14d0
commit 9e13e61a74
4 changed files with 17 additions and 14 deletions

View File

@ -64,16 +64,19 @@ TUPLE: bunny-buffers array element-array nv ni ;
bunny-dlist construct-boa ;
: <bunny-buffers> ( model -- geom )
{
[
[ first concat ] [ second concat ] bi
append >float-array
GL_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer>
] [
]
[
third concat >c-uint-array
GL_ELEMENT_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer>
]
[ first length 3 * ] [ third length 3 * ] tetra
bunny-buffers construct-boa ;
[ first length 3 * ]
[ third length 3 * ]
} cleave bunny-buffers construct-boa ;
GENERIC: bunny-geom ( geom -- )
GENERIC: draw-bunny ( geom draw -- )

View File

@ -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

View File

@ -1,5 +1,5 @@
USING: kernel sequences macros ;
USING: kernel sequences macros combinators ;
IN: combinators.cleave

View File

@ -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 -- )