Hi Roland,
Here's  a template, made as clear as possible, in a fixed mode (no
relative).
(First measures taken from:
https://imslp.simssa.ca/files/imglnks/usimg/9/9b/IMSLP411479-PMLP05948-bach-wtk-ur-1.pdf
)
HTH,
Cheers,
Pierre



Le jeu. 21 mai 2020 à 15:34, Hans Åberg <[email protected]> a écrit :

>
> > On 21 May 2020, at 14:53, R.H. <[email protected]> wrote:
> >
> > I started to encode the Bach's Fugue Nr. IX in Lilypond. I stumbled over
> a problem which I could not yet (as a beginner) solve.
>
> One way to learn is looking at examples, here is one for BWV 861 instead
> of BWV 854:
>
> http://lilypond.org/doc/v2.19/Documentation/essay/engraved-examples-_0028bwv-861_0029
>
>
>
>
\version "2.20.0"
%\pointAndClickOff <= at the end

rhSpoprano = \fixed c' {
  | % mes.1
    R1
  | % mes.2
    d'4\rest d'8\rest b cis'4 d'16\rest fis gis ais
  | % mes.3
    b16 ais b cis' dis' e' fis' dis' b a b cis' b a b cis'
  | % mes.4
    s1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}

rhAlto = \fixed c' {
  | % mes.1
    e4\rest e8\rest e fis4 e16\rest b, cis dis 
  | % mes.2
    e16 dis e fis gis a b gis e dis e fis e dis e fis
  | % mes.3
    dis16 cis dis e fis gis a fis gis8 \change Staff = "LH" \stemUp b, s4
  | % mes.4
    s1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}  

lhAlto = {
  | % mes.1
    R1  
  | % mes.2
    R1 
  | % mes.3
    s2. e'4~
  | % mes.4
    1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}  


lhBasse = {
  | % mes.1
    s1  
  | % mes.2
    s1
  | % mes.3
    d2\rest b,4\rest b,8\rest e
  | % mes.4
    s1
  | % mes.5
    s1
  | % mes.6
    s1
  | % mes.7
    s1
  | % mes.8
    s1
  | % mes.9
    s1
  | % mes.10
    s1
  | % mes.11
    s1 
  | % mes.12
    s1
  | % mes.13
    s1
  | % mes.14
    s1
  | % mes.15
    s1
  | % mes.16
    s1
  | % mes.17
    s1 
  | % mes.18
    s1 
  | % mes.19
    s1
  | % mes.20
    s1
  | % mes.21
    s1
  | % mes.22
    s1
  | % mes.23
    s1
  | % mes.24
    s1
  | % mes.25
    s1 
  | % mes.26
    s1
  | % mes.27
    s1
  | % mes.28
    s1 
  | % mes.29
    s1
  \bar "|."
}

\paper {
  page-count = 2
  ragged-last-bottom = ##f
}

\header {
  title = "Das wohltemperierte Klavier I"
  piece = "Fuga IX"
  opus = "BWV 854"
  instrument = "Piano"
}

\score {
  \new PianoStaff <<
    \new Staff = RH <<
      \new Voice { \key e\major \voiceOne \rhSpoprano }
      \new Voice { \key e\major \voiceTwo \rhAlto }
    >>
    \new Staff = LH \with { \clef F } <<
      \new Voice { \key e\major \voiceOne \lhAlto }
      \new Voice { \key e\major \voiceTwo \lhBasse }
    >>
  >>
  \layout {
    system-count = 12
  }
  \midi {
    \tempo 4 = 108
  }
}

Reply via email to