source file of the GNU LilyPond music typesetter
- (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "engraver.hh"
#include "side-position-interface.hh"
#include "directional-element-interface.hh"
+
class A2_engraver : public Engraver
{
public:
A2_engraver ();
VIRTUAL_COPY_CONS (Translator);
-
protected:
virtual void acknowledge_grob (Grob_info);
-
virtual void create_grobs ();
virtual void stop_translation_timestep ();
-
private:
Item* text_p_;
enum State { SOLO, SPLIT_INTERVAL, UNIRHYTHM, UNISILENCE, UNISON } state_;
state_ = UNISILENCE;
}
-
void
A2_engraver::create_grobs ()
{
if (solo_adue == SCM_BOOL_T
&& ((solo == SCM_BOOL_T && state_ != SOLO)
|| (unison == SCM_BOOL_T && state_ != UNISON
- && daddy_trans_l_->id_str_ == "one")))
+ && daddy_trans_l_->id_str_.left_str (3) == "one")))
{
text_p_ = new Item (get_property ("TextScript"));
Side_position::set_axis (text_p_, Y_AXIS);
if (solo == SCM_BOOL_T)
{
state_ = SOLO;
- if (daddy_trans_l_->id_str_ == "one")
+ if (daddy_trans_l_->id_str_.left_str (3) == "one")
{
text = get_property ("soloText");
}
else if (unison == SCM_BOOL_T)
{
state_ = UNISON;
- if (daddy_trans_l_->id_str_ == "one")
+ if (daddy_trans_l_->id_str_.left_str (3) == "one")
text = get_property ("aDueText");
}
state_ = SPLIT_INTERVAL;
else if (unirhythm)
state_ = UNIRHYTHM;
-
- if (Stem::has_interface (i.elem_l_)
- || Slur::has_interface (i.elem_l_)
- // || Text_item::has_interface (i.elem_l_)
- //|| Hairpin::has_interface (i.elem_l_)
- )
+
+ /* Must only set direction for VoiceCombines, not for StaffCombines:
+ we can't detect that here, so, ugh, yet another property */
+ if (!to_boolean (get_property ("noDirection"))
+ && (Stem::has_interface (i.elem_l_)
+ || Slur::has_interface (i.elem_l_)
+ // || Tie::has_interface (i.elem_l_)
+ || i.elem_l_->has_interface (ly_symbol2scm ("tie-interface"))
+ /*
+ Usually, dynamics are removed by *_devnull_engravers for the
+ second voice. On the one hand, we don't want all dynamics for
+ the first voice to be placed above the staff. On the other
+ hand, colliding of scripts may be worse */
+#if 0
+ || i.elem_l_->has_interface (ly_symbol2scm ("dynamic-interface"))
+ || i.elem_l_->has_interface (ly_symbol2scm ("text-interface"))
+#endif
+ ))
{
/*
Hmm. We must set dir when solo, in order to get
|| (unirhythm == SCM_BOOL_T && split_interval == SCM_BOOL_T
&& (unison != SCM_BOOL_T || solo_adue != SCM_BOOL_T)))
{
- if (daddy_trans_l_->id_str_ == "one")
+ if (daddy_trans_l_->id_str_.left_str (3) == "one")
{
i.elem_l_->set_grob_property ("direction", gh_int2scm (1));
}
- else if (daddy_trans_l_->id_str_ == "two")
+ else if (daddy_trans_l_->id_str_.left_str (3) == "two")
{
i.elem_l_->set_grob_property ("direction", gh_int2scm (-1));
}