library(grid)
myfont <- read_bdf_builtin("spleen-6x12.bdf")
N <- 100
text <- "RStats"
size <- displease::seq_ease(0.1, 250, n = N, type = 'exp-in')
rot <- 180
for (i in seq_along(size)) {
grob <- bdfGrob(
myfont, text,
size = size[i],
shrink = 0.8,
col = 'black',
fill = 'black',
rot = rot
)
file <- sprintf("./working/anim/%04i.png", i)
png(file)
grid.newpage(); grid.draw(grob)
dev.off()
rot <- rot + 3
}
system("convert -delay 5 ./working/anim/*.png vignettes/anim/zoom.gif")