Documentation/snippets/new/figured-bass-headword.ly

   1 \version "2.19.56"
   2
   3 \header {
   4   lsrtags = "headword"
   5
   6   texidoc = "
   7 Figured bass headword
   8
   9 "
  10   doctitle = "Figured bass headword"
  11 } % begin verbatim
  12
  13 % NR 2.7.3 Figured bass
  14
  15 % Arcangelo Corelli, 12 Sonate da Camera, Op. 2
  16 % Sonata II, Allemanda
  17 % measures 1 - 88
  18 % Coded by Neil Puttock; modified by Carl Sorensen
  19
  20 extendOn = \bassFigureExtendersOn
  21 extendOff = \bassFigureExtendersOff
  22
  23 \score {
  24   \new StaffGroup <<
  25     \new GrandStaff <<
  26       \new Staff = "violinoI" \with { instrumentName = "Violino I." }
  27
  28     {
  29       \time 4/4
  30       \mark \markup { \italic Adagio. }
  31       \partial 8 r16 a'16 |
  32       a'8. [ d''16 d''8.  e''16 ] cis''8 a'4 a''16 bes''16 |
  33       cis''8 d''16 ( e'' ) e''8.  d''16 d''4 r8 d''16 e''16 |
  34       f''8 f''4 g''16 ( f''16 ) e''8 e''4 f''16 ( e''16 ) |
  35       d''8.  d''16 g''16 ( f''16 ) e''16 ( d''16 ) cis''8
  36       cis''4 cis''16 cis''16 |
  37       d''8 d''8 c''8.  c''16 c''8 ( b'4 ) b'16 b'16 |
  38       c''8 c''8 bes'8.  bes'16 bes'8 ( a'4 ) a''16 a''16 |
  39       a''8 g''8 g''8.  g''16 g''8 ( f''8 ) r8 f''8 |
  40     }
  41
  42       \new Staff = "violinoII" \with { instrumentName = "Violino II." }
  43
  44     {
  45       \time 4/4
  46       \partial 8 r16 f'16 |
  47       f'8.  g'16 g'4 a'4 r8 d''16 d''16 |
  48       e''8 a'8 cis''8.  d''16 d''4 r8 f''16 g''16 |
  49       a''8 a''8 d''8.  d''16 g'8 g'8 c''8.  c''16 |
  50       f'8.  f''16 bes''16 ( a''16 ) g''16 ( f''16 ) e''8 e''4 e''16 e''16 |
  51       a'8 fis''8 g''8 a''8 d''8 d''4 d''16 d''16 |
  52       g'8 e''8 f''8 g''8 c''8 c''4 cis''16 cis''16 |
  53       d''8 d''8 e''8.  e''16 e''8 a'8 r8 d''8 |
  54     }
  55
  56     >>
  57
  58     \new Staff = "violone" \with {
  59       instrumentName = \markup {
  60         \center-column { Violone, \line { e Cembalo. } }
  61       }
  62     }
  63
  64     {
  65       \time 4/4
  66       \clef bass
  67       \partial 8 r16 d16 |
  68       d4 bes,4 a,4 f4 |
  69       g8 f16 g16 a8 a,8 d4 d'4 ~ |
  70       d'8 c'8 b4 c'8 c'16 bes16 a4 |
  71       bes8 bes16 a16 g4 a8 a,4 a16 g16 |
  72       fis8 d8 e8 fis8 g8 g,4 g16 f16 |
  73       e8 c8 d8 e8 f8 f,4 a,8 |
  74       b,4 cis4 d4 r8 d'8 |
  75
  76     }
  77
  78     \new FiguredBass \figuremode {
  79       \set figuredBassAlterationDirection = #RIGHT
  80       \set figuredBassPlusDirection = #RIGHT
  81       \override BassFigureAlignment.stacking-dir = #DOWN
  82       s8 |
  83       s4 <6>4 <_+>4 <6>4 |
  84       <6 4\+ 2>8 <6>8 <_+> s8 s2 |
  85       <5>8 <6 4>8 <6 5>4 s4 <5>8 <6>8 |
  86       s4 <6 5 _-> <_+>2 |
  87       <6>8 <_+>8 <6>8 <6 5>8 <5 4>8 \extendOn <5 _!>8 \extendOff s4 |
  88       <6>4 <6->8 <6 5->8 <5 4->8 \extendOn <5 3>4 \extendOff <5 _+>8 |
  89       <7>8 <6>8 <5>4 <9 4>8 <8 3>8 s4 |
  90     }
  91   >>
  92
  93   \layout {
  94     \context {
  95       \Score
  96       \override RehearsalMark.break-align-symbols = #'(time-signature)
  97       \override RehearsalMark.self-alignment-X = #LEFT
  98       \override TimeSignature.break-align-anchor-alignment = #LEFT
  99     }
 100   }
 101 }