better plots for mathematica work