-
- if (!scm_is_string (ly_kpathsea_find_file (scm_makfrom0str ("ecrm10.pfa")))
- && (!scm_is_string (ly_kpathsea_find_file (scm_makfrom0str ("lmr10.pfb")))))
- error (_f ("cannot find `%s'", "ecrm10.pfa")
- + "\n"
- + _f ("cannot find `%s'", "lmr10.pfb")
- + "\n"
- + _f ("Install the ec-fonts-mftraced package from: %s.",
- "http://lilypond.org/download/fonts/")
- + "\n"
- + _ ("Aborting."));
-
- pscore_ = new Paper_score;
- pscore_->layout_ = dynamic_cast<Output_def*> (get_output_def ());
-
- SCM props = updated_grob_properties (context (), ly_symbol2scm ("System"));
-
- Object_key const *sys_key = context()->get_grob_key ("System");
- pscore_->typeset_line (new System (props, sys_key));
-
- system_ = pscore_->system_;
- make_columns ();
- system_->set_bound (LEFT, command_column_);
- command_column_->set_property ("breakable", SCM_BOOL_T);
-
- Engraver_group_engraver::initialize ();
-}