data(tico)
f <- 22050
spectro(tico, f, ovlp = 50, grid = "white")
text("First note", x = 0.2, y = 3)
arrows(0.6, 7, 0.6, 5.6, len = 0.1, lwd = 4, col = "red")
points(x = c(1, 1.3), y = c(5.2, 2.7), pch = 8, col = "red", cex = 2)
rect(1.53, 3.13, 1.72, 3.9, col="#f8060670")