(voltaOnThisStaff): add

property.

diff --git a/ChangeLog b/ChangeLog
index 7ae4d0d5827912b746601f06ca98e3e6b520b83f..4ad20ba5cfd674440da954785a3e9441f2898f7b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-28  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * scm/translator-property-description.scm (voltaOnThisStaff): add
+       property.
+
 2002-09-28  Werner Lemberg  <wl@gnu.org>
 
        * scm/tex.scm (header-end): Suppress page numbering.
@@ -5,7 +10,6 @@
        * scripts/lilypond-book.py (output_dict) <output-texi-quoted>:
        Fix quotation for HTML output.
 
-
 2002-09-28   Graham Percival   <gperciva@sfu.ca>
        
        * Documentation/user/refman.itely: grammar and phrasing

diff --git a/lily/volta-engraver.cc b/lily/volta-engraver.cc
index 587a9e0981392cd8b6100914b6e12e67e8d9133d..40bf88f5576f593e9f388c9dde46b2f8633132ed 100644 (file)
--- a/lily/volta-engraver.cc
+++ b/lily/volta-engraver.cc
@@ -51,7 +51,8 @@ Volta_engraver::Volta_engraver ()
 void
 Volta_engraver::process_music ()
 {
-  if (unsmob_grob (staff_))
+  if (unsmob_grob (staff_)
+      && !to_boolean (get_property ("voltaOnThisStaff")))
     {
       /*
        TODO: this does weird things when you open a piece with a
@@ -212,5 +213,5 @@ ENTER_DESCRIPTION(Volta_engraver,
 /* descr */       "Make volta brackets",
 /* creats*/       "VoltaBracket",
 /* acks  */       "bar-line-interface staff-symbol-interface note-column-interface",
-/* reads */       "repeatCommands voltaSpannerDuration stavesFound",
+/* reads */       "repeatCommands voltaSpannerDuration stavesFound voltaOnThisStaff",
 /* write */       "");

diff --git a/scm/translator-property-description.scm b/scm/translator-property-description.scm
index 14043e67887dc946e054915799efcf8a6294d7a7..dcb07d5990595ba824b970371b68c4713fd8b1a1 100644 (file)
--- a/scm/translator-property-description.scm
+++ b/scm/translator-property-description.scm
@@ -390,6 +390,9 @@ context Voice       imes 2/3 @{
 procedure? "what callback to add to children of a vertical alignment.
 It determines what alignment procedure is used on the alignment
 itself.  .")
+(translator-property-description
+ 'voltaOnThisStaff boolean?
+ "Normally, volta brackets are put only on the topmost staff. Setting this variable to true, will force a bracket to be on this staff as well.")
 (translator-property-description 'voltaSpannerDuration moment? "maximum duration of the volta bracket.
 
     Set to a duration to control the size of the brackets printed by