quants when failing.
+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:
\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?)
#}
))
-
-\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)
(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
@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.")
(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.")
-;;;; stenicil.scm --
+;;;; stencil.scm --
;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;