input/bach-schenker.ly

   1 % -*-coding: utf-8 -*-
   2
   3 \header{
   4   composer = "J.S. Bach"
   5   title = "Wenn wir in höchsten Nöten sein"
   6   subtitle = "Analysis from Gene Biringer's Schenker Text, Ex. 5-27"
   7 % "BWV641"
   8   enteredby = "Kris Shaffer"
   9 }
  10
  11 %%
  12 %% See http://www.shaffermusic.com/doc/schenker/index.html for more information
  13 %%
  14
  15 I = \once \override NoteColumn #'ignore-collision = ##t
  16
  17 \version "2.11.61"
  18
  19 staffPiano = \new PianoStaff {
  20   \set Score.timing = ##f
  21   \set PianoStaff.followVoice = ##t
  22
  23   <<
  24     \new Staff = "RH" {  % Right hand
  25       \clef treble
  26       \key g \major
  27       \relative c'' {
  28         \override Staff.NoteCollision
  29         #'merge-differently-headed = ##t
  30         <<
  31           {
  32             \override Beam #'positions = #'(8 . 8)
  33             \override NoteHead #'transparent = ##t
  34             \override NoteHead #'duration-log = #1
  35             s1 b8[^\markup {
  36               \override #'(baseline-skip . 0.5)
  37               \column { \small {^ 3} }
  38             }
  39             s4. s1 a8^\markup {
  40               \override #'(baseline-skip . 0.5)
  41               \column { \small {^ 2} }
  42             }
  43             s4. s2 g8]^\markup {
  44               \override #'(baseline-skip . 0.5)
  45               \column { \small {^ 1} }
  46             }
  47             s4.
  48             \revert Beam #'positions
  49             \revert NoteHead #'transparent
  50             \revert NoteHead #'duration-log
  51           }
  52           \\
  53           {
  54             \override Stem #'transparent = ##t
  55             s1
  56             \once \override Slur #'height-limit = #6
  57             \once \override Slur #'extra-offset = #'(1.25 . 0)
  58             \slurDashed
  59             \I b2_( s2
  60             \once \override NoteHead #'transparent = ##t
  61             b4) s
  62             \once \override Slur #'height-limit = #3.25
  63             \once \override Slur #'extra-offset = #'(.75 . 0)
  64             a2_( s4
  65             \once \override NoteHead #'transparent = ##t
  66             a)
  67             g2
  68             \revert Stem #'transparent
  69           }
  70           \\
  71           \override Staff.NoteCollision
  72           #'merge-differently-headed = ##t
  73           {
  74             \override Beam #'positions = #'(4 . -3.25)
  75             \stemUp
  76             g8[ s s4 s2
  77               \stemDown
  78               \once \override NoteHead #'transparent = ##t
  79               \I b8] s8
  80             \override Beam #'positions = #'(3 . -2.25)
  81             \stemUp
  82             a8[ s s4
  83               \stemDown
  84               c8] s s2 s s
  85           }
  86           \\
  87           {
  88             \override Stem #'transparent = ##t
  89             \override Stem #'length = #0
  90             g4_\( fis^(_\markup { \tiny N } g)\)
  91             a^(^\markup { \tiny P } b2)
  92             b4^(^\markup { \tiny P }
  93             \stemUp
  94             \revert Stem #'transparent
  95             \override Stem #'length = #10
  96             c8)^( s
  97             \override Stem #'length = #14
  98             b4) s s
  99             \override Stem #'length = #0
 100             \override Stem #'transparent = ##t
 101             \once \override Slur #'extra-offset = #'(0 . 0.35)
 102             c4^\( b_(_\markup { \tiny P } a)\) s2
 103             \revert Stem #'length
 104           }
 105           \\
 106           {
 107             \override Stem #'transparent = ##t
 108             \override NoteHead #'transparent = ##t
 109             \override Stem #'length = #0
 110             s1 s4 e4 s
 111             \change Staff = "LH"
 112             fis,4 s2
 113             \revert Stem #'transparent
 114             \revert NoteHead #'transparent
 115             \revert Stem #'length
 116           }
 117           \\
 118           {
 119             \override Stem #'transparent = ##t
 120             \override NoteHead #'transparent = ##t
 121             \override Stem #'length = #0
 122             s1 s s2
 123             fis'4 s
 124             \change Staff = "LH"
 125             g,4 s s2
 126             \revert Stem #'transparent
 127             \revert NoteHead #'transparent
 128             \revert Stem #'length
 129           }
 130         >>
 131         \bar "|."
 132       }
 133     }
 134
 135     \new Staff = "LH" {  % Left hand
 136       \clef bass
 137       \key g \major
 138       \relative c' {
 139         \override Staff.NoteCollision
 140         #'merge-differently-headed = ##t
 141         <<
 142           {
 143             \override Beam #'positions = #'(-8 . -8)
 144             \override NoteHead #'transparent = ##t
 145             \stemDown
 146             \I g8[_\markup { \bold I } s4. s1 s s2
 147               \I d8_\markup { \bold V } s4.
 148               \I g,8]_\markup { \bold I } s4.
 149             \revert Beam #'positions
 150             \revert NoteHead #'transparent
 151           }
 152           \\
 153           {
 154             \override Stem #'transparent = ##t
 155             \stemDown
 156             \override TextScript #'extra-offset = #'(-11.75 . -12.25)
 157             \I g'2 s1 s s2 \I d2 g,2
 158             \revert Stem #'transparent
 159           }
 160           \\
 161           {
 162             \override Stem #'transparent = ##t
 163             \once \override NoteHead #'transparent = ##t
 164             \override Stem #'length = #0
 165             g'4
 166             \once \override TextScript #'padding = #0.25
 167             a4_(^\markup { \tiny P } b)
 168             fis4^(^\markup { \tiny P } e)
 169             \once \override NoteHead #'transparent = ##t
 170             \once \override Slur #'height-limit = #1.5
 171             c4^(
 172             d)^\markup { \tiny N }
 173             \once \override NoteHead #'transparent = ##t
 174             \once \override Slur #'extra-offset = #'(0 . 0.5)
 175             \I fis,4_(
 176             \revert Stem #'transparent
 177             \override Stem #'length = #10
 178             \stemDown
 179             g4) s
 180             \once \override Slur #'extra-offset = #'(0 . 0.25)
 181             \I c8_( s
 182             \override Stem #'transparent = ##t
 183             \revert Stem #'length
 184             a4)
 185             \once \override NoteHead #'transparent = ##t
 186             \I d4^( d,4) s2
 187           }
 188           \\
 189           {
 190             \override Stem #'transparent = ##t
 191             \override NoteHead #'transparent = ##t
 192             \I g'4^( s b) s2
 193             \revert Stem #'transparent
 194             \revert NoteHead #'transparent
 195             \override Beam #'positions = #'(-4 . 1)
 196             \stemDown
 197             c,8[ s s4
 198               \stemUp
 199               fis,8] s
 200             \override Beam #'positions = #'(1 . -4)
 201             g8[ s
 202               \stemDown
 203               b8] s
 204             \revert Beam #'positions
 205             \override Stem #'transparent = ##t
 206             \override NoteHead #'transparent = ##t
 207             c4^( s d4) s s2
 208           }
 209           \\
 210           {
 211             \override Stem #'transparent = ##t
 212             \override NoteHead #'transparent = ##t
 213             \override Stem #'length = #0
 214             \stemDown
 215             \once \override Slur #'height-limit = #3
 216             \once \override Slur #'extra-offset = #'(0 . 0.25)
 217             \I g4_( s2. e4) s2. s2 s1 s2
 218             \revert Stem #'transparent
 219             \revert NoteHead #'transparent
 220           }
 221           \\
 222           {
 223             \override Stem #'transparent = ##t
 224             \override NoteHead #'transparent = ##t
 225             \slurDashed
 226             \once \override Slur #'height-limit = #6.0
 227             \once \override Slur #'extra-offset = #'(0.5 . -0.25)
 228             \override Stem #'length = #0
 229             g4_( s2. s1 g,4) s s1 s2
 230             \revert Stem #'transparent
 231             \revert NoteHead #'transparent
 232           }
 233         >>
 234         \bar "|."
 235       }
 236     }
 237   >>
 238 }
 239
 240
 241 \score {
 242   <<
 243     \staffPiano
 244   >>
 245
 246   \midi {
 247   }
 248
 249   \layout {
 250     indent = 0.0
 251     ragged-right = ##t
 252     \context { \Staff \remove "Time_signature_engraver" }
 253   }
 254 }
 255
 256
 257 \paper {
 258 }