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 % 'Add color...' sections are not the original author's, but added
  14 % afterwards specifically for illustration in LilyPond's Documentation.
  15
  16 I = \once \override NoteColumn #'ignore-collision = ##t
  17
  18 \version "2.14.0"
  19
  20 staffPiano = \new PianoStaff {
  21   \set Score.timing = ##f
  22   \set PianoStaff.followVoice = ##t
  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               % Add color to markup in top staff
  38               \column { \with-color #red \small { ^ 3 } }
  39             }
  40             s4. s1 a8^\markup {
  41               \override #'(baseline-skip . 0.5)
  42               % Add color to markup in top staff
  43               \column { \with-color #red \small { ^ 2 } }
  44             }
  45             s4. s2 g8]^\markup {
  46               % Add color to markup in top staff
  47               \override #'(baseline-skip . 0.5)
  48               \column { \with-color #red \small { ^ 1 } }
  49             }
  50             s4.
  51             \revert Beam #'positions
  52             \revert NoteHead #'transparent
  53             \revert NoteHead #'duration-log
  54           }
  55         \\
  56           {
  57             % Add color to both Dashed Slurs in top staff
  58             \override Slur #'color = #(x11-color "purple")
  59             \override Stem #'transparent = ##t
  60             s1
  61             \once \override Slur #'height-limit = #6
  62             \once \override Slur #'extra-offset = #'(1.25 . 0)
  63             \slurDashed
  64             \I b2_( s2
  65             \once \override NoteHead #'transparent = ##t
  66             b4) s
  67             \once \override Slur #'height-limit = #3.25
  68             \once \override Slur #'extra-offset = #'(.75 . 0)
  69             a2_( s4
  70             \once \override NoteHead #'transparent = ##t
  71             a4) 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             \once \override NoteHead #'transparent = ##t
  83             \I b8] s8
  84             \override Beam #'positions = #'(3 . -2.25)
  85             \stemUp
  86             a8[ s s4
  87             \stemDown
  88             c8] s s2 s s
  89           }
  90         \\
  91           {
  92             % Add color to all remaining Slurs in top staff
  93             \override Slur #'color = #(x11-color "violet")
  94             \override PhrasingSlur #'color = #(x11-color "violet")
  95             \override Stem #'transparent = ##t
  96             \override Stem #'length = #0
  97             % Add color to text markups in top staff
  98             g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\)
  99             a^(^\markup { \with-color #blue \tiny P } b2)
 100             b4^(^\markup { \with-color #blue \tiny P }
 101             \stemUp
 102             \revert Stem #'transparent
 103             \override Stem #'length = #10
 104             c8)^( s
 105             \override Stem #'length = #14
 106             b4) s s
 107             \override Stem #'length = #0
 108             \override Stem #'transparent = ##t
 109             \once \override Slur #'extra-offset = #'(0 . 0.35)
 110             % Add color to remaining text markup in top staff
 111             c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2
 112             \revert Stem #'length
 113           }
 114         \\
 115           {
 116             \override Stem #'transparent = ##t
 117             \override NoteHead #'transparent = ##t
 118             \override Stem #'length = #0
 119             s1 s4 e4 s
 120             \change Staff = "LH"
 121             fis,4 s2
 122             \revert Stem #'transparent
 123             \revert NoteHead #'transparent
 124             \revert Stem #'length
 125           }
 126         \\
 127           {
 128             \override Stem #'transparent = ##t
 129             \override NoteHead #'transparent = ##t
 130             \override Stem #'length = #0
 131             s1 s s2
 132             fis'4 s
 133             \change Staff = "LH"
 134             g,4 s s2
 135             \revert Stem #'transparent
 136             \revert NoteHead #'transparent
 137             \revert Stem #'length
 138           }
 139         >>
 140         \bar "|."
 141       }
 142     }
 143
 144     \new Staff = "LH" { % Left hand
 145       \clef bass
 146       \key g \major
 147       \relative c' {
 148         \override Staff.NoteCollision
 149         #'merge-differently-headed = ##t
 150         <<
 151           {
 152             \override Beam #'positions = #'(-8 . -8)
 153             \override NoteHead #'transparent = ##t
 154             \stemDown
 155             % Add color to long beam text markups in bottom staff
 156             \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
 157             s4. s1 s s2
 158             \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V }
 159             s4.
 160             \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
 161             s4.
 162             \revert Beam #'positions
 163             \revert NoteHead #'transparent
 164           }
 165         \\
 166           {
 167             \override Stem #'transparent = ##t
 168             \stemDown
 169             \override TextScript #'extra-offset = #'(-11.75 . -12.25)
 170             \I g'2 s1 s s2 \I d2 g,2
 171             \revert Stem #'transparent
 172           }
 173         \\
 174           {
 175             % Add color to all single-note Slurs in bottom staff
 176             \override Slur #'color = #(x11-color "violet")
 177             \override Stem #'transparent = ##t
 178             \once \override NoteHead #'transparent = ##t
 179             \override Stem #'length = #0
 180             g'4
 181             \once \override TextScript #'padding = #0.25
 182             % Add color to text markups in bottom staff
 183             a4_(^\markup { \with-color #blue \tiny P } b)
 184             fis4^(^\markup { \with-color #blue \tiny P } e)
 185             \once \override NoteHead #'transparent = ##t
 186             \once \override Slur #'height-limit = #1.5
 187             % Add color to remaining text markup in bottom staff
 188             c4^( d)^\markup { \with-color #blue \tiny N }
 189             \once \override NoteHead #'transparent = ##t
 190             \once \override Slur #'extra-offset = #'(0 . 0.5)
 191             \I fis,4_(
 192             \revert Stem #'transparent
 193             \override Stem #'length = #10
 194             \stemDown
 195             g4) s
 196             \once \override Slur #'extra-offset = #'(0 . 0.25)
 197             \I c8_( s
 198             \override Stem #'transparent = ##t
 199             \revert Stem #'length
 200             a4)
 201             \once \override NoteHead #'transparent = ##t
 202             \I d4^( d,4) s2
 203           }
 204         \\
 205           {
 206             % Add color to all two-note Slurs in bottom staff
 207             \override Slur #'color = #(x11-color "violet")
 208             \override Stem #'transparent = ##t
 209             \override NoteHead #'transparent = ##t
 210             \I g'4^( s b) s2
 211             \revert Stem #'transparent
 212             \revert NoteHead #'transparent
 213             \override Beam #'positions = #'(-4 . 1)
 214             \stemDown
 215             c,8[ s s4
 216             \stemUp
 217             fis,8] s
 218             \override Beam #'positions = #'(1 . -4)
 219             g8[ s
 220             \stemDown
 221             b8] s
 222             \revert Beam #'positions
 223             \override Stem #'transparent = ##t
 224             \override NoteHead #'transparent = ##t
 225             c4^( s d4) s s2
 226           }
 227         \\
 228           {
 229             % Add color to four-note Slur in bottom staff
 230             \override Slur #'color = #(x11-color "violet")
 231             \override Stem #'transparent = ##t
 232             \override NoteHead #'transparent = ##t
 233             \override Stem #'length = #0
 234             \stemDown
 235             \once \override Slur #'height-limit = #3
 236             \once \override Slur #'extra-offset = #'(0 . 0.25)
 237             \I g4_( s2. e4) s2. s2 s1 s2
 238             \revert Stem #'transparent
 239             \revert NoteHead #'transparent
 240           }
 241         \\
 242           {
 243             % Add color to dashed Slur in bottom staff
 244             \override Slur #'color = #(x11-color "purple")
 245             \override Stem #'transparent = ##t
 246             \override NoteHead #'transparent = ##t
 247             \slurDashed
 248             \once \override Slur #'height-limit = #6.0
 249             \once \override Slur #'extra-offset = #'(0.5 . -0.25)
 250             \override Stem #'length = #0
 251             g4_( s2. s1 g,4) s s1 s2
 252             \revert Stem #'transparent
 253             \revert NoteHead #'transparent
 254           }
 255         >>
 256         \bar "|."
 257       }
 258     }
 259   >>
 260 }
 261
 262 \score {
 263   <<
 264     \staffPiano
 265   >>
 266   \layout {
 267     indent = 0.0
 268     ragged-right = ##f
 269     \context { \Staff \remove "Time_signature_engraver" }
 270   }
 271 }