X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fperformer-init.ly;h=00c4bdf3dabcd3b64b4b07ac369acc627cbf78b5;hb=bfd8ed4084a441d9ac65b1b088f3b54f31ae40c6;hp=09abc727ba7da9dfdf392cbd396af1d68e4de3e7;hpb=c77c13b688283dff0abe9343196739f4c15c6664;p=lilypond.git

diff --git a/ly/performer-init.ly b/ly/performer-init.ly
index 09abc727ba..00c4bdf3da 100644
--- a/ly/performer-init.ly
+++ b/ly/performer-init.ly
@@ -238,6 +238,7 @@
   \accepts ChordNames
   \accepts Devnull
   \accepts DrumStaff
+  \accepts Dynamics
   \accepts FiguredBass
   \accepts GrandStaff
   \accepts GregorianTranscriptionStaff
@@ -246,6 +247,7 @@
   \accepts MensuralStaff
   \accepts NoteNames
   \accepts NullVoice
+  \accepts OneStaff
   \accepts PetrucciStaff
   \accepts PianoStaff
   \accepts RhythmicStaff
@@ -283,6 +285,14 @@
   dynamicAbsoluteVolumeFunction = #default-dynamic-absolute-volume
   instrumentEqualizer = #default-instrument-equalizer
   drumPitchTable = #(alist->hash-table midiDrumPitches)
+
+  %% \quoteDuring is supposed to quote everything but we don't admit
+  %% cue events by default in order not to get multiple midi
+  %% renditions in an orchestral score.
+
+  quotedEventTypes = #'(StreamEvent)
+  quotedCueEventTypes = #'()
+
   timing = ##t
 }
 
@@ -303,6 +313,7 @@
   \accepts DrumStaff
   \accepts GrandStaff
   \accepts Lyrics
+  \accepts OneStaff
   \accepts PianoStaff
   \accepts RhythmicStaff
   \accepts Staff
@@ -317,16 +328,11 @@
 }
 
 \context {
-  \type "Performer_group"
-  \consists "Staff_performer"
-  \accepts ChordNameVoice
-  \defaultchild ChordNameVoice
+  \Voice			% We want all the actual performers
   \name ChordNames
-}
-
-\context {
-  \Voice
-  \name ChordNameVoice
+  \alias Staff			% Catch Staff-level overrides like
+				% \key, \transposition
+  \consists "Staff_performer"
 }
 
 \context {
@@ -339,6 +345,7 @@
   \accepts FretBoards
   \accepts GrandStaff
   \accepts Lyrics
+  \accepts OneStaff
   \accepts PianoStaff
   \accepts RhythmicStaff
   \accepts Staff
@@ -347,6 +354,27 @@
   \defaultchild Staff
 }
 
+\context {
+  \type "Performer_group"
+  \name "OneStaff"
+  \accepts "ChordNames"
+  \accepts "DrumStaff"
+  \accepts "Dynamics"
+  \accepts "FiguredBass"
+  \accepts "FretBoards"
+  \accepts "GregorianTranscriptionStaff"
+  \accepts "KievanStaff"
+  \accepts "Lyrics"
+  \accepts "MensuralStaff"
+  \accepts "NoteNames"
+  \accepts "PetrucciStaff"
+  \accepts "RhythmicStaff"
+  \accepts "Staff"
+  \accepts "TabStaff"
+  \accepts "VaticanaStaff"
+  \defaultchild "Staff"
+}
+
 \context {
   \Staff
   \name RhythmicStaff