]> git.donarmstrong.com Git - lilypond.git/blob - lily/hara-kiri-line-group-engraver.cc
2d9fe8a91603d09771f724ac64a80ca2024852da
[lilypond.git] / lily / hara-kiri-line-group-engraver.cc
1 /*
2   hara-kiri-line-group-engraver.cc -- implement Hara_kiri_line_group_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1998, 1999 Jan Nieuwenhuizen <janneke@gnu.org>
7 */
8
9 #include "rhythmic-head.hh"
10 #include "hara-kiri-vertical-group-spanner.hh"
11 #include "hara-kiri-line-group-engraver.hh"
12
13
14 ADD_THIS_TRANSLATOR (Hara_kiri_line_group_engraver);
15
16 void
17 Hara_kiri_line_group_engraver::create_line_spanner ()
18 {
19   staffline_p_ = new Hara_kiri_group_spanner;
20   
21 }
22
23 void
24 Hara_kiri_line_group_engraver::typeset_element(Score_element * e)
25 {
26   if (Rhythmic_head *h = dynamic_cast<Rhythmic_head *> (e))
27     {
28       dynamic_cast<Hara_kiri_group_spanner*> (staffline_p_)
29         ->add_interesting_item (h);
30     }
31   Line_group_engraver_group::typeset_element (e);
32 }
33