]> git.donarmstrong.com Git - lilypond.git/blob - lily/span-arpeggio-engraver.cc
patch::: 1.3.94.jcn1
[lilypond.git] / lily / span-arpeggio-engraver.cc
1 /*
2   span-arpeggio-engraver.cc -- implement Span_arpeggio_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
7 */
8
9 #include "engraver.hh"
10 #include "item.hh"
11 #include "arpeggio.hh"
12 #include "span-arpeggio.hh"
13 #include "group-interface.hh"
14
15
16 /** 
17
18   Make arpeggios that span multiple staffs.  Catch arpeggios, and span a
19   Span_arpeggio over them if we find more than two arpeggios.
20   */
21 class Span_arpeggio_engraver : public Engraver
22 {
23 public:
24   VIRTUAL_COPY_CONS (Translator);
25   Span_arpeggio_engraver ();
26
27 protected:
28   virtual void acknowledge_element (Score_element_info);
29   virtual void process_acknowledged ();
30   virtual void do_pre_move_processing ();
31
32 private:
33   Item *span_arpeggio_;
34   Link_array<Score_element> arpeggios_;
35 };
36
37
38 Span_arpeggio_engraver::Span_arpeggio_engraver ()
39 {
40   span_arpeggio_ = 0;
41 }
42
43 void
44 Span_arpeggio_engraver::acknowledge_element (Score_element_info info)
45 {
46     if (info.origin_trans_l_arr (this).size ()
47         && Arpeggio::has_interface (info.elem_l_))
48     {
49       arpeggios_.push (info.elem_l_);
50     }
51 }
52
53 void
54 Span_arpeggio_engraver::process_acknowledged ()
55 {
56   if (arpeggios_.size () > 1 && !span_arpeggio_) 
57     {
58       span_arpeggio_ = new Item (get_property ("SpanArpeggio"));
59       Pointer_group_interface pgi (span_arpeggio_, "arpeggios");
60       for (int i = 0; i < arpeggios_.size () ; i++)
61         {
62           pgi.add_element (arpeggios_[i]);
63           span_arpeggio_->add_dependency (arpeggios_[i]);
64         }
65       
66       span_arpeggio_->set_parent (arpeggios_[0], Y_AXIS);
67       span_arpeggio_->set_parent (arpeggios_[0], X_AXIS);
68       
69       announce_element (span_arpeggio_, 0);
70     }
71 }
72
73 void
74 Span_arpeggio_engraver::do_pre_move_processing ()
75 {
76   if (span_arpeggio_) 
77     {
78       typeset_element (span_arpeggio_);
79       span_arpeggio_ = 0;
80     }
81   arpeggios_.clear ();
82 }
83
84 ADD_THIS_TRANSLATOR (Span_arpeggio_engraver);
85