patch::: 1.3.98.jcn2

[lilypond.git] / lily / request.cc

diff --git a/lily/request.cc b/lily/request.cc
index 3b39385c4bed45896d7065cab3e08fd586d7b3b2..a8db23eec93f09f9a304a483d2b26302a10c8e79 100644 (file)
--- a/lily/request.cc
+++ b/lily/request.cc
@@ -28,3 +28,19 @@ Request::Request ()
 {
   set_mus_property ("type", ly_symbol2scm ("request"));
 }
+
+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;
+}
+
+