Я создаю анимированный GIF, используя библиотеку R animation
. Следующий код дает пример.
library(animation)
saveGIF({
par(bg=rgb(0,0,0),mar=c(0,0,0,0))
for (i in 1:30) {
plot(NULL,xlim=c(-1,1),ylim=c(-1,1))
ang <- pi*i*12/180
symbols(cos(ang),sin(ang),circles=1,inches=.2,bg='white',fg=NA,add=T)
}
},interval=1/30,movie.name='clock.gif',ani.width=500,ani.height=500)
Приведенный выше код дает изображение ниже.
Поскольку interval
установлен на 1/30 (секунды) и имеется 30 кадров (i in 1:30
), я ожидаю, что период анимации будет ближе к 1 секунде (т.е. каждый кадр должен длиться 33 мс или 33,333 мс, если это возможно). Однако, когда я открываю изображение в GIMP, я вижу, что каждый кадр имеет только 30 мс, вместо 33 или 33,3 мс. Что я делаю неправильно? Можно ли как-нибудь улучшить это с точностью до 1 секунды в каждом цикле или хотя бы как можно ближе?