Adds glissando stems to Lilypond.

ly/music-functions-init.ly

 %%%% -*- Mode: Scheme -*-
 
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
 %%%% Copyright (C) 2003--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
 %%%% the Free Software Foundation, either version 3 of the License, or
@@ skipping 363 matching lines @@
          (list
           #{
             \override TabNoteHead #'stencil = #(tab-note-head::print-custom-fret-label $fret)
           #}
           (make-harmonic
             (calc-harmonic-pitch pitch music))
           #{
             \revert TabNoteHead #'stencil
           #}))))
 
+startGlissandoStem = {
+  \override NoteHead #'stencil = #(ly:make-stencil '() '(0 . 0) '(0 . 0))
+  \override NoteHead #'no-ledgers = ##t
+  \set glissandoStem = ##t
+}
+
+stopGlissandoStem = {
+  \revert NoteHead #'stencil
+  \revert NoteHead #'no-ledgers
+  \unset glissandoStem
+}
+
 harmonicByRatio = #(define-music-function (parser location ratio music) (number? ly:music?)
   (let ((pitch (ratio->pitch ratio))
         (fret (ratio->fret ratio)))
        (make-sequential-music
         (list
          #{
            \override TabNoteHead #'stencil = #(tab-note-head::print-custom-fret-label $fret)
          #}
          (make-harmonic
            (calc-harmonic-pitch pitch music))
@@ skipping 564 matching lines @@
 
 
 
 withMusicProperty =
 #(define-music-function (parser location sym val music)
    (symbol? scheme? ly:music?)
    (_i "Set @var{sym} to @var{val} in @var{music}.")
 
    (set! (ly:music-property music sym) val)
    music)