*** empty log message ***

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 8103849c651182dbb38f6d082dcae74efd01dcc8..49d6004b50371c9c2b66d914dada46d1cea72c0b 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -11,8 +11,18 @@ slurDown = \override Slur  #'direction = #-1
 slurNeutral = \revert Slur #'direction 
 
 % There's also dash, but setting dash period/length should be fixed.
-slurDotted = \override Slur  #'dashed = #1
-slurSolid = \revert Slur #'dashed
+slurDashed = {
+       \override Slur #'dash-period = #0.75
+       \override Slur #'dash-fraction = #0.4
+}
+slurDotted = {
+       \override Slur  #'dash-period = #0.75
+       \override Slur #'dash-fraction = #0.1
+}
+slurSolid = {
+       \revert Slur #'dash-period
+       \revert Slur #'dash-fraction
+}
 
 
 phrasingSlurUp = \override PhrasingSlur  #'direction = #1
@@ -166,7 +176,15 @@ semiGermanChords = {
     \set chordNoteNamer = #note-name->german-markup
 }
 
+frenchChords = {
+    \set chordRootNamer = #(chord-name->italian-markup #t)
+    \set chordPrefixSpacer = #0.4
+}
 
+italianChords = {
+    \set chordRootNamer = #(chord-name->italian-markup #f)
+    \set chordPrefixSpacer = #0.4
+}
 
 improvisationOn =  {
     \set squashedPosition = #0
@@ -177,3 +195,8 @@ improvisationOff =  {
     \unset squashedPosition 
     \revert NoteHead #'style
 }
+
+textSpannerUp = \override TextSpanner #'direction = #1
+textSpannerDown = \override TextSpanner #'direction = #-1
+textSpannerNeutral = \revert TextSpanner #'direction
+