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