[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    Re: Looking inside markup
From:       Peter Chubb <lily.user () chubb ! wattle ! id ! au>
Date:       2008-04-28 23:43:53
Message-ID: 87iqy1o892.wl%peter () chubb ! wattle ! id ! au
[Download RAW message or body]

>>>>> "Peter" == Peter Chubb <lily.user@chubb.wattle.id.au> 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



[prev in list] [next in list] [prev in thread] [next in thread]