Skip to content

Instantly share code, notes, and snippets.

@baptiste
Created July 8, 2020 22:42
Show Gist options
  • Save baptiste/c2aaad95177edd8185beb153a2e5a048 to your computer and use it in GitHub Desktop.
Save baptiste/c2aaad95177edd8185beb153a2e5a048 to your computer and use it in GitHub Desktop.
m <- matrix(c(0,1), nrow = 600, ncol=800)
lm <- replicate(100, jitter(m, 20), simplify = FALSE)
library(Cairo)
CairoX11()
plot.new()
system.time({
for(ii in seq_along(lm)){
image(lm[[ii]], useRaster = TRUE, axes=FALSE, xlab='',ylab='',add=TRUE)
dev.flush()
dev.hold()
}
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment