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--2002 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 "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   main_smob_ = gh_cons (l->self_scm (), main_smob_);
  42   l->pscore_ = this;
  43
  44   /*
  45     We don't unprotect l->self_scm (), we haven't got any place else to
  46     protect it from collection.  */
  47
  48 }
  49
  50 Paper_score::Paper_score (Paper_score const &s)
  51   : Music_output (s)
  52 {
  53   assert (false);
  54 }
  55
  56 Array<Column_x_positions>
  57 Paper_score::calc_breaking ()
  58 {
  59   Break_algorithm *algorithm=0;
  60   Array<Column_x_positions> sol;
  61
  62   algorithm = new Gourlay_breaking ;
  63   algorithm->set_pscore (this);
  64   sol = algorithm->solve ();
  65   delete algorithm;
  66
  67   return sol;
  68 }
  69
  70 /*
  71   urg. clean me
  72  */
  73 void
  74 Paper_score::process ()
  75 {
  76   if (verbose_global_b)
  77     progress_indication (_f ("Element count %d ",  system_->element_count ()));
  78
  79
  80   progress_indication (_ ("Preprocessing elements...") + " ");
  81
  82   /*
  83     Be sure to set breakability on first & last column.
  84    */
  85   Link_array<Grob> pc (system_->columns ());
  86
  87   pc[0]->set_grob_property ("breakable", SCM_BOOL_T);
  88   pc.top ()->set_grob_property ("breakable", SCM_BOOL_T);
  89
  90   system_->pre_processing ();
  91
  92   Array<Column_x_positions> breaking = calc_breaking ();
  93   system_->break_into_pieces (breaking);
  94
  95   outputter_ = paper_->get_paper_outputter ();
  96   outputter_->output_header ();
  97   outputter_->output_version ();
  98
  99   progress_indication ("\n");
 100
 101   if (global_input_file->global_header_)
 102     {
 103       outputter_->output_scope (global_input_file->global_header_, "lilypond");
 104       outputter_->write_header_fields_to_file (global_input_file->global_header_);
 105     }
 106
 107   if (header_)
 108     {
 109       outputter_->output_scope (header_, "lilypond");
 110       outputter_->write_header_fields_to_file (header_);
 111     }
 112
 113   outputter_->output_comment (_ ("Outputting Score, defined at: "));
 114   outputter_->output_comment (origin_string_);
 115
 116   if (paper_->variable_tab_)
 117     outputter_->output_scope (paper_->variable_tab_, "lilypondpaper");
 118
 119   SCM scm = scm_list_n (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
 120   outputter_->output_scheme (scm);
 121
 122   system_->output_lines ();
 123
 124   scm = scm_list_n (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
 125   outputter_->output_scheme (scm);
 126
 127   progress_indication ("\n");
 128
 129   // huh?
 130   delete outputter_;
 131   outputter_ = 0;
 132
 133   if (verbose_global_b)
 134     {
 135       scm_write (scm_gc_stats (), scm_current_error_port ());
 136       scm_flush (scm_current_error_port ());
 137     }
 138 }