Figured bass in parentheses: Difference between revisions

Import snippet from LSR
 
mNo edit summary
 
(2 intermediate revisions by 2 users not shown)
Line 1: Line 1:
Put the figured bass in rounded parentheses with Scheme function.
Put figured bass in parentheses with a Scheme function. See also [[Parenthesize a group of notes using a Scheme function]].


<lilypond version="2.24.0">
<lilypond version="2.24">
%LSR by Gilles Thibault (id d=902)
startParenthesis =
startParenthesis = {
   \once \override Parentheses.stencils =
   \once \override Parentheses.stencils = #(lambda (grob)
    #(lambda (grob)
                                            (let ((par-list (parentheses-interface::calc-parenthesis-stencils grob)))
      (let ((par-list (parentheses-interface::calc-parenthesis-stencils grob)))
                                              (list (car par-list) point-stencil )))
        (list (first par-list) point-stencil)))
}


endParenthesis = {
endParenthesis =
   \once \override Parentheses.stencils = #(lambda (grob)
   \once \override Parentheses.stencils =
                                            (let ((par-list (parentheses-interface::calc-parenthesis-stencils grob)))
    #(lambda (grob)
                                              (list point-stencil (cadr par-list))))
      (let ((par-list (parentheses-interface::calc-parenthesis-stencils grob)))
}
        (list point-stencil (second par-list))))
%--------


<<
<<
Line 22: Line 20:
     \parenthesize <6>4.
     \parenthesize <6>4.
     \override Parentheses.font-size = #2
     \override Parentheses.font-size = #2
     \parenthesize <7 4>4
     \parenthesize <7 4>4
     \startParenthesis \parenthesize <6 4>8 <5 3> <4 2>
     \startParenthesis \parenthesize <6 4>8 <5 3> <4 2>
     \endParenthesis \parenthesize <3 1>4.
     \endParenthesis \parenthesize <3 1>4.
Line 28: Line 26:
>>
>>
</lilypond>
</lilypond>
[[Category:Ancient notation]]
[[Category:Chords]]
[[Category:Snippet]]