]> git.donarmstrong.com Git - lilypond.git/blob - lily/directional-element-interface.cc
Add a space-to-barline property to allow looser spacing of clefs.
[lilypond.git] / 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--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "directional-element-interface.hh"
10 #include "warn.hh"
11 #include "grob.hh"
12
13 Direction
14 get_grob_direction (Grob *me)
15 {
16   SCM d = me->get_property ("direction");
17   if (d == ly_symbol2scm ("calculation-in-progress"))
18     {
19       programming_error ("Grob direction requested while calculation in progress. ");
20       return UP;
21     }
22   if (!is_direction (d))
23     return CENTER;
24
25   return to_dir (d);
26 }
27
28 void
29 set_grob_direction (Grob *me, Direction d)
30 {
31   SCM sd = scm_from_int (d);
32   me->set_property ("direction", sd);
33 }