source file of the GNU LilyPond music typesetter
- (c) 2001--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2001--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "translator-group.hh"
#include "grob.hh"
#include "warn.hh"
+/*
+ TODO: should junk this engraver.
+ */
+
struct Grob_mom
{
Grob * grob_ ;
return Moment::compare (a.end_, b.end_);
}
+/****************/
class Grob_pq_engraver: public Engraver
{
{
Music * m = gi.music_cause ();
- if (m)
+ if (m
+ && !gi.grob_->internal_has_interface (ly_symbol2scm ("multi-measure-interface")))
{
Moment n = now_mom ();
- Moment l = m->length_mom ();
+ Moment l = m->get_length ();
if (!l.to_bool ())
return ;
}
LY_DEFINE(ly_grob_pq_less_p,
- "ly-grob-pq-less?", 2 , 0 ,0, (SCM a, SCM b),
+ "ly:grob-pq-less?", 2 , 0 ,0, (SCM a, SCM b),
"Compare 2 Grob PQ entries. Internal")
{
if ( Moment::compare (*unsmob_moment (gh_car (a)),
void
Grob_pq_engraver::start_translation_timestep ()
{
- Moment now = now_mom();
+ Moment now = now_mom();
SCM start_busy = get_property ("busyGrobs");
SCM busy = start_busy;
ENTER_DESCRIPTION(Grob_pq_engraver,
-/* descr */ "Administrate when certain grobs (eg. note heads) stop playing; this
-engraver is a sort-of a failure, since it doesn't handle all sorts of borderline cases very well.
-",
-/* creats*/ "",
-/* accepts */ "",
-/* acks */ "grob-interface",
-/* reads */ "busyGrobs",
+
+/* descr */ "Administrate when certain grobs (eg. note heads) stop playing; this \
+engraver is a sort-of a failure, since it doesn't handle all sorts of \
+borderline cases very well. \
+", \
+
+/* creats*/ "", \
+/* accepts */ "", \
+/* acks */ "grob-interface", \
+/* reads */ "busyGrobs", \
/* write */ "busyGrobs");