]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/quote-overrides.ly
Issue 3751: Doc: Augment documentation for \inStaffSegno
[lilypond.git] / input / regression / quote-overrides.ly
index 07ff7229a8fecd4e0800f2e7f1c1deaeecedf3b0..4a7c5d22d7164cd8ee138e17a134f344648d5df5 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.13.5"
+\version "2.17.6"
 
 \header {
   texidoc = "The @code{\\quoteDuring} command shall also quote correctly all
@@ -12,7 +12,7 @@
 }
 
 mus = \relative c' {
-  % Acciaccaturas contain a slur and  \override Stem #'stroke-style
+  % Acciaccaturas contain a slur and  \override Flag.stroke-style
   % Thus, we're checking \override here
   c4 \acciaccatura d8 c4
   % Checking \set and \unset
@@ -21,22 +21,29 @@ mus = \relative c' {
 
   \set autoBeaming = ##f
   % Checking \once \override
-  \once \override Stem #'thickness = #8.0 d8
+  \once \override Stem.thickness = #8.0 d8
   % Checking two overrides
-  \override Stem #'thickness = #8.0 \override Stem #'stroke-style = "grace"
+  \override Stem.thickness = #8.0 \override Flag.stroke-style = "grace"
   d8
   % reverting one of them
-  \revert Stem #'thickness d8
+  \revert Stem.thickness d8
   % and the other
-  \revert Stem #'stroke-style c8
+  \revert Flag.stroke-style c8
 
   % checking tweaks
-  c2-\tweak #'color #red ->
+  c2-\tweak color #red ->
 }
 \addQuote "music" \mus
 
-\new Score \with { quotedEventTypes = #'(StreamEvent) }
+\layout {
+  \context {
+    \Score
+    quotedEventTypes = #'(StreamEvent)
+  }
+}
+
+\score
 { <<
   \new Staff \mus
   \new Voice { \quoteDuring #"music" s1*2 }
->> }
\ No newline at end of file
+>> }