data(pellucens)
f <- 22050
pellu2 <- cutw(pellucens, f=f, from=1, plot=FALSE)
spectro(pellu2, f=f, wl=512, ovlp=85, collevels=seq(-25,0,1), osc=TRUE, palette=rev.heat.colors, colgrid="white", colwave="white", colaxis="white", collab="white", colbg="black")