Re: segmented glissando lines

[Pierre Perol-Schneider]

Hi Orm,

How about :

\version "2.19.15"

#(define (add-gliss m)
   (case (ly:music-property m 'name)
     ((NoteEvent) (set! (ly:music-property m 'articulations)
                      (append (ly:music-property m 'articulations)
                         (list (make-music (quote GlissandoEvent)))))
                   m)
     (else #f)))

addGliss = #(define-music-function (parser location music)
                 (ly:music?)
           (map-some-music add-gliss music))

\relative c'' {
  \override Glissando.thickness = #2
  \override Glissando.bound-details =#'(
     (right (attach-dir . 1) (padding . 0))
     (left  (attach-dir . 1) (padding . 0)))
  \override NoteHead.no-ledgers = ##t
  \addGliss {
    d,2
    \omit Stem
    \override NoteHead.transparent = ##t
    f' d, f' e, g' d, f'
  }
}

Cheers,
Pierre