animation (version 1.1-0)

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

• None.

Details

Just try it out.

References

http://en.wikipedia.org/wiki/Lilac_chaser http://animation.yihui.name/animation:misc#lilac_chaser

See Also

points

Examples

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)