(bind-func create_texture_shader (lambda (vsource:i8* fsource:i8*) (set! sp (ShaderProgram_create vsource fsource))))