Documentation/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.17.6"
  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.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               % Add color to markup in top staff
  37               \column { \with-color #red \small { ^ 3 } }
  38             }
  39             s4. s1 a8^\markup {
  40               \override #'(baseline-skip . 0.5)
  41               % Add color to markup in top staff
  42               \column { \with-color #red \small { ^ 2 } }
  43             }
  44             s4. s2 g8]^\markup {
  45               % Add color to markup in top staff
  46               \override #'(baseline-skip . 0.5)
  47               \column { \with-color #red \small { ^ 1 } }
  48             }
  49             s4.
  50             \revert Beam.positions
  51             \revert NoteHead.transparent
  52             \revert NoteHead.duration-log
  53           }
  54         \\
  55           {
  56             % Add color to both Dashed Slurs in top staff
  57             \override Slur.color = #(x11-color "purple")
  58             \override Stem.transparent = ##t
  59             \override Flag.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             \revert Flag.transparent
  74           }
  75         \\
  76           \override Staff.NoteCollision.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 Flag.transparent = ##t
  97             \override Stem.length = #0
  98             % Add color to text markups in top staff
  99             g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\)
 100             a^(^\markup { \with-color #blue \tiny P } b2)
 101             b4^(^\markup { \with-color #blue \tiny P }
 102             \stemUp
 103             \revert Stem.transparent
 104             \revert Flag.transparent
 105             \override Stem.length = #10
 106             c8)^( s
 107             \override Stem.length = #14
 108             b4) s s
 109             \override Stem.length = #0
 110             \override Stem.transparent = ##t
 111             \override Flag.transparent = ##t
 112             \once \override Slur.extra-offset = #'(0 . 0.35)
 113             % Add color to remaining text markup in top staff
 114             c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2
 115             \revert Stem.length
 116           }
 117         \\
 118           {
 119             \override Stem.transparent = ##t
 120             \override Flag.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 Flag.transparent
 128             \revert NoteHead.transparent
 129             \revert Stem.length
 130           }
 131         \\
 132           {
 133             \override Stem.transparent = ##t
 134             \override Flag.transparent = ##t
 135             \override NoteHead.transparent = ##t
 136             \override Stem.length = #0
 137             s1 s s2
 138             fis'4 s
 139             \change Staff = "LH"
 140             g,4 s s2
 141             \revert Stem.transparent
 142             \revert Flag.transparent
 143             \revert NoteHead.transparent
 144             \revert Stem.length
 145           }
 146         >>
 147         \bar "|."
 148       }
 149     }
 150
 151     \new Staff = "LH" { % Left hand
 152       \clef bass
 153       \key g \major
 154       \relative c' {
 155         \override Staff.NoteCollision.merge-differently-headed = ##t
 156         <<
 157           {
 158             \override Beam.positions = #'(-8 . -8)
 159             \override NoteHead.transparent = ##t
 160             \stemDown
 161             % Add color to long beam text markups in bottom staff
 162             \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
 163             s4. s1 s s2
 164             \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V }
 165             s4.
 166             \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
 167             s4.
 168             \revert Beam.positions
 169             \revert NoteHead.transparent
 170           }
 171         \\
 172           {
 173             \override Stem.transparent = ##t
 174             \override Flag.transparent = ##t
 175             \stemDown
 176             \override TextScript.extra-offset = #'(-11.75 . -12.25)
 177             \I g'2 s1 s s2 \I d2 g,2
 178             \revert Stem.transparent
 179             \revert Flag.transparent
 180           }
 181         \\
 182           {
 183             % Add color to all single-note Slurs in bottom staff
 184             \override Slur.color = #(x11-color "violet")
 185             \override Stem.transparent = ##t
 186             \override Flag.transparent = ##t
 187             \once \override NoteHead.transparent = ##t
 188             \override Stem.length = #0
 189             g'4
 190             \once \override TextScript.padding = #0.25
 191             % Add color to text markups in bottom staff
 192             a4_(^\markup { \with-color #blue \tiny P } b)
 193             fis4^(^\markup { \with-color #blue \tiny P } e)
 194             \once \override NoteHead.transparent = ##t
 195             \once \override Slur.height-limit = #1.5
 196             % Add color to remaining text markup in bottom staff
 197             c4^( d)^\markup { \with-color #blue \tiny N }
 198             \once \override NoteHead.transparent = ##t
 199             \once \override Slur.extra-offset = #'(0 . 0.5)
 200             \I fis,4_(
 201             \revert Stem.transparent
 202             \revert Flag.transparent
 203             \override Stem.length = #10
 204             \stemDown
 205             g4) s
 206             \once \override Slur.extra-offset = #'(0 . 0.25)
 207             \I c8_( s
 208             \override Stem.transparent = ##t
 209             \override Flag.transparent = ##t
 210             \revert Stem.length
 211             a4)
 212             \once \override NoteHead.transparent = ##t
 213             \I d4^( d,4) s2
 214           }
 215         \\
 216           {
 217             % Add color to all two-note Slurs in bottom staff
 218             \override Slur.color = #(x11-color "violet")
 219             \override Stem.transparent = ##t
 220             \override Flag.transparent = ##t
 221             \override NoteHead.transparent = ##t
 222             \I g'4^( s b) s2
 223             \revert Stem.transparent
 224             \revert Flag.transparent
 225             \revert NoteHead.transparent
 226             \override Beam.positions = #'(-4 . 1)
 227             \stemDown
 228             c,8[ s s4
 229             \stemUp
 230             fis,8] s
 231             \override Beam.positions = #'(1 . -4)
 232             g8[ s
 233             \stemDown
 234             b8] s
 235             \revert Beam.positions
 236             \override Stem.transparent = ##t
 237             \override Flag.transparent = ##t
 238             \override NoteHead.transparent = ##t
 239             c4^( s d4) s s2
 240           }
 241         \\
 242           {
 243             % Add color to four-note Slur in bottom staff
 244             \override Slur.color = #(x11-color "violet")
 245             \override Stem.transparent = ##t
 246             \override Flag.transparent = ##t
 247             \override NoteHead.transparent = ##t
 248             \override Stem.length = #0
 249             \stemDown
 250             \once \override Slur.height-limit = #3
 251             \once \override Slur.extra-offset = #'(0 . 0.25)
 252             \I g4_( s2. e4) s2. s2 s1 s2
 253             \revert Stem.transparent
 254             \revert Flag.transparent
 255             \revert NoteHead.transparent
 256           }
 257         \\
 258           {
 259             % Add color to dashed Slur in bottom staff
 260             \override Slur.color = #(x11-color "purple")
 261             \override Stem.transparent = ##t
 262             \override Flag.transparent = ##t
 263             \override NoteHead.transparent = ##t
 264             \slurDashed
 265             \once \override Slur.height-limit = #6.0
 266             \once \override Slur.extra-offset = #'(0.5 . -0.25)
 267             \override Stem.length = #0
 268             g4_( s2. s1 g,4) s s1 s2
 269             \revert Stem.transparent
 270             \revert Flag.transparent
 271             \revert NoteHead.transparent
 272           }
 273         >>
 274         \bar "|."
 275       }
 276     }
 277   >>
 278 }
 279
 280 \score {
 281   <<
 282     \staffPiano
 283   >>
 284   \layout {
 285     indent = 0.0
 286     ragged-right = ##f
 287     \context { \Staff \remove "Time_signature_engraver" }
 288   }
 289 }