(bind-func xtm_mesh_diffuse (lambda (mesh:XTMMesh* r g b a) (let ((c (tref mesh 2))) (pfill! c r g b a) void)))