Re: Default a sequence of notes to show flageolet

[Jonathan Kulp]

Nick Payne wrote:
> I have about ten bars where every note is a harmonic, which I wish to
> indicate with a flageolet above each notehead. Is there a way to change the
> default for these ten bars so that I don't have to put ^\flageolet after
> every note? The list of note head styles doesn't seem to include a way to do
> this.
>
> Nick Payne

I found a snippet in Lilypond Tips & Tricks called "add-staccato.ly" 
where it showed how to do this with staccato notes using a bit of 
scheme, and I modified it to put flageolet instead of staccato.  Works 
great! Code below

Jon

--
Jonathan Kulp
http://www.jonathankulp.com

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.12.0"

#(define (make-script x)
   (make-music 'ArticulationEvent
               'articulation-type x))

#(define (add-script m x)
   (if
     (equal? (ly:music-property m 'name) 'EventChord)
     (set! (ly:music-property m 'elements)
           (cons (make-script x)
                 (ly:music-property m 'elements))))
   m)

#(define (add-flageolet m)
   (add-script m "flageolet"))

addFlag =
#(define-music-function (parser location music)
                                        (ly:music?)
                (music-map add-flageolet music))        


\relative c' {
  c d e d
  \addFlag { c d e f }
}