Excellent. Thanks!
On Mon, Aug 29, 2011 at 2:18 AM, Jay Anderson <horndud...@gmail.com> wrote:
> On Sun, Aug 28, 2011 at 9:03 PM, Fernando <dobla...@gmail.com> wrote:
>> Is it possible to use \transpose for patterns written in \drummode ?
>
> Here's something that I might do:
> ==============================
> \version "2.14.2"
>
> drumSwap =
> #(define-music-function (parser location from to music) (symbol?
> symbol? ly:music?)
> (define (swap-drum-type mus)
> (if (and (eq? (ly:music-property mus 'name) 'NoteEvent)
> (eq? (ly:music-property mus 'drum-type) from))
> (ly:music-set-property! mus 'drum-type to))
> mus)
> (music-map (lambda (x) (swap-drum-type x)) music))
>
> drumMus = \drummode
> {
> sn4 sn sn sn
> }
>
> \score
> {
> <<
> \new DrumStaff \drumMus
> \new DrumStaff \drumSwap #'snare #'bassdrum \drumMus
> >>
> }
> ==============================
>
> It simply swaps all of one type for another. Look up the symbols for
> the drum pitches in drumpitch-init.ly.
>
> -----Jay
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
