% Squelette basse des Golberg par Éric Bellocq





\version "2.19.60"

% à décommenter pour test
% (nom du \language selon modification fichier define-note-names.scm) :

% \language "espanol"
% penser à ajuster aussi a tonalité si besoin.





\header {
  title = "Le  Mont  d'Or"
  subtitle = "oder Goldberg Skelett !"
  composer = "d'après J. S. BACH"
  poet = \markup { \column {"Arrgt. Éric Bellocq" \vspace #2 } }
}


%{ noms en "espanol" customisé en Gb major
musEsp = {
  \mark "A"
  ges2. f es des2 ces4
  bes,2. ces des ges,
  \mark "B"
  ges2. f es as2 ges4
  f2. ges as des\bar ":|.|:"
  \mark "C"
  des2 ces4 bes,2. ces bes,2 as,4
  ges,2. as, bes, es2 des4
  \mark "D"
  ces2. bes, as, des2 ces4
  bes,2. ces des ges, \bar ":|."
}
%}




% noms "nederlands"
mus = {
  \mark "A"
  g2. fis e d2 c4 |
  b,2. c d g, |
  \mark "B"
  g2. fis e a2 g4 |
  fis2. g a d \bar ":|.|:"
  \mark "C"
  d2 c4 b,2. c b,2 a,4 |
  g,2. a, b, e2 d4 |
  \mark "D"
  c2. b, a, d2 c4 |
  b,2. c d g, \bar ":|."
}
%}



bc = \figuremode
{
  \bassFigureStaffAlignmentDown
  \bassFigureExtendersOn
  % A
  s2. <6> <7>4 <6\\>2 <_>2 <_>4
  <6>2. <6\! 5> s1.
  % B
  s2. <6> <_-> <_+>2 <_+>4
  <6>2. <6\! 5> <_+> s2.
  % C
  <_>2 <_>4 <6>2. <[4\+] 3> <_+>2 <_+>4
  <6>2. <6\\\! 5> <_+> <_>2 <_>4
  % D
  s2. <6> <_-> <_>2 <_>4
  <6>2. <6\! 5> s1.
}

\score {
  \new Staff <<
    \clef "F"
    % \key ges \major
    \key g \major
    \override Staff.TimeSignature.style = #'single-digit \time 3/4
    % \musEsp
    \mus
    \bc

  >>
}



\markup
{
  \fill-line {
    \center-column {
      \vspace # 2
      \teeny \eyeglasses
      \vspace #1.4
      "Pour apprendre à bien transposer :"
      "toutes les mesures finales des phrases sont identiques,"
      "A et D au ton principal, B à a dominante et C au ton du relatif mineur."
      "Le début cis a phrase B (à a dominante) est identique à celui cis a phrase D (au ton principal)."
      \vspace #0.41 \fontsize #-4.1
      \concat {
        "€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€" 
         " " \rotate #270 "€" " "
        \rotate #180
        "€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€"
      }
      % 141 ^€$ Bach maîtrisait déjà Regex !!
    }
  }
}