+ \property Current.extraNatural = ##f
+ \property Current.autoAccidentals = #'(Staff (same-octave . 0))
+ \property Current.autoCautionaries = #'(Staff (any-octave . 0) (same-octave . 1))
+}
+
+% Multivoice accidentals to be read both by musicians playing one voice
+% and musicians playing all voices.
+% Accidentals are typeset for each voice, but they ARE cancelled across voices.
+modernVoiceAccidentals = {
+ \property Current.extraNatural = ##f
+ \property Current.autoAccidentals = #'(
+ Voice (same-octave . 0) (any-octave . 0) (same-octave . 1)
+ Staff (same-octave . 0) (any-octave . 0) (same-octave . 1)
+ )
+ \property Current.autoCautionaries = #'()
+}
+
+% same as modernVoiceAccidental eccept that all special accidentals are typeset
+% as cautionaries
+modernVoiceCautionaries = {
+ \property Current.extraNatural = ##f
+ \property Current.autoAccidentals = #'(
+ Voice (same-octave . 0)
+ )
+ \property Current.autoCautionaries = #'(
+ Voice (any-octave . 0) (same-octave . 1)
+ Staff (same-octave . 0) (any-octave . 0) (same-octave . 1)
+ )
+}
+
+% stone's suggestions for accidentals on grand staff.
+% Accidentals are cancelled across the staves in the same grand staff as well
+pianoAccidentals = {
+ \property Current.autoAccidentals = #'(
+ Staff (same-octave . 0) (any-octave . 0) (same-octave . 1)
+ GrandStaff (any-octave . 0) (same-octave . 1)
+ )
+ \property Current.autoCautionaries = #'()
+}
+
+pianoCautionaries = {
+ \property Current.autoAccidentals = #'(
+ Staff (same-octave . 0)
+ )
+ \property Current.autoCautionaries = #'(
+ Staff (any-octave . 0) (same-octave . 1)
+ GrandStaff (any-octave . 0) (same-octave . 1)
+ )