X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fweb%2Fly-examples%2Fbach-schenker.ly;fp=Documentation%2Fweb%2Fly-examples%2Fbach-schenker.ly;h=a69afab420955fc7ef6f669854b4564ea526912b;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=0000000000000000000000000000000000000000;hpb=a8c9e8a7ca320ab0df5fd32e717fd62cd7635ce6;p=lilypond.git diff --git a/Documentation/web/ly-examples/bach-schenker.ly b/Documentation/web/ly-examples/bach-schenker.ly new file mode 100644 index 0000000000..a69afab420 --- /dev/null +++ b/Documentation/web/ly-examples/bach-schenker.ly @@ -0,0 +1,271 @@ +% -*-coding: utf-8 -*- + +\header{ + composer = "J.S. Bach" + title = "Wenn wir in höchsten Nöten sein" + subtitle = "Analysis from Gene Biringer's Schenker Text, Ex. 5-27" +% "BWV641" + enteredby = "Kris Shaffer" +} + +% See http://kris.shaffermusic.com/tech.html. for more information + +% 'Add color...' sections are not the original author's, but added +% afterwards specifically for illustration in LilyPond's Documentation. + +I = \once \override NoteColumn #'ignore-collision = ##t + +\version "2.14.0" + +staffPiano = \new PianoStaff { + \set Score.timing = ##f + \set PianoStaff.followVoice = ##t + << + \new Staff = "RH" { % Right hand + \clef treble + \key g \major + \relative c'' { + \override Staff.NoteCollision + #'merge-differently-headed = ##t + << + { + \override Beam #'positions = #'(8 . 8) + \override NoteHead #'transparent = ##t + \override NoteHead #'duration-log = #1 + s1 b8[^\markup { + \override #'(baseline-skip . 0.5) + % Add color to markup in top staff + \column { \with-color #red \small { ^ 3 } } + } + s4. s1 a8^\markup { + \override #'(baseline-skip . 0.5) + % Add color to markup in top staff + \column { \with-color #red \small { ^ 2 } } + } + s4. s2 g8]^\markup { + % Add color to markup in top staff + \override #'(baseline-skip . 0.5) + \column { \with-color #red \small { ^ 1 } } + } + s4. + \revert Beam #'positions + \revert NoteHead #'transparent + \revert NoteHead #'duration-log + } + \\ + { + % Add color to both Dashed Slurs in top staff + \override Slur #'color = #(x11-color "purple") + \override Stem #'transparent = ##t + s1 + \once \override Slur #'height-limit = #6 + \once \override Slur #'extra-offset = #'(1.25 . 0) + \slurDashed + \I b2_( s2 + \once \override NoteHead #'transparent = ##t + b4) s + \once \override Slur #'height-limit = #3.25 + \once \override Slur #'extra-offset = #'(.75 . 0) + a2_( s4 + \once \override NoteHead #'transparent = ##t + a4) g2 + \revert Stem #'transparent + } + \\ + \override Staff.NoteCollision + #'merge-differently-headed = ##t + { + \override Beam #'positions = #'(4 . -3.25) + \stemUp + g8[ s s4 s2 + \stemDown + \once \override NoteHead #'transparent = ##t + \I b8] s8 + \override Beam #'positions = #'(3 . -2.25) + \stemUp + a8[ s s4 + \stemDown + c8] s s2 s s + } + \\ + { + % Add color to all remaining Slurs in top staff + \override Slur #'color = #(x11-color "violet") + \override PhrasingSlur #'color = #(x11-color "violet") + \override Stem #'transparent = ##t + \override Stem #'length = #0 + % Add color to text markups in top staff + g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\) + a^(^\markup { \with-color #blue \tiny P } b2) + b4^(^\markup { \with-color #blue \tiny P } + \stemUp + \revert Stem #'transparent + \override Stem #'length = #10 + c8)^( s + \override Stem #'length = #14 + b4) s s + \override Stem #'length = #0 + \override Stem #'transparent = ##t + \once \override Slur #'extra-offset = #'(0 . 0.35) + % Add color to remaining text markup in top staff + c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2 + \revert Stem #'length + } + \\ + { + \override Stem #'transparent = ##t + \override NoteHead #'transparent = ##t + \override Stem #'length = #0 + s1 s4 e4 s + \change Staff = "LH" + fis,4 s2 + \revert Stem #'transparent + \revert NoteHead #'transparent + \revert Stem #'length + } + \\ + { + \override Stem #'transparent = ##t + \override NoteHead #'transparent = ##t + \override Stem #'length = #0 + s1 s s2 + fis'4 s + \change Staff = "LH" + g,4 s s2 + \revert Stem #'transparent + \revert NoteHead #'transparent + \revert Stem #'length + } + >> + \bar "|." + } + } + + \new Staff = "LH" { % Left hand + \clef bass + \key g \major + \relative c' { + \override Staff.NoteCollision + #'merge-differently-headed = ##t + << + { + \override Beam #'positions = #'(-8 . -8) + \override NoteHead #'transparent = ##t + \stemDown + % Add color to long beam text markups in bottom staff + \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I } + s4. s1 s s2 + \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V } + s4. + \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I } + s4. + \revert Beam #'positions + \revert NoteHead #'transparent + } + \\ + { + \override Stem #'transparent = ##t + \stemDown + \override TextScript #'extra-offset = #'(-11.75 . -12.25) + \I g'2 s1 s s2 \I d2 g,2 + \revert Stem #'transparent + } + \\ + { + % Add color to all single-note Slurs in bottom staff + \override Slur #'color = #(x11-color "violet") + \override Stem #'transparent = ##t + \once \override NoteHead #'transparent = ##t + \override Stem #'length = #0 + g'4 + \once \override TextScript #'padding = #0.25 + % Add color to text markups in bottom staff + a4_(^\markup { \with-color #blue \tiny P } b) + fis4^(^\markup { \with-color #blue \tiny P } e) + \once \override NoteHead #'transparent = ##t + \once \override Slur #'height-limit = #1.5 + % Add color to remaining text markup in bottom staff + c4^( d)^\markup { \with-color #blue \tiny N } + \once \override NoteHead #'transparent = ##t + \once \override Slur #'extra-offset = #'(0 . 0.5) + \I fis,4_( + \revert Stem #'transparent + \override Stem #'length = #10 + \stemDown + g4) s + \once \override Slur #'extra-offset = #'(0 . 0.25) + \I c8_( s + \override Stem #'transparent = ##t + \revert Stem #'length + a4) + \once \override NoteHead #'transparent = ##t + \I d4^( d,4) s2 + } + \\ + { + % Add color to all two-note Slurs in bottom staff + \override Slur #'color = #(x11-color "violet") + \override Stem #'transparent = ##t + \override NoteHead #'transparent = ##t + \I g'4^( s b) s2 + \revert Stem #'transparent + \revert NoteHead #'transparent + \override Beam #'positions = #'(-4 . 1) + \stemDown + c,8[ s s4 + \stemUp + fis,8] s + \override Beam #'positions = #'(1 . -4) + g8[ s + \stemDown + b8] s + \revert Beam #'positions + \override Stem #'transparent = ##t + \override NoteHead #'transparent = ##t + c4^( s d4) s s2 + } + \\ + { + % Add color to four-note Slur in bottom staff + \override Slur #'color = #(x11-color "violet") + \override Stem #'transparent = ##t + \override NoteHead #'transparent = ##t + \override Stem #'length = #0 + \stemDown + \once \override Slur #'height-limit = #3 + \once \override Slur #'extra-offset = #'(0 . 0.25) + \I g4_( s2. e4) s2. s2 s1 s2 + \revert Stem #'transparent + \revert NoteHead #'transparent + } + \\ + { + % Add color to dashed Slur in bottom staff + \override Slur #'color = #(x11-color "purple") + \override Stem #'transparent = ##t + \override NoteHead #'transparent = ##t + \slurDashed + \once \override Slur #'height-limit = #6.0 + \once \override Slur #'extra-offset = #'(0.5 . -0.25) + \override Stem #'length = #0 + g4_( s2. s1 g,4) s s1 s2 + \revert Stem #'transparent + \revert NoteHead #'transparent + } + >> + \bar "|." + } + } + >> +} + +\score { + << + \staffPiano + >> + \layout { + indent = 0.0 + ragged-right = ##f + \context { \Staff \remove "Time_signature_engraver" } + } +}