(bind-func xtm_paint_set_pattern
(let ((tile_fill:|4,VGfloat|* (alloc)))
(afill! tile_fill 0. 0. 1. 1.)
(lambda (paint image:VGImage)
(vgSetParameteri paint VG_PAINT_TYPE VG_PAINT_TYPE_PATTERN)
(vgSetParameteri paint VG_PAINT_PATTERN_TILING_MODE VG_TILE_FILL)
(vgSetfv VG_TILE_FILL_COLOR 4 (cast tile_fill VGfloat*))
(vgPaintPattern paint image))))