release: 1.3.90

[lilypond.git] / ly / property.ly

diff --git a/ly/property.ly b/ly/property.ly
index b3fd74191a714f715d4d72e41b3949d842162d3e..0ac31ec8c632622e91d65a7790decad9f36447a4 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -8,15 +8,18 @@ SEE THE REFERENCE MANUAL FOR EXPLANATIONS.
 
 %}
 
-\version "1.3.42";
+\version "1.3.59";
 
-%hmm, (these) abbrevs suck, imo
-% i guess they're meant as some form of doco
-% that's what i use them for...
 
+%{
 stemup =        \property Voice.verticalDirection = \up 
 stemboth=      \property Voice.verticalDirection = \center
 stemdown =     \property Voice.verticalDirection = \down
+%}
+
+stemup = \property Voice.basicStemProperties \push #'direction = #1
+stemdown = \property Voice.basicStemProperties \push #'direction = #-1 
+stemboth= \property basicStemProperties \pop #'direction
 
 slurup   = \property Voice.slurVerticalDirection = \up 
 slurboth = \property Voice.slurVerticalDirection = \center