David Raleigh Arnold <[EMAIL PROTECTED]> writes: > People have asked in the past for the ability to enter > notes without having to put in the chromatic signs > specified in the key signature.
This should be possible in plain LilyPond. Maybe something like: --------------------------------------------------------------- \version "2.5.20" autoAlteration = #(def-music-function (parser location key music) (ly:music? ly:music?) (let ((pitch-alist (ly:music-property (car (ly:music-property key 'elements)) 'pitch-alist))) (music-map (lambda (m) ;; If the music is a NoteEvent, we change its alteration, ;; unless its accidental is forced (let ((this-pitch (ly:music-property m 'pitch))) (if (eqv? 'NoteEvent (ly:music-property m 'name)) (cond (;; if ! is found, we remove it and leave the alteration untouched (and (not (null? (ly:music-property m 'force-accidental))) (ly:music-property m 'force-accidental) (= 0 (ly:pitch-alteration this-pitch))) (set! (ly:music-property m 'force-accidental) #f)) (;; if the alteration is 0, then we change it according to pitch-alist (zero? (ly:pitch-alteration this-pitch)) (set! (ly:music-property m 'pitch) (ly:make-pitch (ly:pitch-octave this-pitch) (ly:pitch-notename this-pitch) (cdr (assoc (ly:pitch-notename this-pitch) pitch-alist)))))))) m) music) ;;music)) (make-music 'SequentialMusic 'elements (list key music)))) \autoAlteration \key a \major { a b c' d' e' f' g' a' a b c' d' ees' f' g'! a' } --------------------------------------------------------------- where you can use ! to prevent the function to change the (natural) alteration. nicolas _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user