From 721ccbad00c4d44a552942270f54177a0c7eb78e Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Thu, 16 Apr 2009 21:17:08 +0100 Subject: [PATCH] Fix #328: Add dots to support of RH fingerings, if found. --- input/regression/finger-chords-dot.ly | 10 ++++++++++ lily/new-fingering-engraver.cc | 3 +++ 2 files changed, 13 insertions(+) create mode 100644 input/regression/finger-chords-dot.ly diff --git a/input/regression/finger-chords-dot.ly b/input/regression/finger-chords-dot.ly new file mode 100644 index 0000000000..d54e97c2b4 --- /dev/null +++ b/input/regression/finger-chords-dot.ly @@ -0,0 +1,10 @@ +\version "2.13.1" + +\header { + texidoc = "Scripts right of a chord avoid dots." +} + +\relative c' { + \set fingeringOrientations = #'(right) + 4.. 4. r8. +} diff --git a/lily/new-fingering-engraver.cc b/lily/new-fingering-engraver.cc index 1cd7cd10e2..8c249e4fab 100644 --- a/lily/new-fingering-engraver.cc +++ b/lily/new-fingering-engraver.cc @@ -252,6 +252,9 @@ New_fingering_engraver::position_scripts (SCM orientations, && unsmob_grob (ft.head_->get_object ("accidental-grob"))) Side_position_interface::add_support (f, unsmob_grob (ft.head_->get_object ("accidental-grob"))); + else if (unsmob_grob (ft.head_->get_object ("dot"))) + Side_position_interface::add_support (f, + unsmob_grob (ft.head_->get_object ("dot"))); Self_alignment_interface::set_align_self (f, Y_AXIS); Self_alignment_interface::set_center_parent (f, Y_AXIS); -- 2.11.4.GIT