]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/pedal-bracket.ly
* scm/music-functions.scm (determine-split-list): bugfixes.
[lilypond.git] / input / regression / pedal-bracket.ly
1
2 \header {
3
4     texidoc = "Piano pedal brackets.  Brackets should start and end at
5  the left side of the note. If a note is shared between two brackets,
6  the ends are flared.
7
8 There are no vertical endings at a line-break.  " }
9
10 \score {
11     \notes \relative c'' {
12         \property Staff.pedalSustainStyle = #'bracket
13
14         c4 d e \sustainDown b c c, \sustainUp \sustainDown  d8[ c]  e8[ 
15             e \sustainUp \sustainDown] f4 d
16         \sustainUp g \sustainDown b b, \sustainUp c'
17
18         \property Staff.pedalUnaCordaStyle = #'mixed
19
20         c4 d \unaCorda e f g
21         b  | \break c b c \treCorde c
22     }
23     \paper { raggedright = ##t }
24 }