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