source file of the GNU LilyPond music typesetter
- (c) 2003--2005 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2003--2006 Juergen Reuter <reuter@ipd.uka.de>
*/
#include "coherent-ligature-engraver.hh"
* until it really works and I also get Han-Wen's/Jan's permission to
* add it to the spacing spanner code.
*/
-#if 0 // experimental code to collapse spacing after ligature
+#if 0 /* experimental code to collapse spacing after ligature */
SCM incr_scm = lc->get_property ("forced-spacing");
if (incr_scm != SCM_EOL) /* (Paper_column::is_musical (l)) */
{
ly_display_scm (lc->self_scm ());
Real distance;
if (incr_scm != SCM_EOL)
- {
- distance = scm_to_double (incr_scm);
- }
+ distance = scm_to_double (incr_scm);
else
{
me->warning (_ ("distance undefined, assuming 0.1"));
}
#endif
-Coherent_ligature_engraver::Coherent_ligature_engraver ()
-{
-}
-
/*
* TODO: move this function to class Item?
*/
Grob *sl = Staff_symbol_referencer::get_staff_symbol (item);
extract_item_set (parent, "elements", elements);
-
+
for (int i = elements.size (); i--;)
{
Item *sibling = elements[i];
if ((sibling)
&& (Staff_symbol_referencer::get_staff_symbol (sibling) == sl))
{
-#if 0 // experimental code to collapse spacing after ligature
+#if 0 /* experimental code to collapse spacing after ligature */
Grob *sibling_parent = sibling->get_parent (X_AXIS);
sibling_parent->warning (_f ("Coherent_ligature_engraver: "
"setting `spacing-increment="
"0.01': ptr=%ul", parent));
sibling_parent->set_property ("forced-spacing",
- scm_make_real (0.01));
+ scm_from_double (0.01));
#endif
sibling->set_parent (column, X_AXIS);
}
}
}
else
- {
- get_set_column (parent, column);
- }
+ get_set_column (parent, column);
}
/*
{
delta_pitch = pitch - prev_pitch;
prev_primitive->set_property ("delta-pitch",
- scm_int2num (delta_pitch));
+ scm_from_int (delta_pitch));
}
prev_pitch = pitch;
prev_primitive = primitive;
}
- primitive->set_property ("delta-pitch", scm_int2num (0));
-}
-
-void
-Coherent_ligature_engraver::build_ligature (Spanner *, Array<Grob_info>)
-{
- programming_error ("Coherent_ligature_engraver::build_ligature (): "
- "this is an abstract method that should not be called, "
- "but overridden by a subclass");
+ primitive->set_property ("delta-pitch", scm_from_int (0));
}
void
collect_accidentals (ligature, primitives);
}
-#include "translator.icc"
-
-ADD_TRANSLATOR (Coherent_ligature_engraver,
- /* descr */ "This is an abstract class. Subclasses such as Gregorian_ligature_engraver handle ligatures by glueing special ligature heads together.",
- /* creats*/ "",
- /* accepts */ "ligature-event",
- /* acks */ "note-head-interface rest-interface",
- /* reads */ "",
- /* write */ "");
+// no ADD_ACKNOWLEDGER / ADD_ACKNOWLEDGER / ADD_TRANSLATOR macro calls
+// since this class is abstract