patch::: 1.3.132.jcn1

[lilypond.git] / ly / property.ly

diff --git a/ly/property.ly b/ly/property.ly
index d73cf04da2e219c1aabb20e9f89391363cef37a5..4ae2d3b4e2ab4c6a41fde1ea15e1106f6f8d2d1a 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -20,32 +20,43 @@ tieDown = \property Voice.Tie \override #'direction = #-1
 tieBoth = \property Voice.Tie \revert #'direction 
 
 cadenzaOn = \property Score.timing = ##f
-cadenzaOff = { \property Score.timing = ##t
-       \property Score.measurePosition = #(make-moment 0 1)
-       }
+cadenzaOff = {
+  \property Score.timing = ##t
+  \property Score.measurePosition = #(make-moment 0 1)
+}
 
        
 oneVoice = {   
-       \stemBoth
-       \tieBoth
-       \shiftOff
+  \stemBoth
+  \slurBoth
+  \tieBoth
+  \shiftOff
+}
+
+voiceOne = {
+  \stemUp
+  \slurUp
+  \tieUp
 }
 
-voiceOne = { \stemUp
-   \tieUp
+voiceTwo = {
+  \stemDown
+  \slurDown
+  \tieDown
 }
-voiceTwo = { \stemDown
-   \tieDown
-   }
    
 voiceThree = {
-       \stemUp
-       \shiftOn
+  \stemUp
+  \slurUp
+  \tieUp
+  \shiftOn
 }
 
 voiceFour = {
-       \stemDown
-       \shiftOn
+  \stemDown
+  \slurDown
+  \tieDown
+  \shiftOn
 }
 
 slurDotted = \property Voice.Slur \override #'dashed = #1