From 19f42abc6054edfcf7c5ffcb28470f5f958dbd61 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Fri, 30 Nov 2001 20:12:56 +0000
Subject: [PATCH] lilypond-1.5.24

---
 input/regression/beam-quanting.ly | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 input/regression/beam-quanting.ly

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
+    }
+}
-- 
2.39.5