]> git.donarmstrong.com Git - lilypond.git/blob - lily/hara-kiri-line-group-engraver.cc
patch::: 1.3.18.jcn1
[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 ADD_THIS_TRANSLATOR (Hara_kiri_line_group_engraver);
14
15 void
16 Hara_kiri_line_group_engraver::create_line_spanner ()
17 {
18   staffline_p_ = new Hara_kiri_group_spanner;
19   
20 }
21
22 void
23 Hara_kiri_line_group_engraver::typeset_element(Score_element * e)
24 {
25   if (Rhythmic_head *h = dynamic_cast<Rhythmic_head *> (e))
26     {
27       dynamic_cast<Hara_kiri_group_spanner*> (staffline_p_)
28         ->add_interesting_item (h);
29     }
30   Line_group_engraver_group::typeset_element (e);
31 }
32