input/bach-schenker.ly

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