mwitmer

#(define paper-size "letter")
\include "ly-score.ly"
#(set-paper-staff-size scorepap 13)

#(ly-score:process "wind-quintet" 
  `((copyright "Copyright 2012, Mark Witmer") (title "Wind Quintet") (composer "Mark Witmer"))
  `((title "Serpents") (tagline "Copyright 2012") (composer "Mark Witmer"))
  `(("mvt" ()))
  '(StaffGroup "Main Score" flute oboe clarinet-in-b-flat horn bassoon)
  #t #t)e

mwitmer

\version "2.12.3"

% vibrato.ly
% Author: Mark Witmer

% Sets the next trill spanner to draw a waveform with the provided wevelength
% and amplitudes. The waveform will go from one amplitude to the next in a
% linear fashion.
vibrato = #(define-music-function (parser location amplitudes wavelength) (list? number?) #{  
  \once \override TrillSpanner #'after-line-breaking = #(lambda (grob)