How To Draw A Line In Mathematica