Glissandolinie ohne Unterbrechung über mehrere Töne

[chf]

https://archiv.lilypondforum.de/index.php/topic,1015.msg5675.html#msg5675

Code Auswählen Erweitern


\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) !