# Moving axes in animation

I'm having trouble creating a smooth animation which zooms in on a plot while the axes stay fixed. The application I have in mind is quite complicated, but the issue already arises in the following simplified version:

Table[Plot[x + 1/6, {x, 1/3 - epsilon, 1/3 + epsilon}, PlotRange -> {1/2 - epsilon, 1/2 + epsilon}, AxesOrigin -> {1/3, 1/2}, Ticks -> False], {epsilon, 3/4, 1/10, -.01}]


The resulting animation stays fixed as expected for the initial frames, then the axes drift right, then they pop back to the center and stay fixed for the rest of the animation:

I'm at a loss for what to try, so any help is greatly appreciated!

EDIT: It appears this might be some kind of bug with Mathematica 10.0, it doesn't appear to be reproduceable in some older and newer versions.

• Add options ImagePadding -> None, PlotRangePadding -> None to Plot – Edmund Sep 27 '17 at 22:22
• @Edmund I think you should write this as an answer, rather than a comment. +1 – Alexei Boulbitch Sep 28 '17 at 6:53
• With Edmunds hint you can try: Manipulate[Plot[x + 1/6, {x, 1/3 - epsilon, 1/3 + epsilon}, PlotRange -> {1/2 - epsilon, 1/2 + epsilon}, AxesOrigin -> {1/3, 1/2}, PlotRangePadding -> None, PlotRangePadding -> None], {epsilon, 3/4, 1/10, -.01}] – mrz Sep 28 '17 at 11:05

You may use the ImagePadding and PlotRangePadding options of Plot to control the extra automatically calculated spacings that are applied.

plots =
Table[
Plot[x + 1/6, {x, 1/3 - epsilon, 1/3 + epsilon},
PlotRange -> {1/2 - epsilon, 1/2 + epsilon},
AxesOrigin -> {1/3, 1/2},