Visual Illusions: Lilac Chaser

Share:

Description

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

Usage

1
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

Details

Just try it out.

Value

NULL

Note

In fact, points in the original version of ‘Lilac Chaser’ are blurred, which is not implemented in this function.

Author(s)

Yihui Xie

References

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

See Also

points

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
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)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.