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
> [email protected]
> https://lists.gnu.org/mailman/listinfo/lilypond-user
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
