(bind-func xtm_render_init_quad_shader (lambda (v:i8* f:i8*) (set! xtm_render_quad_shader (ShaderProgram (Str "QUAD-Shader") (Str v) (Str f))) (gl_print_error "Error initializing quad shader") void))