Hi Pierre, Urs, that's excellent and very instructional, thanks!
-- Orm Am Samstag, den 10. Januar 2015 um 23:56:03 Uhr (+0100) schrieb 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 > _______________________________________________ > lilypond-user mailing list > lilypond-user@gnu.org > https://lists.gnu.org/mailman/listinfo/lilypond-user _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user