Imported Upstream version 2.16.0

[lilypond.git] / input / regression / shape-slurs.ly

diff --git a/input/regression/shape-slurs.ly b/input/regression/shape-slurs.ly
new file mode 100644 (file)
index 0000000..8b4ad53
--- /dev/null
+++ b/input/regression/shape-slurs.ly
@@ -0,0 +1,34 @@
+\version "2.16.0"
+
+\header {
+  texidoc = "The control points of a broken or unbroken slur may be offset by
+@code{\\shape}.  The blue slurs are modified from the default slurs shown first."
+}
+
+\layout {
+  indent = 0
+  ragged-right = ##t
+}
+
+% unmodified
+\relative c'' {
+  d4( d' b g
+  g,8 f' e d c2)
+  d4( d' b g
+  \break
+  g,8 f' e d c2)
+}
+
+% modified
+\relative c'' {
+  \override Slur #'color = #blue
+  \shape Slur #'((0 . -2) (-1 . 3.5) (0.5 . 0.5) (0 . -2.5))
+  d4( d' b g g,8  f' e d c2)
+  \shape Slur #'(
+   ((0 . -2.5) (0 . 1.5) (0 . 1) (0 . -0.5))
+   ((1 . 2.5) (0 . 1.5) (0 . 1) (0 . 0))
+  )
+  d4( d' b g
+  \break
+  g,8 f' e d c2)
+}