https://archiv.lilypondforum.de/index.php/topic,1015.msg5675.html#msg5675
\version "2.20.0"
gliss = #(define-music-function (parser location control)(pair?)
(let((y-off (car control))
(slope (cdr control)))
#{
\once\override TextSpanner.style = #'line
\once\override TextSpanner.extra-offset = #(cons 0 y-off)
\once\override TextSpanner.thickness = #1.5
\override TextSpanner #'bound-details =
#`((left . ((Y . 0)
(padding . 1.5)
))
(right . ((Y . ,slope)
(padding . 2.5)
(attach-dir . ,RIGHT)
)))
#}))
#(define startGliss startTextSpan)
#(define stopGliss stopTextSpan)
stemGliss = #(define-music-function (parser location control)(number?)
#{
\once \override NoteHead #'Y-extent = #(cons 0 control)
\once \override NoteHead #'transparent = ##t
\once \override Stem #'Y-extent = #'(0 . 0)
#})
\relative c''{
c4\startGliss s4..\once \hideNotes c16 c4 c8-.\stopGliss r8 r2
}
Liebe Freunde,
im Archiv fand ich obiges Beispiel.
Warum bekomme ich keine durchgezogenen Linie?
Gruß
Christa
Fehler erkannt: ich übersah \gliss #'(0 . 0) !