2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2015 Han-Wen Nienhuys <hanwen@lilypond.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 "engraver.hh"
22 #include "grob-array.hh"
25 #include "pointer-group-interface.hh"
29 #include "translator.icc"
33 class Note_spacing_engraver : public Engraver
35 typedef map <Context *, Grob *> Last_spacing_map;
36 Last_spacing_map last_spacings_;
41 void add_spacing_item (Grob *);
42 TRANSLATOR_DECLARATIONS (Note_spacing_engraver);
45 DECLARE_ACKNOWLEDGER (rhythmic_grob);
46 DECLARE_ACKNOWLEDGER (note_column);
47 void stop_translation_timestep ();
48 virtual void finalize ();
49 virtual void derived_mark () const;
53 Note_spacing_engraver::derived_mark () const
55 for (Last_spacing_map::const_iterator i = last_spacings_.begin ();
56 i != last_spacings_.end (); i++)
57 scm_gc_mark (i->first->self_scm ());
60 Note_spacing_engraver::Note_spacing_engraver ()
67 Note_spacing_engraver::add_spacing_item (Grob *g)
71 spacing_ = make_item ("NoteSpacing", g->self_scm ());
76 Pointer_group_interface::add_grob (spacing_,
77 ly_symbol2scm ("left-items"),
81 Pointer_group_interface::add_grob (last_spacing_,
82 ly_symbol2scm ("right-items"),
88 Note_spacing_engraver::acknowledge_note_column (Grob_info gi)
90 add_spacing_item (gi.grob ());
94 Note_spacing_engraver::acknowledge_rhythmic_grob (Grob_info gi)
96 add_spacing_item (gi.grob ());
100 Note_spacing_engraver::finalize ()
102 Context *parent = context ()->get_parent_context ();
103 Grob *last_spacing = last_spacings_[parent];
106 && !unsmob<Grob_array> (last_spacing->get_object ("right-items")))
108 Grob *col = unsmob<Grob> (get_property ("currentCommandColumn"));
110 Pointer_group_interface::add_grob (last_spacing,
111 ly_symbol2scm ("right-items"),
117 Note_spacing_engraver::stop_translation_timestep ()
119 Context *parent = context ()->get_parent_context ();
120 Grob *last_spacing = last_spacings_[parent];
123 && to_boolean (get_property ("hasStaffSpacing")))
125 Grob *col = unsmob<Grob> (get_property ("currentCommandColumn"));
126 Pointer_group_interface::add_grob (last_spacing,
127 ly_symbol2scm ("right-items"),
133 last_spacings_[parent] = spacing_;
134 last_spacing_ = spacing_;
140 ADD_ACKNOWLEDGER (Note_spacing_engraver, note_column);
141 ADD_ACKNOWLEDGER (Note_spacing_engraver, rhythmic_grob);
143 ADD_TRANSLATOR (Note_spacing_engraver,
145 "Generate @code{NoteSpacing}, an object linking horizontal"
146 " lines for use in spacing.",