From 1e958364e3ed0d2394fde2595332c8e3ec752567 Mon Sep 17 00:00:00 2001
From: John Mandereau <john.mandereau@gmail.com>
Date: Sat, 5 Jan 2008 15:40:21 +0100
Subject: [PATCH] Fix snippet Piano template with centered dynamics

---
 .../piano-template-with-centered-dynamics.ly  | 15 ++-
 .../piano-template-with-centered-dynamics.ly  | 95 +++++++++++++++++++
 2 files changed, 102 insertions(+), 8 deletions(-)
 create mode 100644 input/new/piano-template-with-centered-dynamics.ly

diff --git a/input/lsr/piano-template-with-centered-dynamics.ly b/input/lsr/piano-template-with-centered-dynamics.ly
index 116eefb9ac..c468f048e2 100644
--- a/input/lsr/piano-template-with-centered-dynamics.ly
+++ b/input/lsr/piano-template-with-centered-dynamics.ly
@@ -1,9 +1,10 @@
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
-%% This file is in the public domain.
-%% Tags: expressive-marks, piano-music, template
+%% Do not edit this file; it is auto-generated from input/new
 \version "2.11.35"
 
-\header { texidoc = "
+\header {
+  doctitle = "Piano template with centered dynamics"
+  lsrtags = "expressive-marks,piano-music,template"
+  texidoc = "
 Many piano scores have the dynamics centered between the two staves.
 This requires a bit of tweaking to implement, but since the template is
 right here, you don't have to do the tweaking yourself.
@@ -52,7 +53,8 @@ upper = \relative c'' {
                \consists "Output_property_engraver"
          
                \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
-               pedalSustainStrings = #'("Ped." "*Ped." "*")
+               \override DynamicLineSpanner #'Y-offset = #0
+	       pedalSustainStrings = #'("Ped." "*Ped." "*")
                pedalUnaCordaStrings = #'("una corda" "" "tre corde")
          
                \consists "Piano_pedal_engraver"
@@ -62,8 +64,6 @@ upper = \relative c'' {
          
                \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"
          
@@ -72,7 +72,6 @@ upper = \relative c'' {
              \context {
                \PianoStaff
                \accepts Dynamics
-               \override VerticalAlignment #'forced-distance = #7
              }
            }
          }
diff --git a/input/new/piano-template-with-centered-dynamics.ly b/input/new/piano-template-with-centered-dynamics.ly
new file mode 100644
index 0000000000..e7078ea8fd
--- /dev/null
+++ b/input/new/piano-template-with-centered-dynamics.ly
@@ -0,0 +1,95 @@
+\version "2.11.35"
+
+\header {
+  doctitle = "Piano template with centered dynamics"
+  lsrtags = "expressive-marks,piano-music,template"
+  texidoc = "
+Many piano scores have the dynamics centered between the two staves.
+This requires a bit of tweaking to implement, but since the template is
+right here, you don't have to do the tweaking yourself.
+" }
+
+upper = \relative c'' {
+           \clef treble
+           \key c \major
+           \time 4/4
+         
+           a b c d
+         }
+         
+         lower = \relative c {
+           \clef bass
+           \key c \major
+           \time 4/4
+         
+           a2 c
+         }
+         
+         dynamics = {
+           s2\fff\> s4
+           s\!\pp
+         }
+         
+         pedal = {
+           s2\sustainDown s2\sustainUp
+         }
+         
+         \score {
+           \new PianoStaff <<
+             \new Staff = "upper" \upper
+             \new Dynamics = "dynamics" \dynamics
+             \new Staff = "lower" <<
+               \clef bass
+               \lower
+             >>
+             \new Dynamics = "pedal" \pedal
+           >>
+           \layout {
+             \context {
+               \type "Engraver_group"
+               \name Dynamics
+               \alias Voice % So that \cresc works, for example.
+               \consists "Output_property_engraver"
+         
+               \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
+               \override DynamicLineSpanner #'Y-offset = #0
+	       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
+         
+               \consists "Skip_event_swallow_translator"
+         
+               \consists "Axis_group_engraver"
+             }
+             \context {
+               \PianoStaff
+               \accepts Dynamics
+             }
+           }
+         }
+         \score {
+           \new PianoStaff <<
+             \new Staff = "upper" << \upper \dynamics >>
+             \new Staff = "lower" << \lower \dynamics >>
+             \new Dynamics = "pedal" \pedal
+           >>
+           \midi {
+             \context {
+               \type "Performer_group"
+               \name Dynamics
+               \consists "Piano_pedal_performer"
+             }
+             \context {
+               \PianoStaff
+               \accepts Dynamics
+             }
+           }
+         }
+
-- 
2.39.5