X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=Documentation%2Fly-examples%2Fbach-schenker.ly;h=82d2f6d858e35943db3160a44fbe788224698b20;hb=ebda49421d5926699628907ee06bcb1e3d0a9212;hp=749976a250f434b2cd71971d38175f530709d358;hpb=01df8ad908c92687d0c352e5ad5f067e52809423;p=lilypond.git

diff --git a/Documentation/ly-examples/bach-schenker.ly b/Documentation/ly-examples/bach-schenker.ly
index 749976a250..82d2f6d858 100644
--- a/Documentation/ly-examples/bach-schenker.ly
+++ b/Documentation/ly-examples/bach-schenker.ly
@@ -15,7 +15,7 @@
 
 I = \once \override NoteColumn.ignore-collision = ##t
 
-\version "2.17.6"
+\version "2.17.30"
 
 staffPiano = \new PianoStaff {
   \set Score.timing = ##f
@@ -29,7 +29,7 @@ staffPiano = \new PianoStaff {
 	<<
 	  {
 	    \override Beam.positions = #'(8 . 8)
-	    \override NoteHead.transparent = ##t
+	    \hide NoteHead
 	    \override NoteHead.duration-log = #1
 	    s1 b8[^\markup {
 	      \override #'(baseline-skip . 0.5)
@@ -48,29 +48,27 @@ staffPiano = \new PianoStaff {
 	    }
 	    s4.
 	    \revert Beam.positions
-	    \revert NoteHead.transparent
+	    \undo \hide NoteHead
 	    \revert NoteHead.duration-log
 	  }
 	\\
 	  {
             % Add color to both Dashed Slurs in top staff
             \override Slur.color = #(x11-color "purple")
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
+	    \hide Stem
 	    s1
 	    \once \override Slur.height-limit = #6
 	    \once \override Slur.extra-offset = #'(1.25 . 0)
 	    \slurDashed
 	    \I b2_( s2
-	    \once \override NoteHead.transparent = ##t
+	    \once \hide NoteHead
 	    b4) s
 	    \once \override Slur.height-limit = #3.25
 	    \once \override Slur.extra-offset = #'(.75 . 0)
 	    a2_( s4
-	    \once \override NoteHead.transparent = ##t
+	    \once \hide NoteHead
 	    a4) g2
-	    \revert Stem.transparent
-	    \revert Flag.transparent
+	    \undo \hide Stem
 	  }
 	\\
 	  \override Staff.NoteCollision.merge-differently-headed = ##t
@@ -79,7 +77,7 @@ staffPiano = \new PianoStaff {
 	    \stemUp
 	    g8[ s s4 s2
 	    \stemDown
-	    \once \override NoteHead.transparent = ##t
+	    \once \hide NoteHead
 	    \I b8] s8
 	    \override Beam.positions = #'(3 . -2.25)
 	    \stemUp
@@ -92,23 +90,20 @@ staffPiano = \new PianoStaff {
             % 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 Flag.transparent = ##t
+	    \hide Stem
 	    \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
-	    \revert Flag.transparent
+	    \undo \hide Stem
 	    \override Stem.length = #10
 	    c8)^( s
 	    \override Stem.length = #14
 	    b4) s s
 	    \override Stem.length = #0
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
+	    \hide Stem
 	    \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
@@ -116,31 +111,27 @@ staffPiano = \new PianoStaff {
 	  }
 	\\
 	  {
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
-	    \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \hide NoteHead
 	    \override Stem.length = #0
 	    s1 s4 e4 s
 	    \change Staff = "LH"
 	    fis,4 s2
-	    \revert Stem.transparent
-	    \revert Flag.transparent
-	    \revert NoteHead.transparent
+	    \undo \hide Stem
+	    \undo \hide NoteHead
 	    \revert Stem.length
 	  }
 	\\
 	  {
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
-	    \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \hide NoteHead
 	    \override Stem.length = #0
 	    s1 s s2
 	    fis'4 s
 	    \change Staff = "LH"
 	    g,4 s s2
-	    \revert Stem.transparent
-	    \revert Flag.transparent
-	    \revert NoteHead.transparent
+	    \undo \hide Stem
+	    \undo \hide NoteHead
 	    \revert Stem.length
 	  }
 	>>
@@ -156,7 +147,7 @@ staffPiano = \new PianoStaff {
 	<<
 	  {
 	    \override Beam.positions = #'(-8 . -8)
-	    \override NoteHead.transparent = ##t
+	    \hide NoteHead
 	    \stemDown
             % Add color to long beam text markups in bottom staff
 	    \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
@@ -166,63 +157,56 @@ staffPiano = \new PianoStaff {
 	    \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
             s4.
 	    \revert Beam.positions
-	    \revert NoteHead.transparent
+	    \undo \hide NoteHead
 	  }
 	\\
 	  {
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
+	    \hide Stem
 	    \stemDown
 	    \override TextScript.extra-offset = #'(-11.75 . -12.25)
 	    \I g'2 s1 s s2 \I d2 g,2
-	    \revert Stem.transparent
-	    \revert Flag.transparent
+	    \undo \hide Stem
 	  }
 	\\
 	  {
             % Add color to all single-note Slurs in bottom staff
             \override Slur.color = #(x11-color "violet")
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
-	    \once \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \once \hide NoteHead
 	    \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 \hide NoteHead
 	    \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 \hide NoteHead
 	    \once \override Slur.extra-offset = #'(0 . 0.5)
 	    \I fis,4_(
-	    \revert Stem.transparent
-	    \revert Flag.transparent
+	    \undo \hide Stem
 	    \override Stem.length = #10
 	    \stemDown
 	    g4) s
 	    \once \override Slur.extra-offset = #'(0 . 0.25)
 	    \I c8_( s
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
+	    \hide Stem
 	    \revert Stem.length
 	    a4)
-	    \once \override NoteHead.transparent = ##t
+	    \once \hide NoteHead
 	    \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 Flag.transparent = ##t
-	    \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \hide NoteHead
 	    \I g'4^( s b) s2
-	    \revert Stem.transparent
-	    \revert Flag.transparent
-	    \revert NoteHead.transparent
+	    \undo \hide Stem
+	    \undo \hide NoteHead
 	    \override Beam.positions = #'(-4 . 1)
 	    \stemDown
 	    c,8[ s s4
@@ -233,42 +217,37 @@ staffPiano = \new PianoStaff {
 	    \stemDown
 	    b8] s
 	    \revert Beam.positions
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
-	    \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \hide NoteHead
 	    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 Flag.transparent = ##t
-	    \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \hide NoteHead
 	    \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 Flag.transparent
-	    \revert NoteHead.transparent
+	    \undo \hide Stem
+	    \undo \hide NoteHead
 	  }
 	\\
 	  {
             % Add color to dashed Slur in bottom staff
             \override Slur.color = #(x11-color "purple")
-	    \override Stem.transparent = ##t
-	    \override Flag.transparent = ##t
-	    \override NoteHead.transparent = ##t
+	    \hide Stem
+	    \hide NoteHead
 	    \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 Flag.transparent
-	    \revert NoteHead.transparent
+	    \undo \hide Stem
+	    \undo \hide NoteHead
 	  }
 	>>
 	\bar "|."