+++ /dev/null
-\header {
-
- texidoc = "If @code{extraNatural} is set then keys that are not
- altered farther away (eg from sharp to double sharp) are
- cancelled. Otherwise only keys that do not occur in the new key
- signature are cancelled." }
-
-
-\version "2.12.0"
-
-\paper {
- ragged-right = ##t
-}
-{
- \set Staff.extraNatural = ##f
- \key fes \major r1
- \key as \major r1_"No B-natural (#f)"
- \set Staff.extraNatural = ##t
- \key gis \major r1
- \key b \major r1_"with F-natural (#t)"
-
-}
-
SCM last = get_property ("lastKeySignature");
SCM key = get_property ("keySignature");
- bool extranatural = to_boolean (get_property ("extraNatural"));
if ((to_boolean (get_property ("printKeyCancellation"))
|| key == SCM_EOL)
SCM new_alter_pair = scm_assoc (scm_caar (s), key);
Rational old_alter = robust_scm2rational (scm_cdar (s), 0);
if (new_alter_pair == SCM_BOOL_F
- || (extranatural
- && (ly_scm2rational (scm_cdr (new_alter_pair)) - old_alter)*old_alter
- < Rational (0)))
+ || ((ly_scm2rational (scm_cdr (new_alter_pair)) - old_alter) * old_alter
+ < Rational (0)))
{
*tail = scm_cons (scm_car (s), *tail);
tail = SCM_CDRLOC (*tail);