]> git.donarmstrong.com Git - lilypond.git/blob - lily/staff-symbol-engraver.cc
release: 1.5.30
[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--2002 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   TRANSLATOR_DECLARATIONS(Staff_symbol_engraver);
24   
25 protected:
26   virtual ~Staff_symbol_engraver ();
27   virtual void acknowledge_grob (Grob_info);
28   virtual void finalize ();
29   virtual void initialize ();
30 };
31
32
33 Staff_symbol_engraver::~Staff_symbol_engraver ()
34 {
35   assert (!span_p_);
36 }
37
38 Staff_symbol_engraver::Staff_symbol_engraver ()
39 {
40   span_p_ = 0;
41 }
42
43 void
44 Staff_symbol_engraver::initialize ()
45 {
46   span_p_ = new Spanner (get_property ("StaffSymbol"));
47   
48   span_p_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
49
50   announce_grob(span_p_, SCM_EOL);
51 }
52
53 void
54 Staff_symbol_engraver::finalize ()
55 {
56   span_p_->set_bound (RIGHT,unsmob_grob (get_property ("currentCommandColumn")));
57   typeset_grob (span_p_);
58   span_p_ =0;
59 }
60
61 void
62 Staff_symbol_engraver::acknowledge_grob (Grob_info s)
63 {
64   s.grob_l_->set_grob_property ("staff-symbol", span_p_->self_scm ());
65
66   // remove this. probly not necessary?
67   s.grob_l_->add_dependency (span_p_); // UGH. UGH. UGH
68 }
69
70
71
72
73 ENTER_DESCRIPTION(Staff_symbol_engraver,
74 /* descr */       "create the constellation of five (default)
75 staff lines.",
76 /* creats*/       "StaffSymbol",
77 /* acks  */       "grob-interface",
78 /* reads */       "",
79 /* write */       "");