>>>>> "Peter" == Peter Chubb <[EMAIL PROTECTED]> writes:

Peter> On my quest for better MIDI, I'm trying to deal with
Peter> alterations on a turn.  How do I look `inside' a markup
Peter> sequence?

Peter> What I've tried is: 
Peter>     (let* ((t (ly:music-property e 'text)))
Peter>       (cond 
Peter>          ((equal? t (markup #:line (#:flat))) 
Peter>           (set! alteration -1/2)) 
Peter>          ((equal? t (markup #:line (#:sharp))) 
Peter>           (set! alteration 1/2))))

Peter> but this never matches.

Turns out that the scheme function (markup ...) always adds an 
extra #:line  so what I should try to match against is (markup #:flat)
Then it works.
--
Dr Peter Chubb  http://www.gelato.unsw.edu.au  peterc AT gelato.unsw.edu.au
http://www.ertos.nicta.com.au           ERTOS within National ICT Australia


_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to