From: Han-Wen Nienhuys Date: Sun, 2 May 2004 22:02:11 +0000 (+0000) Subject: (set-accidental-style): use GrandStaff X-Git-Tag: release/2.2.1~1 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1b1f9d90131473684e5ec389120e3ee0c96a49ad;p=lilypond.git (set-accidental-style): use GrandStaff iso. PianoStaff. --- diff --git a/ChangeLog b/ChangeLog index ca596ca6b6..ed5d3d0042 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-05-03 Han-Wen Nienhuys + + * scm/music-functions.scm (set-accidental-style): use GrandStaff + iso. PianoStaff. + 2004-05-02 Han-Wen Nienhuys * Documentation/user/lilypond.tely (Top): update version number. diff --git a/scm/music-functions.scm b/scm/music-functions.scm index 1296589152..d80760d669 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -637,11 +637,11 @@ without context specification. Called from parser." (define-public (set-accidental-style style . rest) "Set accidental style to STYLE. Optionally takes a context argument, e.g. 'Staff or 'Voice. The context defaults to Voice, except for piano styles, which -use PianoStaff as a context. " +use GrandStaff as a context. " (let ((context (if (pair? rest) (car rest) 'Staff)) (pcontext (if (pair? rest) - (car rest) 'PianoStaff))) + (car rest) 'GrandStaff))) (ly:export (cond ;; accidentals as they were common in the 18th century. @@ -685,14 +685,14 @@ use PianoStaff as a context. " ((equal? style 'piano) (set-accidentals-properties #f '( Staff (same-octave . 0) (any-octave . 0) (same-octave . 1) - PianoStaff (any-octave . 0) (same-octave . 1)) + GrandStaff (any-octave . 0) (same-octave . 1)) '() pcontext)) ((equal? style 'piano-cautionary) (set-accidentals-properties #f '(Staff (same-octave . 0)) '(Staff (any-octave . 0) (same-octave . 1) - PianoStaff (any-octave . 0) (same-octave . 1)) + GrandStaff (any-octave . 0) (same-octave . 1)) pcontext)) ;; do not set localKeySignature when a note alterated differently from ;; localKeySignature is found.