Implement shorten-pair for Hairpin

[lilypond.git] / input / regression / hairpin-shorten-pair-circled-tip.ly

diff --git a/input/regression/hairpin-shorten-pair-circled-tip.ly b/input/regression/hairpin-shorten-pair-circled-tip.ly
new file mode 100644 (file)
index 0000000..63ebfcd
--- /dev/null
+++ b/input/regression/hairpin-shorten-pair-circled-tip.ly
@@ -0,0 +1,22 @@
+\version "2.19.55"
+
+\header {
+  texidoc = "The @code{shorten-pair} property works with circled-tip
+hairpins.  When two hairpins share a circle, the adjoining ends are
+not moved.
+"
+}
+
+{
+  \override Hairpin.circled-tip = ##t
+  \once \override Hairpin.shorten-pair = #'(-2 . -4)
+  c'1~\<
+  c'2~ c'\!
+  \once \override Hairpin.shorten-pair = #'(0 . -4)
+  c'1~\>
+  c'2~ c'\!
+  \break
+  \override Hairpin.shorten-pair = #'(4 . -8)
+  c'2~\> c'2~\<
+  c'2~ c'2\!
+}