\version "2.19.81"
\language "english"
% starts an extended glissand
glon = {
\override NoteColumn.glissando-skip = ##t
\hide NoteHead
\override NoteHead.no-ledgers = ##t
\override Stem.thickness = #0.5
\override Accidental #'stencil = ##f
}
% terminates an extended glissando
gloff = {
\revert NoteColumn.glissando-skip
\undo \hide NoteHead
\revert Glissando #'stencil
\revert NoteHead.no-ledgers
\revert Stem.thickness
\revert Accidental #'stencil
}
% slightly increase slope of glissando so that line is
% not perfectly horizontal when glissing between notes
% on same staff line/space
glup = { \once\override Glissando.extra-dy = #0.5 }
gldown = { \once\override Glissando.extra-dy = #-0.5 }
\relative c' {
\glup c8 \glissando \glon c-_ d-_ e-_ \tuplet 5/4 { e-_ f-_ g g a } |
\gloff a a \gldown a \glissando \glon a a a \gloff af4 |
\gldown af2 \glissando \gldown g4( \glissando \glon f |
e) \gloff e r2 |
}