data(tico)
par(bg="grey")
oscillo(tico, f=22050, k=4, j=1, title=TRUE, colwave="olivedrab", coltitle="yellow", collab="red", colline="white", colaxis="blue", coly0="pink")