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->get_length ();
}
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;