Re: Notes in Key Sig

[Nicolas Sceaux]

David Raleigh Arnold <address@hidden> 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