-Bar_engraver::Bar_engraver()
-{
- bar_p_ =0;
- do_post_move_processing();
-}
-
-void
-Bar_engraver::create_bar ()
-{
- if (!bar_p_)
- {
- bar_p_ = new Item (get_property ("basicBarProperties"));
-
- SCM default_type = get_property ("defaultBarType");
- if (gh_string_p (default_type))
- {
- bar_p_->set_elt_property ("glyph", default_type); // ugh
- }
-
- announce_element (Score_element_info (bar_p_, 0));
- }
-}