Re: Changing single drums-style entry

[Thomas Morley]

Am 30. März 2012 08:40 schrieb lesmondo <address@hidden>:
> Hi,
>
> I'm trying to alter the triangle entry in drums-styles.
>
> I've read through the manual and created the new style in a new list.
>
> #(define mydrums '(
>
> (triangle doThin #f 6)
>
> ))
>
>
> This gives me the correct output for my new triangle.
>
> However, I don't want to copy the entire drums-style list, just modify a
> single entry.  I found this message:
>
>
> http://lists.gnu.org/archive/html/lilypond-user/2009-02/msg00287.html
>
>
> about changing the hash set entry in the existing drums-style but I'm now
> stuck on what the actual syntax should be. I tried
>
>
> #(hashq-set! drums-style 'triangle '(doThin 6 0))
>
>
> but this didn't work.
>
> Thanks
>
> Les

Hi,

try:

\version "2.14.2"

changeDrumStyleTable =
#(define-music-function (parser location)()
  (make-music 'ApplyContext
              'procedure
              (lambda (x)
         (let* ((ctx (ly:context-property-where-defined x 'drumStyleTable))
                (dr-st-tab (ly:context-property ctx 'drumStyleTable)))
         (hashq-set! dr-st-tab 'triangle '(doThin #f 6))
  ))))

%--- Test

mus = \drummode {
        bd4  sn  bd toml8 tri
        bd ssh ss ssl  sna sn hh hh
        hhc4 r sn tri
}

\new DrumStaff { \changeDrumStyleTable
        \mus
        <<
        \new DrumVoice { \voiceOne \mus }

        \new DrumVoice { \voiceTwo \mus }
        >>
}


HTH,
  Harm