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