NOTE: this illusion has been implemented in the R package animation v0.1-4. The function is
vi.lilac.chaser().
This was a sudden idea that came into my mind yesterday. Actually some optical illusions can be very easily created using R graphics system. Here is one example I wrote yesterday:
# By Yihui XIE, Dec 22, 2007 http://yihui.org
op = par(bg = "gray", mar = rep(2, 4), xpd = NA)
x = seq(0, 2 * pi, length = 16)
invisible(replicate(100, {
for (i in 1:length(x)) {
plot(1, xlim = c(-1, 1), ylim = c(-1, 1), axes = F, ann = F,
type = "n")
points(sin(x[-i]), cos(x[-i]), col = "magenta", cex = 7,
pch = 19)
points(0, 0, pch = "+", cex = 5, lwd = 2)
Sys.sleep(0.05)
}
}))
par(op)
Focus your eyes on the center + for a few seconds, and you will find the color of the “circling” point just changes (to green). Perhaps I’ll write a package for these illusions next year.
Donate
As a freelancer (currently working as a contractor) and a dad of three kids, I truly appreciate your donation to support my writing and open-source software development! Your contribution helps me cope with financial uncertainty better, so I can spend more time on producing high-quality content and software. You can make a donation through methods below.
-
Venmo:
@yihui_xie, or Zelle:xie@yihui.name -
Paypal
-
If you have a Paypal account, you can follow the link https://paypal.me/YihuiXie or find me on Paypal via my email
xie@yihui.name. Please choose the payment type as “Family and Friends” (instead of “Goods and Services”) to avoid extra fees. -
If you don’t have Paypal, you may donate through this link via your debit or credit card. Paypal will charge a fee on my side.
-
-
Other ways:
WeChat Pay (微信支付：谢益辉) Alipay (支付宝：谢益辉) 
When sending money, please be sure to add a note “gift” or “donation” if possible, so it won’t be treated as my taxable income but a genuine gift. Needless to say, donation is completely voluntary and I appreciate any amount you can give.
Please feel free to email me if you prefer a different way to give. Thank you very much!
I’ll give back a significant portion of the donations to the open-source community and charities. For the record, I received about $30,000 in total (before tax) in 2024-25, and gave back about $15,000 (after tax).