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