oopt = ani.options(interval = 0.05, nmax = 20)
op = par(pty = "s")
vi.lilac.chaser()
# HTML animation page; nmax = 1 is enough!
ani.options(ani.height = 480, ani.width = 480, nmax = 1,
interval = 0.05, title = "Visual Illusions: Lilac Chaser",
description = "Stare at the center cross for a few (say 30) seconds
to experience the phenomena of the illusion.")
ani.start()
par(pty = "s", mar = rep(1, 4))
vi.lilac.chaser()
ani.stop()
par(op)
ani.options(oopt)
Run the code above in your browser using DataLab