(bind-func xtm_paint_set_fill (lambda (paint fill_color:xtm_color*) (xtm_paint_set_color paint fill_color) (vgSetPaint paint VG_FILL_PATH)))