(bind-func write_colour (lambda (fbo:FBO* filename:String*) (pull_colour fbo) (write (colour_tex fbo) filename #t) void))