animation (version 2.4.1)

vi.lilac.chaser: Visual Illusions: Lilac Chaser

Description

Stare at the center cross for a few (say 30) seconds to experience the phenomena of the illusion.

Usage

vi.lilac.chaser(np = 16, col = "magenta", bg = "gray", p.cex = 7, c.cex = 5)

Arguments

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

Value

NULL

Details

Just try it out.

References

http://vis.supstat.com/2013/03/make-visual-illusions-in-r

See Also

points

Examples

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)