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