lily/paper-score.cc

   1 /*
   2   paper-score.cc -- implement Paper_score
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "score.hh"
  10 #include "main.hh"
  11 #include "warn.hh"
  12 #include "font-metric.hh"
  13 #include "spanner.hh"
  14 #include "paper-def.hh"
  15 #include "system.hh"
  16 #include "paper-column.hh"
  17 #include "paper-score.hh"
  18 #include "paper-column.hh"
  19 #include "scm-hash.hh"
  20 #include "gourlay-breaking.hh"
  21 #include "paper-outputter.hh"
  22 #include "input-file-results.hh"
  23 #include "misc.hh"
  24 #include "all-font-metrics.hh"
  25
  26 Paper_score::Paper_score ()
  27 {
  28   paper_ =0;
  29   outputter_ =0;
  30   system_ = 0;
  31   main_smob_ = SCM_EOL;
  32 }
  33
  34 void
  35 Paper_score::typeset_line (System *l)
  36 {
  37   if (!system_)
  38     {
  39       system_ = l;              // ugh.
  40     }
  41
  42   main_smob_ = gh_cons (l->self_scm (), main_smob_);
  43   l->pscore_ = this;
  44
  45   scm_gc_unprotect_object (l->self_scm());
  46 }
  47
  48
  49 Paper_score::Paper_score (Paper_score const &s)
  50   : Music_output (s)
  51 {
  52   assert (false);
  53 }
  54
  55 Array<Column_x_positions>
  56 Paper_score::calc_breaking ()
  57 {
  58   Break_algorithm *algorithm=0;
  59   Array<Column_x_positions> sol;
  60
  61   algorithm = new Gourlay_breaking ;
  62   algorithm->set_pscore (this);
  63   sol = algorithm->solve ();
  64   delete algorithm;
  65
  66   return sol;
  67 }
  68
  69 /*
  70   urg. clean me
  71  */
  72 void
  73 Paper_score::process (String outname)
  74 {
  75   if (verbose_global_b)
  76     progress_indication (_f ("Element count %d (spanners %d) ",
  77                              system_->element_count (),
  78                              system_->spanner_count ()));
  79
  80
  81   progress_indication (_ ("Preprocessing graphical objects...") + " ");
  82
  83   /*
  84     Be sure to set breakability on first & last column.
  85    */
  86   { /* doubly, also done in Score_engraver */
  87     Link_array<Grob> pc (system_->columns ());
  88
  89     pc[0]->set_grob_property ("breakable", SCM_BOOL_T);
  90     pc.top ()->set_grob_property ("breakable", SCM_BOOL_T);
  91   }
  92   system_->pre_processing ();
  93
  94   Array<Column_x_positions> breaking = calc_breaking ();
  95   system_->break_into_pieces (breaking);
  96
  97   outputter_ = paper_->get_paper_outputter (outname);
  98   outputter_->output_header ();
  99   outputter_->output_version ();
 100
 101   progress_indication ("\n");
 102
 103   if (global_input_file->header_)
 104     {
 105       outputter_->output_scope (global_input_file->header_, "lilypond");
 106       outputter_->write_header_fields_to_file (global_input_file->header_);
 107     }
 108
 109   if (header_)
 110     {
 111       outputter_->output_scope (header_, "lilypond");
 112       outputter_->write_header_fields_to_file (header_);
 113     }
 114
 115   outputter_->output_scope (paper_->scope_, "lilypondpaper");
 116
 117   SCM scm = scm_list_n (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
 118   outputter_->output_scheme (scm);
 119
 120   system_->output_lines ();
 121
 122   scm = scm_list_n (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
 123   outputter_->output_scheme (scm);
 124
 125   progress_indication ("\n");
 126
 127   // huh?
 128   delete outputter_;
 129   outputter_ = 0;
 130 }