2 note-column.cc -- implement Note_column
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "note-column.hh"
11 #include <cmath> // ceil
14 #include "accidental-placement.hh"
15 #include "axis-group-interface.hh"
16 #include "directional-element-interface.hh"
17 #include "international.hh"
19 #include "note-head.hh"
20 #include "output-def.hh"
21 #include "pointer-group-interface.hh"
23 #include "staff-symbol-referencer.hh"
28 TODO: figure out if we can prune this class. This is just an
29 annoying layer between (rest)collision & (note-head + stem)
33 Note_column::has_rests (Grob
*me
)
35 return unsmob_grob (me
->get_object ("rest"));
39 Note_column::shift_less (Grob
*const &p1
, Grob
*const &p2
)
41 SCM s1
= p1
->get_property ("horizontal-shift");
42 SCM s2
= p2
->get_property ("horizontal-shift");
44 int h1
= (scm_is_number (s1
)) ? scm_to_int (s1
) : 0;
45 int h2
= (scm_is_number (s2
)) ? scm_to_int (s2
) : 0;
50 Note_column::get_stem (Grob
*me
)
52 SCM s
= me
->get_object ("stem");
53 return unsmob_item (s
);
57 Note_column::head_positions_interval (Grob
*me
)
63 extract_grob_set (me
, "note-heads", heads
);
64 for (vsize i
= 0; i
< heads
.size (); i
++)
68 int j
= Staff_symbol_referencer::get_rounded_position (se
);
69 iv
.unite (Slice (j
, j
));
75 Note_column::dir (Grob
*me
)
77 Grob
*stem
= unsmob_grob (me
->get_object ("stem"));
78 if (stem
&& Stem::has_interface (stem
))
79 return get_grob_direction (stem
);
82 extract_grob_set (me
, "note-heads", heads
);
84 return (Direction
)sign (head_positions_interval (me
).center ());
87 programming_error ("note column without heads and stem");
92 Note_column::set_stem (Grob
*me
, Grob
*stem
)
94 me
->set_object ("stem", stem
->self_scm ());
95 Axis_group_interface::add_element (me
, stem
);
99 Note_column::get_rest (Grob
*me
)
101 return unsmob_grob (me
->get_object ("rest"));
105 Note_column::add_head (Grob
*me
, Grob
*h
)
108 if (Rest::has_interface (h
))
110 extract_grob_set (me
, "note-heads", heads
);
114 me
->set_object ("rest", h
->self_scm ());
116 else if (Note_head::has_interface (h
))
118 if (unsmob_grob (me
->get_object ("rest")))
120 Pointer_group_interface::add_grob (me
, ly_symbol2scm ("note-heads"), h
);
124 me
->warning (_ ("cannot have note heads and rests together on a stem"));
126 Axis_group_interface::add_element (me
, h
);
130 translate the rest symbols vertically by amount DY, but only if
131 they have no staff-position set.
134 Note_column::translate_rests (Grob
*me
, int dy
)
136 Grob
*r
= unsmob_grob (me
->get_object ("rest"));
137 if (r
&& !scm_is_number (r
->get_property ("staff-position")))
139 r
->translate_axis (dy
* Staff_symbol_referencer::staff_space (r
) / 2.0, Y_AXIS
);
140 Grob
*p
= r
->get_parent (Y_AXIS
);
141 p
->flush_extent_cache (Y_AXIS
);
146 Note_column::first_head (Grob
*me
)
148 Grob
*st
= get_stem (me
);
149 return st
? Stem::first_head (st
) : 0;
153 Return the first Accidentals grob that we find in a note-head.
156 Note_column::accidentals (Grob
*me
)
158 extract_grob_set (me
, "note-heads", heads
);
160 for (vsize i
= 0; i
< heads
.size (); i
++)
163 acc
= h
? unsmob_grob (h
->get_object ("accidental-grob")) : 0;
171 if (Accidental_placement::has_interface (acc
->get_parent (X_AXIS
)))
172 return acc
->get_parent (X_AXIS
);
179 Note_column::dot_column (Grob
*me
)
181 extract_grob_set (me
, "note-heads", heads
);
182 for (vsize i
= 0; i
< heads
.size (); i
++)
184 Grob
*dots
= unsmob_grob (heads
[i
]->get_object ("dot"));
186 return dots
->get_parent (X_AXIS
);
193 Note_column::arpeggio (Grob
*me
)
195 return unsmob_grob (me
->get_object ("arpeggio"));
198 ADD_INTERFACE (Note_column
,
199 "Stem and noteheads combined",