2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2014 Han-Wen <hanwen@lilypond.org>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "engraver.hh"
23 #include "pointer-group-interface.hh"
26 #include "translator.icc"
28 class Grace_spacing_engraver : public Engraver
30 TRANSLATOR_DECLARATIONS (Grace_spacing_engraver);
35 Spanner *grace_spacing_;
37 void process_music ();
38 void stop_translation_timestep ();
41 Grace_spacing_engraver::Grace_spacing_engraver ()
47 Grace_spacing_engraver::process_music ()
49 Moment now = now_mom ();
50 if (!last_moment_.grace_part_ and now.grace_part_)
52 grace_spacing_ = make_spanner ("GraceSpacing", SCM_EOL);
55 if (grace_spacing_ && (now.grace_part_ || last_moment_.grace_part_))
57 Grob *column = Grob::unsmob (get_property ("currentMusicalColumn"));
58 Pointer_group_interface::add_grob (grace_spacing_,
59 ly_symbol2scm ("columns"),
62 column->set_object ("grace-spacing", grace_spacing_->self_scm ());
64 if (!grace_spacing_->get_bound (LEFT))
65 grace_spacing_->set_bound (LEFT, column);
67 grace_spacing_->set_bound (RIGHT, column);
72 Grace_spacing_engraver::stop_translation_timestep ()
74 last_moment_ = now_mom ();
76 if (!last_moment_.grace_part_)
80 ADD_TRANSLATOR (Grace_spacing_engraver,
81 "Bookkeeping of shortest starting and playing notes in grace"
88 "currentMusicalColumn ",