]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/tag-filter.ly
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / input / regression / tag-filter.ly
index 5c063ef6200f5d1c7cdd2cb0d0a16bcb061c2216..9aa03a8dc6ed1ddf0ab11e084bd3cc6e9dcaf245 100644 (file)
@@ -1,8 +1,8 @@
 
-\version "2.1.26"
+\version "2.7.39"
 \header {
 
-texidoc = "The @code{\\tag} command marks music expressions with a
+  texidoc = "The @code{\\tag} command marks music expressions with a
 name. These tagged expressions can be filtered out later. This
 mechanism can be used to make different versions of the same music. In
 this example, the top stave displays the music expression with all
@@ -11,43 +11,43 @@ notes and fingerings, but the score has not."
 
 }
 
-\paper { raggedright= ##t }
+\layout { ragged-right= ##t }
 
 common =
-\notes \relative c''  {
-
-    c1
-    \relative c' <<
-       \tag #'part <<
-         R1 \\
-         {
-             \set fontSize = #-1
-             c4_"cue" f2 g4 } 
-        >>
-       \tag #'score R1
-     >>
-    c1-\tag #'part ^4
+\relative c''  {
+
+  c1
+  \relative c' <<
+    \tag #'part <<
+      R1 \\
+      {
+       \set fontSize = #-1
+       c4_"cue" f2 g4 } 
+    >>
+    \tag #'score R1
+  >>
+  c1-\tag #'part ^4
 }
 
 
-\score {
-    \notes \simultaneous { 
-    \new Staff {
-       \set Staff.instrument = #"both"
-       \common
-       }
-    \new Staff {
-       \set Staff.instrument = #"part"
-       \apply #(remove-tag 'score) \common
-       }
-    \new Staff {
-       \set Staff.instrument = #"score"
-       \apply #(remove-tag 'part) \common
-       }
-    }
+
+\simultaneous { 
+  \new Staff {
+    \set Staff.instrument = #"both"
+    \common
+  }
+  \new Staff {
+    \set Staff.instrument = #"part"
+    \keepWithTag #'part \common
+  }
+  \new Staff {
+    \set Staff.instrument = #"score"
+    \keepWithTag #'score \common
+  }
 }
 
 
 
 
 
+