enteredby = "Kris Shaffer"
}
-%%
-%% See http://www.shaffermusic.com/doc/schenker/index.html for more information
-%%
+% 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.12.0"
+\version "2.14.0"
staffPiano = \new PianoStaff {
\set Score.timing = ##f
\set PianoStaff.followVoice = ##t
-
<<
- \new Staff = "RH" { % Right hand
+ \new Staff = "RH" { % Right hand
\clef treble
\key g \major
\relative c'' {
\override NoteHead #'duration-log = #1
s1 b8[^\markup {
\override #'(baseline-skip . 0.5)
- \column { \small {^ 3} }
+ % Add color to markup in top staff
+ \column { \with-color #red \small { ^ 3 } }
}
s4. s1 a8^\markup {
\override #'(baseline-skip . 0.5)
- \column { \small {^ 2} }
+ % 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 { \small {^ 1} }
+ \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 = #'(.75 . 0)
a2_( s4
\once \override NoteHead #'transparent = ##t
- a)
- g2
+ 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
+ \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
+ \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
- g4_\( fis^(_\markup { \tiny N } g)\)
- a^(^\markup { \tiny P } b2)
- b4^(^\markup { \tiny P }
+ % 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
\override Stem #'length = #0
\override Stem #'transparent = ##t
\once \override Slur #'extra-offset = #'(0 . 0.35)
- c4^\( b_(_\markup { \tiny P } a)\) s2
+ % 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
\revert NoteHead #'transparent
\revert Stem #'length
}
- \\
+ \\
{
\override Stem #'transparent = ##t
\override NoteHead #'transparent = ##t
}
}
- \new Staff = "LH" { % Left hand
+ \new Staff = "LH" { % Left hand
\clef bass
\key g \major
\relative c' {
\override Beam #'positions = #'(-8 . -8)
\override NoteHead #'transparent = ##t
\stemDown
- \I g8[_\markup { \bold I } s4. s1 s s2
- \I d8_\markup { \bold V } s4.
- \I g,8]_\markup { \bold I } s4.
+ % 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
\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
- a4_(^\markup { \tiny P } b)
- fis4^(^\markup { \tiny P } e)
+ % 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
- c4^(
- d)^\markup { \tiny N }
+ % 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_(
\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
\override Beam #'positions = #'(-4 . 1)
\stemDown
c,8[ s s4
- \stemUp
- fis,8] s
+ \stemUp
+ fis,8] s
\override Beam #'positions = #'(1 . -4)
g8[ s
- \stemDown
- b8] 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
\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
>>
}
-
\score {
<<
\staffPiano
>>
-
-% \midi {
-% }
-
\layout {
indent = 0.0
ragged-right = ##f
\context { \Staff \remove "Time_signature_engraver" }
}
}
-
-
-\paper {
-}
projects / lilypond.git / blobdiff