X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frequest.cc;h=aefeb1f7a0e51ddcfac1b8ba08d62152016a3524;hb=5ca271301d3af557f4720223736dc2d7b981c12b;hp=f5a869b7889950a41110c9f887a33fd0086a3b51;hpb=bb36bac02a64770871780231ecc709cb18b20932;p=lilypond.git

diff --git a/lily/request.cc b/lily/request.cc
index f5a869b788..aefeb1f7a0 100644
--- a/lily/request.cc
+++ b/lily/request.cc
@@ -3,17 +3,12 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996, 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "request.hh"
 #include "debug.hh"
 
-void
-Request::do_print() const
-{
-}
-
 bool
 Request::equal_b (Request const* r) const
 {
@@ -26,3 +21,46 @@ Request::do_equal_b (Request const*) const
   return true;
 }
   
+Request::Request ()
+  : Music (SCM_EOL)
+{
+  set_mus_property ("type", ly_symbol2scm ("request"));
+}
+
+Script_req::Script_req ()
+{
+  set_direction (CENTER);
+}
+
+void
+Script_req::set_direction (Direction d)
+{
+  set_mus_property ("direction", gh_int2scm (d));
+}
+
+Direction
+Script_req::get_direction () const
+{
+  SCM d = get_mus_property ("direction");
+
+  return (ly_dir_p (d)) ?  to_dir (d) : CENTER;
+}
+
+Direction
+Span_req::get_span_dir () const
+{
+  SCM d = get_mus_property ("span-direction");
+
+  return (ly_dir_p (d)) ?  to_dir (d) : CENTER;
+}
+
+void
+Span_req::set_span_dir (Direction d)
+{
+  set_mus_property ("span-direction", gh_int2scm (d));
+}
+
+
+
+
+