* scm/output-lib.scm (grace-spacing::calc-shortest-duration): new function.

[lilypond.git] / input / regression / spacing-grace.ly

diff --git a/input/regression/spacing-grace.ly b/input/regression/spacing-grace.ly
index aedc10df7d4b4c94ee01f0ee3f92c49fad36db8a..c4a1c466f8a63d5eab482afa177bd7ebffd778e1 100644 (file)
--- a/input/regression/spacing-grace.ly
+++ b/input/regression/spacing-grace.ly
@@ -1,14 +1,27 @@
-
-\version "2.7.39"
-\header {
-  texidoc = "Grace note spacing.  "
+\header
+{
+  texidoc = "Grace note runs have their own spacing variables in
+  @code{Score.GraceSpacing}. So differing grace note lengths inside a
+  run are spaced accordingly. "
 }
 
-\layout { ragged-right = ##t}
-
-
-\context Voice \relative c'' { \grace {  c16[ d] } c4 }
-
-
-
-
+\version "2.9.13"
+
+\paper {  ragged-right = ##t }
+
+\relative c''
+{
+  c4
+  \grace { c16  }
+  c
+  \grace { c16  }
+  d
+  \grace { c16[ d e f] }
+  c
+  \grace { c8[ c16 d c8]  }
+  c
+  \override Score.GraceSpacing #'spacing-increment = #2.0
+
+  \grace { c4 c16 d16  }
+  c
+}