input/regression/beam-quant-standard.ly

   1 \header {
   2
   3     texidoc = "This file tests a few standard beam quants."
   4
   5 }
   6
   7 \version "2.3.6"
   8
   9 %
  10 % todo: make the check-quant function throw an error for incorrect quants
  11 %
  12
  13 \paper  { raggedright = ##t }
  14
  15 filler = \relative { e4 e }
  16 %
  17 #(ly:set-option 'debug-beam #t)
  18
  19 assertquant =
  20 #(def-music-function (location l r) (pair? pair?)
  21   (let* ((f (check-quant-callbacks l r)))
  22
  23    #{
  24    \override Beam #'position-callbacks = $f
  25    #}
  26
  27 ))
  28
  29
  30
  31
  32 primes = \relative {
  33     \assertquant #'(0 . 0)  #'(0 . 0)
  34     c8[ c]
  35     \filler
  36     \assertquant #'(1 . -1)  #'(1 . -1)
  37     d8[ d]
  38
  39     \filler
  40
  41     \assertquant #'(1 . 0)  #'(1 . 0)
  42     e8[ e]
  43     \filler
  44
  45
  46     \assertquant #'(2 . -1)  #'(2 . -1)
  47     f8[ f]
  48     \filler
  49
  50
  51     \assertquant #'(2 . 0)  #'(2 . 0)
  52     g8[ g]
  53     \filler
  54
  55
  56     \assertquant #'(2 . 1)  #'(2 . 1)
  57     a8[ a]
  58     \filler
  59
  60     \once \override Beam #'inspect-quants = #'(2.2 . 2.2)
  61     a8[ a]
  62     \filler
  63 }
  64
  65 seconds = \relative {
  66     \assertquant #'(0 . 1)  #'(0 . 1)
  67     c8[ d]
  68     \filler
  69
  70     \assertquant #'(1 . -1)  #'(1 . 0)
  71     d8[ e]
  72     \filler
  73
  74
  75     \assertquant #'(1 . 0)  #'(1 . 1)
  76     e8[ f]
  77     \filler
  78
  79
  80     \assertquant #'(2 . -1)  #'(2 . 0)
  81     f8[ g]
  82     \filler
  83
  84
  85     \assertquant #'(2 . 0)  #'(2 . 1)
  86     g8[ a]
  87     \filler
  88
  89     \assertquant #'(3 . -1)  #'(3 . 0)
  90     a8[ b]
  91     \filler
  92 }
  93
  94
  95 { \primes \seconds }
  96
  97 #(ly:set-option 'debug-beam #f)