ly/voice-tkit.ly


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

%\version "2.19.22"

\include "base-tkit.ly"

make-voice =
#(define-music-function (name) (voice-prefix?)
   (define music (make-id name "Music"))
   (if music
       #{
         \new Voice = #(string-append name "Voice") <<
           #(if KeepAlive KeepAlive)
           #(if Time Time )
           #music
         >>
       #} ))