From cfe2e355b0630322f7d2f43934243af63844268f Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Thu, 17 May 2012 08:00:22 +0200 Subject: [PATCH] Adds Flags to stem support for scripts --- input/regression/fingering-flag.ly | 11 +++++++++++ lily/new-fingering-engraver.cc | 6 +++++- 2 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 input/regression/fingering-flag.ly diff --git a/input/regression/fingering-flag.ly b/input/regression/fingering-flag.ly new file mode 100644 index 0000000000..34a44f31bb --- /dev/null +++ b/input/regression/fingering-flag.ly @@ -0,0 +1,11 @@ +\version "2.15.37" + +\header { + texidoc = "Horizontal fingerings avoid flags. +" +} + +\relative c' { + \set fingeringOrientations = #'(right) + 8 +} diff --git a/lily/new-fingering-engraver.cc b/lily/new-fingering-engraver.cc index 0ad31ec126..574591a23e 100644 --- a/lily/new-fingering-engraver.cc +++ b/lily/new-fingering-engraver.cc @@ -195,7 +195,11 @@ New_fingering_engraver::position_scripts (SCM orientations, { for (vsize i = 0; i < scripts->size (); i++) if (stem_ && to_boolean (scripts->at (i).script_->get_property ("add-stem-support"))) - Side_position_interface::add_support (scripts->at (i).script_, stem_); + { + Side_position_interface::add_support (scripts->at (i).script_, stem_); + if (Grob *flag = unsmob_grob (stem_->get_object ("flag"))) + Side_position_interface::add_support (scripts->at (i).script_, flag); + } /* This is not extremely elegant, but we have to do a little -- 2.39.2