How To Color Between Two Curves In Mathematica