release: 1.3.90

[lilypond.git] / ly / property.ly

diff --git a/ly/property.ly b/ly/property.ly
index 4ecbd24678f563d1f730f9c07639d9c85cf2ec8e..0ac31ec8c632622e91d65a7790decad9f36447a4 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -8,164 +8,122 @@ SEE THE REFERENCE MANUAL FOR EXPLANATIONS.
 
 %}
 
-\version "1.1.52";
+\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
+%}
 
-slurup = \notes {
-       s1*0
-       \property Voice.slurVerticalDirection = \up 
-       }
-slurboth= \notes {
-       s1*0
-       \property Voice.slurVerticalDirection = \center
-}
-slurdown = \notes {    
-       s1*0
-       \property Voice.slurVerticalDirection = \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
+slurdown = \property Voice.slurVerticalDirection = \down
+shifton  = \property Voice.horizontalNoteShift = #1
+shiftoff = \property Voice.horizontalNoteShift = #0
 
-shifton = \property Voice.horizontalNoteShift = 1
-shiftoff = \property Voice.horizontalNoteShift = 0
+cadenzaOn = \property Score.timing = ##f
+cadenzaOff = { \property Score.timing = ##t
+       \property Score.measurePosition = #(make-moment 0 1)
+       }
 
+       
 onevoice = {   
        \stemboth \shiftoff     
 }
 
-voiceone = 
-       \context Voice = one  {
-       \stemup
-}
-
-voicetwo = 
-       \context Voice = two {
-       \stemdown
-}
-
-voicethree = 
-       \context Voice = three {
+voiceone = \stemup
+voicetwo = \stemdown
+voicethree = {
        \stemup
-
+       \shifton
 }
 
-voicefour = 
-       \context Voice = four {
+voicefour = {
        \stemdown
        \shifton
 }
 
-
 % ugh, cluttering global namespace...
 
 % ugh2. 
-none=0
-free=0
-normal=1
-traditional=2
 infinity=10000
 
 beamslopeproportional = 
-       \property Score.beamslopedamping = \none
+       \property Score.beamSlopedamping = 0
 
 beamslopedamped = 
-       \property Score.beamslopedamping = \normal
+       \property Score.beamSlopedamping = 1
 
 
 beamslopezero = 
-       \property Score.beamslopedamping = \infinity
+       \property Score.beamSlopedamping = \infinity
 
 
 % this sucks, you'd want to pass an array, at least
 % (or embedded code: you still can't dictate the slope / stemlength)
 beamposfree = 
-       \property Score.beamquantisation = \none
+       \property Score.beamQuantisation = 0
 
 
 beamposnormal = 
-       \property Score.beamquantisation = \normal
+       \property Score.beamQuantisation = 1
 
 
 beampostraditional = 
-       \property Score.beamquantisation = \traditional
+       \property Score.beamQuantisation = 2
 
 
 slurnormal = 
-       \property Voice.slurdash = ""
+       \property Voice.slurDash = ##f
 
 
-slurdotted = 
-       \property Voice.slurdash = 1
+slurdotted =                           
+       \property Voice.slurDash = 1
 
 
-%{
- for grace note hack, see input/test/grace.ly
-%}
-tupletoff = {
+tupletoff =
        \property Voice.tupletVisibility = 0
-}
-tupleton = {
-       \property Voice.tupletVisibility = 3
-}
-tiny  = {
-       \property Voice.fontSize= "-2"
-       \tupletoff %urg
-}
-
-small  = {
-       \property Voice.fontSize= "-1"
-}
 
-normalsize = {
-       \property Voice.fontSize= "0"
-       \tupleton %urg
-}
+tupleton = 
+       \property Voice.tupletVisibility = 3
 
-%{
-  [urg: try at] temporary grace note hack
-  the total visible duration of the grace notes must be half
-  the duration of the 'at' note: e.g.:
+tiny  = 
+       \property Voice.fontSize= -2
 
-  \grace b8 \graceat c4 \ecarg
-  \grace c16 b16 \graceat c4 \ecarg
 
-grace = {
-       \tiny
-% it would be so cool not to have to specify these factors each time...
-% :-(
-       \property Voice.tupletVisibility = 0
-       \[1/16
-}
+small  = 
+       \property Voice.fontSize= -1
 
-graceat = \melodic {
-       \normalsize
-       \property Voice.tupletVisibility = 0
-       \] \[31/32
-}
 
-ecarg =  \melodic {
-       \property Voice.tupletVisibility = 0
-       \]
-       \property Voice.tupletVisibility = 3
+normalsize = {
+       \property Voice.fontSize= 0
 }
-%}
 
 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 "";
+    \property Staff.clefStyle = #"fullSizeChanges" 
+    \bar "";
 }
 
+autoBeamOff = \property Voice.noAutoBeaming = ##t
+autoBeamOn = \property Voice.noAutoBeaming = ##f
+
+
+emptyText = \property Voice.textNonEmpty = ##f
+fatText = \property Voice.textNonEmpty = ##t
+