Doc: CSS: A better brown for the usage manual

[lilypond.git] / input / regression / beam-quant-standard.ly

diff --git a/input/regression/beam-quant-standard.ly b/input/regression/beam-quant-standard.ly
index 930163781d253659c1d7fb138aee13624b8a4300..40cfd61fa499464c5c94e8c1c1519f1e61326987 100644 (file)
--- a/input/regression/beam-quant-standard.ly
+++ b/input/regression/beam-quant-standard.ly
@@ -1,97 +1,147 @@
 \header {
 
-    texidoc = "This file tests a few standard beam quants."
-    
+  texidoc = "This file tests a few standard beam quants, taken from
+    Ted Ross' book. If LilyPond finds another quant, the correct quant
+    is printed over the beam."
+
 }
+%% FIXME: This file should actually NOT produce any warnings!
+#(ly:set-option 'warning-as-error #f)
 
-\version "2.3.6"
+\version "2.17.6"
 
+\layout  {
+  ragged-right = ##t
+  #(define debug-beam-quanting #t)
+}
+
+filler = \new Voice \relative c' {
+  \hideNotes
+  e4 e
+}
 %
-% todo: make the check-quant function throw an error for incorrect quants
-%
 
-\paper  { raggedright = ##t }
-
-filler = \relative { e4 e }
-% 
-#(ly:set-option 'debug-beam #t)
-
-assertquant =
-#(def-music-function (location l r) (pair? pair?)
-  (let* ((f (check-quant-callbacks l r)))
-   
-   #{
-   \override Beam #'position-callbacks = $f
-   #}
-   
-))
-
-
-
-
-primes = \relative {
-    \assertquant #'(0 . 0)  #'(0 . 0)
-    c8[ c]
-    \filler
-    \assertquant #'(1 . -1)  #'(1 . -1)
-    d8[ d]
-     
-    \filler
-     
-    \assertquant #'(1 . 0)  #'(1 . 0)
-    e8[ e]
-    \filler
-     
-     
-    \assertquant #'(2 . -1)  #'(2 . -1)
-    f8[ f]
-    \filler
-     
-     
-    \assertquant #'(2 . 0)  #'(2 . 0)
-    g8[ g]
-    \filler
-     
-     
-    \assertquant #'(2 . 1)  #'(2 . 1)
-    a8[ a]
-    \filler
-      
-    \once \override Beam #'inspect-quants = #'(2.2 . 2.2)
-    a8[ a]
-    \filler
+%%
+%% Ross p108--112
+primes = \relative c' {
+  \time 3/4
+  \assertBeamQuant #'(0 . 0)  #'(0 . 0)
+  c8[ c]
+  \filler
+  \assertBeamQuant #'(1 . -1)  #'(1 . -1)
+  d8[ d]
+
+  \filler
+
+  \assertBeamQuant #'(1 . 0)  #'(1 . 0)
+  e8[ e]
+  \filler
+
+
+  \assertBeamQuant #'(2 . -1)  #'(2 . -1)
+  f8[ f]
+  \filler
+
+
+  \assertBeamQuant #'(2 . 0)  #'(2 . 0)
+  g8[ g]
+  \filler
+
+
+  \assertBeamQuant #'(2 . 1)  #'(2 . 1)
+  a8[ a]
+  \filler
+
+%{
+  \once \override Beam.inspect-quants = #'(2.2 . 2.2)
+  \assertBeamQuant
+  a8[ a]
+  \filler
+
+%}
+
 }
 
-seconds = \relative {
-    \assertquant #'(0 . 1)  #'(0 . 1)
-    c8[ d]
-    \filler
-     
-    \assertquant #'(1 . -1)  #'(1 . 0)
-    d8[ e]
-    \filler
-     
-     
-    \assertquant #'(1 . 0)  #'(1 . 1)
-    e8[ f]
-    \filler
-     
-     
-    \assertquant #'(2 . -1)  #'(2 . 0)
-    f8[ g]
-    \filler
-     
-     
-    \assertquant #'(2 . 0)  #'(2 . 1)
-    g8[ a]
-    \filler
-
-    \assertquant #'(3 . -1)  #'(3 . 0)
-    a8[ b]
-    \filler
+
+seconds = \relative c' {
+
+  \assertBeamQuant #'(0 . 0)  #'(0 . 1)
+  a8[ b]
+  \filler
+
+
+  \assertBeamQuant #'(0 . 0)  #'(0 . 1)
+  b8[ c]
+  \filler
+
+
+  \assertBeamQuant #'(0 . 0)  #'(0 . 1)
+  c8[ d]
+  \filler
+
+  \assertBeamQuant #'(1 . -1)  #'(1 . 0)
+  d8[ e]
+  \filler
+
+
+  \assertBeamQuant #'(1 . 0)  #'(1 . 1)
+  e8[ f]
+  \filler
+
+
+  \assertBeamQuant #'(2 . -1)  #'(2 . 0)
+  f8[ g]
+  \filler
+
+
+  \assertBeamQuant #'(2 . 0)  #'(2 . 1)
+  g8[ a]
+  \filler
+
+  \assertBeamQuant #'(3 . -1)  #'(3 . 0)
+  a8[ b]
+  \filler
+}
+
+filler = \new Voice \relative c' {
+  \hideNotes
+  e4 e4.
 }
 
+% Ross, p122
+primeSixteenths = \relative c' {
+  \stemUp
+  \assertBeamQuant #'(0 . -1)  #'(0 . -1)
+  g16[ g]
+  \filler
+  \assertBeamQuant #'(0 . -1)  #'(0 . -1)
+  a16[ a]
+  \filler
+  \assertBeamQuant #'(0 . -1)  #'(0 . -1)
+  b16[ b]
+  \filler
+  \assertBeamQuant #'(0 . 0)  #'(0 . 0)
+  c16[ c]
+  \filler
+  \assertBeamQuant #'(1 . -1)  #'(1 . -1)
+  d16[ d]
+  \filler
+  \assertBeamQuant #'(1 . 0)  #'(1 . 0)
+  e16[ e]
+  \filler
+  \assertBeamQuant #'(2 .  -1)  #'(2 . -1)
+  f16[ f]
+  \filler
+  \assertBeamQuant #'(2 . 0)  #'(2 . 0)
+  g16[ g]
+  \filler
+  \assertBeamQuant #'(3 . -1)  #'(3 . -1)
+  a16[ a]
+  \filler
+  \assertBeamQuant #'(3 . 0)  #'(3 . 0)
+  b16[ b]
+  \filler
+}
 
-{ \primes \seconds }
+\new Voice { \primes \seconds \primeSixteenths }
 
-#(ly:set-option 'debug-beam #f)