Wolfram Research

Function Repository Resource:

SimpleListAnimate

Source Notebook

Create an animation from a list of expressions

Contributed by: Richard Hennigan (Wolfram Research)

ResourceFunction["SimpleListAnimate"][{expr1,expr2,}]

generates an animation whose frames are the successive expri.

ResourceFunction["SimpleListAnimate"][list,fps]

displays fps frames per second.

Details and Options

ResourceFunction["SimpleListAnimate"] is similar to ListAnimate, but does not display any controls.
To start/stop the animation, click on the image.
The expri can be any expressions, and do not need to be graphics.
ResourceFunction["SimpleListAnimate"] generates an Interpretation object that’s interpreted as list.
If it is not specified, fps will by default be chosen so that the animation lasts a total of 5 seconds.
ResourceFunction["SimpleListAnimate"] has the same options as Manipulate, with the following additions and changes:
Alignment Automatic how to align objects in the display area
AnimationDirection Forward the direction of the animation
AnimationRepetitions Infinity how many times to run before stopping
AnimationRunTime 0 time elapsed since the animation last started running, or 0 if the animation is not running
AnimationTimeIndex Automatic time index for the animation, where 0 is the beginning and the value of DefaultDuration is the end
DefaultDuration 5 the default duration in seconds
DisplayAllSteps True whether to force all expri to be displayed
ImageSize All the overall image size to use
ResourceFunction["SimpleListAnimate"] by default displays in an area large enough to fit any of the expri.
With the option setting ImageSizeAutomatic, ResourceFunction["SimpleListAnimate"] leaves space only for the expri currently being displayed.

Examples

Basic Examples

Animate a sequence of images:

In[1]:=
ResourceFunction["SimpleListAnimate"][
 Table[Plot[Sin[n x], {x, 0, 10}], {n, 5}]]
Out[1]=

Create an animated bird:

In[2]:=
bird = ResourceFunction["SimpleListAnimate"][{\!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztWHtQVOcVX/bFvtgXyy7Lc98LC7vCLiCWxAq2ItZooskk6nTGF77CI4Kg
CBIhCvJSRB2rJMb2n/SPzDSdpjPJH53YNmmnndQ8+0diJpN2xqR2+jK18ti9
9/Scb+/dAhFFRP2nd+awl+/e+33ndx6/c77PubVx3Q6pRCJpVuGfdVv2VzY1
bWlbb8R/nmpo3r2zoXZ7TcO+2p21TeVbZTjoQQmjyCX/v+72SkpKkqKQ6aSz
vCKj5/Teg9RrrhfqRSGQ0C05OVmi0aglMqmUiVKhkKSk6CRy+bToIMxJD1zZ
W1yCHkx/lUolcTodgUCevy5YWPh6ut3+EQ6TfKxUqT7y5+V9XFgQeMXjcm62
p9tyFYhNmEP20ADE12f6kz4+r3tZSST8RqrNGsUhILFqdRCw25m4Uy2gkSlA
fGZJt91YXFbyit2eniNM91CwiDZMTTUbIsVFF/UmE9MvYLXBC6tWRX/X1BT7
V08PFx0YYDLe38992dXFXaqrj3WuXBlzm1PZ+26X61penn+FMOcDzRlxPa/X
u2hRMPjHuP5W7o3du2Nw7hzAeZTjx4Hv74dYXx9M9PbC5LFjAIODACdOAIyc
hPHBQb6rZlUUgxL8Ph/v8XiWTLXPg8KQk5PtKi2J/JUw7KyomBw7OQyftLfD
geXL4WfbtyOOIZhA3QkDnDgOcBJ1H+iHSRTCMknj58/Dc1VVLA4LA/lX9Hq9
WvIAcl/Mab3BkFwaiVym9Zsrq6JwaoTp+W2Pl8WKXqWGLw51Aof+IL+809gI
Nfn54NAbwW9Jg57Vj6FPRuC95n1g1aUA8llUq9ZAJBJuE9a5ryUvPn+SZHFp
abtMoYDHCgon4dQpGOvpAR71fcTpApVcDmhQeHnjRoCzZ+H91lZQK+L57fQ6
wJRmZvc931sNl+rqhLxP4vCX9/m8n2l1WoqrJEHuA4b43EajUZfrcFxTy+Tc
nzo7OW5oCG4iDvLH48FQgo9e3bwZYHQU1hQGQSKVQtPBrTB8sR0Gz7dBMJQH
chx7e+9eWJzrgHS9AUIZmZxGowGnI7f6fza7Hzji8yI37ZLIZLCjfEkMTp9m
vqAc5jCHP+/ogE2REthevgRu4NjfjxwBtVQOAdR7+GIHdB5/FvpGW6CpfRvD
2lVTAxPDw3C1qwveaWiI0VgoFLys1Wqn1dQFvmRUi8NFi17He/5tXJfHfB1H
faPISVGRjzDuAXUjebe5mem79qlqGHzpAHQNN8ALpxqh90wLaPQp8KjDyd7n
8Hvy5zK3m1NptOD1uKsE2y00d7FYNZvNmsycnKsWzMl/9/bylMeThEEQ8ss4
8tB/jh4FHnG8uWsXEK+ue1rAcbKBydCLbZDrzQGnwQRRxC7G5atbthJ38dgP
nBcoa0FjS7RLVoa9RIFctLaggCOOIp2jU3CIQj4ibv3Nc43MH+s31MDQhTYB
RyMMju4Hlz8XzEo1XEcMZA+Sf2LdNCarwOvzfWW1WnXC2guZ79SfSkqKi0dI
rx9u2BileBibBQfVDcD8/7T9IPNHZXUFHJ+Cg/zh8OVCts6A9WSA1UqyCdZH
vgq5W6XVTaRZLNkCjgXJE8EeSakYUx6f9yudXAHXurs5HtefFHNjhlCsxfr6
Wd3L0KZAlisbBkbjcdU90gh9P2gFA/JvaWY2yyPCTTZBDuc3l5aRD28q5fJM
QYWFwsFi1Ot2r5diHfh+OBKjmjFbTCViK64XbAiHQYr81tlXB0fO7IWes03Q
3vMs4MSwp+IRYJyH7yZwlDEcY8jLC4kjXr/1enm4qOhDvKfcjfHYg8wJB+bu
T7FHoe/WPvldGLxwAPrPtUJ5RYSN/aq+juXRuMAPmHP8Wqo3MtmYPkWXtVA4
Er7wuB83G420duyDfS2s15iYJaamxhb9jiEfBe0ZoFAq4VBfPTTu38IwbIxE
GE6aJx6HmFfYO+YajJDrct3Mysy0CTrcEw4hL2QGg0GVn+e/gvc8DnHvYg2e
C464T+K89Yd9+0AhlYHH4wSnK4f1X3/p7ma1k/WSAr9hvWG1cFEo+JZarU7s
z+4RB+OoSKR4UI55kWEysTV+tGkT8LfhqplC9Z5yYGDNmkTP0o11XOzL2DsU
U/jO89XVUcqbfL9vj6jDvWCQSqXs+2CwcGWa1Yr7Om3s08OHeQPacanLzWrw
nfLjG/UEv1nm9YEO68PX+H9MqKFiTEWHhngv7hnNVutEVlamQ8Axb38gBlbz
bDZrOtrlGt7yr23bxsFLL8KhFdXMnj+vrWX2pLo9FxwUN9QPf9jSAqNPPxPf
iwh2YBiHT2DO1zN/l0bCl+iMQnIPMSXiT7OmGQsDgd/TvB0rqhM8+zWu602z
gkWng8+wJyQb3zzaM2sdmSakL9Ycyq2p74sxtXPJt2ISzCGfx/OMoMu8YkrA
ILPZbMalFRW/lcQ5JSZyCuNFIWdVmC+ZyCuX0b5w5gzTb0KoAbfLm0khp6dy
GvUj17FXozOJ9Az737DeGgR95tuPyOncprys7Cc4C6wpKJjkaP8prD+1Jvyy
oQFStVoWYx3V1XAVuYf1uWhX8h3pNqe8ofmwnr9VV8diKhIufk0435pXn4vQ
2UFSSTjcoVSpIJRunxxHToyiPjP5VVz7i87nYXVhYYKDKn0+2P3oo9BatRyu
Y97M7IVvyWVCzR9+4okobtOgJFx8UHDFfGKKYXA5HbVq3I/ZtLrYJ+3tPOXl
rP0srU97DfQN5idQL2HHPZ2I6crBg6xPvFONEXOjtbIyKlEooaykZAfpIvLl
3frB5XBs02LuWjSa2AetrTzZ+068mqhftGdCm0YxR748fBj+fOgQTMyRj0Uc
bVXLoxLsP9EfAo65+0PcU6Aftmp1KQzD+y0tPNlYrE9zqw29DDPVAOYjlNjd
4EAbnF6/np39FIdCd3VeImIoCORvMplMYFapY+/NA8M0LprioznbQMi1X+zZ
w/K8uCj0YzrTlswhz0U+s6almf1+/z/wA/h1XT1H8904cjRxdjZdjgnjt3o2
f2F+RD641tXFaTGunG7X5waDnmL9juc+YuxFiou2J8nlUL90aRRevsDO/xh3
ok8SMiLex88N2O/M5/TNyMkZ4zPmuZ3QOenoKDwZWsQpkWc8blf51Ji5zcVw
mE0m4jg+YEuPVvn8UIn7ySrsf5YJv9OExkSZMl4pyDfevwuhdb+Tlw9uSxqL
LbfL+aYyWam4U2yJOZSdnd2aghyFPonSORn1BA9PpEDnk0qFImbCfY7Fkrp8
Np/8F2Jule8=
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzFWQtQVOcV3jfL7sKCLOLuwr547XuX5eX7BSYxUWM12kys9UkNk6oNJKJM
QKY+giAIgmJqTayTvqy2qZqZdsY6Y52Y+GitmmjUaow1Ke3k0dQ2Cnv3np7z
713cIiLRRe/M4d799+7/n+88vnP+H+vC5TO+JxGJRJVK/DNjQdWEiooFq2Ym
4YdZyyrLlywrWzx52UtlS8oqhi+U4mAWSgBFJortJRaLaXoxPUulUpFOl5Ks
UMh1MqlEp9GodKmpqVoav/26WBxjFWJxMQXVarXI63FN93icv7DZbF/h0E0S
uSL+Zq7d/oXP59njdOROVSqV7EcIRfIIde65BJuKZTKpyOl0THI67Yfi1QmA
Y2DUJ8HkiW6YUuKBCSNzITVFzcbp+0Ced59er08X5pD2u8hDwhAfHy/y+bzr
dbqhTM8Jo3K4A2+UczfPNfFwrZ2Hj9tQ2vkbZxv5fTvLuSKfmaP3cnOzL6el
pVmEuR6JXwQMksTERIXf596tVseDM3sYtx/1R50B9Qc4txFCZxuAQwme2QDw
wUYcbwP+ahtULC7pJixer/vCkJQhWprrEeQLrSfDGBd7PK7dqAL5oXvRc2Pg
4uE6gEubIHh6A/CIgzDAedT/SisT7kwYF/zjNXiq1MuwFOTn/TYuLo7mlQlz
PxwQGM9iiUSUH/DXy2RyyPOYu22mcEzZzEPhxvuNwJ9vCuv7cRvcQj+c+301
nHl7JXSfawL4ewe8veN50CaoQCqVdCdpEyEvz18ZmfthYaCbx+MuwTyFNF1C
8NrRNWDP0oNCLkUsYjj6qxcBLoftf+D158FqTmUYSTyOdLh09IfQsfbb7LNM
JuPxzmVl2bosFrMjvMRDyRWJQqEQBQK+o6THnvaFHHR2QE6mvkfXk2+9DHB9
C1z8Qw2o4uNAqYqHJ6aNh9LJoxlOR+YwOLa/CvRpSeDKTYfVFVNZ3vv93oM0
t0jg8MG6Ij6323PGqdQavtBvCfEfbQYO8+G9vZXIr154ackk6KJ8/rQDls4f
z3D9oHo+bPpJDbTuqoUF5c+wsU21z8Dn55vhyqEa9m6R38KpVGrCMjt6rUG6
ZBLMixHDi3aRLj9tmRcku1NOszgijiKuwrwOIbZsayoMM6RB4/ZVUNP0fajd
tBQ2dFSBNkkLflc6wN/CnEa2eGf3i+QTHnnjJPI4xdVgxRbjkYSEBKnVarmQ
oI6Dz46tC8GFZuDR/iHM7TC/Ym7j2L/+9CpoVArIK3LDxh+vgtWblsHq5mXQ
iM/5xV5Qxsng8+PrgL8g8AFycYHXBAmJyd16fZqZLTgIeRKZ02jQZ6o12q7R
hZnERTzpTzaNSOgD/HypBa79sQ6wIEDBcC/TneFAadyxCkqfHMNi69LBV9CP
LdBFHI2xVT53TEgslkNmpmWSsGasW8CeOW1W89MisRQqy0o4imtm/ygc5Bvy
x39O1YNWowR/AfpjR/VtHIjpsSljGY5T+1cAfNSKOOoBPtkKLTUzgsQD6en6
OYOFQyS0x1h/m0mH3e0LghTfLCaicUT8clHID6MeGl5bCXUty1lcUYxNfHwU
w3Ht8GqAv7ZAN9V6nOvXHYuDND5yZHFH9JoxviTUoxYU5L+D3QOc+101R7nN
4igKBwnVbPLVc9MLQSyRQk3DUljTVgG1lB+Y8w53NiRr4+G/p/G9D5sgKOTH
kV8uZzgCeb49xCeDgIPleErKEJXZYr2uS9HA16cbeNKB74WBhOmFPPaz1vnM
7t8tmwEbflTFfLK2tRLilEooHWNHH2xh/RezBfrl8qEajmxUXFz0rkql6lk3
ZiCEHB86VGdVaRK5fE8G8SzP9+GLcI40shz54s/1oFYrwWxJh1e3roCG7Sth
XEkxw7Z3yyIWS8EIDuRp5AZOjj2By+U8OUg4WE0ymdJHSmVKrHfuEI+27J0b
/xdbgk/Wr5jG9H561iSoXvcCe55a6mV9V4TrbuNYzSkUMrBaLCfiw/usQcGR
k5P5LFIIPDHeFaSaF+oHB+t1UT/q0SfiHkqCeWI0pmHdkMNF4lvqfXvhuH6k
jlMqFWA0GI7HhfuTWONg+Ya9XCVCApMxJXiL9bQb+8yPnlryfjjurx6pg5Qh
GuYL3HcwjuWIo3rF4Zcn1nPJWhWYTKZTarVKEmscIoE3sB9tlstlpE9wz5aF
LG6CUfr0GV/0/adbYWfjXNBgn9753hrg0fbRPMdsgX1+EPeP+rRErINZnamp
OrVgw1hikcrlclF2dtY+mZTtmThHtgFuoQ1DyFm9a3pfMUZy8M2lAFhXoA9+
YHNcbeOxT+BVGm3QaNTniGLYw0fsgfaJtzucnQa019b1c0I4BHNnFDOfAPZI
5BdWy/vBQzlxN44LCjVnTeUUVkPsuVnLhfVjUkOwHlGOS7IybZ6kZB1X7Dfz
8NXrsLL8MRbv3/lWEdzAmKCYp9iI7Mf78lF/fouqISG5TAI2m+0i7v1psxuT
PEF7MOIoKMhrIr3rV0wLhsgH2Gu/snQyw2IyDoFdm+fDv0nPT7awfKDv+4qf
fnOJ+A/tMWd6YVAilUNxUf7Lgg4P5BP8vZzufp93msFgCCZpVaF/nqBeu7mn
Pvxm+xKwZOgYHspjOq+a+WQe7Nw4l9UI7uzAsZC/+Mvkk1peJhWHHA77l8gt
JtED5EkEg9fnmW2xmLrwkd+9dRGdR/XUP3bHz7fw+eebF1B9BMOwJIZp3qwR
DGd/tbJvfmtg/qx+4XGWJ8XF+W/SWer97A8jfnS7Xc9mZBhJL35n8zye5u+t
V/hcpymc71jj+Q+b4bPja+HmPfj4rtxGezKc7+vzTbzVlMIlJyfTed1YQa8B
Y4n4z+v1zDYaDViHxaG928pCfe01otfmhPxmZ1XErcjH94Ojxydol7e2lbHz
h0DAd1g43xpQbEXwZmZah9tsVpojtG/7EgHDwOzLC/W5vzo/0FwhrvA700MJ
iUkc9naub+ATCeF2u53vkh121M8JQuc26D59fzHyIMJ8T3vE2pksTwoLA+ui
Y/5evnC7HCOSklMA60SI4r3rL/Vom4Y75Wyve7/SGCUDeT98HkxnLmcOVLE9
SSDgPzaQc5QIzjy/t5L2yK11s4JU79h5TuTcme7Ipew5WmiMSXuUtPV6vtc7
0fO1s/0hOxe6spnTp2khw2Q6jb0jU/UeMcVwaLUJK7GGg8eRESwd54KJo+y4
d3NAyd1kLMroO8dLez2Xjg7L3eaJvD8x6pn9bpyLV6vieLPZ3Ik1LPL/krti
ifgjIyOjCnOE9bQi4ZzzUQtSKO5LlLi3VE8R1L0j1/8HzPV6rg==
"], {{0, 36}, {
        50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzNWHtMm9cV9xu/8BMDfvAwNuBgbPMyjzZJASXVoiZZkwLZVGhCEhJawhsC
ASoIwWCeDgFC1q3NSDstf6zatE3aNHVTVGUNVaNqW7Vu0VRNm1Jt3dJs6zSt
yWf77J6LP8ujQLzEhPnoYmx/33fP757f+Z1zr/lo68ETPA6H0ykmfw7W91R0
dNSfeU5FPlS3dL54sqXh+J6WroaTDR2lR/nkSysZBWQIOA//4nK5PDLwEbx1
B5cjwOseYZpNe4X84rOfxWIxRyDgcwgqDo/Po0MUJ+JIJJLI2xAz97E7u86L
uEL9FwqFnHRzWo7dZe8qLnW/LZVKl8nXy1wOd5nP5S8nJSXeKC0ruZ5X4DqX
YTEXCQQC9v7/BywUg9FkTCt0F1wx6o33yUfAIdfIQaFThIckXgLsbzqtDhzO
3G+o1Wo53r+VWEJ5wMmx5xzMzLTeQf8URiU8M/QM032z2+/51OMf/fsoHfj/
2T+d9Xe/3+2v8lUxmgxtAK8vche9q1QqMYG3hGMsl5xOxwtGg4Gu8X7PfmYR
FuFVYj5i0yGbJHaB2CVirxDD36c+m4Lcvbn38L78wvyryEn2mY8bQ2aWtSw1
LTXAFXADTT9qCsz6Z+HQ4iE49uYxmCE2EZiAcf84xdCx3AH7RvfBrp5dcPy7
x2GOmO9zH6QUpNyXy+RgzbTsjXz2Y8CAsecpFAqxw+X4kPwPtUu1/itwBZ7u
fTrM/9a3W2hMEEP1bHX4e3bsbNoJc5/PgdltRn4F7bk5t8gz43CK0NhsHDQn
iOa8KOKLwHXAxczDPFwIXICnmp4CQZwAeAIelDeXUw71/7YP+Hw+pKQboWOo
AXpGGyG/xEmxHBg7AGKZGIjXjEIRD7ZttrrIOTYbilwuE9hstg9IRQue+fWZ
wHRwGhDLlwb2hNe7oqUClojtPr2bfm7urwffUj9MfL0bPPNdIJVJIDUzBfLL
8/B3PxnBbFv2DVJf2Hq5eQBCNVhvSLbLRLKAZYclOE94jjmAWEY+GYHCQ0Vg
ecIC3b/ohq8Rs+ywQrxEBqOLXXBurg2GzrfA9OU+cJflAU/Ig5d/MwD97/Vj
ngS0Kg1kZWe6cSoej7dpeRLmVGFePwd54TvALAQXYJwZhwliqE2Yv7PEMM9n
CLaETB3ok5NIHHopjuELrTD92hmoPrJvJU7XTtG4PX/5eYwJEL7+MFTz+Zuo
w3zUR3eJ+yc4Z9fNLgZ9nvBPUG2dCBJ9CoxTncIxE5gBbUYCJCfpYPyVnjCO
qdd6oa7xOYrjyNXDNLem/j0F6cXpASFPCHaHfSZU6zEmMcXCrk2CTiuzmDM+
lqglMP6v8eAUTMFkcBJWG+LB2KSXmUEdr4SxS90wMt8exnG4cUXDjn6nnmoa
5eXHI6Cz6BipWAIlZcWjRB9irsNsbphSTTa1TBW07LSgn0H094soJinXLhIr
rS8F0l9B/+QpGFvshOHZFRzVh/dSHC3XWigO7z0v5ePgR4NBqUbq1ycnQ2pa
iiNy7hjhoOtiyczYz+cIoLy93I9+or/r4UANq1uqo/6+0FQFU6/2wKCvGXzf
7Ifi7XmotzB0e3ClZhJOeu97AfuB6oVqhtwTJLVxKDR9zHSYzXGCoxX9qrlU
wyzAwro40C/0b/jPw1SXHPnbqP/n5lpJTDpALpVBalEqjQXmEr2HvPsCPui7
1ecn/T5kZJi/JxQJkc+x5BbFYXfkzCKOxh83MugDau5aOGhMyG+INb8qn8ak
sasOFq8OQ1EZrRnQ8IMGmkPsMxA7at7IX0cCvDgebN+x/ZZao+aH1jFW+U5x
6I36S+hD53ud/6VVa8YENSs4A0O/HwKpSgqJSQlwon2FZ4U1hRRj5Drg9eeJ
9XzQw2A89Ab9t3D/xdmEeCQm6iiOl956icZjIxyRMTny7SPUf75IAHHSOBj4
aAB8QV+YUxQHeRauTds7bZgfoDcmz0XOHUscGVbzyzhH9Xx1uAZuhCNSu548
8STFsov0KmtpBGJCHBhrvC7NnLZE6npMcbB6ZbaY92KtcnzZ4V/Ni3X5hbwn
9cH7mResZdY1YxGZH567noBAIgB7jv22NkGL8/Jjpb1snmm1Go1Br78rkoqA
7O+CyP/V/qyLhZj3H9416+ZqHjqfdfpxvYqfKB4Q8MP7+FjFhYfnIGQffp38
D5XtlX7Ue9T9B+FgsdD6v9E1qL0kVgO3BkCilATi5fGQ67LPaLQaFetDDLSL
rkdJaclFvoAPwjgh03ajjda7aLFsFItwTAIre8jOG52gTlHTfTypJX8gPeRJ
9tzoUbCwcU1KSvyKVErPPhiVXgWDvxtcwcJ4KS9w3XFEhWsDLJjz3k+9UNFc
QXthuUQOTpfjdaVSIQ5BeSgsIRxcg1FfS/pRyHs2j5GoJBCvi4e2a220p6A9
X8T5wqNiQR6itvXe7A0YnAZ6plRc6v6pXC6n+c95uH5YgD2ou6ToDXxe28/b
mL73+0BlUFE9dX/VDc1vNcPIX0Zg9O5oVBx6kNG+i1npIaf/OQ1ZlVn3eBzS
5+Q5ZjAc/2s/HIohV5eoU5nT0v8mVojBc8cTxL7C84kHdjbuDO9psb/FuU79
7BQ8qHeJOjak1uC5BeFZkOQMo9FowJpl3RHyLWoseC3GgmjVefS1srOS9rtj
98Yoh1Arz94+C7WXa6GivQLcdW44/cvTdO5odDkaw7gskDxs+H4DzZeCovzr
JO/p+U20GPA925ZVjvsCuS7eP3pnjNY25A7dB5I1x/4W8VwMGe3HITYYwnEJ
nYfhfl4hUwSNKUZHpI8PePHixHGcbfZt7+A6HHvzmB/1aTVf6LkbiT87HlWz
1uMX9kM1izW0dyE5PxnyccMayZ5bkD1zWYJCi3uGAOYE1gvUk8c9kFu47+/9
sNeP+zCny/luNNxia4Yrz9mJ+Vs1W8Xg+Sz213NbYMip0HtAaVBCqinlVzK5
LJozSIqD1J5egglMLhOTszsHsiuzwVZp25KRTQbxISiSiSAlxfRHnS5BFVrz
dbGw8TCZTD0ikYjWcM6qs9qtGoQffqlUCiq1ck/I3S/k+n8AnCncPA==
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzlWXtQVOcVv/vehV0eu7Arj1VkXyz7EhYEIlEhaiNJJ61ifNYHiopR0oAR
taEo+GKXhyAoiY+0MdMk/tFpkjZq9A+t9jHpH52JqSZ2pp2YxpgYHRsnD9m7
e3rOx72IDx6OEDLTO3O49357v3vO7/ud13cZX/bsrJVSjuOq1fhn1rKaoqqq
ZZtmx+HNnMrqilWV5StmVq4vX1VelV8mw0ErSjaKnKND8n8lEolUioLQJfcI
jaPIUCSjbecA9tOFlLvjEH+/7yEhTKNt990ckGFyhYJLMZtt/om5z5uSkxsl
MnmjKioqYDAaA+k2a+OU4uKAy+uZZTSZkjSaqD6AaP6oY6BQ4sYkJY3xT8w5
bEpMuIW30J8oURL18Tey/Nmn3F7v/OhorYhl1LgRMdjstmyPz/sx2WlIT4cn
tmwNrTn+bmjd6dOhdadOhSrwuvzNt0KlezpCk8pX8kZHBsOklsnA7fOeMY81
u0YLi+hLKamp47xZE74ku6asXdfdcvMm7AOAPfeRDpROlFaej1Sd/iOfMW0a
T/MsVst/rTZr0fftYxTTeMh0Op0CY+Es2TK9ZmPo12jjXpTGUAgCPA9BFDo3
dndDq4ClHaUFZTcK4Z3buTdE820Ox9dp48c7GZTvCUtPXuU4j89XrlarwFZU
3E3rPG9fF8x/aT80h3hoxvumSIQJ2b/p/fdhyauvwrLXXoNtV66wsW1Xv4T6
jy7CT7bvYFg8E3zvKpVK0jHi/iXkV0l8vF6bbrX8C6/D9Zc+Ca96+/e9sTwf
8ZAPEQ+0/jNqNt4R69qERNhw9iw8sngJu6/43ZtgmTyF10ZpwGqzTxQ4GVEs
IhfeCRNWKOQyyCqdw/8KbS3t6ASZUskE/Z7ZT7ISbSRbMzwOKK9eDPNWlIJG
rQYdYtEaDOy33AULYdlvXmecTCwo6BLiRD6ynHBSlUrNOTOdf8HrSPV77/Ev
oe8se/2N3vXOnDGjNxYshY8C+d7WtvUQ2F8Du1+phUWr5rDnVNHRIJVKKb9B
61dfRVRabTgpOelru8PhF7CMCCe9edbhyIlDnanZ/gjaGwmGw9D83Xcwbf3z
YEW7K945yvxq5/XrIFNpwOfPhODBzVDbtBbqdlfCts4aiNaoIX1SIdSe+wB2
3LjBYn7BwUNhwped47+oNxh0tGYj0cOg02J/JOHyCgo6Sd/Te/eGKD8FMD81
C3mVOGgV8lHtxX+ydS96vBCCBzZBXWslk8CBzWDPSINoUxJ7vlnIcfQu/9x5
IdQGWTk525Ar0jncnLA/Ol2MfHx62nk5+nj95c/CZDPx0UR4KNdGwgxXG95v
PHcOcBZM/dGkO3AEEUfWRDdI5ApouPwZtKBf0txWPG//4ouISqcL26yWm0nJ
yYmCfw1bHhbr3pjkFJtOo+Etj06OdPbB0FdojPA1XL6MfEigsDgPmtCv6lpu
48jO9wEnlUH9fz5lzwYRQyNiIf/KW7qUxyBHzjKeGu6YF/NUdk7OWvKVkq31
/D5aR1z7u3FQzWD1A2MmOtEE6VYzNO7vwwdicvvsoIrVQ+Dbb3trDb2rE8+L
Dh1iuQt7ytrhxsGxPQTHmdPGbSMd5W+9HeoQfOkeHMI4+burpAQoP/+ytQrq
259jOHa9uAkS9LGQ7PVBO9pNXIhz6J0Vx44zHNQjc+yQDDMOCSdTKOtIB/V/
ewbCQWuL54UHD7JYX/zMXLR/A2zvrIZna1eyseKqauZHIqe9OI4eYzisdntg
pHAo1ZotpGPtIDhojamP2nH1Kig1GkgdmwI79tbAzq4aMI83g1ylgl98+BHL
a715QshZ2N8wHE63a8NI+VWUVsf4WH3s2IB+Ja4vcTK7tZWt/8yfToeF5T01
8KnGALO573zCQfwUrCjnlVgfMzJdwx7nIo4Ek6me7Ji1u623dvSHg2I3KGDJ
fHxmTw1Xa8BotULLrVvQRDwIsdE3ppwlJWG9Nhoczoxc0imVyoathoj5Kjc/
bwOOQM6ChYPjEHMw2trw6WWIMZkYlqVHjjBsd3Mp8pFftpxX4B7L6XbPHm4+
xPphHjvWYYiPC8WZx0ZaCIPQmw+ERVznnx0+DCkuN7SxOeF75tFzFHPPnDjJ
9le4t/mbVkvtCScf3v6kp0d0+zxnSE/ZG0f4ziFwIvpYUzgCWz6+xOI/2A92
4o/izjZlKq9SKLD/za/p4USiHC4sYp+IfjszJiYG9OPGhZu/+Qaaw3y/dt0t
rHYP4ofE1wsXLkQUmige+1/Izcsrk7C2qHdf8vB4sG+TyxUc5sTfEieFq1bz
XcQJ7pmGguV+fcz9/JA4WfPO0QgGedhg0IPb662NjY3t+bTJDslDfc/DHpTe
JXFmZv5Yn5BAccs/2dAAXYLvDJSHH0TEnL3uxIlIlN4QodySken8O+4Z5sTG
xikfFo/oW+kWS96YMSz/RDhWm6ugLdSzjkEhZkiGsv6D8dJw6RPwz5vHYl+B
4nA4znt8vupEo9HYi+YBe+Lb+1pfqVqJcbh4CS/uv1OxX6o8fpztKfYJ0jZI
PAwFC8UUcfPcmTPhrNmlPDoF05eSknQlf9IjLQgn7kGxiDjsTmcVvevprq7Q
y6hj0aGXQavv2W8b0y0weXUFlNTVwZqTJ3uwPAQvFHcBnN8u4HnhwofhadXr
eXV8PNPn9noupKWleR4QC6tJvqysDk7oe9tRB+X9Xdeuw+yWVjBn+0GGdYx+
z1+85I5e8GFE/B4mfvvaeeXzSMHy5ew7rMvt/ndCQmI8N/S9MNUkLsPleoXm
//xPfw61IY6duI8gXR2CL22/dg02/uM8bL3yOeMiMIgE75KBnqU98C7qa1AP
5ZfCijXdZIs/N/ewQqEY6l6Y4TCaEg/Q3M0fnA/th9vfPduEa6rfLwrnjiHI
/b6h7hlkTrtwJh3JHm8oLi4W7FjbBP8aBAtuQRRKzuN1/4FwpOfn887HHgNH
UTE4igWh66lFYJ8yFexFRbfHR0DsqMc1fToYLRbKZxGnK/Ovwv8kBoyTnv8p
STi7w96AHFIMsL3CD0GwtvF6g4FPMZsn98fJ/wDfqioE
"], {{0, 36}, {50, 0}}, {
        0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzlWHtQU9kZDyRAAkEIIQlJAHklJCHhKb6q9QG+tla3MKu71Vql+ERQAUUU
i1p5hIeIgq/6WHfc13RXxde6ru5qXXV09b+t7Wwf09qxznZ2tNvtros39379
vnMTCIiIO2HpTO/Ml3Nz7r3nfL/z/b7HOfEFq/KW+EskkjI5/uQtqphUWrqo
Mj8c/7xUUrZ8acniwhkl5YuXLi4dXSDFziSUTBSZ5P/v8vPz80ch6D2E+txC
z/2GVsunX27dpM/xifR/DQ+qw/T39/eX6A366IysrEKT2ewMCAxyBgbJG0KU
Sqc91dGQPWpUSUxsbHq4Kjyw97dDfbk5JDEYDMa0jPS22FjjlzI/CWDXE4Ku
CWGhCjAnmz7Lys6u02q1OvcwQ42FYUi2WGZarJb7eAtKVRRMnlPqKtx6jCve
fhnlElfcfIkrqH6H+1HBFs6SPRVkAXKGKyEx4XNHqqNAKmUwhgQL2YF4lJae
XqTT6ZheU+dVcs6TD4XdVwB2fQSw88Nu2XUJgPrbsN3y1t/4qfMrOWQiRESo
wJGaupGwfN8c83ApxZ6yELkBskAFv9x5lic9G88A1J/kwHnKBQ0o1Drxf33H
YybOUzxsfx9gz1WAsvZrvFKl5VThKjCZk+e4x/5esHjmSbYkT9QbDJ3+skBX
yY7L/O6PAZrPobwH0HBaYHgasSW9qb/lA/EZw4f9dcc7mX1K227wOKpgMpvu
azQatTjF4MYxiv3Y+KMN1HZH6j/wHhZtepunta09/m8o33MLfvWbf7L1bjgl
QNNZkV+1xx7Axlc/w/Yh41eD2yb1HV/DvusA418s4gJkUkjLyFjmxjGoqZds
QTzOyh5xlDBMzCvh2n8L0HqRh4n5RcxHYkypqN+XuPY82uQbGDdrCQTIQ9kz
RWgEvLiswY3tC4izZkLqD2aiTa648LngcDiuyOVUawxeCeHhk9VmmxKhCodI
YyLX/N4jXFuO6WUZkQNoLqbvzze+BQdv4TrPXsb+2xwWmPbjSWCM0bP/hVuP
o+7Xu+LxstoT+P0Ul0IeBJh7ir3nG4TLX6lUSseMHfspzb205oyLOFJ3ohPa
LgNYs6d06TW/4ija5AHi8gN7mg1aDldD06ENUNO2HjRaNUQakmDTa3dAHqxk
75e0XILq1/8kyAKCXAajsXN4XNyIwcQSn5AwVhmigHj7WJ5sQD5MMan1IsCS
bR0Qpo6CsMgo9JF7sLDqTabj4pIFUL9vLWxwroDGg5Uwe+4M1r9658ewbt8N
mLOqDcf5Foif8yteJX5Bit3++9DQ0CCC4hafXknm5DpshPnrX+PaLgssnlJc
ajgNDMu2dx5gbvic+W7uKxVM33VbV8K29lKoblkFNbvLYXXVEmanWYtr4cBN
MbfQGDTWHox56T/MZz5vtlh+SnP62udDQkKkVqvld7JAOWx+8x7PYpInvp4R
YxDFVbonjGNeKGQ41m5dATXtZbAZcWxrK4XKuhLWP372cnyPx/j7SMTB7CrA
ml3XOVori9V6XBbAIPiUW5EaTaTRoOuMikuBHR+A4I2hCwv2Ua6jvIC53Y2j
qCeOWhHHiNx5jEvOk66uXENxur7jKz54mBpMSYl3VSqVp570GbeCQ0I0Mqmk
M238T6i2ELrm7yXED9LvlbL9gKSApWsWQN3etVC9vaQHjon5qxheDzcbz4jr
0nIehAiMA2Zz/Dfo70YGQsxbPrlkAYEabDpHT19Iegrd8/eyidvvy9o/YfpO
n50LjQcqYVNzMdTuKYeVFYXMP/JWNEN7Hzi2vy8IEfoEMJni/4M1fpSvcfhL
ZQPCwfQ5S+0jjF3RYIzWgXPfBqhqKoLmw1WYR3IYvtK2mwwv+ZWHk+RfNe8+
4IOCh6E9TH8OCwvz+IbPeKUIJl75d2aLvO4Hh7jGVG/lzC1jOi9dsxDzRyWU
b1kBCkUQRJvS0ceQl6f5HnGi9QLZ8Sb5OSQmJR0djHo+Qq3WRoSHdiY4xlOs
FJynnvTzbn+n+kmAza//FRTKMFBrIqFx3y8hNdOOuPwwd1xz28LVAzvlU6wF
OOJddExMhUS0g0/j7rCwcEVCQvwXWGdjjPyabzrbzem+beJiei3Y+Ia4ZzKZ
WDvmhQKWJ3rHCWaPi6z+ZbnQ7nCck8uDfJ7TZTKZxGiMvkBzlO++7dpxQeji
dn/8otg1ZkYBw6AMU2P9cRdtxTObPfEN+kjL+cegjU12adGGtpSUHJob92sB
vsRijInZQvrMXbOXo5hZ3/F0H/H4bhOre7+CcLUOJuQV92mLLtzIM6rZCrec
wD2JREi22v6gi9JFilh8l9cN0cZ8qhn0cTZX87lvcW4XW8N+bYI2o9pjdetV
2Hj4j7jeQt+28MJCfBw3azlhgexRo25j7WhwqyD1Bc/i4+NnqCM1xBFX7svr
2N6U8nd/OETuC+J+8JxYi/X7PlsXF77PYa2VJ9aNKfa71hTbbEWwolsZxPNd
941JpsQJWp2WcLC1WrD+COy9KvKrvzX2xLC+apmn8vGswGJz7svlbK6wYcGA
e5+TCYmJuWHh4d4ce248UXr98CidxhWKMQv3cgKNP2/dAcZ5WmvCI+6/n+LH
zyEiZoFxrLj5ohBrGcnwhAQHgiPV8anNbi9BfYx0ZiOaZ8B888M9gSwlxXYn
SBEqVOy/xVuzp7M4NHbmL6Dm2H2W+8gXsI5k++/GZ3HomSKwmOAZc0lNh8s6
chpPdRvNGxtrfGhPTW3VarX6gWLx7AMys0ZUoBExV6/laJ9BMYjGxPoLa7+V
sLLpPFQevAPVb/xdrOMHyKX+Y4WL+RXt3Ug2HLrDT5m33kVnfjQ37u/uoe9O
HQgWT61GZzPRRv0DhTJcqO/4Fztzo72dbeS0HmegMUkOVmc8K8c8l23YeRhP
NTGrMes7HgrTf1b1mOYbPjyu02Q2jxsgFinGccnI0aMP0rf5Ra3crg/F8ynK
xVVH/oJ1xdswfcFm3K/uxbl5Nq+3NAxQvN/vPQad89G5ANlo7zXaDx9hcQ39
5i6uswrv/furkd3P/OLi4206bSSniooTWi/wAvGX1p5s8+tPAA7eBth/w30e
+lG3eJ+TPku8v+k9hvc9+eEhnG/yS6sf4xJDWnrGzgH6CjvDQuzvMm6mjOKs
2bmQnDUZzJmTwJwxAUzpJBOxLwcsXpLskcxnCI5lYZLT5xje9+bMyWDNzsH5
xlP85HGNH+oN+hg3lqfGY7e/+xmi9WuDFOzcnPP2i6EUrAFdcrkccO8607Pm
vfX/L+mH7n4=
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztWHtUE2cWn2QmCSBvkvAMJBBCgCSYIFBf22KtitYH+EDdahWXrVhFUaxU
q1IfReQp2PrAHqvb7trdP/bs6a7t2bbntD3dPnZPqwKKtvVRbdVdW09bXbuS
ydy995vEgg+gFat/dM65fJmPmW/ub36/+/jGVLS44LdKjuOW+eGfgrkrcpcu
nfvk5FA8mVq6rOSx0uLf5JWWFz9WvPS+Ih4nzWguNIGjQ/GL/WL3hCkUSgUa
ylLRzWgOTXm3/euD/xSFFGJdDt//u096MSnuts/d/OfIH9l/nhe4yMioqLTU
9MnBQSGFAq8qVAuawvCwiML0NNvU6KjoBH//gC6A7g1+vBww/y3JlmF2m+2P
2siIiwoNBzjdzRRqDoLDAy8nW8zvDcoc9IRWqx3gxcLfCxhCQ0M1LqezSRep
Zf6aIpJgzvAFYtX07WL1zF3u6pnPu9dNaRZnD1sgZhhcMi6eA1u67ajZbP7V
3cTiwxCBh91m/wf5Fh0c52mcvUfsqL8ind0O8MW27vYlzp1sBunvq1o9BVmP
dNI98fHxnRaLZezd0JgPQ1hYWEh6anob+TN24JTOo/WX4fIegBPNAAc3d0Jr
jfuaHcLzj6v/BweqO+FYA8C5HQDVv94p0r3IyX/j4gxmBuVnwiLnGI5HLfk5
7I73yY+C7Ec6z+G7fqfyJCwfvwF2z98Px5sA2molOFInjx31AGeeQ06Ql8+f
BThU44GvdwGUjqlw0xoup+sVtVpDz/hZ9IUvTOAFgUMMLXgKeRkFnagV+AJ9
nOCaxrSvUanhzaeOwadbyF8RPsPxwKZvoPHRvbA4bzVUzdgB7bWX4MMN5yBB
awRc0xMdHS0ZDAa7l5M7ikVen+MslpQpgUEDwKRL7jxcdwna60Q4tVWCkbbx
gDkWlAoeKqc0s/ffUe+Bd58+CebI5G65y25wwrZ5L/vO3YIggMvlqqL1lUql
+g7HhFKv1+tMJtN5/O3587J/ek5txXeNuqc4zs+aec3PTTN2Mf0QVw/axrG5
6bPyYeXGhVA4exI7txrSwGbMAF7Je/BcSrVaT+v1kdS/3rH8hWTzuDaX6cp8
gXwoGVnhppg4uNmNGpHgk0aAt9acQJ1NhtGOSfD++rNwEjG+gfqi67OHOKHp
d2vh6aYlbBx6fxbqSQl/KnsL/rXxMMwYMo+wQIYj4+OEhATLncDi01NiYlJm
SFiIaAg3sdx6BPXUXifBYYzl9lpgWIgD4ojmTqOumuf+geGYt3AGVG1fDqtr
F8HG58qhtGIem185qQa+fp709z1MzJzOsKSlpn2VnJw83IulP/OXwPM8d1/O
4JfoOXWz9rpJR4cwn5K/PiNeWjGu2zAXUZ6lerFiwibm76IVRfDMtnJY27AY
1jeXwdraMlYLsY5gHHnYfafxHZSNrWT5Kykx8bvY2NgUjuvPXIxtB6/iAoMC
XwvyC4YPN14QjzZI17i4mRFGwlH+8AaGo7RCxlGJONahttY3loPgr4DhllGM
Q7nOiHChBWBVfh3D4hzofFOjob2for84wdhg0vpbbHg8tG7+XjyC9aAnHOQX
cVY3aw/DMb9sFtPVrXC01XrYeq21bsaLNdomhWlRw3HxSf2oL57H7QQv8Pt1
QXqsBZfEjl5wtNWKLM5fXvIOw5FfmAc1u56ENfWlTFeVqCvclTBdEW8+jTIe
t0kwY3CxhI8GnVaXLePoj/rI8SpBzWHs7Vdijnm1ol2U67XnljgIY0cD5eRv
IFAVBJb0RKhpWQlr6hYxfZWtLAbMIPDE+Ge64SAezyCP03KKJMIfEhyS2V84
5D2PgsvJyqmltTdO28bivPW6OL9RWyLT1hhHPigFJayuXszyLvEyLDeH8fSX
5R+xfoz46xpX03LmSkqVAmKiY7x83H4O9uVda0rqWFxbmpY9Rzy7/cZ8dTMc
pP3dJa8xnwcPy4KtL1WyWKHzEbaxLEd35bUV8VC+fsA6RtIEqtxxsYbUfowP
1t8G+A+Ix8E92j4Bc6UkkZ894ZDjxMN6lnHOKXIdKZkJyVYTBKgCsF85zXqw
rjiop6Te3m7IhOCwwO8iwrVaLw7F7fOh8O6XwhJ5tcKdaRzMnkXP7A0H1ZRj
jRIcrL4IseEGEJSCXE9GrwbG6ebraxDAZ00gJeutEGeMvRQbGxfZXzh8fAQF
BSX6BWjcgZpA+GDDf6SjDbKfvWE55NXXi4+/wTBEhUaj/9+yHvL6nEfvBuNF
So8ZCOH60Mt6XaROwT7A9AcfcnzY7fYCnVZPvoibZrbAzWp6T3Xx/E6A6UOK
YEneWji/4+b3trK8CzDRNV0U1DykWtMmefm47R5Y/haFOBz2+SEhIazPNkel
4L7uKj5b7LGO/GC4p8L331ZzFTV2BX9LbO5WdWff4rdZD2w0ms6gtqwcO9h3
sNvGgb3uapVKBQ7DQNY3LBhVAf/eKe9h+8JJu3ekXqDnPOdhNf3xUStZDbEk
W76yWlMf4ry17KfmLh+O7KzsZlp3b8l+d0H2HKb1F0peZXvtg9V9w0Ic9IU/
4oWwrJhQxXrgmJgYj8uZWa7RaDivzn4KNwyHxWxpoDVbiv/qPt50hfaDuAdS
wu8Xvs6031or961901nv3FEtoZz2bNE+j78QIKn8BLCl2fZFRUbFcF6h/cj6
yLCbE82NhGNn8StuitO31x4Ho87MeFk3dQuraVTDOhrk/NmXXNaX/EB9yuur
2mFgfBb7vmI0Gs+6nK4FwcHBCi+cPmHx6WqQa1A9xV7jrBfdJ5pF9g3kgw1f
wtCUBxmWjPhM2D5vH3xUdQGOY30jk/ckHlbr2hhfP/zu0Wq816IdqL4Kn2yR
91qlY55CLArA7AUOh/29pKTEkfQtEw+KmR5zsy/vYg4cTz3PaPsk8SLu4agW
E+8XUFNNj+4GXTDLyaDH0RHvhBHpo+HTBjlmaZ9OfH3utVO9GF1D95H59vk0
9+1ugHcrj0l5jomMG602AkwmU6Vare4LFvZnwIBAVYrV0k41eVhKrgcNhlge
YPawKx9SolOB+mGuy3eR7KQheO0IvGYEDLXkIne58mjxzd1ovmtpfbKheD+t
QWOO+X54yD4OctNGgVpQExYRYx8S4hNaNGqNkutlz6XgZG0ZIxMrBF7FakhX
f32mxLjnlTwIvIDG3/D//jQMcsozEnrY6afxA3//gNxbxcv/AQgPPe4=
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztWHlwE9cZl1anD0mWbVk+JN+WrcOHJJtrOHyVKVCKCYQOoZiYYNyWYBvs
1oZQEjvYFsJnElxackwnJ0kzbacdOg2dkBRCmj/i/JNOKDOmpSRlGDKQgmmN
tLu/vve0UmzM4RQT8gdv5tOudt++7/t993tZG5se2MzJZLIWLfl5oK6tYvv2
uh2r4sifBxtbftjQWL9pSWNrfUP99jkbFeRhLiEPIaXs/rg/7o/7Y/pDHho0
20wh+lx6J7+XMt5qSPJNO/WR+TRlfmPwUOWTiyL832g0aqwWS74uVudQK9UO
lULlUHJKh5pc4+OMjnSrNVun001a4msX+roh2YANq9WSV1RY2FVgt43GGmME
8ghTSC5Dgjn+WnFx0YcF+fm1sTodJ61zz7BIfsH073G7Oy3paWNU1miFFguz
F+DRBVuwo6oNbVU/YbSjug0N8+pRavEwTAoNB6/b/Se9Qa+7V1gISxYHqamp
WV635wPiVYjTGNC1vCv4acenAp6CiGeAKfQ0oSGIH7V/JFTbqgMUT5Gr8F2d
Xqcm94qvEwvHhTBkZWbOKrDl/4vKUlO4IvBZ52cikR/wA8HuIII9NyahRwAG
yDwy97vO5QHqa7PKyoYUCkXExnd7hPlY0tLKMtMzLlEMHUs6gkz+XomojIOA
6BOBvYgQ7+MjWK51X4O4T8QXPZfEvITcYKIpQbRYLM6JPO42huzsLE92ZuZF
imFo1RCP/UCgOwChX8ALD72ABTnzsW+FfxIWdh2Q/IpSH/mmKwBxSMTGuQ/z
dC13SfFhjUZzV3GEa1dycnKK024/Q/n6lvsYBupDzFeI3F6rOxTDHIe/tn3M
5KV2oO/ebz6B4Qf3ExrG33acBH4G/KH+MJtP8jKfkmRGbm7Owok6uws4FFqt
Vlbm9b5F+baWtwQxTHTaQ3S6V4zouyzdC1IzwMk5vFb7Go1poB9ormialH81
Cg2ObHkLb295O/yM2kTMt+V9EKuLDcX8DNeVcG5yl7jroqK1mJsxOygOigj6
ggwD8/0ensm8ae7GiKzHth5jOv/Npl+z/8UlTjS316OhcT2M8QYYoww4/fhp
1M5aj287FmOpYwmvUHJwFxf3hHU3kzAoGQwGrdNpHyX34kjLiEB1z2SXYpjh
2Qdc7bnK/Obl9S9B8AsMW2VuOTRaFfYM/hh7D7Zh4Je78KNtGxi2zqUdwC9C
8fJ59+diUowpaE4yCQUFBfNnEkt4HZJjF6m0Six3fEegdWAihknkj9QIdn/V
NwaDUg+X24beZ3did38jnhhsgm9/O/TGGHhSS8D38yzmac47VHsoKGMxX3JE
pVJR1jNlE+ZTRS5XH7mIxOeD4lMiy503wkHtQt/R/EV1PLprFHKZHOXVc9H3
3GMMA6XeZx9DkdfOMI71jDHMTDeDEJ1mh2iI1wVIXrdLuuRuKeH0BqfVRsnK
ykqPEwfDJ+2f8DRuBZ9wY3tIxN6TeSdJXiJrfIljIISD3s9b4AUn43D2p/9k
mGlNobbuWrYnSGtjqcfbLuGYieMDeXR0tIzExoiKU+Ds7rM8rXW3w8HyF4mX
i3suQivXYM58z1QcC0uZrc7sOsNwBEnuo3H3XtN7rJ64XM5DtMbLZuYYhIuK
ipJ5Pe5jdO2T7Sd5yvN2OCI1vJdHdlwWkq2J8P98BzqGmiM43LOciOVicLn7
MsPM1iQ6Ot9xXohWapGVnfFhdFQ006XsznOwkuM4mdPueJXieGfL0SCtaTeN
84kY6BziJ+u8D4FTyLHb14w9+1sYDv+BnUhMjoPTZGd9ALVfOIcH/AExXW+B
JSP1vMlkmqleWEmXIDhepjieX/v8LeN8Mo4gy0Fv1r3JYmRt7Qr4D7aja7gF
23ZuZs+2lTczrOH1mD+SWC+zeGFM1I8lmUzmGcLBqdVq2ezSsj9SvutK1wZp
Xp2OPVid94u44ruCpFgTEhONeHKolflXenoaolRanNp5ChP9lPU3pOevzK2A
XC0bM+j1DAfxqjuu7bGxsVyhy/kxxWGMjhPOPXEOQq8wrRgJ13laF+n35ZXz
8P261ey+v6aP2YLv5iO4ae287LsimmPMosWaciE+Pv6O/Sr8LfHR5LS0lKsq
Tkn5i00LGxHucacV61KcbCirZfLT/suWlIvxfeMQ9gpf9jYUD1m3eVETq4Vz
Z885MBN7Eilvy3Nzcmpo37NtUTO/mexLKY+/NL3PfJ/2urf1L19Iz//u+QJ5
plz2/esbXmffh/1TqoF499F36L5edNnt51NSUpIldd5pHVTQ3sDlcPyW8j6+
9Th/xT8Gsy4JVqMFZzvPsnw/HbswOYnchzcfRinpiYW+kB0m0njvOApM+YIh
Tg+nw7GSCkBypfoOfYrZktjCk5BoFO1kfcqHyn2s8c8g75FHfOP046MIxz0l
GjNhuW5WGy90XAj1YRMxElsc+cERVv+8bvcbSuWU0qf4P8+7FNSc+Xl5L9K1
X1r3IstT43vGmV5/3/A7aIif67U6/OqRN9gz1hv2YpKMN8phFMtEnGyfRfRz
oumESHmlpaacyrfZ+m15eY8QPc4zm83xN8A1HVswzBnp6ZnJqUn/yYrLwLh/
PKJz1psS/Y20jsButjN/X5i7AK88/Ar+sfvvuNR1Cf/tGWe2oXn0emJ2u+4Z
jTO+j0drZSvpueSRPYw6RomsnIwLhYWuV7OzM5fr9TqVJOJt7RLuy4oLi2oU
Wg5b52/h8VxoX8d0PiSdJQyHzjyG1gzCrE9ifOOidDDpTOhc1gkclOYNfQU6
AJx78px4tPFocHDVQPB7njWktltBe9Q4gx6FLsdx0ieF4/6WWMI4SN9co9Vo
xOyELH6xoxpVtgpU51dKVIXKvHJ8i1xXe1ahxFIEJdnLyiU9mgmWxfZqVNrK
J3xzc6LrVNkqyZoVWOZYipVFNVjjWY2V7hp4rCUiF9r3BjgSl1kZGT6ChcbK
7fIxw6FSKmvUCkV47zz1jPM6Io0YI9oXT2f+VyF6bqEkspD8FaB2SUxIqJZ0
PgXL/wDnqLzo
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztWHtsU9cdvravn7Fjp0lMcEJiJwY7iZ1AXoRHIJS0FEYha0Z5NpA2ifMi
QGC8WhpIq4o2hEJZ1xYQmqpNk6ZNTCrV0KT9MWnrtGrV2NoK1ArGJlbUlZU8
iZN7fb/9zrl2lPAMkML+4Eqf773nHN/7+37vcz3Pb3qmXisIwlYT/TxTs2NB
W1vNrioH3axo3doYaq2rXdy6rS5U11b6vI4GvYQCgiiwQ/MIj/AIj/AIBI1G
qyGIDHQ/BrFxgvZhy3k7+emCpflRx/Xrxszp1P88fNlHceDy63Q6wZnsTCqc
UVgdDAY7rHHWfaJO7NBpdR1xFsu+/Pz8joIZBetcdGjVvwj/R7bhAqXQUVBQ
8KOUKZOuCCYBgpaguQnMAianp3QHcwOHHAkJ8VEuD80uMT/SkjoDObmrMr2e
r+ke2Q4/Okr3yh8u+7V0ZuXH0mdr/spxZtXH0qmnT0r7ZrbLfrsPbO30/LzP
UlNT0zmVh2CXGAeTySzkBfLarY44JOjtOF5xVIpsHFKwGUAroYXQHEVLdIzm
Iq2S8nLJ7iHGpbCo8I9xcVYdI8LoPGAOotlsFubMmn1Ub9GjIGm6fKHmSwWb
ALm+D8P1vZBD/YiEBjjY9VBdD4brehGu7ab5PmArUO1bO6w1apEfzFsb9S/x
AdpD1BsMxGHWu0yGOSmlw72NVxVsHKXzRglouEYIQwnRuXGY22EEtE6iuSt1
X8nxOpuSE8w5QzbRqi94MByi8bBTNIkonVQy3NfUAzTJ6A91IxSsxfKspfjP
C1/R2DC3A5ok9Ia+xSuz2rHAVY6qrEqcrjwFZrvLtZeQGe9RHEl2xZ3hDjyI
OInl1hnTZ1Q7HrMjx+GXehq/VZiuleYI/r7mEx67DNsL27icEvlUP/Gc5ZrJ
x+1OKzRmdc3JZb/EtsLN7FqKM8bBn+17VfUtzXfmWzEOHrcn15PpHrbprPL5
9ecUtCjk8z3cTyg3cflErYj5aWWqjxGX/XNf5eO1DWtw4OiLeO3wDkz1ZyFO
b0GC2cHmFIZsf3bPlCnpad+dTXhca+Pj7cZgMPBnJtPp5R/IXN8sXhsGoZCv
9zd0o5zkZ/MvlezkcSI3D8Jr9WKK14U3T+zBnq4W7D+6HZt31fJ138tcjI6y
dlRNrZS0ohbBQLBdtcnEx7v6TEEoKijarDFo0BQISSC3YbmHceA8WCxTjAzU
X8WffvB7hENko2YFl1+4CJ2gQ8XSeeg8tgvtB1ux99Am7H97J8wJJqyduhrY
TXxbwkqq2aWkZqR+MzllclLUJhMZ8/zHYU+wpLnTLiXpE5We+iuRSOMQ2eDa
CA8OnpeGwPIW50U14/Pnzqh6r1qIzuPE481Wjq5jL8GTkw6/zQep6Rr3v665
r8vUnaGooHD7RNtklC0aaHOPV2bulVnejPnT9WDcWI7ieYp4nKv+lPNYWlWh
8jio8ug8uhtZuW6kmVIRaR7gefq/dZdlu96ueLzuv1kscROcgwWdQW8QgnnB
06JGVC5Un5VZboo0DNyUx2g+TLbu+q9h1pgxZ2EJDhzfPWKPA8dehDfggdvi
pnwwhEh9P6sryrPeKkUfr5fT09KzozaZiHjnROJtdp0zLfmCNz6LdDcUYbXt
dhzGxEyrgjxHECmeZG6DGI/Od3cjKf0xzHHO5nWR1Xplk4J3yo9IzLdKioo3
T5RvqboQtJNTXB69TR+uSF3A+g4lwnxmHDy475GMPyxoA3XE2LN/EzqObOHY
10ljogZt0ykwtgDhum4eV7+r/I3E/LCosOiwwI/7ryWUMPSiKArFhUXvUw1H
cUqhjBZZ1fM4ePAYIdk+WfURj5HKFYvxxrGdeP29HXhi8Xw+9peVH4HXIOrH
VB6nOY+S4uLDE2EP+r+ePYfy+QaHw87eKccZLPhn9RdQKL+y3m88XCLct2TM
S50D1scwO+zsaOYcanKqeZ6S6Vkx2x0q65IEvYCZxTNb7pdHjMO0qdOecjqd
Q0atUf7xwrdYzaUeaS/UfNU7Th4DxFvCxZrzsIk25ASmITfPh0RjIrpD39Dc
MM8ZUb5KqbMEtmRrb8qkya77ifMYB7/f/6TbnRGmS+UXS36mYBewKKMCCSYH
+kJXITeG75izRvyL6Zr0/vNF74/0X11z9yOWv9Vao+Bf67+UdBodsryZH4oi
F0N3jxx4rfD5fE9muj2MA95+/HCE257q27l1ai2oDdTwvcPwOG2ixnw/j+eV
vhVwmOwYbOojPYRH6g3rYX67/JREYoD6rH3cFPfgU7E+0Of3VVAvOMjkPVze
FWHvZjqTo/77xtzXOJcTFe9xuRiXG+r6LeoJ869/b/gHPlj6Kx7bsRiTQqq9
flrxE4laEdrrTt92L7ERza9kB/8sn2/a4Igdtoyt26wHZ+9b61+lcnniGFif
xeoJW8djgcl7K16x/VQLxuS8mD1OLT3Jc1UwEOi4W3vEaoTTOWlSTnb2Jfac
I+UHZVXXfTfoVGZ8WsJY5XuWc9lK+4eB5l51j9ek0Loh3K5Osmdcn+v4PfUI
l2suynqNiNxgzh9MRvNdxQeRZt/ChGBu4B0m18Z8UhivSz0je+vRkOtZ70S6
bImgo/RlzsVpSULX/E6c33AOg409kJtUWWP+eKuzPOqe1fPIRgmPu8ojZodZ
CeYGy6O+dUcuMX/KSHd7k13JQz771Aj5Cf9WMILWm1y3RrEdOLvhUzztXcL5
WAxmeBxulLiKiGeYx8+YPfntwJ67Dfhi/ecRk9bIctZZq9VmYb4i3OEbSiw/
JSYmfp99M3NZUuSFGeW0l5uL8inzVKTNu+66LHpfhrLU2VjiWUR7oaeQYLSP
5FSGyqxleC57HcXSaqzzrxkXVk9bierstbDprTxOPB73CfY9Q+Df+W5rEzHq
W5Umk0nRGXQy/waouwtoVRiMBphNJljMZjqbx8zdLYwmIwwGg2yzWWGPt88W
+HEjl/8B5KNZsg==
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztWHlwE+cVX612dViWLMuWjIUEMrJkLFmSLcvGlCPhKOAOwRMYwlkKxjY+
8IFt7iPQhgAJ5zAJECAJSQM5W67gBJqQENJcZaZ0SIZJZ5o0Q+8ObWeSQiTt
vr7vaUXtNHEFMfE/aOZZ2v3Wu+/33vv93vs2r7p1ah3PcVyHDv9MXbB8THv7
gpXTzHgwvaWjYVFLbU1lS2ftotr2imo1nsxHC6MJHPuo7tgdu2N3rE9NpeJV
aKhKqh6mnFP1t38p+M/8ZHLZ7ZNc73ZGxQvKtf3u81fjjz/Ifx5Db7XajPZc
uy9Nl+YTeQFN9JkMRp/T4fSYM8zdcDLM/e+/goH8EkWRc7lc4VAw+Eh+Qf4V
TYYe8HQPy7Bmxv1Fvo98hYXLHA6HUwHDJ+LQrzgIg9VqHRAKBJ/ItFkk5m+m
mA4TneXQXjIdlpXOJGsMVEG5tRB4TkWY3Pnuq4GiomadTpcotX7AkqwjXq3m
vF7v1Ly8vD8y3zymgfLTE1fHri46KsOSNwDa31LsHEAbHre+Ln9SfVhaEr4v
hjcAUa+FskjkiMlkElleWGq+YwwqrVbLhUtKNlqyLRTfdRXzY/9uPg1fNL4M
sPhViDecgFj9cbRjEMdvxIDnuyDahOvL34ePFxyWg1lDonqdDoZXVBzWaDSU
lO8IA5vwVBkZGWJxMHhQ1GvAqs2IvzZtuwTLP4CaosmQJuqgNnAP+S0hFglx
xRefhg3DF4DX6ACzygDhbA+8O3MPfLbwORaDaGamGYpDoVmJAuNvK/eTeTAa
TUJZaekJTuTBZ3FFP6k+QjVzDWM+2JRLucG4wm9mP4bxf4XWOktn0HmrPRt8
xQXAaXjQqzWwMDAZBF7NakwKBoMnBIGm2tuGI8kHxCBi3I4xn0bk+qN/W3QM
oOUM1g3WTlMX4VApPO6q2oy8OA8fz3sS1CrEXOSFbftXwc5Da6BzXR1okRtc
QsdIGzye/A/T043sOZSV24CDMGg0Wq6sNPICshFG2wPRzxkPkA+s9ln9yFhH
a8p/SL7lGLLg0/k/Bej8Jey6u5nONbTNgYcOLIM1Wxthx6HVMHrsMMLcFpkB
znSbnGXNijoGOrz0wNvQI/GmgogcxDzsUAk8BJCb/0S/E1xG/jI8zJpOEa4L
Mx+F3/3oKTzuIp1qClZhnXGwdvNi2PhoO2zY2QIP7V8Gtc0zCd+b03fB4+OW
xtjv8tLIw4zq7Jl9XE/UH4r8RXWmDBMMTs+JXal54UYebmBQTG44iXX2C1x/
lbQKlrwJU4eMBE7B8SDDsasVNu3tgKXr6wjHA8j/zxd3yVpelN0e9z9sthyL
kpM+qa0kBrvd7s/JsV3X89rYhVl7ZWg7m/DxKxiSRhqFeOga7B3VvkrCsW5L
cyIfhKMTOu+vIRyNgSkAqy5CrX9yDBkOwaJAc4IhfF/lhDcY0oVQIPAOe15z
8dQ4q/fooqPfiKG7JXFsqJhP/nasrYHN+zoRR0uPfKxFTslL34OP5h6U1Bwv
B0PBz7KysvV9kZNELHB/Hw43WMyZjI+x7aMaQMI66S0X/4MDNffYlJ+Qv7Pn
V8HDB5fD+h3NsOWxpdCwZA7p84HxncByzKxy0LC4mKaB/CHu8X2QE/qTlmYQ
Cgq8l/G3jBbfPqqeeJsqDrnxJPWPv9Y8DzqVBvzFqLuPr4R125pgx5OrYVzl
SMJ3cfZe4puMOJ6vXMf4LuOsuU+tZmV96/NwkhcFBQUTjSYjOMw5EsogrC6b
AzLWSao4mJEWIPYpeSOAad2qBxpRe5fCqo1NoEvTQSjbDfGW0zTDMP27Un1E
0vAi9hof6yVc4vOtakpVHinbxmJzYMKK2BDzQKjI9ZP+SPUnUsfB/Gt9Dc5P
30mxH1rohkee+TEESobS8RvTttL8EiP9PgXXG05Kg4wDQC2qLwpq8VvhwI+g
16VxQwuHEr//sPA5qR41BecH+FP1syBj3CRWMzeVk7dgZWQ2+V4eKaHveYUT
ADrO07pM156CLxtfllwZdrZ+Uc2rbxkHz/MUhFBRsFqLeR+W4yONenvaDnr2
isgsfPbbNMOmioP5GEfcMewrw+1+uo9ZZ4TfY7+XsM8wjZaVPvpF/XEpJ80C
6ab0S1qcH24FR6KHcpzTMajCnpt7XVCppV/P3idLyEGW++8PigDuUeHy3Ceo
Vr6uD/bWU9gc9lvs88hfaCuZRrlIxkOi/nkGPpx7MM5mFdTJd1FnFBA3xQnK
Q54r767cAQOuspgdnrRaYnyIYb+QmQ/zngKdoIXSHC9cw9pivLxpzuPe6tCE
lXB5zkG6Z7I+k71m68h6mk9KQsXrCcTN6S7lYWhBwb15LhfdZ//4Dgm6aVNc
mTEOT1pDdTFhcBn8i/mAWsnWErPiyURce6sxygvOLU04zysYZMWimHe30S5Z
7TbZ6/GGFByp6q6AnOAC/qJ6S5YlzvTpGZaHr9HXxLx0DnaPaSUsHrMDzk3f
ndizsj0sxpf1gVRqTO6mE6RpGI+uqk3s+RAMBI6Loob5lurMKyAnOMTeasb9
mEGtlU5WbZJ763U03yKWo/dshEydifBMyquAZ39wP1zCWrkx56ZYa931bJZn
XFzQi1Dg8U5ONRfsGpYHt9vdYkg3gElMi70zYzdhiP4fLYor88Zfal6EjvB9
oBd0N97rZKPWXEf9TNZKKlrGvqNNp2Sn3gq2gQP+bs22mhUcvXI82a897vzJ
FksmGAV97MLMPTjHvg5f1v1cmVd7N5oV2X4D8VytfQlemfIgbPleDWwdUQfX
cI+Yyj0k5T2EhPn7dP7TcfY+KFQc/MCQgk4l99g2m83s9/uuCDhfvj9rjwTL
f4W1fYa4TDMbe7dBdlZ5X3P2v7+Txo4ZZ7HOAOdVWHEB2LuGHutt3f/nbM+1
VuU5qL9/rv0Z4QiHS95LEQflwuVyjTeZTbjX10qVrgq421ECY52lMIYsDGMd
YRjHvvF4rHKO2ThnBK2ULLGWOH+XoxhGD0zYWFqPJO7T49ruFlYscTzKUUw4
nIOcl3CvwKfQN0iPeRV/L5qMPI8na7u/DX2R0g0G2WKxjPkmnv8HGU5/+w==

"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\), \!\(\*
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztWHtsU+cV9+P6lYfjPBzHdmLHjhPHiePYzpOEwChMCrRjgryghbxI4jxt
8gKSlBboKgi0ULR2a8u0Vyek9Z9J/LWH2klbNHUvCU1at3YTndZVopu6rWrH
IL6+Z+d8vjeYtAs2TUn/6Ced3Hu/++V+53fO7zw+O/oje4cUMplsWot/9vYd
3TY11TfXZsCHjvD0SCg8OLAzPDMYGpxq7FfipAsliMLJPh+fj9tDjoMuq0Wc
/0wPeXwQpRV3Wcrhurut2YhBNlZKDzqdTmY05mVqVKoMTqHIUHFcBt1n6fUZ
uTk5iaGr/OinNmYk2tWYl2fweSuGa2uCP3RXeK7LOO46Tr+Li96VK7nreQWm
68GawOu1Qf85q9XsFP9NsdFcEzkky8rSc4Fq31F7cfHbqDvgFOSpNeDNNYIv
Lx+q8oxMSvRZgKDZ+wKL+d9+X9W8VqsVP7VhWBgGV4mz1uetfE2m4kAjl8OE
PxD9eWcX/+HIqAATE3cIPz4uvNXfH1ts2RLVcyrgtFpoamx8OSMjg3xKct+w
iHZT0qXSU77f6XTcxGdoLy2L/m1oSIDpaYCpKYCxUYDRuAgjI8APD+P9CCAe
9v7Nvj6h3lRwS6fVQU0w8KxaraZv3694YRhoz6aGhidycnMBJ+Br23fwMDsL
cw0NUJSph1NNmwEORyCG+gsiFpicZBj+g3MwPg60/o/dPcDJ5MsYV+AuK31I
tNP9wMIRhpqAfzFTrwejVht9tb2D+eAG2tuckcm4r+XU8FZvL9OXRwz8+ASc
2tQEniwD5Ks0sNlihd88cgBe3vUgYD7j0RZCZYXn93q9XiO7XWs+lcFiGrlU
XeWdJQzWtPTlN3p7BTh8mHHmFupbiHGMejEsS23tAOEw0PvDwRo2ZzSbwF3h
AplSCUZdGozU1rF5FB7zMSBHt4t7fSo+USgULKYxHtppv2y1Jo4hEoFlxMD4
gzr3equYXpkaHfyltw/o/Rvd3Yx7Pp8Hzr+4ABe+tQBT8/0Mi8digWNNzRA0
FURVnEqo8JSfWLHZOg+pPpS6XNWlJSU38Db2SlubQHyPstgdjcfA2BhE8Xrl
S7vh11372DNMTcK5LVsZtomZHjh7aRaOPz0GF7/zKDQ014AK52OI/2ftHVFa
4yy2n5PFObWuOKTcZDAYtHU1wd/RXhe3foGneFgODa/kozsEeUR8Wg6FgNYd
qvQy2z9+dgKefG4STj4TRjxHoH+4g+G7sns3/LW3l+EoKyu9olQySq1rz0I8
JSgtTZueIV2+XOKKUs6U/LBayC88ciwmCvms1VYMcrUaTj4djuO4GIEzL8zA
9MIhhuN8yxbCK+Rj3Sy02z8ottts4t7rgkWKNapz+aZ83qjV8X8fHBIEzEFM
x4/zRYKweoGY95e5gWrkyaciDMcpxHEaccweH2Q4ZoJBgPl5GPdVR+XYC6Df
58T914tbyvT0NGVd0P9L2u9syxbk0//3xWph65BXR1hOksOxkyE4/fw0+iMM
Z56fgZnjAwzHmebmeC052B3DhCiUuEqu6fWZGtk69CqSLzzl5e05BgPlG/6V
vXtBwPzDJ+GLFRzIq8s7dzF9+4ba4dw3jsCJCxOw+OIshMIPA2oJL7W2srxG
cdXpKuWxyEK119sj6vFJfMLqUFp6Gudxu6/ivYDC/xRxQAo4YnSdGId3Dh3C
vCSHYH01nP/mPDyG+erCtxdg2xebGb4/HDzI6jzl7V917eNpvypv5ZJGQy65
93iXbOB2l+3ONmSzGkX5/yd79qSEg2EZifvkgcIiUGk08PhiGBYvzcDCV8ZA
m6YDDDyIRcT+hdWgCLgzswSzzXYL49Il6nOvWJQKhVyGOfCyHPl6tKGR5UTM
tyCskas+NtYJM+r5I7QBfcPvr4CvX34SqnzlrDYudXau2CYeT1PQU14hKBBz
gTGvQcSRcm2XztQWc0G2zeF4z6LRwvtj40Im5sQdNjuzLZ8Cjtt5a5L6eYal
pSneiwxgXaE8IH0vKua30epq4rGgVihqJLumigP7DxVdawP+kEqngy5XGU85
sQ/3RIhwracHBORyKtwSxFi5ifm6GnlEGHLw22/390MsIYdLOLBuCpR/cw1Z
9ffiD2l9odXqcNjt/8Db2G/3PxwT0JavHzjAcmcn1gKYmmY9VSo+YbpiHF/F
HheNBcfq6pkvEjlK8UE5y5+TK+QXFvIed1lV3LbJ45D6wOJiux198Wey2enm
zTHiEesv0E6RQJDZ8vuYR0mHWzSfKr/wey9s3wFvYo4iv0q+YHGOz9d6emMq
uVwoL3dfTU9PT/y9KBk/MAwWi9lWJ2I4WFnJs1ig/oJ0QPkvcqDWVIB9uRJe
bW9fsSefeFZKxi9UK6iHXF1r0FbzdfVR8lddIPBYom7JYsC+P1BeWvonwvCI
p4Jn9U7k9sr+ZC/kNJ33aN13qX7R+ZX0EnkhJBE3sVW46V5AXP8MhYRslVow
mc3vmYxGk6hfMjmXYShxOreWOBz/It2QtzxxNCbxNXF/shlynLA0mC0Myy6H
E5a6uiBK51Sxz02Fa4m+ONW4KSqTK6Cpof6rKfiCrSlzudpsRYWsPjy1ZStP
31ttr49wHP1CuefRxk2gRI7R/1rwPOvPz4cTOMfOh0nmM+nc8sHIiGDUaAWz
xfo+hqgzDmNtXxBOBfb49XU1ERPujUEUe6l1Z0zi+924vtLrIuZ3BgYIP7QW
OxjfDngqGI5k+uGVOonrf/DgQ8yW5WWll0Q118xRUm71VXm7CwpMkK7kePY7
QYp1WpB8Q3yiGCGh33PoOVVOof1ClV5eqdMJ3krPHlJTsQanRAwK9Ft1YaH1
Ji7klzo6Y2SPm0NDK2efVIT0oPxLuVmK82T/lxflxvi44EBf5uNZ3VZU5BR1
XYtTCo7jZAG/78fkw+/t3BWFubm4HSlGP7FEVvrvpCQSZueO1/btpx4XnHb7
L7Bm6GRr/K4o4bNaLH5DVtaH6LfYdrsdthXZ4IENkm1FRbDDXgzunFz6rQSQ
571S/K7hC/ZOrVa3q5Qc5hkFs8FnRPh0XRpYrZaOBP7fMf4HUXn9sw==
"], {{0, 36}, {50, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->Automatic,
ImageSizeRaw->{50, 36},
PlotRange->{{0, 50}, {0, 36}}]\)}, 30]
Out[2]=

Use BirdSay with the bird:

In[3]:=
ResourceFunction["BirdSay"][Row[{bird, Style["?", 30]}]]
Out[3]=

Scope

SimpleListAnimate Content

Animate a list of Wolfram Language expressions:

In[4]:=
ResourceFunction[
 "SimpleListAnimate"][{Style["\[MathematicaIcon]", Large], "string", Framed[x + y], Graphics[Rectangle[], ImageSize -> 20]}]
Out[4]=

Animate a sequence of expressions:

In[5]:=
ResourceFunction["SimpleListAnimate"][Table[Factor[x^n - 1], {n, 50}]]
Out[5]=

Force the expressions to wrap at a fixed width:

In[6]:=
ResourceFunction["SimpleListAnimate"][
 Table[Pane[Factor[x^n - 1], 200], {n, 50}]]
Out[6]=

SimpleListAnimate Control

By default, the animation lasts a total of 5 seconds:

In[7]:=
ResourceFunction["SimpleListAnimate"][
 Table[Graphics[Disk[{0, 0}, n], PlotRange -> 5], {n, 5}]]
Out[7]=

Control the display rate of each frame using a second argument:

In[8]:=
ResourceFunction["SimpleListAnimate"][
 Table[Graphics[Disk[{0, 0}, n], PlotRange -> 5], {n, 5}], 1]
Out[8]=

Options

Alignment

Use preset values:

In[9]:=
Table[ResourceFunction["SimpleListAnimate"][{"a", "hello world", "b"},
   Alignment -> a, AnimationRunning -> False], {a, {Left, Center, Right}}]
Out[9]=

AnimationDirection

Control the direction of animation:

In[10]:=
Table[ResourceFunction["SimpleListAnimate"][{1, 2, 3}, AnimationDirection -> a, AnimationRunning -> False], {a, {Forward, Backward, ForwardBackward}}]
Out[10]=

AnimationRate

Control the animation rate:

In[11]:=
Table[ResourceFunction["SimpleListAnimate"][Range[10], AnimationRate -> a, AnimationRunning -> False], {a, {0.5, 1}}]
Out[11]=

AnimationRepetitions

Control the number of animation cycles:

In[12]:=
Table[ResourceFunction["SimpleListAnimate"][{1, 2, 3}, AnimationRepetitions -> a, AnimationRunning -> False], {a, 1, 2}]
Out[12]=

AnimationRunning

By default, SimpleListAnimate starts running when evaluated:

In[13]:=
ResourceFunction["SimpleListAnimate"][{1, 2, 3}]
Out[13]=

By setting AnimationRunningFalse, SimpleListAnimate starts in a paused state:

In[14]:=
ResourceFunction["SimpleListAnimate"][{1, 2, 3}, AnimationRunning -> False]
Out[14]=

DefaultDuration

Control the time duration of one animation cycle:

In[15]:=
Table[ResourceFunction["SimpleListAnimate"][{1, 2, 3}, DefaultDuration -> a, AnimationRunning -> False], {a, 1, 2}]
Out[15]=

ImageSize

By default, SimpleListAnimate leaves enough space for its content without ever having to resize:

In[16]:=
ResourceFunction["SimpleListAnimate"][
 Table[Graphics[Circle[], ImageSize -> s], {s, 20, 50, 10}], AnimationRunning -> False]
Out[16]=

By setting ImageSize, leave just enough space for the current display:

In[17]:=
ResourceFunction["SimpleListAnimate"][
 Table[Graphics[Circle[], ImageSize -> s], {s, 20, 50, 10}], ImageSize -> Automatic, AnimationRunning -> False]
Out[17]=

A fully custom image size:

In[18]:=
ResourceFunction["SimpleListAnimate"][
 Table[Graphics[Circle[], ImageSize -> s], {s, 20, 50, 10}], ImageSize -> {300, 100}, AnimationRunning -> False]
Out[18]=

Applications

Collect the individual steps in an optimization problem:

In[19]:=
{sol, {steps}} = Reap[FindMinimum[(x - 1)^2 + 100 (y - x^2)^2, {{x, -1}, {y, 1}}, StepMonitor :> Sow[{x, y}]]]
Out[19]=

Animate the progression of the solver:

In[20]:=
ResourceFunction["SimpleListAnimate"][
 Table[ListLinePlot[Take[steps, i], Mesh -> All, PlotRange -> {{-1, 1.1}, {-1, 1.1}}], {i, Length[steps]}]]
Out[20]=

Collect individual steps when solving the sine-Gordon PDE:

In[21]:=
{sol, {steps}} = Reap@NDSolve[{\!\(
\*SubscriptBox[\(\[PartialD]\), \(t, t\)]\(u[t, x]\)\) == \!\(
\*SubscriptBox[\(\[PartialD]\), \(x, x\)]\(u[t, x]\)\) + Sin[u[t, x]] , u[0, x] == E^-x^2, 
\!\(\*SuperscriptBox[\(u\), 
TagBox[
RowBox[{"(", 
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[0, x] == 0, u[t, -10] == u[t, 10]}, u, {t, 0, 8}, {x, -10, 10}, StepMonitor :> Sow[Plot[u[t, x], {x, -10, 10}, PlotRange -> {0, 8}]]]; // Quiet

Animate the solution progress:

In[22]:=
ResourceFunction["SimpleListAnimate"][steps]
Out[22]=

An implementation of LU decomposition that uses Sow on all intermediate steps:

In[23]:=
LU[A_] :=
  Module[{m, n, L, U}, {m, n} = Dimensions[A];
   L = IdentityMatrix[n]; Sow[L, "L" ];
   U = A; Sow[U, "U"];
   Do[
    L[[k ;; n, k]] = U[[k ;; n, k]]/U[[k, k]]; Sow[L, "L"];
    U[[(k + 1) ;; n, k ;; n]] = U[[(k + 1) ;; n, k ;; n]] - L[[(k + 1) ;; n, {k}]].U[[{k}, k ;; n]]; Sow[U, "U"];
    , {k, 1, n - 1}];
   {L, U}
   ];

Reap the intermediate results and make an animation:

In[24]:=
LUAnimate[A_, f_] :=
 Module[ {lu, l, u}, {lu, {{l}, {u}}} = Reap[ LU[ A ], {"L", "U"}];
  ResourceFunction["SimpleListAnimate"][
   Table[Row[{f[l[[i]]], ".", f[u[[i]]], "==", f[A]}], {i, Length[l]}]]
  ]
In[25]:=
LUAnimate[RandomInteger[10, {5, 5}], MatrixForm]
Out[25]=

Use MatrixPlot for larger matrices:

In[26]:=
LUAnimate[RandomInteger[10, {20, 20}], MatrixPlot[#, FrameTicks -> None, ImageSize -> 100] &]
Out[26]=

Show changing moon phases in a month:

In[27]:=
dates = DateRange[DateObject[{2014, 1, 1, 12}], DateObject[{2014, 1, 31, 12}], 1];
In[28]:=
mp = Values[MoonPhase[dates, "Icon"]];
sf = Values[MoonPhase[dates, "Fraction"]];
In[29]:=
list = MapThread[
   Framed[Labeled[ImageResize[#1, 45], Style[#3, Bold, FontFamily -> "Helvetica"]], Background -> Lighter[ColorData["StarryNightColors", #2], .3]] &, {mp, sf, Range[Length[mp]]}];
In[30]:=
ResourceFunction["SimpleListAnimate"][list]
Out[30]=

Properties & Relations

Use SimpleListAnimate to animate output from Table:

In[31]:=
ResourceFunction["SimpleListAnimate"][
 Table[Plot[BesselJ[n, x], {x, 0, 10}, PlotRange -> {{0, 10}, {-.75, .75}}], {n, 1, 5, .25}], AnimationRunning -> False]
Out[31]=

Use Animate for animations that depend on a parameter:

In[32]:=
Animate[Plot[BesselJ[n, x], {x, 0, 10}, PlotRange -> 0.7], {n, 1, 5, 1}, AnimationRunning -> False]
Out[32]=

Use Animator when assembling a custom animation frame:

In[33]:=
Column[{Animator[Dynamic[t], {0, 1}], Dynamic@Plot[Sinc[t x], {x, 0, 10}, PlotRange -> 1]}]
Out[33]=

Neat Examples

Animate a sequence of disks with random sizes:

In[34]:=
ResourceFunction["SimpleListAnimate"][
 Table[Graphics[Disk[], ImageSize -> RandomReal[100]], {50}]]
Out[34]=

Requirements

Wolfram Language 11.3 (March 2018) or above

Resource History

See Also

License Information