source file of the GNU LilyPond music typesetter
- (c) 2000--2002 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "engraver.hh"
#include "group-interface.hh"
#include "item.hh"
-#include "request.hh"
+#include "event.hh"
#include "spanner.hh"
#include "stem.hh"
#include "rhythmic-head.hh"
#include "translator-group.hh"
/**
- Create line-spanner grobs for glissandi (and possibly other) lines
- that connect note heads.
-
+ Create line-spanner grobs for lines that connect note heads.
TODO: have the line commit suicide if the notes are connected with
either slur or beam.
virtual void acknowledge_grob (Grob_info);
virtual void process_acknowledged_grobs ();
virtual void stop_translation_timestep ();
- virtual bool try_music (Music *);
private:
Spanner* line_;
- Music* req_;
- Music* last_req_;
Translator* last_staff_;
bool follow_;
Grob* head_;
Note_head_line_engraver::Note_head_line_engraver ()
{
line_ = 0;
- req_ = 0;
- last_req_ = 0;
follow_ = false;
head_ = 0;
last_head_ = 0;
last_staff_ = 0;
}
-bool
-Note_head_line_engraver::try_music (Music* m)
-{
- if (!req_)
- {
- req_ = m;
- return true;
- }
- return false;
-}
-
void
Note_head_line_engraver::acknowledge_grob (Grob_info info)
{
if (to_boolean (get_property ("followVoice")))
{
Translator_group * tr = daddy_trans_;
- while (tr && tr->type_string_ != "Staff")
+ while (tr && !tr->is_alias (ly_symbol2scm ( "Staff")))
tr = tr->daddy_trans_ ;
- if (tr && tr->type_string_ == "Staff" && tr != last_staff_)
+ if (tr && tr->is_alias (ly_symbol2scm ("Staff")) && tr != last_staff_)
{
if (last_head_)
follow_ = true;
void
Note_head_line_engraver::process_acknowledged_grobs ()
{
- if (!line_ && (follow_ || last_req_) && last_head_ && head_
- && (last_head_ != head_))
+ if (!line_ && follow_ && last_head_ && head_)
{
/* TODO: Don't follow if there's a beam.
Should probably store follow_ in line_, and suicide at some
later point */
if (follow_)
- line_ = new Spanner (get_property ("VoiceFollower"));
- else
- line_ = new Spanner (get_property ("Glissando"));
+ line_ = make_spanner ("VoiceFollower");
line_->set_bound (LEFT, last_head_);
line_->set_bound (RIGHT, head_);
-
- /* Note, mustn't set y-parent of breakable symbol to simple item:
- one of the two broken parts won't have an y-parent! */
- /* X parent is set by set_bound */
- line_->set_parent (Staff_symbol_referencer::get_staff_symbol (last_head_),
- Y_AXIS);
-
- SCM c = last_req_? last_req_->self_scm () : SCM_EOL;
- announce_grob(line_, c);
- last_req_ = 0;
+
+ announce_grob(line_, head_->self_scm ());
follow_ = false;
}
if (head_)
last_head_ = head_;
head_ = 0;
-
- if (req_)
- {
- last_req_ = req_;
- req_ =0;
- }
}
ENTER_DESCRIPTION(Note_head_line_engraver,
-/* descr */ "Engrave a line between two note heads, for example a glissando.
-If followVoice is set, staff switches also generate a line.",
+/* descr */ "Engrave a line between two note heads, for example a glissando. If "
+" followVoice is set, staff switches also generate a line.",
/* creats*/ "Glissando VoiceFollower",
/* accepts */ "glissando-event",
/* acks */ "rhythmic-head-interface",