/*
- text-engraver.cc -- implement Text_engraver
+ text-engraver.cc -- implement Text_engraver
source file of the GNU LilyPond music typesetter
- (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+
#include "directional-element-interface.hh"
#include "engraver.hh"
#include "side-position-interface.hh"
-#include "item.hh"
-#include "event.hh"
#include "stem.hh"
#include "rhythmic-head.hh"
#include "text-item.hh"
-
/**
typeset directions that are plain text.
*/
{
if (Rhythmic_head::has_interface (inf.grob_))
{
- for (int i=0; i < texts_.size (); i++)
+ for (int i = 0; i < texts_.size (); i++)
{
Grob*t = texts_[i];
- Side_position_interface::add_support (t,inf.grob_);
+ Side_position_interface::add_support (t, inf.grob_);
/*
ugh.
if (Stem::has_interface (inf.grob_))
{
- for (int i=0; i < texts_.size (); i++)
+ for (int i = 0; i < texts_.size (); i++)
{
- Side_position_interface::add_support (texts_[i],inf.grob_);
+ Side_position_interface::add_support (texts_[i], inf.grob_);
}
}
}
{
if (texts_.size ())
return;
- for (int i=0; i < evs_.size (); i++)
+ for (int i = 0; i < evs_.size (); i++)
{
Music * r = evs_[i];
// URG: Text vs TextScript
- Item *text = make_item ("TextScript");
+ Item *text = make_item ("TextScript", r->self_scm ());
Axis ax = Y_AXIS;
// Hmm
int priority = 200;
SCM s = text->get_property ("script-priority");
- if (ly_number_p (s))
- priority = ly_scm2int (s);
+ if (scm_is_number (s))
+ priority = scm_to_int (s);
/* see script-engraver.cc */
priority += i;
SCM mark = r->get_property ("text");
text->set_property ("text", mark);
- announce_grob (text, r->self_scm ());
texts_.push (text);
}
}
void
Text_engraver::stop_translation_timestep ()
{
- for (int i=0; i < texts_.size (); i++)
- {
- Item *ti = texts_[i];
- typeset_grob (ti);
- }
texts_.clear ();
evs_.clear ();
}
{
}
-ENTER_DESCRIPTION (Text_engraver,
+ADD_TRANSLATOR (Text_engraver,
/* descr */ "Create text-scripts",
/* creats*/ "TextScript",
/* accepts */ "text-script-event",