lily/directional-element-interface.cc

   1 /*
   2   directional-element-interface.cc -- implement Directional_element
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "directional-element-interface.hh"
  11
  12
  13 Direction
  14 get_grob_direction (Grob*me)
  15 {
  16   SCM d= me->get_grob_property ("direction");
  17   if (!is_direction (d))
  18     return CENTER;
  19
  20   return to_dir (d);
  21 }
  22
  23 void
  24 set_grob_direction (Grob*me, Direction d)
  25 {
  26   SCM sd = gh_int2scm (d);
  27   me->set_grob_property ("direction", sd);
  28 }