<< Graphics`FilledPlot`
FilledPlot [{Sin[Abs[x]],0.1*(x-2*Pi)(x+2*Pi)},{x,-2*Pi,2*Pi},
 Fills->{Red},
 PlotRange->{-7,7}
];

