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

semi-stable tutti function and scoop

Browse source
This commit is contained in:
Eric Teunis de Boone 2017-05-29 17:09:06 +02:00
parent 36782f48b0
commit a30d9d1018
2 changed files with 75 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lib/flourishing.ily
View file

@ -328,21 +328,19 @@ flourish = #(define-music-function (parser location notes) (ly:music?)
\revert Staff.NoteHead.style
#})
scoop = ^\markup {
\path #.2 #'( (moveto 0 0 )
(lineto 3 1 )
(lineto 6 0 )
)
}
scoopo = #(define-music-function (parser location beg notes) (ly:music? ly:music?)
%scoop = ^\markup {
% \path #.2 #'( (moveto 0 0 )
% (lineto 3 1 )
% (lineto 6 0 )
% )
% }
scoop = #(define-music-function (music) (ly:music?)
#{
%Set spanner from first to last note
$beg
\startGroup
$notes
\stopGroup
<>^"scoop"\startGroup
#(allbutlastnote music)
<>\stopGroup
#(lastnote music)
#})
%---------------------------------------------------%
% music function definitions
%---------------------------------------------------%

62
lib/musical_functions.ily
View file

@ -34,6 +34,20 @@ triplet = #(define-music-function (parser location notes) (ly:music?) #{ \tuplet
% dynamics
v = #(define-event-function (parser location) () #{ \upbow #})
#(define (text-spanner-start-stop mus)
(let ((elts (ly:music-property mus 'elements)))
(make-music 'SequentialMusic 'elements
(append
(list (make-music 'TextSpanEvent 'span-direction -1))
(reverse (cdr (reverse elts)))
(list (make-music 'TextSpanEvent 'span-direction 1))
(list (last elts))
)
)
)
)
% dynamics with extended lines
dynLine = #(define-music-function
(parser location text)
@ -52,22 +66,44 @@ dynLine = #(define-music-function
% unison brackets
% TODO: a little 'u'
% TODO: open ended brackets(\odr,\ofr)
%unisonbracket = {
% \once \override TextSpanner.style = #'line
% \once \override TextSpanner #'to-barline = ##t
% \once \override TextSpanner.bound-details.left.text = \markup {
% \combine
% \combine
% \draw-line #'(0 . -1)
% \draw-line #'(1 . 0)
% \translate #'(1 . -0.5 ) \whiteout \box "u"
% }
% \once \override TextSpanner.bound-details.right.text = \markup { \draw-line #'(0 . -1) }
% \once \override TextSpanner.bound-details.right.attach-dir = #RIGHT
%}
%dr = { \unisonbracket <>\="unison"\startTextSpan }
%fr = { <>\="unison"\stopTextSpan }
%odr = { \unisonbracket <>\="unison"\startTextSpan }
%ofr = { <>\="unison"\stopTextSpan }
dr = #(define-event-function (parser location) () #{ \startGroup #})
fr = #(define-event-function (parser location) () #{ \stopGroup #})
odr = #(define-event-function (parser location) () #{ \startGroup #})
ofr = #(define-event-function (parser location) () #{ \stopGroup #})
tutti = #(define-music-function (mus) (ly:music?)
; By Jan-Peter Voigt, Tue, 2 May 2017 11:10:46 +0200
(let* ((elms (ly:music-property mus 'elements))
; first and last music-element ...
(frst (first elms)) ; TODO test for list? and ly:music?
(lst (last elms)) ; TODO test for list? and ly:music?
(fartic (ly:music-property frst 'articulations '())) ; look
for eventchords ...
(lartic (ly:music-property lst 'articulations '()))
#(define (allbutlastnote mus)
(let ((elts (ly:music-property mus 'elements)))
(make-music 'SequentialMusic 'elements (reverse (cdr (reverse elts))))
)
(ly:music-set-property! frst 'articulations `(,@fartic ,(make-music 'NoteGroupingEvent 'span-direction -1)))
(ly:music-set-property! lst 'articulations `(,@lartic ,(make-music 'NoteGroupingEvent 'span-direction 1)))
)
#(define (lastnote mus)
(let ((elts (ly:music-property mus 'elements)))
(make-music 'SequentialMusic 'elements (list (last elts)))
)
)
% TODO: check whether on one note
tutti = #(define-music-function (music) (ly:music?)
#{
#mus
#}))
\once \override HorizontalBracket.connect-to-neighbor = #'(#t #t)
<>\startGroup
#(allbutlastnote music)
<>\stopGroup
#(lastnote music)
#})