kastdeur
/
lilydrum
mirror of https://github.com/kastdeur/lilydrum.git
1
0
Fork 0
Code Issues Releases Activity

Tutti autotagging with #'tutti 

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

18
lib/musical_functions.ily
View File

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