(bind-func xtm_paint_set_color (lambda (paint paint_color:xtm_color*) (vgSetParameteri paint VG_PAINT_TYPE VG_PAINT_TYPE_COLOR) (vgSetParameterfv paint VG_PAINT_COLOR 4 (cast paint_color VGfloat*))))