lily/system-start-delimiter-engraver.cc

   1 /*
   2   system-start-delimiter-engraver.cc -- implement System_start_delimiter_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11 #include "system-start-delimiter.hh"
  12 #include "engraver.hh"
  13 #include "staff-symbol.hh"
  14 #include "group-interface.hh"
  15 #include "paper-column.hh"
  16 #include "paper-def.hh"
  17
  18 class System_start_delimiter_engraver : public Engraver
  19 {
  20 public:
  21   VIRTUAL_COPY_CONS(Translator);
  22   System_start_delimiter_engraver();
  23
  24 protected:
  25   Spanner * delim_;
  26   virtual void acknowledge_element (Score_element_info);
  27   virtual void do_creation_processing ();
  28   virtual void do_removal_processing ();
  29 };
  30
  31 ADD_THIS_TRANSLATOR(System_start_delimiter_engraver);
  32
  33 void
  34 System_start_delimiter_engraver::acknowledge_element (Score_element_info inf)
  35 {
  36   if (Staff_symbol::has_interface (inf.elem_l_))
  37     {
  38       /*
  39         don't add as Axis_group_interface::add_element (delim_, ),
  40         because that would set the parent as well */
  41
  42       Pointer_group_interface (delim_).add_element (inf.elem_l_);
  43     }
  44   else if (System_start_delimiter * b = dynamic_cast<System_start_delimiter *> (inf.elem_l_))
  45     {
  46       SCM gl = b->get_elt_property ("glyph");
  47       SCM my_gl = delim_->get_elt_property ("glyph");
  48
  49       /*
  50         UGH UGH
  51        */
  52       if (gh_symbol_p (gl) && gl  == ly_symbol2scm ("brace")
  53           && gh_symbol_p (my_gl) && my_gl == ly_symbol2scm ("bracket"))
  54         b->translate_axis ( -paper_l ()->get_var ("interline"), X_AXIS); // ugh
  55     }
  56
  57 }
  58
  59 System_start_delimiter_engraver::System_start_delimiter_engraver()
  60 {
  61   delim_ = 0;
  62 }
  63
  64 void
  65 System_start_delimiter_engraver::do_creation_processing()
  66 {
  67   delim_ = new System_start_delimiter (get_property ("basicSystemStartDelimiterProperties"));
  68   delim_->set_bound (LEFT, unsmob_element (get_property ("currentCommandColumn")));
  69
  70   /*
  71     You can't override the glyph using \property, you must do it in
  72     the predefined context (ie. \translator { ... } )
  73    */
  74   SCM s = get_property ("systemStartDelimiterGlyph");
  75   if (gh_symbol_p (s))
  76     {
  77       delim_->set_elt_property ("glyph", s);
  78     }
  79
  80   announce_element (Score_element_info (delim_,0));
  81 }
  82
  83 void
  84 System_start_delimiter_engraver::do_removal_processing ()
  85 {
  86   // ugh, should have naming without bracket
  87   SCM collapse = get_property ("bracketCollapseHeight");
  88   if (gh_number_p (collapse))
  89     delim_->set_elt_property ("collapse-height", collapse);
  90
  91   delim_->set_bound (RIGHT, unsmob_element (get_property ("currentCommandColumn")));
  92   typeset_element (delim_);
  93 }
  94