patch::: 1.3.143.jcn1

[lilypond.git] / ly / spanners.ly

diff --git a/ly/spanners.ly b/ly/spanners.ly
index a0e837b8efebc8cd1efc0ae01cbbe8129d1b153a..ae445148c4d4a7b72974e471b52927b13a358640 100644 (file)
--- a/ly/spanners.ly
+++ b/ly/spanners.ly
@@ -10,10 +10,24 @@ cresc = \notes {
   \property Voice.crescendoSpanner = "dashed-line"
 }
 
+% ah, this is handy: maybe drop resetting of properties in
+% dynamic-engraver ?
 endcresc = \notes {
-\commandspanrequest \stop "crescendo"; 
-\property Voice.crescendoText = ##f
-\property Voice.crescendoSpanner = ##f
+  \commandspanrequest \stop "crescendo"; 
+  \property Voice.crescendoText = ##f
+  \property Voice.crescendoSpanner = ##f
+}
+
+dim = \notes {
+  \commandspanrequest \start "decrescendo" ;
+  \property Voice.decrescendoText = "dim."
+  \property Voice.decrescendoSpanner = "dashed-line"
+}
+
+enddim = \notes {
+  \commandspanrequest \stop "decrescendo"; 
+  \property Voice.decrescendoText = ##f
+  \property Voice.decrescendoSpanner = ##f
 }
 
 %{
@@ -27,8 +41,8 @@ endcresc = \spanrequest \stop "crescendo"
 sustainDown = \spanrequest \start "Sustain"
 sustainUp = \spanrequest \stop "Sustain"
 
-unaChorda = \spanrequest \start "UnaChorda"
-treChorde = \spanrequest \stop "UnaChorda"
+unaCorda = \spanrequest \start "UnaCorda"
+treCorde = \spanrequest \stop "UnaCorda"
 
 sostenutoDown = \spanrequest \start "Sostenuto"
 sostenutoUp = \spanrequest \stop "Sostenuto"