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