Issue 3799: New satb.ly built-in template and template framework

[lilypond.git] / ly / voice-tkit.ly

diff --git a/ly/voice-tkit.ly b/ly/voice-tkit.ly
new file mode 100644 (file)
index 0000000..daeaae4
--- /dev/null
+++ b/ly/voice-tkit.ly
@@ -0,0 +1,16 @@
+%\version "2.19.19"
+
+\include "base-tkit.ly"
+
+make-voice =
+#(define-music-function (parser location name) (voice-prefix?)
+   (define music (make-id name "Music"))
+   (if music
+       #{
+         \new Voice = #(string-append name "Voice") <<
+           #(if KeepAlive KeepAlive)
+           #(if Time Time )
+           #music
+         >>
+       #} ))
+