Imported Upstream version 2.18.0

[lilypond.git] / input / regression / add-grace-property.ly

diff --git a/input/regression/add-grace-property.ly b/input/regression/add-grace-property.ly
new file mode 100644 (file)
index 0000000..6594046
--- /dev/null
+++ b/input/regression/add-grace-property.ly
@@ -0,0 +1,25 @@
+\version "2.17.25"
+
+\header {
+  texidoc = "@code{\\add-grace-property} can be used at various
+context levels in order to override grace properties.  Overrides in
+different parallel contexts are independent."
+}
+
+<<
+ \new Staff = "1" \with { instrumentName =
+                         \markup \center-column { Voice mensural } }
+   \new Voice \with { $(add-grace-property 'Voice 'NoteHead 'style 'mensural)
+                     $(add-grace-property 'Score 'NoteHead 'style 'cross) }
+   { \grace d'8 c'1 \bar "|." }
+
+ \new Staff = "2" \with { instrumentName =
+                         \markup \center-column { Voice diamond } }
+   \new Voice \with { $(add-grace-property 'Voice 'NoteHead 'style 'diamond)   }
+   { \grace d'8 c'1 }
+
+ \new Staff = "3" \with { instrumentName =
+                         \markup \center-column { Score cross } }
+   \new Voice
+   { \grace d'8 c'1 }
+>>