(bind-func set_cairo_source_with_colour
  (lambda (cr colour:rgb_colour*)
    (cairo_set_source_rgba cr
                           (tref colour 0)
                           (tref colour 1)
                           (tref colour 2)
                           0.8)))