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