patch::: 1.3.140.jcn3

[lilypond.git] / ly / property.ly

diff --git a/ly/property.ly b/ly/property.ly
index 4ae2d3b4e2ab4c6a41fde1ea15e1106f6f8d2d1a..3029e49e94653c72e3fec5770efe75e31012c0b3 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -14,18 +14,30 @@ shiftOnn  = \property Voice.NoteColumn \override #'horizontal-shift = #2
 shiftOnnn  = \property Voice.NoteColumn \override #'horizontal-shift = #3
 shiftOff  = \property Voice.NoteColumn \revert #'horizontal-shift 
 
-
 tieUp = \property Voice.Tie \override #'direction = #1
 tieDown = \property Voice.Tie \override #'direction = #-1
 tieBoth = \property Voice.Tie \revert #'direction 
 
+dynamicUp  = {
+  \property Voice.DynamicText \override #'direction = #1
+  \property Voice.DynamicLineSpanner \override #'direction = #1
+}
+dynamicDown = {
+  \property Voice.DynamicText \override #'direction = #-1
+  \property Voice.DynamicLineSpanner \override #'direction = #-1
+}
+dynamicBoth = {
+  \property Voice.DynamicText \revert #'direction
+  \property Voice.DynamicLineSpanner \revert #'direction
+}
+
 cadenzaOn = \property Score.timing = ##f
 cadenzaOff = {
   \property Score.timing = ##t
   \property Score.measurePosition = #(make-moment 0 1)
 }
 
-       
+% dynamic dir?  text script, articulation script dir?  
 oneVoice = {   
   \stemBoth
   \slurBoth
@@ -59,8 +71,11 @@ voiceFour = {
   \shiftOn
 }
 
+% There's also dash, but setting dash period/length should be fixed.
 slurDotted = \property Voice.Slur \override #'dashed = #1
-slurNoDots = \property Voice.Slur \revert #'dashed
+slurSolid = \property Voice.Slur \revert #'dashed
+tieDotted = \property Voice.Tie \override #'dashed = #1
+tieSolid = \property Voice.Tie \revert #'dashed
 
        
 tiny  =