2 separation-item.cc -- implement Separation_item
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "separation-item.hh"
12 #include "paper-column.hh"
14 #include "group-interface.hh"
15 #include "accidental-placement.hh"
18 Separation_item::add_item (Grob*s, Item* i)
21 Pointer_group_interface::add_grob (s, ly_symbol2scm ("elements"), i);
22 s->add_dependency (i);
26 Separation_item::add_conditional_item (Grob* me , Grob *e)
28 Pointer_group_interface::add_grob (me, ly_symbol2scm ("conditional-elements"), e);
32 Return the width of ME given that we are considering the object on
36 Separation_item::conditional_width (Grob * me, Grob * left)
38 Interval w = width (me);
40 Item *item = dynamic_cast<Item*> (me);
41 Paper_column * pc = item->get_column ();
44 for (SCM s = me->get_property ("conditional-elements"); scm_is_pair (s); s = scm_cdr (s))
46 SCM elt = scm_car (s);
47 if (!unsmob_grob (elt))
50 Item *il = unsmob_item (elt);
51 if (pc != il->get_column ())
53 /* this shouldn't happen, but let's continue anyway. */
54 programming_error (_ ("Separation_item: I've been drinking too much"));
58 if (to_boolean (il->get_property ("no-spacing-rods")))
63 if (Accidental_placement::has_interface (il))
65 w.unite (Accidental_placement::get_relevant_accidental_extent (il, pc, left));
69 SCM pad = me->get_property ("padding");
71 w.widen (robust_scm2double (pad, 0.0));
76 Separation_item::width (Grob *me)
78 SCM sw = me->get_property ("X-extent");
79 if (is_number_pair (sw))
81 return ly_scm2interval (sw);
84 Item *item = dynamic_cast<Item*> (me);
85 Paper_column * pc = item->get_column ();
88 for (SCM s = me->get_property ("elements"); scm_is_pair (s); s = scm_cdr (s))
90 SCM elt = scm_car (s);
91 if (!unsmob_grob (elt))
94 Item *il = unsmob_item (elt);
95 if (pc != il->get_column ())
97 /* this shouldn't happen, but let's continue anyway. */
98 programming_error (_ ("Separation_item: I've been drinking too much"));
102 if (to_boolean (il->get_property ("no-spacing-rods")))
107 Interval iv (il->extent (pc, X_AXIS));
114 SCM pad = me->get_property ("padding");
116 w.widen (robust_scm2double (pad, 0.0));
118 me->set_property ("X-extent", ly_interval2scm (w));
124 Separation_item::relative_width (Grob * me, Grob * common)
126 Interval iv = width (me);
128 return dynamic_cast<Item*>(me)->get_column ()->relative_coordinate (common, X_AXIS) + iv ;
133 Try to find the break-aligned symbol in SEPARATION_ITEM that is
134 sticking out at direction D. The x size is put in LAST_EXT
137 Separation_item::extremal_break_aligned_grob (Grob *separation_item, Direction d,
140 Grob *col = dynamic_cast<Item*> (separation_item)->get_column ();
141 last_ext->set_empty ();
143 for (SCM s = separation_item->get_property ("elements");
144 scm_is_pair (s); s = scm_cdr (s))
146 Grob * break_item = unsmob_grob (scm_car (s));
148 if (!scm_is_symbol (break_item->get_property ("break-align-symbol")))
151 Interval ext = break_item->extent (col, X_AXIS);
156 || (last_grob && d * (ext[d]- (*last_ext)[d]) > 0) )
159 last_grob = break_item;
170 ADD_INTERFACE (Separation_item, "separation-item-interface",
171 "Item that computes widths to generate spacing rods. "
172 "This is done in concert with @ref{separation-spanner-interface}."
176 "padding X-extent conditional-elements elements");