patch::: 1.4.1.jcn2

[lilypond.git] / ly / property.ly

diff --git a/ly/property.ly b/ly/property.ly
index 5fa998727dd151daa881e4560c1ef6490d3e21c6..1ebe98c91876529c64a9cd37f12cfd44ad48d666 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -44,6 +44,20 @@ scriptBoth = {
   \property Voice.Script \revert #'direction
 }
 
+tupletUp  = {
+  \property Voice.TupletBracket \override #'direction = #1
+  \property Voice.TupletBracket \override #'direction = #1
+}
+tupletDown = {
+  \property Voice.TupletBracket \override #'direction = #-1
+  \property Voice.TupletBracket \override #'direction = #-1
+}
+tupletBoth = {
+  \property Voice.TupletBracket \revert #'direction
+  \property Voice.TupletBracket \revert #'direction
+}
+
+
 
 cadenzaOn = \property Score.timing = ##f
 cadenzaOff = {
@@ -51,6 +65,13 @@ cadenzaOff = {
   \property Score.measurePosition = #(make-moment 0 1)
 }
 
+newpage = {
+  \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?  
 oneVoice = {   
   \stemBoth