Bump version.

[lilypond.git] / input / bach-schenker.ly

% -*-coding: utf-8 -*-

\header{
  composer = "J.S. Bach"
  title = "Wenn wir in höchsten Nöten sein"
  subtitle = "Analysis from Gene Biringer's Schenker Text, Ex. 5-27"
% "BWV641"
  enteredby = "Kris Shaffer"
}

%%
%% See http://www.shaffermusic.com/doc/schenker/index.html for more information
%%

I = \once \override NoteColumn #'ignore-collision = ##t

\version "2.11.51"

staffPiano = \new PianoStaff {
  \set Score.timing = ##f
  \set PianoStaff.followVoice = ##t

  <<
    \new Staff = "RH" {  % Right hand
      \clef treble
      \key g \major
      \relative c'' {
        \override Staff.NoteCollision
        #'merge-differently-headed = ##t
        <<
          {
            \override Beam #'positions = #'(8 . 8)
            \override NoteHead #'transparent = ##t
            \override NoteHead #'duration-log = #1
            s1 b8[^\markup {
              \override #'(baseline-skip . 0.5)
              \column { \small {^ 3} }
            }
            s4. s1 a8^\markup {
              \override #'(baseline-skip . 0.5)
              \column { \small {^ 2} }
            }
            s4. s2 g8]^\markup {
              \override #'(baseline-skip . 0.5)
              \column { \small {^ 1} }
            }
            s4.
            \revert Beam #'positions
            \revert NoteHead #'transparent
            \revert NoteHead #'duration-log
          }
          \\
          {
            \override Stem #'transparent = ##t
            s1
            \once \override Slur #'height-limit = #6
            \once \override Slur #'extra-offset = #'(1.25 . 0)
            \slurDashed
            \I b2_( s2
            \once \override NoteHead #'transparent = ##t
            b4) s
            \once \override Slur #'height-limit = #3.25
            \once \override Slur #'extra-offset = #'(.75 . 0)
            a2_( s4
            \once \override NoteHead #'transparent = ##t
            a)
            g2
            \revert Stem #'transparent
          }
          \\
          \override Staff.NoteCollision
          #'merge-differently-headed = ##t
          {
            \override Beam #'positions = #'(4 . -3.25)
            \stemUp
            g8[ s s4 s2
              \stemDown
              \once \override NoteHead #'transparent = ##t
              \I b8] s8
            \override Beam #'positions = #'(3 . -2.25)
            \stemUp
            a8[ s s4
              \stemDown
              c8] s s2 s s
          }
          \\
          {
            \override Stem #'transparent = ##t
            \override Stem #'length = #0
            g4_\( fis^(_\markup { \tiny N } g)\)
            a^(^\markup { \tiny P } b2)
            b4^(^\markup { \tiny P }
            \stemUp
            \revert Stem #'transparent
            \override Stem #'length = #10
            c8)^( s
            \override Stem #'length = #14
            b4) s s
            \override Stem #'length = #0
            \override Stem #'transparent = ##t
            \once \override Slur #'extra-offset = #'(0 . 0.35)
            c4^\( b_(_\markup { \tiny P } a)\) s2
            \revert Stem #'length
          }
          \\
          {
            \override Stem #'transparent = ##t
            \override NoteHead #'transparent = ##t
            \override Stem #'length = #0
            s1 s4 e4 s
            \change Staff = "LH"
            fis,4 s2
            \revert Stem #'transparent
            \revert NoteHead #'transparent
            \revert Stem #'length
          }
          \\
          {
            \override Stem #'transparent = ##t
            \override NoteHead #'transparent = ##t
            \override Stem #'length = #0
            s1 s s2
            fis'4 s
            \change Staff = "LH"
            g,4 s s2
            \revert Stem #'transparent
            \revert NoteHead #'transparent
            \revert Stem #'length
          }
        >>
        \bar "|."
      }
    }

    \new Staff = "LH" {  % Left hand
      \clef bass
      \key g \major
      \relative c' {
        \override Staff.NoteCollision
        #'merge-differently-headed = ##t
        <<
          {
            \override Beam #'positions = #'(-8 . -8)
            \override NoteHead #'transparent = ##t
            \stemDown
            \I g8[_\markup { \bold I } s4. s1 s s2
              \I d8_\markup { \bold V } s4.
              \I g,8]_\markup { \bold I } s4.
            \revert Beam #'positions
            \revert NoteHead #'transparent
          }
          \\
          {
            \override Stem #'transparent = ##t
            \stemDown
            \override TextScript #'extra-offset = #'(-11.75 . -12.25)
            \I g'2 s1 s s2 \I d2 g,2
            \revert Stem #'transparent
          }
          \\
          {
            \override Stem #'transparent = ##t
            \once \override NoteHead #'transparent = ##t
            \override Stem #'length = #0
            g'4
            \once \override TextScript #'padding = #0.25
            a4_(^\markup { \tiny P } b)
            fis4^(^\markup { \tiny P } e)
            \once \override NoteHead #'transparent = ##t
            \once \override Slur #'height-limit = #1.5
            c4^(
            d)^\markup { \tiny N }
            \once \override NoteHead #'transparent = ##t
            \once \override Slur #'extra-offset = #'(0 . 0.5)
            \I fis,4_(
            \revert Stem #'transparent
            \override Stem #'length = #10
            \stemDown
            g4) s
            \once \override Slur #'extra-offset = #'(0 . 0.25)
            \I c8_( s
            \override Stem #'transparent = ##t
            \revert Stem #'length
            a4)
            \once \override NoteHead #'transparent = ##t
            \I d4^( d,4) s2
          }
          \\
          {
            \override Stem #'transparent = ##t
            \override NoteHead #'transparent = ##t
            \I g'4^( s b) s2
            \revert Stem #'transparent
            \revert NoteHead #'transparent
            \override Beam #'positions = #'(-4 . 1)
            \stemDown
            c,8[ s s4
              \stemUp
              fis,8] s
            \override Beam #'positions = #'(1 . -4)
            g8[ s
              \stemDown
              b8] s
            \revert Beam #'positions
            \override Stem #'transparent = ##t
            \override NoteHead #'transparent = ##t
            c4^( s d4) s s2
          }
          \\
          {
            \override Stem #'transparent = ##t
            \override NoteHead #'transparent = ##t
            \override Stem #'length = #0
            \stemDown
            \once \override Slur #'height-limit = #3
            \once \override Slur #'extra-offset = #'(0 . 0.25)
            \I g4_( s2. e4) s2. s2 s1 s2
            \revert Stem #'transparent
            \revert NoteHead #'transparent
          }
          \\
          {
            \override Stem #'transparent = ##t
            \override NoteHead #'transparent = ##t
            \slurDashed
            \once \override Slur #'height-limit = #6.0
            \once \override Slur #'extra-offset = #'(0.5 . -0.25)
            \override Stem #'length = #0
            g4_( s2. s1 g,4) s s1 s2
            \revert Stem #'transparent
            \revert NoteHead #'transparent
          }
        >>
        \bar "|."
      }
    }
  >>
}


\score {
  <<
    \staffPiano
  >>

  \midi {
  }

  \layout {
    indent = 0.0
    ragged-right = ##t
    \context { \Staff \remove "Time_signature_engraver" }
  }
}


\paper {
}