Juergens patch.

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

diff --git a/ly/property-init.ly b/ly/property-init.ly
index ef50703f2faea65f381646cf16e75b6f0ee00391..6ff4c9ceba655ce6bc9ccb4e2153a064ab9a9b5a 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -1,6 +1,6 @@
 % property-init.ly
 
-\version "1.5.49"
+\version "1.7.3"
 
 stemUp = \property Voice.Stem \set #'direction = #1
 stemDown = \property Voice.Stem \set #'direction = #-1 
@@ -10,6 +10,10 @@ slurUp   = \property Voice.Slur \set #'direction = #1
 slurDown = \property Voice.Slur \set #'direction = #-1
 slurBoth = \property Voice.Slur \revert #'direction 
 
+phrasingSlurUp   = \property Voice.PhrasingSlur \set #'direction = #1
+phrasingSlurDown = \property Voice.PhrasingSlur \set #'direction = #-1
+phrasingSlurBoth = \property Voice.PhrasingSlur \revert #'direction 
+
 shiftOn  = \property Voice.NoteColumn \set #'horizontal-shift = #1
 shiftOnn  = \property Voice.NoteColumn \set #'horizontal-shift = #2
 shiftOnnn  = \property Voice.NoteColumn \set #'horizontal-shift = #3
@@ -62,20 +66,21 @@ tupletBoth = {
 
 
 
-cadenzaOn = \property Score.timing = ##f
+cadenzaOn = \property Timing.timing = ##f
 cadenzaOff = {
-  \property Score.timing = ##t
-  \property Score.measurePosition = #(make-moment 0 1)
+  \property Timing.timing = ##t
+  \property Timing.measurePosition = #(ly:make-moment 0 1)
 }
 
-newpage = {
+newpage = \notes
+{
   \break
   % urg, only works for TeX output
   \context Score \outputproperty #(make-type-checker 'paper-column-interface)
     #'between-system-string = #"\\newpage"
 }
 
-% dynamic dir?  text script, articulation script dir?  
+% dynamic ly:dir?  text script, articulation script ly:dir?    
 oneVoice = #(context-spec-music (make-voice-props-revert) "Voice")
 voiceOne = #(context-spec-music (make-voice-props-set 0) "Voice")
 voiceTwo = #(context-spec-music (make-voice-props-set 1) "Voice")
@@ -125,8 +130,6 @@ emptyText = \property Voice.TextScript \set #'no-spacing-rods  = ##t
 showStaffSwitch = \property Voice.followVoice = ##t
 hideStaffSwitch = \property Voice.followVoice = ##f
 
-% FIXME: Move this docu (to where?)
-
 % accidentals as they were common in the 18th century.
 defaultAccidentals = {
   \property Current.extraNatural = ##t
@@ -235,3 +238,8 @@ turnOff = #'()
 % cross-staff brackets are desired. 
 
 arpeggioBracket = #(lambda (grob) (Arpeggio::brew_chord_bracket grob))
+arpeggio = #(make-music-by-name 'ArpeggioEvent)
+glissando = #(make-music-by-name 'GlissandoEvent)
+
+setMmRestFermata =
+  \once \property Voice.MultiMeasureRestNumber \override #'text = #'(music "scripts-ufermata")