From: Aleksandr Andreev <aleksandr.andreev@gmail.com>
Date: Fri, 4 May 2012 02:18:15 +0000 (-0400)
Subject: Fix MIDI output for Kievan
X-Git-Tag: release/2.15.39-1~50
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=9e52e03f6d8c4958c3c5335113332310c5c437c7;p=lilypond.git

Fix MIDI output for Kievan

Adding KievanStaff and KievanVoice for MIDI output of Kievan notation.
---

diff --git a/ly/performer-init.ly b/ly/performer-init.ly
index 0ad1e2964e..1a36b7fd19 100644
--- a/ly/performer-init.ly
+++ b/ly/performer-init.ly
@@ -31,6 +31,7 @@
   \consists "Staff_performer"
   \consists "Key_performer"
 }
+
 \context {
   \name Global
   \accepts Score
@@ -38,6 +39,39 @@
   EventClasses = #all-event-classes
 }
 
+\context {
+  \type "Performer_group"
+  \name KievanStaff
+  \denies Voice
+  \accepts KievanVoice
+  \defaultchild KievanVoice
+  \alias Staff
+  \consists "Staff_performer"
+  \consists "Key_performer"
+}
+
+\context {
+  \type "Performer_group"
+  \name VaticanaStaff
+  \alias Staff
+  \denies Voice
+  \accepts VaticanaVoice
+  \defaultchild VaticanaVoice
+  \consists "Staff_performer"
+  \consists "Key_performer"
+}
+
+\context {
+  \type "Performer_group"
+  \name MensuralStaff
+  \denies Voice
+  \accepts MensuralVoice
+  \defaultchild MensuralVoice
+  \alias Staff
+  \consists "Staff_performer"
+  \consists "Key_performer"
+}
+
 \context {
   \Staff
   \name DrumStaff
@@ -64,9 +98,36 @@
 }
 
 \context {
-  \Voice
+  \type "Performer_group"
   \name VaticanaVoice
   \alias Voice
+  \consists "Dynamic_performer"
+  \consists "Tie_performer"
+  \consists "Note_performer"
+  \consists "Beam_performer"
+  \consists "Slur_performer"
+}
+
+\context {
+  \type "Performer_group"
+  \name KievanVoice
+  \alias Voice
+  \consists "Dynamic_performer"
+  \consists "Tie_performer"
+  \consists "Note_performer"
+  \consists "Beam_performer"
+  \consists "Slur_performer"
+}
+
+\context {
+  \type "Performer_group"
+  \name MensuralVoice
+  \alias Voice
+  \consists "Dynamic_performer"
+  \consists "Tie_performer"
+  \consists "Note_performer"
+  \consists "Beam_performer"
+  \consists "Slur_performer"
 }
 
 \context {
@@ -122,15 +183,6 @@
   \defaultchild TabVoice
 }
 
-\context {
-  \type "Performer_group"
-  \name "VaticanaStaff"
-  \alias "Staff"
-  \denies "Voice"
-  \accepts "VaticanaVoice"
-  \defaultchild "VaticanaVoice"
-}
-
 \context {
   \type "Score_performer"
 
@@ -157,6 +209,8 @@
   \accepts FretBoards
   \accepts Lyrics
   \accepts VaticanaStaff
+  \accepts KievanStaff
+  \accepts MensuralStaff
 
   \consists "Time_signature_performer"
   \consists "Control_track_performer"