]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/property.ly
release: 1.3.93
[lilypond.git] / ly / property.ly
index ede2be764d2ccc63cefaf0aad3353366c142114b..3c255916de52bab875babfb4dff7bdeadf54bc32 100644 (file)
 % property.ly
-% list of properties that lily recognises
-% and some shorthands (ugh)
 
-%{
+\version "1.3.59";
 
-SEE THE REFERENCE MANUAL FOR EXPLANATIONS.
+stemup = \property Voice.basicStemProperties \push #'direction = #1
+stemdown = \property Voice.basicStemProperties \push #'direction = #-1 
+stemboth= \property basicStemProperties \pop #'direction
 
-%}
+slurup   = \property Voice.basicSlurProperties \push #'direction = #1
+slurboth = \property basicSlurProperties \pop #'direction 
+slurdown = \property Voice.basicSlurProperties \push #'direction = #-1
+shifton  = \property Voice.basicNoteColumnProperties \push #'horizontal-shift = #1
+shiftonn  = \property Voice.basicNoteColumnProperties \push #'horizontal-shift = #2
+shiftonnn  = \property Voice.basicNoteColumnProperties \push #'horizontal-shift = #3
+shiftoff  = \property basicNoteColumnProperties \pop #'horizontal-shift 
 
-\version "1.0.20";
 
-%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
+tieUp = \property Voice.basicTieProperties \push #'direction = #1
+tieDown = \property Voice.basicTieProperties \push #'direction = #-1
+tieBoth = \property basicTieProperties \pop #'direction 
 
-slurup = \notes {
-       s1*0
-       \property Voice.slurVerticalDirection = \up 
+cadenzaOn = \property Score.timing = ##f
+cadenzaOff = { \property Score.timing = ##t
+       \property Score.measurePosition = #(make-moment 0 1)
        }
-slurboth= \notes {
-       s1*0
-       \property Voice.slurVerticalDirection = \center
-}
-slurdown = \notes {    
-       s1*0
-       \property Voice.slurVerticalDirection = \down
-}
-
-shifton =      \property Voice.hshift = 1
-shiftoff =     \property Voice.hshift = 0
 
+       
 onevoice = {   
-       \stemboth \shiftoff     
+       \stemboth
+       \tieBoth
 }
 
-voiceone = 
-       \context Voice = one  {
-       \stemup
+voiceone = { \stemup
+   \tieUp
 }
-
-voicetwo = 
-       \context Voice = two {
-       \stemdown
-}
-
-voicethree = 
-       \context Voice = three {
+voicetwo = { \stemdown
+   \tieDown
+   }
+   
+voicethree = {
        \stemup
-
+       \shifton
 }
 
-voicefour = 
-       \context Voice = four {
+voicefour = {
        \stemdown
        \shifton
 }
 
-onestaff = 
-       \translator Staff=one
-
-
-staffone = {   
-       \translator Staff=one
-       \property Staff.verticalDirection = \center
-       \property Staff.hshift = 0
-}
-
-stafftwo = {   
-       \translator Staff=two
-       \property Staff.verticalDirection = \center
-       \property Staff.hshift = 0
-}
-
-staffthree = {         
-       \translator Staff=three
-       \property Staff.verticalDirection = \center
-       \property Staff.hshift = 0
-}
-
-stafffour = {  
-       \translator Staff=four
-       \property Staff.verticalDirection = \center
-       \property Staff.hshift = 0
-}
-
 % ugh, cluttering global namespace...
 
 % ugh2. 
-none=0
-free=0
-normal=1
-traditional=2
 infinity=10000
-
-beamslopeproportional = 
-       \property Score.beamslopedamping = \none
-
-beamslopedamped = 
-       \property Score.beamslopedamping = \normal
-
-
-beamslopezero = 
-       \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
-
-
-beamposnormal = 
-       \property Score.beamquantisation = \normal
-
-
-beampostraditional = 
-       \property Score.beamquantisation = \traditional
-
+%{
 
 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 =
+       \property Voice.tupletVisibility = 0
+
+tupleton = 
+       \property Voice.tupletVisibility = 3
 %}
-pletoff = {
-       \property Voice.pletvisibility = 0
-}
-pleton = {
-       \property Voice.pletvisibility = 3
-}
-tiny  = {
-       \property Voice.fontSize= "-2"
-       \pletoff %urg
-}
 
-small  = {
-       \property Voice.fontSize= "-1"
-}
+       
+tiny  = 
+       \property Voice.fontSize= -2
 
-normalsize = {
-       \property Voice.fontSize= "0"
-       \pleton %urg
-}
 
-%{
-  [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.:
-
-  \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.pletvisibility = 0
-       \[1/16
-}
+small  = 
+       \property Voice.fontSize= -1
 
-graceat = \melodic {
-       \normalsize
-       \property Voice.pletvisibility = 0
-       \] \[31/32
-}
 
-ecarg =  \melodic {
-       \property Voice.pletvisibility = 0
-       \]
-       \property Voice.pletvisibility = 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
+