kamekame heart

Turtle Graphicsというものをご存知でしょうか。 知らない方はこちらをどうぞ。 http://docs.python.jp/3.3/library/turtle.html

RにはTurtle GraphicsのR実装、その名もTurtleGraphicsパッケージがあるのです。知りませんでした。

knitrのanimationと組み合わせて、亀に散歩させてみます。

t = seq(0, 2*pi, by = 0.05)
x = 16*sin(t)^3 + 20
y = 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t) + 20
a = c(0, atan2(diff(x), diff(y))/pi*180)

library(grid)
library(TurtleGraphics)
grid.newpage()
turtle_init(40, 40)

grabs <- list()
for (i in seq_along(t)) {
  turtle_setangle(a[i])
  turtle_goto(x[i], y[i])
  grabs[[i]] <- grid.grab()
  }

for (i in seq_along(t)) {
  grid.newpage()
  grid.draw(grabs[[i]])
}