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 "main.hh"
  10 #include "debug.hh"
  11 #include "font-metric.hh"
  12 #include "spanner.hh"
  13 #include "paper-def.hh"
  14 #include "line-of-score.hh"
  15 #include "paper-column.hh"
  16 #include "paper-score.hh"
  17 #include "paper-column.hh"
  18 #include "scope.hh"
  19 #include "gourlay-breaking.hh"
  20 #include "paper-outputter.hh"
  21 #include "file-results.hh"
  22 #include "misc.hh"
  23 #include "all-font-metrics.hh"
  24
  25 Paper_score::Paper_score ()
  26 {
  27   paper_l_ =0;
  28   outputter_l_ =0;
  29   line_l_ = 0;
  30   main_smob_ = SCM_EOL;
  31 }
  32
  33 void
  34 Paper_score::typeset_line (Line_of_score *l)
  35 {
  36   if (!line_l_)
  37     {
  38       line_l_ = l;              // ugh.
  39     }
  40   main_smob_ = gh_cons (l->self_scm (), main_smob_);
  41   l->pscore_l_ = this;
  42
  43   /*
  44     We don't unprotect l->self_scm (), we haven't got any place else to
  45     protect it from collection.  */
  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_p=0;
  59   Array<Column_x_positions> sol;
  60
  61   algorithm_p = new Gourlay_breaking ;
  62   algorithm_p->set_pscore (this);
  63   sol = algorithm_p->solve ();
  64   delete algorithm_p;
  65
  66   return sol;
  67 }
  68
  69 /*
  70   urg. clean me
  71  */
  72 void
  73 Paper_score::process ()
  74 {
  75   if (verbose_global_b)
  76     progress_indication (_f ("Element count %d ",  line_l_->element_count ()));
  77
  78
  79   progress_indication (_ ("Preprocessing elements...") + " ");
  80
  81   /*
  82     Be sure to set breakability on first & last column.
  83    */
  84   Link_array<Grob> pc (line_l_->column_l_arr ());
  85
  86   pc[0]->set_grob_property ("breakable", SCM_BOOL_T);
  87   pc.top ()->set_grob_property ("breakable", SCM_BOOL_T);
  88
  89   line_l_->pre_processing ();
  90
  91   Array<Column_x_positions> breaking = calc_breaking ();
  92   line_l_->break_into_pieces (breaking);
  93
  94   outputter_l_ = paper_l_->paper_outputter_p ();
  95 ;
  96   outputter_l_->output_header ();
  97   outputter_l_->output_version ();
  98
  99   progress_indication ("\n");
 100
 101   if (global_header_p)
 102     {
 103       Scope gh (global_header_p);
 104       outputter_l_->output_scope (&gh, "lilypond");
 105       outputter_l_->write_header_fields_to_file (&gh);
 106     }
 107   if (header_l_)
 108     {
 109       outputter_l_->output_scope (header_l_, "lilypond");
 110       outputter_l_->write_header_fields_to_file (header_l_);
 111     }
 112
 113   outputter_l_->output_comment (_ ("Outputting Score, defined at: "));
 114   outputter_l_->output_comment (origin_str_);
 115
 116   if (paper_l_->scope_p_)
 117     outputter_l_->output_scope (paper_l_->scope_p_, "lilypondpaper");
 118
 119   SCM scm = scm_list_n (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
 120   outputter_l_->output_scheme (scm);
 121
 122   line_l_->output_lines ();
 123
 124   scm = scm_list_n (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
 125   outputter_l_->output_scheme (scm);
 126
 127   progress_indication ("\n");
 128
 129   // huh?
 130   delete outputter_l_;
 131   outputter_l_ = 0;
 132
 133   if (verbose_global_b)
 134     ly_display_scm (scm_gc_stats ());
 135 }