| vi.lilac.chaser {animation} | R Documentation |
Stare at the center cross for a few (say 30) seconds to experience the phenomena of the illusion.
vi.lilac.chaser(np = 16, col = "magenta", bg = "gray", p.cex = 7, c.cex = 5)
np |
number of points |
col |
color of points |
bg |
background color of the plot |
p.cex |
magnification of points |
c.cex |
magnification of the center cross |
Just try it out.
NULL
In fact, points in the original version of ‘Lilac Chaser’ are blurred, which is not implemented in this function.
Yihui Xie
http://vis.supstat.com/2013/03/make-visual-illusions-in-r
oopt = ani.options(interval = 0.05, nmax = 20)
par(pty = "s")
vi.lilac.chaser()
## HTML animation page; nmax = 1 is enough!
saveHTML({
ani.options(interval = 0.05, nmax = 1)
par(pty = "s", mar = rep(1, 4))
vi.lilac.chaser()
}, img.name = "vi.lilac.chaser", htmlfile = "vi.lilac.chaser.html",
ani.height = 480, ani.width = 480, title = "Visual Illusions: Lilac Chaser",
description = c("Stare at the center cross for a few (say 30) seconds",
"to experience the phenomena of the illusion."))
ani.options(oopt)