input/test/script-priority.ly: New file.

[lilypond.git] / lily / fingering-engraver.cc

diff --git a/lily/fingering-engraver.cc b/lily/fingering-engraver.cc
index 841673358ec7bd05652884b3584131553647f370..e5df1718f5b6faf604279287f45a84e6d03e521a 100644 (file)
--- a/lily/fingering-engraver.cc
+++ b/lily/fingering-engraver.cc
@@ -185,8 +185,17 @@ Fingering_engraver::make_script (Direction d, Music *r,Axis a,  int i)
       
   fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
   fingering->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, other);
-  fingering->set_grob_property ("script-priority",
-                               gh_int2scm (100 + d* i));
+
+  // Hmm
+  int priority = 200;
+  SCM s = fingering->get_grob_property ("script-priority");
+  if (gh_number_p (s))
+    priority = gh_scm2int (s);
+  
+  /* Make sure they're in order of user input by adding index i. */
+  priority += d*i;
+
+  fingering->set_grob_property ("script-priority", gh_int2scm (priority));
 
 
   if (!ly_dir_p (fingering->get_grob_property ("direction")))