grid-templates.ily

\version "2.24.0"

%% gridly - simple segmented grid for LilyPond
%% Copyright (C) 2015 - Matteo Ceccarello
%%
%% This program 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
%% (at your option) any later version.
%%
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public License
%% along with this program.  If not, see <http://www.gnu.org/licenses/>.


SATBChoir =
#(define-music-function ()()
   #{
     <<
       \new ChoirStaff <<
         \new Staff = "soprano" <<
           \new Voice { \gridGetMusic "marks" }
           \new Voice = "soprano" { \gridGetMusic "soprano" }
           \new Lyrics \lyricsto "soprano" { \gridGetLyrics "soprano" }
         >>

         \new Staff = "alto" \new Voice = "alto" { \gridGetMusic "alto" }
         \new Lyrics \lyricsto "alto" { \gridGetLyrics "alto" }

         \new Staff = "tenore" \new Voice = "tenore" { \gridGetMusic "tenore" }
         \new Lyrics \lyricsto "tenore" { \gridGetLyrics "tenore" }

         \new Staff = "basso" \new Voice = "basso" { \gridGetMusic "basso" }
         \new Lyrics \lyricsto "basso" { \gridGetLyrics "basso" }
       >>
     >>
   #})


rehearsalMidi =
#(define-void-function
   (music name)
   (ly:music? string?)
   (let ((book
          #{
            \book {
              \score {
                \unfoldRepeats <<
                  $music
                  \context Staff = $name {
                    \set Score.midiMinimumVolume = #0.4
                    \set Score.midiMaximumVolume = #0.4
                    \set Staff.midiMinimumVolume = #0.8
                    \set Staff.midiMaximumVolume = #1.0
                    \set Staff.midiInstrument = "acoustic grand"
                  }
                >>
                \midi { }
              }
            }
          #}))
     (ly:book-process book
                      #{ \paper { } #}
                      #{ \layout { } #}
                      (string-append
                       (ly:parser-output-name)
                       "-rehearsal-"
                       name))))