Issue 5064 Let analysis brackets support text

[lilypond.git] / input / regression / horizontal-bracket-texted.ly

diff --git a/input/regression/horizontal-bracket-texted.ly b/input/regression/horizontal-bracket-texted.ly
new file mode 100644 (file)
index 0000000..dc1a673
--- /dev/null
+++ b/input/regression/horizontal-bracket-texted.ly
@@ -0,0 +1,36 @@
+\version "2.19.55"
+
+\header {
+  texidoc = "Labels may be added to analysis brackets through the
+@code{text} property of the @code{HorizontalBracketText} object.  Use of
+the @code{\tweak} command is necessary for assigning text uniquely to
+brackets beginning at the same moment.  Text assignments reflect the
+usual nesting order of brackets.
+"
+}
+
+\layout {
+  \context {
+    \Voice
+    \consists "Horizontal_bracket_engraver"
+    \override HorizontalBracket.direction = #UP
+  }
+}
+
+\relative c'' {
+  \time 3/4
+  \key f \major
+  c4
+  -\tweak text "contrasting period" \startGroup
+  -\tweak text "a" \startGroup
+  a8( bes c f)
+  f4( e d)
+  c d8( c bes c)
+  \appoggiatura bes4 a2 g4\stopGroup
+  \once\override HorizontalBracketText.text = "b"
+  f'8 \startGroup
+  r a, r d r
+  c4( e, f)
+  g8( bes) a4 g8( f)
+  f2 \stopGroup \stopGroup r4
+}