Am 30. März 2012 08:40 schrieb lesmondo <[email protected]>:
> 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
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
