From 5ad8cd9d34aef3df4b5ba38bed1bd70b16d713a6 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 6 Jul 2004 22:29:09 +0000
Subject: [PATCH] (seconds): print desired quants when failing.

---
 ChangeLog                               |  5 ++
 input/regression/beam-quant-standard.ly | 76 +++++++++++++++++--------
 scm/beam.scm                            | 15 +++--
 scm/define-grob-properties.scm          |  5 +-
 scm/stencil.scm                         |  2 +-
 5 files changed, 71 insertions(+), 32 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 651cf7dd4a..42291b8189 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-07  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+	* input/regression/beam-quant-standard.ly (seconds): print desired
+	quants when failing.
+
 2004-07-06  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* SConstruct:
diff --git a/input/regression/beam-quant-standard.ly b/input/regression/beam-quant-standard.ly
index 8a8d53ec15..930163781d 100644
--- a/input/regression/beam-quant-standard.ly
+++ b/input/regression/beam-quant-standard.ly
@@ -12,9 +12,9 @@
 
 \paper  { raggedright = ##t }
 
-
+filler = \relative { e4 e }
 % 
-% #(ly:set-option 'debug-beam #t)
+#(ly:set-option 'debug-beam #t)
 
 assertquant =
 #(def-music-function (location l r) (pair? pair?)
@@ -25,43 +25,73 @@ assertquant =
    #}
    
 ))
-  
 
-\relative {
+
+
+
+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]
-    e4 
-    e4 
+    \filler
+     
+     
     \assertquant #'(2 . -1)  #'(2 . -1)
     f8[ f]
-    e4 
-    e4 
+    \filler
+     
+     
     \assertquant #'(2 . 0)  #'(2 . 0)
     g8[ g]
-    e4 
-    e4 
+    \filler
+     
+     
     \assertquant #'(2 . 1)  #'(2 . 1)
     a8[ a]
-    e4 e4 e4
+    \filler
+      
     \once \override Beam #'inspect-quants = #'(2.2 . 2.2)
     a8[ a]
-    e4 
-    e4 
+    \filler
+}
 
-    \assertquant #'(0 . 1)  #'(1 . 0)
+seconds = \relative {
+    \assertquant #'(0 . 1)  #'(0 . 1)
+    c8[ d]
+    \filler
+     
+    \assertquant #'(1 . -1)  #'(1 . 0)
     d8[ e]
-    e4 
-    e4 
+    \filler
+     
+     
     \assertquant #'(1 . 0)  #'(1 . 1)
     e8[ f]
-    e4 
-    e4 
+    \filler
+     
+     
     \assertquant #'(2 . -1)  #'(2 . 0)
     f8[ g]
-    e4 
-    e4 
+    \filler
+     
+     
     \assertquant #'(2 . 0)  #'(2 . 1)
     g8[ a]
-    e4 
-    e4 
-    }
+    \filler
+
+    \assertquant #'(3 . -1)  #'(3 . 0)
+    a8[ b]
+    \filler
+}
+
+
+{ \primes \seconds }
+
+#(ly:set-option 'debug-beam #f)
diff --git a/scm/beam.scm b/scm/beam.scm
index ab79154115..858053fdc8 100644
--- a/scm/beam.scm
+++ b/scm/beam.scm
@@ -81,10 +81,17 @@
     
     (if (or (not (almost-equal want-l (car posns)))
 	    (not (almost-equal want-r (cdr posns))))
-	(ly:warn
-	 (format "Error in beam quanting found. Want (~S,~S) found (~S)."
-		 want-l want-r posns
-		 )))))
+	(begin
+	  (ly:warn
+	   (format "Error in beam quanting found. Want (~S,~S) found (~S)."
+		   want-l want-r posns
+		   ))
+	  (set! (ly:grob-property beam 'quant-score)
+		(format "(~S,~S)" want-l want-r)))
+	(set! (ly:grob-property beam 'quant-score) "")
+
+	
+	  )))
 		 
 (define-public (check-quant-callbacks l r)
   (list Beam::least_squares
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index d17171b068..19b7b596c9 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -489,9 +489,6 @@ reading this property.")
 @code{linethickness}.")
      (thickness ,number? "Bar line thickness, measured in
 @code{linethickness}.")
-;;TODO -- change to fret-thickness
-     (thickness ,number? "Thickness of fret and string lines in a fret
-diagram.  Multiplier on bar thickness.")
      (thin-kern ,number? "The space after a hair-line in a bar line.")
      (forced-distance ,ly:dimension? "A fixed distance between object
 reference points in an alignment.")
@@ -636,7 +633,7 @@ entries @code{name} and @code{interfaces}.")
      (chord-tremolo ,boolean? "if set, this beam is a tremolo. ")
      (begin-of-line-visible ,boolean? "Used for marking ChordNames that should only show changes.")
      (head-pair ,pair? "Pair of grob pointers, pointing to the two heads of the tie.")
-     (quant-score ,number? "Beam quanting score -- can be stored for
+     (quant-score ,string? "Beam quanting score -- can be stored for
 debugging")
      (least-squares-dy ,number? 
 		       "ideal beam slope, without damping.")
diff --git a/scm/stencil.scm b/scm/stencil.scm
index 153661cc0b..c8518d76f7 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -1,4 +1,4 @@
-;;;; stenicil.scm -- 
+;;;; stencil.scm -- 
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-- 
2.39.2