I wish to use ListAnimate
to show a sequence of plots with different plot ranges and differently sized plot lables, all unknown in advance, in a way that keeps the plots and labels stable in the animation.
For example:
frames =
Table[
Plot[x + q, {x, 0, 1},
Frame -> True,
PlotLabel -> StringForm["\!\(\*StyleBox[\"q\",\nFontSlant->\"Italic\"]\) = ``", q]],
{q, {1, Sqrt[2], 1/3, Sqrt[3]/2}}]
ListAnimate@frames
Basically, I want a way to post-process the frames to make them have the widest PlotRange
and their PlotLabel
is padded.
ListAnimate @ prettifyGraphics @ frames
I have some idea on how to guess the effective range of graphics, but no idea on how to measure effective size of their labels and how to pad them. Looking at graphics options doesn't help.
UPDATE
The list of function plotted is just a sample. In this case, obviously, I know ho to compute the maximum range and I can use across all plots. In a usefuul case assume you cannot know the functions in advance and you cannot easly compute the y-range of values of each function corresponding to x-range of values. You can also assume you completely ignore the way the list of Graphics
object were generated.