]> git.donarmstrong.com Git - lilypond.git/blob - lily/staff-symbol-engraver.cc
release: 1.3.110
[lilypond.git] / lily / staff-symbol-engraver.cc
1 /*
2   staff-symbol-engraver.cc -- implement Staff_symbol_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9
10 #include "score.hh"
11 #include "paper-column.hh"
12 #include "paper-def.hh"
13 #include "side-position-interface.hh"
14 #include "engraver.hh"
15 #include "moment.hh"
16
17 /**
18   Manage the staff symbol.
19  */
20 class Staff_symbol_engraver : public Engraver { 
21   Spanner *span_p_;
22 public:
23   VIRTUAL_COPY_CONS(Translator);
24   Staff_symbol_engraver();
25   
26 protected:
27   virtual ~Staff_symbol_engraver();
28   virtual void acknowledge_grob (Grob_info);
29   virtual void finalize();
30   virtual void initialize();
31 };
32
33
34 Staff_symbol_engraver::~Staff_symbol_engraver()
35 {
36   assert (!span_p_);
37 }
38
39 Staff_symbol_engraver::Staff_symbol_engraver()
40 {
41   span_p_ = 0;
42 }
43
44 void
45 Staff_symbol_engraver::initialize()
46 {
47   span_p_ = new Spanner (get_property ("StaffSymbol"));
48   
49   span_p_->set_bound(LEFT, unsmob_grob (get_property ("currentCommandColumn")));
50
51   announce_grob (span_p_, 0);
52 }
53
54 void
55 Staff_symbol_engraver::finalize()
56 {
57   span_p_->set_bound(RIGHT,unsmob_grob (get_property ("currentCommandColumn")));
58   typeset_grob (span_p_);
59   span_p_ =0;
60 }
61
62 void
63 Staff_symbol_engraver::acknowledge_grob (Grob_info s)
64 {
65   s.elem_l_->set_grob_property ("staff-symbol", span_p_->self_scm ());
66
67   // remove this. probly not necessary?
68   s.elem_l_->add_dependency (span_p_); // UGH. UGH. UGH
69 }
70
71
72 ADD_THIS_TRANSLATOR(Staff_symbol_engraver);
73