op = par(pty = "s")
vi.lilac.chaser(nmax = 20)
# HTML animation page; nmax = 1 is enough!
ani.start()
par(mar = rep(1, 4))
vi.lilac.chaser(np = 12, saveANI = TRUE, nmax = 1)
ani.stop()
par(op)
Run the code above in your browser using DataLab