From 40d88131cd7950eab72804c99c68b383420f1b9c Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Mon, 8 Nov 1999 15:03:16 +0000
Subject: [PATCH] lilypond-1.3.4

---
 lily/directional-element.cc | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 lily/directional-element.cc

diff --git a/lily/directional-element.cc b/lily/directional-element.cc
new file mode 100644
index 0000000000..7d9e9a666a
--- /dev/null
+++ b/lily/directional-element.cc
@@ -0,0 +1,32 @@
+/*   
+  directional-element.cc -- implement Directional_element
+  
+  source file of the GNU LilyPond music typesetter
+  
+  (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  
+ */
+
+#include "directional-element.hh"
+#include "property-inspect.hh"
+
+Directional_element::Directional_element ()
+{
+}
+
+Direction
+Directional_element::get_direction () const
+{
+  // return dir_;
+  SCM d= get_elt_property ("direction");
+  if (!isdir_b(d))
+    return CENTER;
+      
+  return to_dir (d);
+}
+
+void
+Directional_element::set_direction (Direction d) 
+{
+  set_elt_property ("direction", gh_int2scm (d));
+}
-- 
2.39.5