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
  20
  21 primes = \relative {
  22     \assertBeamQuant #'(0 . 0)  #'(0 . 0)
  23     c8[ c]
  24     \filler
  25     \assertBeamQuant #'(1 . -1)  #'(1 . -1)
  26     d8[ d]
  27
  28     \filler
  29
  30     \assertBeamQuant #'(1 . 0)  #'(1 . 0)
  31     e8[ e]
  32     \filler
  33
  34
  35     \assertBeamQuant #'(2 . -1)  #'(2 . -1)
  36     f8[ f]
  37     \filler
  38
  39
  40     \assertBeamQuant #'(2 . 0)  #'(2 . 0)
  41     g8[ g]
  42     \filler
  43
  44
  45     \assertBeamQuant #'(2 . 1)  #'(2 . 1)
  46     a8[ a]
  47     \filler
  48
  49     \once \override Beam #'inspect-quants = #'(2.2 . 2.2)
  50     a8[ a]
  51     \filler
  52 }
  53
  54 seconds = \relative {
  55     \assertBeamQuant #'(0 . 1)  #'(0 . 1)
  56     c8[ d]
  57     \filler
  58
  59     \assertBeamQuant #'(1 . -1)  #'(1 . 0)
  60     d8[ e]
  61     \filler
  62
  63
  64     \assertBeamQuant #'(1 . 0)  #'(1 . 1)
  65     e8[ f]
  66     \filler
  67
  68
  69     \assertBeamQuant #'(2 . -1)  #'(2 . 0)
  70     f8[ g]
  71     \filler
  72
  73
  74     \assertBeamQuant #'(2 . 0)  #'(2 . 1)
  75     g8[ a]
  76     \filler
  77
  78     \assertBeamQuant #'(3 . -1)  #'(3 . 0)
  79     a8[ b]
  80     \filler
  81 }
  82
  83
  84 { \primes \seconds }
  85
  86 #(ly:set-option 'debug-beam #f)