]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/tag-filter.ly
Merge branch 'master' of ssh://kainhofer@git.sv.gnu.org/srv/git/lilypond into dev...
[lilypond.git] / input / regression / tag-filter.ly
index 67468a87b6174d64c7455a3c309b3d918a24e600..ccc8586295c76dd46a14d4053611e2575cd7f763 100644 (file)
@@ -1,8 +1,8 @@
 
-\version "2.1.22"
+\version "2.11.51"
 \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.instrumentName = #"both"
+    \common
+  }
+  \new Staff {
+    \set Staff.instrumentName = #"part"
+    \keepWithTag #'part \common
+  }
+  \new Staff {
+    \set Staff.instrumentName = #"score"
+    \keepWithTag #'score \common
+  }
 }
 
 
 
 
 
+