Add a color parameter to texture-quad.
Add color property to <sprite>.
Add a make-sprite procedure with keyword arguments.