download.file("http://rug.mnhn.fr/seewave/WAV/E_chopardi_whistle.wav", destfile="cock.wav")
cock<-readWAve("cock.wav")
 
spectro3D(cock, f=22050, wl=490, ovlp=85, zp=6, maga=4, palette=spectro.colors)
 
rgl.viewpoint(-90,0)
step1 <- seq(-90,271,by=4)
for (i in step1){
	rgl.viewpoint(i,(i/4.5)+30)
	filename <- paste("picA",which(step1==i),".png",sep="")
	rgl.snapshot(filename)
	}
 
rgl.viewpoint(270,90)
step <- seq(270,-90,by=-4)
for (i in step2){
	rgl.viewpoint(i,(i/4.5)+30)
	filename <- paste("picB",which(step2==i),".png",sep="")
	rgl.snapshot(filename)}