]> git.donarmstrong.com Git - lilypond.git/blob - lily/grace-align-item.cc
release: 1.3.9
[lilypond.git] / lily / grace-align-item.cc
1 /*   
2   grace-align-item.cc --  implement Grace_align_item
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 "grace-align-item.hh"
11 #include "lookup.hh"
12 #include "paper-column.hh"
13 #include "paper-def.hh"
14
15 Grace_align_item::Grace_align_item ()
16 {
17   stacking_dir_ = RIGHT;
18   set_axis (X_AXIS);
19 }
20   
21 void
22 Grace_align_item::do_pre_processing ()
23 {
24   Real nhw = // lookup_l ()->notehead (2, "").dim_[X_AXIS].length();
25     paper_l ()->get_var ("quartwidth");
26   
27   threshold_interval_[MIN] = nhw* 1.5;
28   column_l ()->set_elt_property ("contains-grace", SCM_BOOL_T);
29
30   
31   Axis_align_item::do_pre_processing ();
32   Note_head_side::do_pre_processing ();
33
34   translate_axis (-0.5* nhw, X_AXIS); // ugh.
35 }
36
37
38 void
39 Grace_align_item::do_add_processing ()
40 {
41 }
42