Figured bass headword

Figured bass headword.

\version "2.24"

% Arcangelo Corelli, 12 Sonate da Camera, Op. 2
% Sonata II, Allemanda
% measures 1 - 7
% LSR Coded by Neil Puttock; modified by Carl Sorensen

extendOn = \bassFigureExtendersOn
extendOff = \bassFigureExtendersOff

\score {
  \new StaffGroup <<
    \new GrandStaff <<
      \new Staff = "violinoI" \with { instrumentName = "Violino I." }
      {
        \time 4/4
        \tempo Adagio
        \partial 8 r16 a' |
        a'8.[ d''16 d''8. e''16] cis''8 a'4 a''16 bes'' |
        cis''8 d''16( e'') e''8. d''16 d''4 r8 d''16 e'' |
        f''8 f''4 g''16( f'') e''8 e''4 f''16( e'') |
        d''8. d''16 g''( f'') e''( d'') cis''8 cis''4 cis''16 cis'' |
        d''8 d'' c''8. c''16 c''8( b'4) b'16 b' |
        c''8 c'' bes'8. bes'16 bes'8( a'4) a''16 a'' |
        a''8 g'' g''8. g''16 g''8( f'') r f'' |
      }

      \new Staff = "violinoII" \with { instrumentName = "Violino II." }
      {
        \time 4/4
        \partial 8 r16 f' |
        f'8. g'16 g'4 a' r8 d''16 d'' |
        e''8 a' cis''8. d''16 d''4 r8 f''16 g'' |
        a''8 a'' d''8. d''16 g'8 g' c''8. c''16 |
        f'8. f''16 bes''( a'') g''( f'') e''8 e''4 e''16 e'' |
        a'8 fis'' g'' a'' d'' d''4 d''16 d'' |
        g'8 e'' f'' g'' c'' c''4 cis''16 cis'' |
        d''8 d'' e''8. e''16 e''8 a' r d'' |
      }
    >>

    \new Staff = "violone" \with {
      instrumentName = \markup {
        \center-column { Violone,
                         "e Cembalo." } } }
    {
      \time 4/4
      \clef bass
      \partial 8 r16 d |
      d4 bes, a, f |
      g8 f16 g a8 a, d4 d' ~ |
      d'8 c' b4 c'8 c'16 bes a4 |
      bes8 bes16 a g4 a8 a,4 a16 g |
      fis8 d e fis g8 g,4 g16 f |
      e8 c d e f8 f,4 a,8 |
      b,4 cis d r8 d' |
    }

    \new FiguredBass \figuremode {
      \set figuredBassAlterationDirection = #RIGHT
      \set figuredBassPlusDirection = #RIGHT
      \override BassFigureAlignment.stacking-dir = #DOWN
      s8 |
      s4 <6> <_+> <6> |
      <6 4\+ 2>8 <6> <_+> s s2 |
      <5>8 <6 4> <6 5>4 s <5>8 <6> |
      s4 <6 5 _-> <_+>2 |
      <6>8 <_+> <6> <6 5> <5 4> \extendOn <5 _!> \extendOff s4 |
      <6>4 <6->8 <6 5-> <5 4-> \extendOn <5 3>4 \extendOff <5 _+>8 |
      <7>8 <6> <5>4 <9 4>8 <8 3> s4 |
    }
  >>
}

\layout {
  indent = 3\cm
}