From: Neil Puttock <n.puttock@gmail.com>
Date: Sat, 18 Oct 2008 19:48:50 +0000 (+0100)
Subject: new-fingering-engraver.cc: get 'script-priority from grobs, if set.
X-Git-Tag: release/2.11.63-1~27^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=acd0614f91b7cf62911d557768a832a81c871d50;p=lilypond.git

new-fingering-engraver.cc: get 'script-priority from grobs, if set.
---

diff --git a/lily/new-fingering-engraver.cc b/lily/new-fingering-engraver.cc
index 2749d5cb3f..71e8d99408 100644
--- a/lily/new-fingering-engraver.cc
+++ b/lily/new-fingering-engraver.cc
@@ -262,8 +262,6 @@ New_fingering_engraver::position_scripts (SCM orientations,
       f->set_property ("direction", scm_from_int (hordir));
     }
 
-  int finger_prio = 200;
-
   Direction d = DOWN;
   Drul_array< vector<Finger_tuple> > vertical (down, up);
   do
@@ -272,6 +270,7 @@ New_fingering_engraver::position_scripts (SCM orientations,
 	{
 	  Finger_tuple ft = vertical[d][i];
 	  Grob *f = ft.script_;
+	  int finger_prio = robust_scm2int (f->get_property ("script-priority"), 200);
 	  f->set_parent (ft.head_, X_AXIS);
 	  f->set_property ("script-priority",
 			   scm_from_int (finger_prio + d * ft.position_));