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.16"
   8
   9 %
  10 % todo: make the check-quant function throw an error for incorrect quants
  11 %
  12
  13 \paper  {
  14     raggedright = ##t
  15     #(define debug-beam-quanting #t)
  16
  17       }
  18
  19 filler = \relative { e4 e }
  20 %
  21
  22
  23 primes = \relative {
  24     \assertBeamQuant #'(0 . 0)  #'(0 . 0)
  25     c8[ c]
  26     \filler
  27     \assertBeamQuant #'(1 . -1)  #'(1 . -1)
  28     d8[ d]
  29
  30     \filler
  31
  32     \assertBeamQuant #'(1 . 0)  #'(1 . 0)
  33     e8[ e]
  34     \filler
  35
  36
  37     \assertBeamQuant #'(2 . -1)  #'(2 . -1)
  38     f8[ f]
  39     \filler
  40
  41
  42     \assertBeamQuant #'(2 . 0)  #'(2 . 0)
  43     g8[ g]
  44     \filler
  45
  46
  47     \assertBeamQuant #'(2 . 1)  #'(2 . 1)
  48     a8[ a]
  49     \filler
  50
  51     \once \override Beam #'inspect-quants = #'(2.2 . 2.2)
  52     a8[ a]
  53     \filler
  54 }
  55
  56 seconds = \relative {
  57     \assertBeamQuant #'(0 . 1)  #'(0 . 1)
  58     c8[ d]
  59     \filler
  60
  61     \assertBeamQuant #'(1 . -1)  #'(1 . 0)
  62     d8[ e]
  63     \filler
  64
  65
  66     \assertBeamQuant #'(1 . 0)  #'(1 . 1)
  67     e8[ f]
  68     \filler
  69
  70
  71     \assertBeamQuant #'(2 . -1)  #'(2 . 0)
  72     f8[ g]
  73     \filler
  74
  75
  76     \assertBeamQuant #'(2 . 0)  #'(2 . 1)
  77     g8[ a]
  78     \filler
  79
  80     \assertBeamQuant #'(3 . -1)  #'(3 . 0)
  81     a8[ b]
  82     \filler
  83 }
  84
  85
  86 { \primes \seconds }
  87