I want to make a gif file of the plot. But the transition is not smooth
Let me show you the example
man = Manipulate[ContourPlot[
q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2,
2}, {y, -2, 2}, Contours -> 20, PlotRangePadding -> 0,
Frame -> False, PlotPoints -> 40, ImageSize -> 230,
ColorFunction -> "DarkRainbow"], {{q1, -1}, -3, 3}, {{q2, 2}, -3,
3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator},
Deployed -> True, FrameMargins -> 0];ManToGif[man, "charge", 2]
it shows very smooth transition of contour lines. The same i want in my case. I think mathematica is calculating the function every time and then showing the contour. Can't I save it for long step size as a gif or movie externally and operate.
