release: 1.3.102

[lilypond.git] / lily / request.cc

diff --git a/lily/request.cc b/lily/request.cc
index 545abcef838464869baeb43ae727092578ffaa79..90831a5cab5d42db3d7b11f74fd94e8ca2cb69ce 100644 (file)
--- a/lily/request.cc
+++ b/lily/request.cc
@@ -1,27 +1,53 @@
+/*
+  request.cc -- implement Request
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+*/
+
 #include "request.hh"
 #include "debug.hh"
 
-IMPLEMENT_STATIC_NAME(Request);
-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"));
+}
+
+
+
+Script_req::Script_req ()
+{
+  set_direction (CENTER);
 }
 
 void
-Request::print() const
+Script_req::set_direction (Direction d)
 {
-#ifndef NPRINT
-    mtor << name() << " {";
-    do_print();
-    mtor << "}\n";
-#endif
+  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;
+}
+
+