ly/festival.ly

   1 %%%% Festival singing mode output
   2 %%%% This file is part of LilyPond, the GNU music typesetter.
   3 %%%%
   4 %%%% Copyright (C) 2006, 2007 Brailcom, o.p.s.
   5 %%%%
   6 %%%% Author: Milan Zamazal <pdm@brailcom.org>
   7 %%%% LilyPond is free software: you can redistribute it and/or modify
   8 %%%% it under the terms of the GNU General Public License as published by
   9 %%%% the Free Software Foundation, either version 3 of the License, or
  10 %%%% (at your option) any later version.
  11 %%%%
  12 %%%% LilyPond is distributed in the hope that it will be useful,
  13 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 %%%% GNU General Public License for more details.
  16 %%%%
  17 %%%% You should have received a copy of the GNU General Public License
  18 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 \version "2.19.22"
  21
  22 #(use-modules (scm song))
  23 #(use-modules (srfi srfi-39))
  24
  25 % \festival #"filename" { \tempo N = X } { music }
  26 festival =
  27 #(define-music-function (filename tempo music)
  28    (string? ly:music? ly:music?)
  29    (output-file music tempo filename)
  30    music)
  31
  32 % \festivalsyl #"filename" { \tempo N = X } { music }
  33 festivalsyl =
  34 #(define-music-function (filename tempo music)
  35    (string? ly:music? ly:music?)
  36    (parameterize ((*syllabify* #t))
  37      (output-file music tempo filename))
  38    music)