Documentation/snippets/figured-bass-headword.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.2"
   8
   9 \header {
  10   lsrtags = "headword"
  11
  12   texidoc = "
  13 Figured bass headword
  14
  15 "
  16   doctitle = "Figured bass headword"
  17 } % begin verbatim
  18
  19 #(set-global-staff-size 15)
  20 \paper {
  21   ragged-right = ##f
  22   line-width = 16\cm
  23   indent = 1.5\cm
  24 }
  25
  26 % NR 2.7.3 Figured bass
  27
  28 % Arcangelo Corelli, 12 Sonate da Camera, Op. 2
  29 % Sonata II, Allemanda
  30 % measures 1 - 88
  31 % Coded by Neil Puttock; modified by Carl Sorensen
  32
  33 extendOn = \bassFigureExtendersOn
  34 extendOff = \bassFigureExtendersOff
  35
  36 \score {
  37
  38   \new StaffGroup <<
  39
  40     \new GrandStaff <<
  41
  42       \new Staff = "violinoI" {
  43         \set Staff.instrumentName = \markup {
  44           \line { Violino I. }
  45         }
  46         \time 4/4
  47         \mark \markup { \italic Adagio. }
  48         \partial 8
  49         r16 a'16 |
  50         a'8. [ d''16 d''8.  e''16 ] cis''8 a'4 a''16 bes''16 |
  51         cis''8 d''16 ( e'' ) e''8.  d''16 d''4 r8 d''16 e''16 |
  52         f''8 f''4 g''16 ( f''16 ) e''8 e''4 f''16 ( e''16 ) |
  53         d''8.  d''16 g''16 ( f''16 ) e''16 ( d''16 ) cis''8
  54             cis''4 cis''16 cis''16 |
  55         d''8 d''8 c''8.  c''16 c''8 ( b'4 ) b'16 b'16 |
  56         c''8 c''8 bes'8.  bes'16 bes'8 ( a'4 ) a''16 a''16 |
  57         a''8 g''8 g''8.  g''16 g''8 ( f''8 ) r8 f''8 |
  58       }
  59
  60       \new Staff = "violinoII" {
  61         \set Staff.instrumentName = \markup {
  62           \line { Violino II. }
  63         }
  64         \time 4/4
  65         \partial 8
  66         r16 f'16 |
  67         f'8.  g'16 g'4 a'4 r8 d''16 d''16 |
  68         e''8 a'8 cis''8.  d''16 d''4 r8 f''16 g''16 |
  69         a''8 a''8 d''8.  d''16 g'8 g'8 c''8.  c''16 |
  70         f'8.  f''16 bes''16 ( a''16 ) g''16 ( f''16 ) e''8 e''4 e''16 e''16 |
  71         a'8 fis''8 g''8 a''8 d''8 d''4 d''16 d''16 |
  72         g'8 e''8 f''8 g''8 c''8 c''4 cis''16 cis''16 |
  73         d''8 d''8 e''8.  e''16 e''8 a'8 r8 d''8 |
  74       }
  75
  76     >>
  77
  78     \new Staff = "violone" {
  79       \set Staff.instrumentName = \markup {
  80         \center-column {
  81           Violone,
  82           \line { e Cembalo. }
  83         }
  84       }
  85       \time 4/4
  86       \clef bass
  87       \partial 8
  88       r16 d16 |
  89       d4 bes,4 a,4 f4 |
  90       g8 f16 g16 a8 a,8 d4 d'4 ~ |
  91       d'8 c'8 b4 c'8 c'16 bes16 a4 |
  92       bes8 bes16 a16 g4 a8 a,4 a16 g16 |
  93       fis8 d8 e8 fis8 g8 g,4 g16 f16 |
  94       e8 c8 d8 e8 f8 f,4 a,8 |
  95       b,4 cis4 d4 r8 d'8 |
  96     }
  97
  98     \new FiguredBass \figuremode {
  99       \set figuredBassAlterationDirection = #RIGHT
 100       \set figuredBassPlusDirection = #RIGHT
 101       \override BassFigureAlignment #'stacking-dir = #DOWN
 102       s8 |
 103       s4 <6>4 <_+>4 <6>4 |
 104       <6 4\+ 2>8 <6>8 <_+> s8 s2 |
 105       <5>8 <6 4>8 <6 5>4 s4 <5>8 <6>8 |
 106       s4 <6 5 _-> <_+>2 |
 107       <6>8 <_+>8 <6>8 <6 5>8 <5 4>8 \extendOn <5 _!>8 \extendOff s4 |
 108       <6>4 <6->8 <6 5->8 <5 4->8 \extendOn <5 3>4 \extendOff <5 _+>8 |
 109       <7>8 <6>8 <5>4 <9 4>8 <8 3>8 s4 |
 110     }
 111
 112   >>
 113
 114   \layout {
 115     \context {
 116       \Score
 117       \override RehearsalMark #'break-align-symbols = #'(time-signature)
 118       \override RehearsalMark #'self-alignment-X = #LEFT
 119       \override TimeSignature #'break-align-anchor-alignment = #LEFT
 120     }
 121   }
 122 }