png("Plath1_%d.png", width=600, height=600)
# check out idea that musical pitch intervals appear in F0 histogram

# Plath Daddy
phist220("Plath1.f0", "Plath \"Daddy\" [phrase 1]")
vred(c(-10, -4, 1), 1000)

mtext(c("B", "F", "A#"), side=1, line=1.5, adj=0.5, at=c(-10, -4, 1))

phist220("PlathDaddy.f0", "Plath \"Daddy\" [all]")
vred(c(-9, -5,  1), 1000)

mtext(c("C", "E", "A#"), side=1, line=1.5, adj=0.5, at=c(-9, -5, 1))