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