From 4659719a37f2dd0252e2866dc1fd2c1b932348e8 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 22 Dec 2009 17:03:33 +0100
Subject: [PATCH] Support Dynamics context in oly

---
 orchestrallily.ily | 47 ++++++-----------------------------------------
 1 file changed, 6 insertions(+), 41 deletions(-)

diff --git a/orchestrallily.ily b/orchestrallily.ily
index 874932d..c5638a1 100644
--- a/orchestrallily.ily
+++ b/orchestrallily.ily
@@ -548,6 +548,11 @@ orchestralVoiceTypes = #(define-music-function (parser location types) (list?)
   )
 )
 
+#(define (oly:dynamics_handler parser piece name type children)
+  (oly:voice_handler parser piece name type)
+)
+
+
 #(define oly:staff_handlers
   (list
     ; staff group types
@@ -574,6 +579,7 @@ orchestralVoiceTypes = #(define-music-function (parser location types) (list?)
     '("FiguredBass" . oly:figured_bass_staff_handler )
     ; Devnull is like a staff, only that it doesn't craete output
     '("Devnull" . oly:devnull_handler )
+    '("Dynamics" . oly:dynamics_handler )
   )
 )
 
@@ -588,7 +594,6 @@ orchestralVoiceTypes = #(define-music-function (parser location types) (list?)
     '("NoteNames" . oly:voice_handler )
     '("TabVoice" . oly:voice_handler )
     '("VaticanaVoice" . oly:voice_handler )
-    ;'("Dynamics" . oly:dynamics_handler )
   )
 )
 
@@ -1498,53 +1503,13 @@ slashedGrace =
   \context {
     \RemoveEmptyStaffContext
   }
-%   \context {
-%     \Lyrics
-%     \override VerticalAxisGroup #'minimum-Y-extent = #'(0.5 . 0.5)
-%   }
   \context {
     \Staff
-%     \override VerticalAxisGroup #'minimum-Y-extent = #'(-1. . 3)
     ignoreFiguredBassRest = ##f
   }
 }
 
 
-
-\layout {
-  \context {
-    \type "Engraver_group"
-    \name Dynamics
-    % So that \cresc works, for example.
-    \alias Voice
-    \consists "Output_property_engraver"
-
-    \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
-    pedalSustainStrings = #'("Ped." "*Ped." "*")
-    pedalUnaCordaStrings = #'("una corda" "" "tre corde")
-
-    \consists "Piano_pedal_engraver"
-    \consists "Script_engraver"
-    \consists "Dynamic_engraver"
-    \consists "Text_engraver"
-
-    \override TextScript #'font-size = #2
-    \override TextScript #'font-shape = #'italic
-    \override DynamicText #'extra-offset = #'(0 . 2.5)
-    \override Hairpin #'extra-offset = #'(0 . 2.5)
-
-    \consists "Skip_event_swallow_translator"
-
-    \consists "Axis_group_engraver"
-  }
-  \context {
-    \PianoStaff
-    \accepts Dynamics
-%     \override VerticalAlignment #'forced-distance = #7
-  }
-}
-
-
 bracketts = ^\markup{"[Solo]"}
 brackettt = ^\markup{"[Tutti]"}
 ts = ^\markup{"t.s."}
-- 
2.11.4.GIT