(bind-func init_draw_quad
(lambda ()
(let ((data:float* (alloc 28)))
(pfill! data
-1.0 -1.0 0. 1. 0. 0. 0.
-1.0 1.0 0. 1. 0. 1. 0.
1.0 -1.0 0. 1. 1. 0. 0.
1.0 1.0 0. 1. 1. 1. 0.)
(set! DRAW_QUAD_VAO (VAO))
(set! DRAW_QUAD_VBO (VBO data 28))
(set_attribute DRAW_QUAD_VAO DRAW_QUAD_VBO 0 4 7:i32 0)
(set_attribute DRAW_QUAD_VAO DRAW_QUAD_VBO 2 3 7:i32 4)
(gl_print_error "Error Initializing DRAW QUAD vao")
void)))