]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/cluster.ly
* scm/define-grobs.scm (all-grob-descriptions): default to ramp.
[lilypond.git] / input / regression / cluster.ly
1 \version "1.7.18"
2 \header {
3     texidoc = "Clusters are a device to denote that a complete range of
4 notes is to be played."
5 }
6
7 fragment =\notes \relative c' {
8          c4 f4 <<e d'>>4
9          <<g a>>8 <<e a>> a4 c2 <<d b>>4 e4 
10          c4 }
11
12 \score {
13  \notes <
14      \context Staff = SA \fragment
15      \context Staff = SB \apply #notes-to-clusters \fragment
16      >
17  \paper { raggedright = ##t }
18 }
19
20
21