lily/staff-symbol-engraver.cc

   1 /*
   2   staff-sym-reg.cc -- implement Staff_symbol_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "staff-symbol.hh"
  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   Staff_symbol *span_p_;
  22 public:
  23   VIRTUAL_COPY_CONS(Translator);
  24   Staff_symbol_engraver();
  25
  26 protected:
  27   virtual ~Staff_symbol_engraver();
  28
  29   virtual void acknowledge_element (Score_element_info);
  30   virtual void do_removal_processing();
  31   virtual void do_creation_processing();
  32
  33 };
  34
  35
  36 Staff_symbol_engraver::~Staff_symbol_engraver()
  37 {
  38   assert (!span_p_);
  39 }
  40
  41 Staff_symbol_engraver::Staff_symbol_engraver()
  42 {
  43   span_p_ = 0;
  44 }
  45
  46 void
  47 Staff_symbol_engraver::do_creation_processing()
  48 {
  49   span_p_ = new Staff_symbol;
  50   span_p_->set_bounds(LEFT,get_staff_info().command_pcol_l ());
  51   announce_element (Score_element_info (span_p_, 0));
  52 }
  53
  54 void
  55 Staff_symbol_engraver::do_removal_processing()
  56 {
  57   SCM l (get_property ("numberOfStaffLines", 0));
  58   if (gh_number_p(l))
  59     {
  60       span_p_->no_lines_i_ = gh_scm2int (l);
  61     }
  62
  63   SCM sz (get_property ("staffLineLeading", 0));
  64   if (gh_number_p(sz))
  65     {
  66       span_p_->staff_line_leading_f_ = gh_scm2double (sz);
  67     }
  68   else
  69     {
  70       span_p_->staff_line_leading_f_ = paper_l ()->get_var ("interline");
  71     }
  72   span_p_->set_bounds(RIGHT,get_staff_info().command_pcol_l ());
  73   typeset_element (span_p_);
  74   span_p_ =0;
  75 }
  76
  77 void
  78 Staff_symbol_engraver::acknowledge_element (Score_element_info s)
  79 {
  80   s.elem_l_->set_elt_property ("staff-symbol", span_p_->self_scm_);
  81   s.elem_l_->add_dependency (span_p_); // UGH. UGH. UGH
  82
  83   SCM ss =s.elem_l_->remove_elt_property ("staff-support");
  84   if (gh_boolean_p (ss) && gh_scm2bool (ss))
  85     {
  86       Side_position_interface si (s.elem_l_);
  87       if (si.has_interface_b ())
  88         si.add_support (span_p_);
  89     }
  90 }
  91
  92
  93 ADD_THIS_TRANSLATOR(Staff_symbol_engraver);
  94