2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2012 Mike Solomon <mike@mikesolomon.org>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "directional-element-interface.hh"
22 #include "fingering-column.hh"
23 #include "pointer-group-interface.hh"
24 #include "staff-symbol-referencer.hh"
26 #include "paper-column.hh"
32 struct Fingering_and_offset
36 Fingering_and_offset (Grob *fingering, Real offset);
39 Fingering_and_offset::Fingering_and_offset (Grob *fingering, Real offset) :
40 fingering_ (fingering), offset_ (offset)
45 fingering_and_offset_less (Fingering_and_offset fo0, Fingering_and_offset fo1)
47 return fo0.offset_ < fo1.offset_;
50 MAKE_SCHEME_CALLBACK (Fingering_column, calc_positioning_done, 1);
52 Fingering_column::calc_positioning_done (SCM smob)
54 Grob *me = unsmob<Grob> (smob);
58 me->set_property ("positioning-done", SCM_BOOL_T);
60 do_y_positioning (me);
61 do_x_positioning (me);
67 Fingering_column::do_y_positioning (Grob *me)
69 extract_grob_set (me, "fingerings", const_fingerings);
71 if (const_fingerings.size () < 2)
73 me->programming_error ("This FingeringColumn should have never been created.");
77 vector<Grob *> fingerings;
78 for (vsize i = 0; i < const_fingerings.size (); i++)
79 fingerings.push_back (const_fingerings[i]);
82 Grob *common[2] = {common_refpoint_of_array (fingerings, me, X_AXIS),
83 common_refpoint_of_array (fingerings, me, Y_AXIS)};
85 Real padding = robust_scm2double (me->get_property ("padding"), 0.2);
87 // order the fingerings from bottom to top
88 vector_sort (fingerings, pure_position_less);
90 vector<Real> shift(fingerings.size());
92 // Try stacking the fingerings top-to-bottom, and then bottom-to-top.
93 // Use the average of the resulting stacked locations as the final positions
96 Real stack_end = -d * infinity_f;
98 for (vsize i = (d == UP)? 0 : fingerings.size() - 1;
99 i < fingerings.size ();
102 Interval x_ext = fingerings[i]->extent(common[X_AXIS], X_AXIS);
103 Interval y_ext = fingerings[i]->extent(fingerings[i], Y_AXIS);
104 Real parent_y = fingerings[i]->get_parent(Y_AXIS)
105 ->relative_coordinate(common[Y_AXIS], Y_AXIS);
107 // Checking only between sequential neighbors, seems good enough
108 if (!intersection(x_ext, prev_x_ext).is_empty())
109 stack_end += d * (y_ext.length() + padding);
110 // minmax() returns whichever is further along in direction d
111 stack_end = minmax(d, stack_end, parent_y);
113 shift[i] += 0.5 * (stack_end - y_ext[d] - parent_y);
119 for (vsize i = 0; i < fingerings.size (); i++)
120 fingerings[i]->translate_axis(shift[i], Y_AXIS);
124 Fingering_column::do_x_positioning (Grob *me)
126 extract_grob_set (me, "fingerings", fingerings);
127 if (!fingerings.size ())
130 Grob *common_x = common_refpoint_of_array (fingerings, me, X_AXIS);
132 Real snap = robust_scm2double (me->get_property ("snap-radius"), 0.3);
133 vector<Fingering_and_offset> fos;
135 for (vsize i = 0; i < fingerings.size (); i++)
136 fos.push_back (Fingering_and_offset (fingerings[i], fingerings[i]->relative_coordinate (common_x, X_AXIS)));
138 vector_sort (fos, fingering_and_offset_less);
139 Direction dir = get_grob_direction (fingerings[0]);
143 Real prev = infinity_f * dir;
144 for (vsize i = 0; i < fos.size (); i++)
146 if ((fabs (fos[i].offset_ - prev) < snap)
147 && (fabs (fos[i].offset_ - prev) > EPS))
148 fos[i].offset_ = prev;
150 prev = fos[i].offset_;
153 for (vsize i = 0; i < fos.size (); i++)
154 fos[i].fingering_->translate_axis (fos[i].offset_ - fos[i].fingering_->relative_coordinate (common_x, X_AXIS), X_AXIS);
158 Fingering_column::add_fingering (Grob *fc, Grob *f)
160 Pointer_group_interface::add_grob (fc, ly_symbol2scm ("fingerings"), f);
161 f->set_parent (fc, X_AXIS);
162 f->set_property ("Y-offset", Grob::x_parent_positioning_proc);
165 ADD_INTERFACE (Fingering_column,
166 "Makes sure that fingerings placed laterally"
167 " do not collide and that they are flush if"