+ stems_ = new Link_array<Item>;
+ grouping_ = new Beaming_info_list;
+ beam_settings_ = updated_grob_properties (context (), ly_symbol2scm ("Beam"));
+
+ beam_start_moment_ = now_mom ();
+ beam_start_location_
+ = robust_scm2moment (get_property ("measurePosition"), Moment (0));
+ subdivide_beams_ = ly_scm2bool (get_property ("subdivideBeams"));
+ beat_length_ = robust_scm2moment (get_property ("beatLength"), Moment (1, 4));
+}
+
+void
+Auto_beam_engraver::junk_beam ()
+{
+ if (!stems_)
+ return;
+
+ delete stems_;
+ stems_ = 0;
+ delete grouping_;
+ grouping_ = 0;
+ beam_settings_ = SCM_EOL;
+
+ shortest_mom_ = Moment (Rational (1, 8));