Plot[{Sin[Abs[x]],(x-2Pi)(x+2Pi)/10},{x,-2Pi,2Pi},PlotRange->{-7,7},Axes->False,Filling->{1->{{2},Red}},PlotStyle->Red,ImageSize->Large]