input/regression/measure-grouping.ly

   1 #(ly:set-option 'old-relative)
   2 \header
   3 {
   4
   5     texidoc = "The Measure_grouping_engraver adds triangles and
   6 brackets above beats when you set beatGrouping.  This shows a fragment
   7 of Steve Martland's Dance Works. "
   8
   9 }
  10
  11 \version "1.9.1"
  12
  13
  14 %% TODO: should have 2/4 + 5/8 time sig style.
  15 \score { \notes
  16 \context Staff
  17          \relative c' {
  18              #(set-time-signature 2 4)
  19              c8 a'4 a8~
  20              #(set-time-signature 5 8 '(3 2))
  21              a8 bes4 r8 bes8->
  22              \time 2/4
  23              c,8 g'4 g8~
  24              #(set-time-signature 5 8 '(3 2))
  25              g8 a4 g a->
  26          }
  27          \paper  {
  28              raggedright = ##t
  29              \translator { \StaffContext
  30                            \consists "Measure_grouping_engraver"
  31                            }
  32              }
  33          }
  34