(bind-func xtm_background_colour (lambda (r:float g b) (set! XTM_BACKGROUND_COLOUR (vector r g b 1.0)) void))