]> git.donarmstrong.com Git - lilypond.git/blob - lily/hara-kiri-engraver.cc
patch::: 1.3.18.jcn1
[lilypond.git] / lily / hara-kiri-engraver.cc
1 /*   
2   hara-kiri-engraver.cc --  implement Hara_kiri_engraver
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 "hara-kiri-vertical-group-spanner.hh"
11 #include "hara-kiri-engraver.hh"
12 #include "rhythmic-head.hh"
13
14 ADD_THIS_TRANSLATOR (Hara_kiri_engraver);
15
16 Axis_group_spanner*
17 Hara_kiri_engraver::get_spanner_p () const
18 {
19   return new Hara_kiri_group_spanner;
20 }
21
22 void
23 Hara_kiri_engraver::acknowledge_element (Score_element_info i)
24 {
25   Axis_group_engraver::acknowledge_element (i);
26   if (Rhythmic_head *h = dynamic_cast<Rhythmic_head *> (i.elem_l_))
27     {
28       dynamic_cast<Hara_kiri_group_spanner*> (staffline_p_)
29         ->add_interesting_item (h);
30     }
31   
32 }