ly/voice-tkit.ly

   1 %\version "2.19.22"
   2
   3 \include "base-tkit.ly"
   4
   5 make-voice =
   6 #(define-music-function (name) (voice-prefix?)
   7    (define music (make-id name "Music"))
   8    (if music
   9        #{
  10          \new Voice = #(string-append name "Voice") <<
  11            #(if KeepAlive KeepAlive)
  12            #(if Time Time )
  13            #music
  14          >>
  15        #} ))
  16