# Combine a (2D)plot with an animation

I have a plot which is rather expensive to "present", and I want to create an animation on top of it.

EDIT:

"present" here does not just mean create the plot, but also to rasterize and present in on the Notebook.

I tried to create the plot before by doing plot=Plot[...] and then use Show[plot,Animate[...]], but Mathematica does not allow to combine plots with Animations. If I put the plot inside the animation, it gets really slow as it re-renders the plot at each frame.

Another thing I tried was to present the plot as an background image of the animation, but I'm not being able to make backgrounds other than RGBColors (and I don't even know if this works).

Is there any proper way of achieving this?

EDIT2:

One example of such plot

plot = ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi},
PlotPoints -> 200, MaxRecursion -> 2, Mesh -> None];


The number of PlotPoints is big because in my particular case the function to be plotted is non trivial, and requires a lot of resolution to see anything. (I'm not putting here the code because the function is obtained as an iterative process, and is out of the scope of this question)

• Can you provide the plot, or someting equivalent? Jan 4, 2013 at 9:50
• If rendering of your Plot takes too much time, consider Rasterizeing it. Jan 4, 2013 at 10:30
• I think this is due to Rasterize use the pixel coordinate system of the image, while un-rasterized uses its own system. Jan 4, 2013 at 11:02
• @J.C.Leitão true - perhaps someone can help out here with a nifty solution. O Jan 4, 2013 at 11:11

Can't you make the Plot on the side first, then add it later? Since it is already made then no extra cost.
p = Plot[Sin[x], {x, -Pi, Pi}];  (*make the expensive plot *)