lily/directional-element.cc

   1 /*
   2   directional-element.cc -- implement Directional_element
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "directional-element.hh"
  11
  12
  13 Directional_element::Directional_element ()
  14 {
  15 }
  16
  17 Direction
  18 Directional_element::get_direction () const
  19 {
  20   // return dir_;
  21   SCM d= get_elt_property ("direction");
  22   if (!isdir_b(d))
  23     return CENTER;
  24
  25   return to_dir (d);
  26 }
  27
  28 void
  29 Directional_element::set_direction (Direction d)
  30 {
  31   set_elt_property ("direction", gh_int2scm (d));
  32 }