release: 1.3.103

[lilypond.git] / lily / request.cc

diff --git a/lily/request.cc b/lily/request.cc
index 90831a5cab5d42db3d7b11f74fd94e8ca2cb69ce..d10693e898f88a1896afaed6dc7fcfe97a572521 100644 (file)
--- a/lily/request.cc
+++ b/lily/request.cc
@@ -51,3 +51,19 @@ Script_req::get_direction () const
 }
 
 
+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));
+}
+
+
+