kastdeur/lilydrum
1
0
Fork 0
mirror of https://github.com/kastdeur/lilydrum.git synced 2024-12-22 17:23:32 +01:00
Code Issues Releases Activity

Tutti autotagging with #'tutti

Browse source 
Close !14

Tutti is automatically tagged with #'tutti, so it can be removed using ```removeWithTag #'tutti```
This commit is contained in:
ET de Boone 2018-01-16 17:06:51 +01:00 committed by GitHub
parent 9e5f02b828
commit 2f474e8b9b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/musical_functions.ily
View file

@ -101,9 +101,17 @@ ofr = #(define-event-function (parser location) () #{ \stopGroup #})
% TODO: check whether on one note % TODO: check whether on one note
tutti = #(define-music-function (music) (ly:music?) tutti = #(define-music-function (music) (ly:music?)
#{ #{
\once \override HorizontalBracket.connect-to-neighbor = #'(#t #t) <<
\tag #'tutti {
\override HorizontalBracket.connect-to-neighbor = #'(#t #t)
<>\startGroup <>\startGroup
#(allbutlastnote music) #(skip-of-length (allbutlastnote music))
<>\stopGroup <>\stopGroup
#(lastnote music) #(skip-of-length (lastnote music))
\revert HorizontalBracket.connect-to-neighbor
}
{
#music
}
>>
#}) #})