PacMan

---

---

Tools install Packages…

library(animation)

Genera un archivo GIFT

saveGIF({
  N=10
  for(i in 0:(N-1)){
    x <- cos(2*pi/N*i)
    y <- x+1
    z <- (y-2)*22.5
    pie(c(y,8-y), col=c("white","blue"), init.angle=135-z, 
        border=FALSE, labels=NA)
    }
  }, "pacman.gif", interval = 0.1)

## Output at: pacman.gif

## [1] TRUE