2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1999--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
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/>.
19 #include "engraver.hh"
20 #include "protected-scm.hh"
21 #include "break-align-interface.hh"
22 #include "align-interface.hh"
23 #include "axis-group-interface.hh"
25 #include "translator-group.hh"
28 #include "translator.icc"
30 class Break_align_engraver
: public Engraver
36 void add_to_group (SCM
, Item
*);
37 void create_alignment (Grob_info
);
39 void stop_translation_timestep ();
40 virtual void derived_mark () const;
42 TRANSLATOR_DECLARATIONS (Break_align_engraver
);
43 DECLARE_ACKNOWLEDGER (break_aligned
);
44 DECLARE_ACKNOWLEDGER (break_alignable
);
48 Break_align_engraver::stop_translation_timestep ()
50 column_alist_
= SCM_EOL
;
56 Break_align_engraver::Break_align_engraver ()
58 column_alist_
= SCM_EOL
;
64 Break_align_engraver::derived_mark () const
66 scm_gc_mark (column_alist_
);
70 Break_align_engraver::acknowledge_break_alignable (Grob_info inf
)
73 create_alignment (inf
);
75 Grob
*g
= inf
.grob ();
77 if (!g
->get_parent (X_AXIS
))
78 g
->set_parent (align_
, X_AXIS
);
82 Break_align_engraver::acknowledge_break_aligned (Grob_info inf
)
84 if (Item
*item
= dynamic_cast<Item
*> (inf
.grob ()))
87 Removed check for item->empty (X_AXIS). --hwn 20/1/04
89 if (item
->get_parent (X_AXIS
))
92 if (!Item::is_non_musical (item
))
95 SCM align_name
= item
->get_property ("break-align-symbol");
96 if (!scm_is_symbol (align_name
))
100 create_alignment (inf
);
102 add_to_group (align_name
, item
);
107 Break_align_engraver::create_alignment (Grob_info inf
)
109 align_
= make_item ("BreakAlignment", SCM_EOL
);
111 Context
*origin
= inf
.origin_contexts (this)[0];
113 Translator_group
*tg
= origin
->implementation ();
114 Engraver
*random_source
= dynamic_cast<Engraver
*> (unsmob_translator (scm_car (tg
->get_simple_trans_list ())));
116 random_source
= this;
119 Make left edge appear to come from same context as clef/bar-line etc.
121 left_edge_
= random_source
->make_item ("LeftEdge", SCM_EOL
);
122 add_to_group (left_edge_
->get_property ("break-align-symbol"),
127 Break_align_engraver::add_to_group (SCM align_name
, Item
*item
)
129 SCM s
= scm_assoc (align_name
, column_alist_
);
134 Grob
*e
= unsmob_grob (scm_cdr (s
));
135 group
= dynamic_cast<Item
*> (e
);
139 group
= make_item ("BreakAlignGroup", item
->self_scm ());
141 group
->set_property ("break-align-symbol", align_name
);
142 group
->set_parent (align_
, Y_AXIS
);
144 column_alist_
= scm_assoc_set_x (column_alist_
, align_name
, group
->self_scm ());
146 Break_alignment_interface::add_element (align_
, group
);
148 Axis_group_interface::add_element (group
, item
);
151 ADD_ACKNOWLEDGER (Break_align_engraver
, break_aligned
);
152 ADD_ACKNOWLEDGER (Break_align_engraver
, break_alignable
);
153 ADD_TRANSLATOR (Break_align_engraver
,
155 "Align grobs with corresponding @code{break-align-symbols}"
156 " into groups, and order the groups according to"
157 " @code{breakAlignOrder}. The left edge of the alignment gets"
158 " a separate group, with a symbol @code{left-edge}.",