release: 1.3.90

[lilypond.git] / ly / property.ly

diff --git a/ly/property.ly b/ly/property.ly
index 8fe96e79a81f541b627aa6f545a92f04f84bdf10..0ac31ec8c632622e91d65a7790decad9f36447a4 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -8,15 +8,18 @@ SEE THE REFERENCE MANUAL FOR EXPLANATIONS.
 
 %}
 
-\version "1.3.4";
+\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
@@ -77,7 +80,7 @@ beampostraditional =
 
 
 slurnormal = 
-       \property Voice.slurDash = ""
+       \property Voice.slurDash = ##f
 
 
 slurdotted =                           
@@ -103,24 +106,24 @@ normalsize = {
 }
 
 normalkey = {
-       \property Staff.keyOctaviation = 1
+       \property Staff.keyOctaviation = ##f
 }
 
 specialkey = {
-       \property Staff.keyOctaviation = 0
+       \property Staff.keyOctaviation = ##t
 }
 
 % End the incipit and print a ``normal line start''.
 endincipit = \notes{
     \partial 16; s16  % Hack to handle e.g. \bar ".|"; \endincipit
     \property Staff.clefStyle = #"fullSizeChanges" 
-    \nobreak \bar "";
+    \bar "";
 }
 
 autoBeamOff = \property Voice.noAutoBeaming = ##t
 autoBeamOn = \property Voice.noAutoBeaming = ##f
 
 
-emptyText = \property Voice.textEmptyDimension = ##t
-fatText = \property Voice.textEmptyDimension = ##f
+emptyText = \property Voice.textNonEmpty = ##f
+fatText = \property Voice.textNonEmpty = ##t