Using R and PhotoScape to make sine wave animation
for (i in 1:30){ x=seq(-5*pi+i-1.6,-3*pi+i-1.6,by=.02) y=sin(x) png(paste0(i,".png"),width=640,height = 400) plot(x,y,xlim=c(-3*pi,3*pi),type="l" ,ann=F,lwd=2,col="red") abline(h=0) dev.off() } for(i in 1:30) file.copy(from=paste0(getwd(),"/",i,".png"),to=paste0(getwd(),"/",61-i,".png"),overwrite = T) for (i in 1:30){ x=seq(-6*pi,-4*pi,by=.02) y=sin(x) png(paste0(i,".png"),width=640,height = 400) plot(x+i,y,xlim=c(-3*pi,3*pi),type="l" ,ann=F,lwd=2,col="blue") abline(h=0) dev.off() } for(i in 1:30) file.copy(from=paste0(getwd(),"/",i,".png"),to=paste0(getwd(),"/",61-i,".png"),overwrite = T)