-% accidentals in voices instead of staves.
-% Notice that accidentals from one voice do NOT get cancelled in other voices
-voiceAccidentals = {
- \set Current.extraNatural = ##t
- \set Current.autoAccidentals = #'(Voice (same-octave . 0))
- \set Current.autoCautionaries = #'()
-
-}
-
-% 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 = {
- \set Current.extraNatural = ##f
- \set Current.autoAccidentals = #'(Staff (same-octave . 0) (any-octave . 0) (same-octave . 1))
- \set Current.autoCautionaries = #'()
-}
-
-% the accidentals that Stone adds to the old standard as cautionaries
-modernCautionaries = {
- \set Current.extraNatural = ##f
- \set Current.autoAccidentals = #'(Staff (same-octave . 0))
- \set 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 = {
- \set Current.extraNatural = ##f
- \set Current.autoAccidentals = #'(
- Voice (same-octave . 0) (any-octave . 0) (same-octave . 1)
- Staff (same-octave . 0) (any-octave . 0) (same-octave . 1)
- )
- \set Current.autoCautionaries = #'()
-}
-
-% same as modernVoiceAccidental eccept that all special accidentals are typeset
-% as cautionaries
-modernVoiceCautionaries = {
- \set Current.extraNatural = ##f
- \set Current.autoAccidentals = #'(
- Voice (same-octave . 0)
- )
- \set 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 = {
- \set Current.autoAccidentals = #'(
- Staff (same-octave . 0) (any-octave . 0) (same-octave . 1)
- GrandStaff (any-octave . 0) (same-octave . 1)
- )
- \set Current.autoCautionaries = #'()
-}
-
-pianoCautionaries = {
- \set Current.autoAccidentals = #'(
- Staff (same-octave . 0)
- )
- \set Current.autoCautionaries = #'(
- Staff (any-octave . 0) (same-octave . 1)
- GrandStaff (any-octave . 0) (same-octave . 1)
- )
-}
-
-
-% Do not reset the key at the start of a measure. Accidentals will be
-% printed only once and are in effect until overridden, possibly many
-% measures later.
-noResetKey = {
- \set Current.autoAccidentals = #'(Staff (same-octave . #t))
- \set Current.autoCautionaries = #'()
-}
-
-% do not set localKeySignature when a note alterated differently from
-% localKeySignature is found.
-% Causes accidentals to be printed at every note instead of
-% remembered for the duration of a measure.
-% accidentals not being remembered, causing accidentals always to be typeset relative to the time signature
-forgetAccidentals = {
- \set Current.autoAccidentals = #'(Staff (same-octave . -1))
- \set Current.autoCautionaries = #'()
-}
-
-
-% To remove a Volta bracket or some other graphical object,
-% set it to turnOff. Example: \set Staff.VoltaBracket = \turnOff
-
-%%
-%% DO NOT USE THIS. IT CAN LEAD TO CRASHES.
-turnOff = #(cons '() '())