#include "engraver.hh"
#include "engraver-group-engraver.hh"
#include "grob.hh"
-#include "main.hh"
#include "score-engraver.hh"
#include "warn.hh"
+#include "spanner.hh"
+#include "item.hh"
void
Engraver::announce_grob (Grob_info inf)
get_daddy_grav ()->announce_grob (inf);
}
+/*
+ CAUSE is the object (typically a Music object) that
+ was the reason for making E.
+ */
void
Engraver::announce_grob (Grob* e, SCM cause)
{
TODO: junk grob-info, and make a cause grob-property to store
`causes' generically.
*/
-
if (unsmob_music (cause) || unsmob_grob (cause))
e->set_grob_property ("cause", cause);
- Grob_info i (e);
+ Grob_info i;
+ i.grob_ = e;
if (!i.origin_trans_)
i.origin_trans_ = this;
+
+
+
get_daddy_grav ()->announce_grob (i);
}
}
+Item*
+Engraver::internal_make_item (SCM x)
+{
+ SCM props = internal_get_property (x);
+ return new Item (props);
+}
+
+Spanner*
+Engraver::internal_make_spanner (SCM x)
+{
+ SCM props = internal_get_property (x);
+ return new Spanner (props);
+}
+
Engraver::Engraver()
{
}