release: 1.4.4

[lilypond.git] / ly / spanners.ly

diff --git a/ly/spanners.ly b/ly/spanners.ly
index ba9049182142c7328c5c47ad7e7e62c1d6d3b222..3fdf1b7b31029418cd342e23185742ba26ac361c 100644 (file)
--- a/ly/spanners.ly
+++ b/ly/spanners.ly
@@ -1,31 +1,52 @@
+\version "1.3.146"
 
-
-% 1st arg dynamic (louder/softer). 2nd arg spantype
 cr = \spanrequest \start "crescendo"
 decr = \spanrequest  \start "decrescendo"
 rc = \spanrequest   \stop "crescendo"
 rced = \spanrequest \stop "decrescendo"
 
-%% urg, these don't work yet.
-%% must set manually
-xcresc = {
-%\spanrequest \start "crescendo"
-\property Voice.crescendoText = "cresc."
-\property Voice.crescendoSpanner = "dashed"
+cresc = \notes {
+  \commandspanrequest \start "crescendo" 
+  \property Voice.crescendoText = #"cresc."
+  \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 \unset
+  \property Voice.crescendoSpanner \unset
+}
+
+dim = \notes {
+  \commandspanrequest \start "decrescendo" 
+  \property Voice.decrescendoText = #"dim."
+  \property Voice.decrescendoSpanner = #'dashed-line
 }
 
-xendcresc = {
-%\spanrequest \start "crescendo"
-\property Voice.crescendoText = ##f
-\property Voice.crescendoSpanner = ##f
+enddim = \notes {
+  \commandspanrequest \stop "decrescendo" 
+   \property Voice.decrescendoText \unset
+ \property Voice.decrescendoSpanner \unset
 }
 
+%{
+
 cresc = \spanrequest \start "crescendo"
 endcresc = \spanrequest \stop "crescendo"
 
+%}
+
 % better name sustainstart/stop? 
-sustaindown = \spanrequest \start "sustain"
-sustainup = \spanrequest \stop "sustain"
+sustainDown = \spanrequest \start "Sustain"
+sustainUp = \spanrequest \stop "Sustain"
+
+unaCorda = \spanrequest \start "UnaCorda"
+treCorde = \spanrequest \stop "UnaCorda"
+
+sostenutoDown = \spanrequest \start "Sostenuto"
+sostenutoUp = \spanrequest \stop "Sostenuto"
 
 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
 %decresc = \property Voice.crescendoText = "decr."