source file of the GNU LilyPond music typesetter
- (c) 1996, 1997--1998 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "request.hh"
#include "debug.hh"
-IMPLEMENT_IS_TYPE_B1(Request,Music);
-void
-Request::do_print() const
+bool
+Request::equal_b (Request const* r) const
{
+ return r->do_equal_b (this) || this->do_equal_b (r) ;
}
-MInterval
-Request::time_int() const
+bool
+Request::do_equal_b (Request const*) const
{
- return MInterval (0, duration());
+ return true;
}
+
+Request::Request ()
+{
+ set_mus_property ("type", ly_symbol2scm ("request"));
+}
-bool
-Request::equal_b (Request *r) const
+
+
+Script_req::Script_req ()
{
- if (is_type_b (r->name()))
- return r->do_equal_b ((Request*)this);
- if (r->is_type_b (name()))
- return do_equal_b (r);
-
- return false;
+ set_direction (CENTER);
}
-bool
-Request::do_equal_b (Request*) const
+void
+Script_req::set_direction (Direction d)
{
- return false;
+ set_mus_property ("direction", gh_int2scm (d));
}
-
+
+Direction
+Script_req::get_direction () const
+{
+ SCM d = get_mus_property ("direction");
+
+ return (isdir_b (d)) ? to_dir (d) : CENTER;
+}
+
+