- line_l_->break_into_pieces (breaking);
-
- outputter_l_ = paper_l_->paper_outputter_p ();
-;
- outputter_l_->output_header ();
- outputter_l_->output_version ();
-
- progress_indication ("\n");
-
- if (global_header_p)
- {
-
- outputter_l_->output_scope (global_header_p, "lilypond");
- outputter_l_->write_header_fields_to_file (global_header_p);
- }
- if (header_l_)
- {
- outputter_l_->output_scope (header_l_, "lilypond");
- outputter_l_->write_header_fields_to_file (header_l_);
- }
-
- outputter_l_->output_comment (_ ("Outputting Score, defined at: "));
- outputter_l_->output_comment (origin_str_);
-
- if (paper_l_->variable_tab_)
- outputter_l_->output_scope (paper_l_->variable_tab_, "lilypondpaper");
-
- SCM scm = scm_list_n (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
- outputter_l_->output_scheme (scm);
-
- line_l_->output_lines ();
-
- scm = scm_list_n (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
- outputter_l_->output_scheme (scm);
-
- progress_indication ("\n");
-
- // huh?
- delete outputter_l_;
- outputter_l_ = 0;
-
- if (verbose_global_b)
- ly_display_scm (scm_gc_stats ());
+ system_->break_into_pieces (breaking);
+
+ paper_systems_ = system_->get_paper_systems ();
+}
+
+System *
+Paper_score::root_system () const
+{
+ return system_;
+}
+
+Output_def *
+Paper_score::layout () const
+{
+ return layout_;
+}
+
+SCM
+Paper_score::get_paper_systems () const
+{
+ return paper_systems_;