2 bar-engraver.cc -- implement Bar_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "score-engraver.hh"
11 #include "bar-engraver.hh"
12 #include "staff-bar.hh"
13 #include "musical-request.hh"
14 #include "multi-measure-rest.hh"
15 #include "command-request.hh"
16 #include "timing-engraver.hh"
17 #include "engraver-group-engraver.hh"
20 Bar_engraver::Bar_engraver()
23 do_post_move_processing();
27 Bar_engraver::create_bar ()
31 bar_p_ = new Staff_bar;
32 bar_p_->set_elt_property ("break-align-symbol", ly_symbol2scm ("Staff_bar"));
34 // urg: "" != empty...
35 SCM default_type = get_property ("defaultBarType");
36 if (gh_string_p (default_type))
38 bar_p_->set_elt_property ("glyph", default_type); // ugh
43 urg. Why did I implement this? And did I implement this so
46 input/test/just-friends.ly
47 Maybe a staffgroup of just one staff would be a better solution.
49 SCM prop = get_property ("barAtLineStart");
50 if (to_boolean (prop))
52 bar_p_->set_elt_property ("at-line-start", SCM_BOOL_T);
55 announce_element (Score_element_info (bar_p_, 0));
60 Make a barline. If there are both |: and :| requested, merge them
65 Bar_engraver::request_bar (String requested_type)
69 SCM prop = get_property ("barAtLineStart");
70 if (!to_boolean (prop))
73 bool bar_existed = bar_p_;
75 if (bar_existed && requested_type == "")
80 String current = ly_scm2string (bar_p_->get_elt_property ("glyph"));
82 if ((requested_type == "|:" && current== ":|")
83 || (requested_type == ":|" && current == "|:"))
84 requested_type = ":|:";
87 bar_p_->set_elt_property ("glyph",
88 ly_str02scm (requested_type.ch_C ()));
92 Bar_engraver::do_creation_processing ()
97 Bar_engraver::do_removal_processing ()
101 typeset_element (bar_p_);
107 Bar_engraver::do_process_music()
109 Translator * t = daddy_grav_l ()->get_simple_translator ("Timing_engraver");
111 Timing_engraver * te = dynamic_cast<Timing_engraver*>(t);
112 String which = (te) ? te->which_bar () : "";
114 if (which.length_i ())
117 bar_p_->set_elt_property ("glyph", ly_str02scm (which.ch_C ()));
122 Score_engraver * e = 0;
123 Translator * t = daddy_grav_l ();
124 for (; !e && t; t = t->daddy_trans_l_)
126 e = dynamic_cast<Score_engraver*> (t);
130 programming_error ("No score engraver!");
138 Bar_engraver::do_pre_move_processing()
142 typeset_element (bar_p_);
147 ADD_THIS_TRANSLATOR(Bar_engraver);