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.15.10"
  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             \override Flag #'transparent = ##t
  61             s1
  62             \once \override Slur #'height-limit = #6
  63             \once \override Slur #'extra-offset = #'(1.25 . 0)
  64             \slurDashed
  65             \I b2_( s2
  66             \once \override NoteHead #'transparent = ##t
  67             b4) s
  68             \once \override Slur #'height-limit = #3.25
  69             \once \override Slur #'extra-offset = #'(.75 . 0)
  70             a2_( s4
  71             \once \override NoteHead #'transparent = ##t
  72             a4) g2
  73             \revert Stem #'transparent
  74             \revert Flag #'transparent
  75           }
  76         \\
  77           \override Staff.NoteCollision
  78           #'merge-differently-headed = ##t
  79           {
  80             \override Beam #'positions = #'(4 . -3.25)
  81             \stemUp
  82             g8[ s s4 s2
  83             \stemDown
  84             \once \override NoteHead #'transparent = ##t
  85             \I b8] s8
  86             \override Beam #'positions = #'(3 . -2.25)
  87             \stemUp
  88             a8[ s s4
  89             \stemDown
  90             c8] s s2 s s
  91           }
  92         \\
  93           {
  94             % Add color to all remaining Slurs in top staff
  95             \override Slur #'color = #(x11-color "violet")
  96             \override PhrasingSlur #'color = #(x11-color "violet")
  97             \override Stem #'transparent = ##t
  98             \override Flag #'transparent = ##t
  99             \override Stem #'length = #0
 100             % Add color to text markups in top staff
 101             g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\)
 102             a^(^\markup { \with-color #blue \tiny P } b2)
 103             b4^(^\markup { \with-color #blue \tiny P }
 104             \stemUp
 105             \revert Stem #'transparent
 106             \revert Flag #'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             \override Flag #'transparent = ##t
 114             \once \override Slur #'extra-offset = #'(0 . 0.35)
 115             % Add color to remaining text markup in top staff
 116             c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2
 117             \revert Stem #'length
 118           }
 119         \\
 120           {
 121             \override Stem #'transparent = ##t
 122             \override Flag #'transparent = ##t
 123             \override NoteHead #'transparent = ##t
 124             \override Stem #'length = #0
 125             s1 s4 e4 s
 126             \change Staff = "LH"
 127             fis,4 s2
 128             \revert Stem #'transparent
 129             \revert Flag #'transparent
 130             \revert NoteHead #'transparent
 131             \revert Stem #'length
 132           }
 133         \\
 134           {
 135             \override Stem #'transparent = ##t
 136             \override Flag #'transparent = ##t
 137             \override NoteHead #'transparent = ##t
 138             \override Stem #'length = #0
 139             s1 s s2
 140             fis'4 s
 141             \change Staff = "LH"
 142             g,4 s s2
 143             \revert Stem #'transparent
 144             \revert Flag #'transparent
 145             \revert NoteHead #'transparent
 146             \revert Stem #'length
 147           }
 148         >>
 149         \bar "|."
 150       }
 151     }
 152
 153     \new Staff = "LH" { % Left hand
 154       \clef bass
 155       \key g \major
 156       \relative c' {
 157         \override Staff.NoteCollision
 158         #'merge-differently-headed = ##t
 159         <<
 160           {
 161             \override Beam #'positions = #'(-8 . -8)
 162             \override NoteHead #'transparent = ##t
 163             \stemDown
 164             % Add color to long beam text markups in bottom staff
 165             \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
 166             s4. s1 s s2
 167             \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V }
 168             s4.
 169             \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
 170             s4.
 171             \revert Beam #'positions
 172             \revert NoteHead #'transparent
 173           }
 174         \\
 175           {
 176             \override Stem #'transparent = ##t
 177             \override Flag #'transparent = ##t
 178             \stemDown
 179             \override TextScript #'extra-offset = #'(-11.75 . -12.25)
 180             \I g'2 s1 s s2 \I d2 g,2
 181             \revert Stem #'transparent
 182             \revert Flag #'transparent
 183           }
 184         \\
 185           {
 186             % Add color to all single-note Slurs in bottom staff
 187             \override Slur #'color = #(x11-color "violet")
 188             \override Stem #'transparent = ##t
 189             \override Flag #'transparent = ##t
 190             \once \override NoteHead #'transparent = ##t
 191             \override Stem #'length = #0
 192             g'4
 193             \once \override TextScript #'padding = #0.25
 194             % Add color to text markups in bottom staff
 195             a4_(^\markup { \with-color #blue \tiny P } b)
 196             fis4^(^\markup { \with-color #blue \tiny P } e)
 197             \once \override NoteHead #'transparent = ##t
 198             \once \override Slur #'height-limit = #1.5
 199             % Add color to remaining text markup in bottom staff
 200             c4^( d)^\markup { \with-color #blue \tiny N }
 201             \once \override NoteHead #'transparent = ##t
 202             \once \override Slur #'extra-offset = #'(0 . 0.5)
 203             \I fis,4_(
 204             \revert Stem #'transparent
 205             \revert Flag #'transparent
 206             \override Stem #'length = #10
 207             \stemDown
 208             g4) s
 209             \once \override Slur #'extra-offset = #'(0 . 0.25)
 210             \I c8_( s
 211             \override Stem #'transparent = ##t
 212             \override Flag #'transparent = ##t
 213             \revert Stem #'length
 214             a4)
 215             \once \override NoteHead #'transparent = ##t
 216             \I d4^( d,4) s2
 217           }
 218         \\
 219           {
 220             % Add color to all two-note Slurs in bottom staff
 221             \override Slur #'color = #(x11-color "violet")
 222             \override Stem #'transparent = ##t
 223             \override Flag #'transparent = ##t
 224             \override NoteHead #'transparent = ##t
 225             \I g'4^( s b) s2
 226             \revert Stem #'transparent
 227             \revert Flag #'transparent
 228             \revert NoteHead #'transparent
 229             \override Beam #'positions = #'(-4 . 1)
 230             \stemDown
 231             c,8[ s s4
 232             \stemUp
 233             fis,8] s
 234             \override Beam #'positions = #'(1 . -4)
 235             g8[ s
 236             \stemDown
 237             b8] s
 238             \revert Beam #'positions
 239             \override Stem #'transparent = ##t
 240             \override Flag #'transparent = ##t
 241             \override NoteHead #'transparent = ##t
 242             c4^( s d4) s s2
 243           }
 244         \\
 245           {
 246             % Add color to four-note Slur in bottom staff
 247             \override Slur #'color = #(x11-color "violet")
 248             \override Stem #'transparent = ##t
 249             \override Flag #'transparent = ##t
 250             \override NoteHead #'transparent = ##t
 251             \override Stem #'length = #0
 252             \stemDown
 253             \once \override Slur #'height-limit = #3
 254             \once \override Slur #'extra-offset = #'(0 . 0.25)
 255             \I g4_( s2. e4) s2. s2 s1 s2
 256             \revert Stem #'transparent
 257             \revert Flag #'transparent
 258             \revert NoteHead #'transparent
 259           }
 260         \\
 261           {
 262             % Add color to dashed Slur in bottom staff
 263             \override Slur #'color = #(x11-color "purple")
 264             \override Stem #'transparent = ##t
 265             \override Flag #'transparent = ##t
 266             \override NoteHead #'transparent = ##t
 267             \slurDashed
 268             \once \override Slur #'height-limit = #6.0
 269             \once \override Slur #'extra-offset = #'(0.5 . -0.25)
 270             \override Stem #'length = #0
 271             g4_( s2. s1 g,4) s s1 s2
 272             \revert Stem #'transparent
 273             \revert Flag #'transparent
 274             \revert NoteHead #'transparent
 275           }
 276         >>
 277         \bar "|."
 278       }
 279     }
 280   >>
 281 }
 282
 283 \score {
 284   <<
 285     \staffPiano
 286   >>
 287   \layout {
 288     indent = 0.0
 289     ragged-right = ##f
 290     \context { \Staff \remove "Time_signature_engraver" }
 291   }
 292 }