source file of the GNU LilyPond music typesetter
- (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "request.hh"
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 (isdir_b (d)) ? to_dir (d) : CENTER;
+}
+
+
+Direction
+Span_req::get_span_dir () const
+{
+ SCM d = get_mus_property ("span-direction");
+
+ return (isdir_b (d)) ? to_dir (d) : CENTER;
+}
+
+void
+Span_req::set_span_dir (Direction d)
+{
+ set_mus_property ("span-direction", gh_int2scm (d));
+}
+
+
+