-
- outputter_ = paper_->get_paper_outputter ();
-;
- outputter_->output_header ();
- outputter_->output_version ();
-
- progress_indication ("\n");
-
- if (global_header)
- {
-
- outputter_->output_scope (global_header, "lilypond");
- outputter_->write_header_fields_to_file (global_header);
- }
- if (header_)
- {
- outputter_->output_scope (header_, "lilypond");
- outputter_->write_header_fields_to_file (header_);
- }
-
- outputter_->output_comment (_ ("Outputting Score, defined at: "));
- outputter_->output_comment (origin_string_);
-
- if (paper_->variable_tab_)
- outputter_->output_scope (paper_->variable_tab_, "lilypondpaper");
-
- SCM scm = scm_list_n (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
- outputter_->output_scheme (scm);
-
- system_->output_lines ();
-
- scm = scm_list_n (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
- outputter_->output_scheme (scm);
-
- progress_indication ("\n");
-
- // huh?
- delete outputter_;
- outputter_ = 0;
-
- if (verbose_global_b)
- ly_display_scm (scm_gc_stats ());
+
+ 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_;