I think you can use the "wavy-line" function: (cmn staff treble c4 q (c4 q (trill (wavy-line (list 0 0 3.0 0)))) d4 h e4 h f4 h g4 h c5 h)