get-r in add-color<%>

Gets the additive value for the red component of the color.

• (send an-add-color get-r) -> exact integer in [-1000, 1000]