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