Wolfram Technology Guide: Automated Computational Aesthetics  previous | next 
Automatically Pick Colors for Curves
Mathematica automatically chooses appropriate colors for multiple curves, and can fill using transparency.
In[1]:=

Click for copyable input
Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 15}, 

 Filling -> Axis]
Out[1]=