-% accidentals as suggested by Kurt Stone, Music Notation in the 20th century.
-% This includes all the default accidentals, but accidentals also needs cancelling
-% in other octaves and in the next measure.
-modernAccidentals = {
- \property Score.extraNatural = ##f
- \property Score.autoAccidentals = #'((measure-same-octave . 0) (measure-any-octave . 0) (measure-any-octave . 1))
- \property Score.autoCautionaries = #'()
+% For drawing vertical chord brackets with \arpeggio
+% This is a shorthand for the value of the print-function property
+% of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether
+% cross-staff brackets are desired.
+
+arpeggio = #(make-music 'ArpeggioEvent)
+
+arpeggioUp = \sequential {
+ \revert Arpeggio #'print-function
+ \override Arpeggio #'arpeggio-direction = #1
+}
+arpeggioDown = \sequential {
+ \revert Arpeggio #'print-function
+ \override Arpeggio #'arpeggio-direction = #-1