From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 28 Sep 2002 18:28:06 +0000 (+0000)
Subject: (voltaOnThisStaff): add
X-Git-Tag: release/1.6.5~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=845725d22e0dc8991406f1af912823ec87814567;p=lilypond.git

(voltaOnThisStaff): add
property.
---

diff --git a/ChangeLog b/ChangeLog
index 7ae4d0d582..4ad20ba5cf 100644
--- 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 587a9e0981..40bf88f557 100644
--- 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 14043e6788..dcb07d5990 100644
--- 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