(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)))