From 1b1f9d90131473684e5ec389120e3ee0c96a49ad Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 2 May 2004 22:02:11 +0000 Subject: [PATCH] (set-accidental-style): use GrandStaff iso. PianoStaff. --- ChangeLog | 5 +++++ scm/music-functions.scm | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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. -- 2.39.5