Fix some load errors
							parent
							
								
									adb1dd14d0
								
							
						
					
					
						commit
						9e13e61a74
					
				| 
						 | 
				
			
			@ -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 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 * ]
 | 
			
		||||
    } cleave bunny-buffers construct-boa ;
 | 
			
		||||
 | 
			
		||||
GENERIC: bunny-geom ( geom -- )
 | 
			
		||||
GENERIC: draw-bunny ( geom draw -- )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
 | 
			
		||||
USING: kernel sequences macros ;
 | 
			
		||||
USING: kernel sequences macros combinators ;
 | 
			
		||||
 | 
			
		||||
IN: combinators.cleave
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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 -- )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue