From: fred <fred>
Date: Fri, 30 Nov 2001 20:12:56 +0000 (+0000)
Subject: lilypond-1.5.24
X-Git-Tag: release/1.5.59~5689
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=19f42abc6054edfcf7c5ffcb28470f5f958dbd61;p=lilypond.git

lilypond-1.5.24
---

diff --git a/input/regression/beam-quanting.ly b/input/regression/beam-quanting.ly
new file mode 100644
index 0000000000..8339c34279
--- /dev/null
+++ b/input/regression/beam-quanting.ly
@@ -0,0 +1,30 @@
+\header {
+
+texidoc = "Beam quanting can be twiddled using grob
+properties. The following example shows how Y and DY can be
+unquantised and quantised to 0 and 4 respectively."
+
+}
+
+\version "1.5.23"
+
+%{
+Have some fun beam quanting
+%}
+
+% no y quantising
+#(define (beam-vertical-position-quants m dy x y) '())
+
+% rediculous dy quanting
+#(define (beam-height-quants x y) '(0 4))
+
+\score {
+    \notes\relative c'{
+        \property Voice.Beam \override #'height-quants = #beam-height-quants
+        \property Voice.Beam \override #'vertical-position-quant-function =
+	#beam-vertical-position-quants
+        c8 c c c
+        c8 e g a
+        c,8 f b e
+    }
+}