lily/score.cc

   1 /*
   2   score.cc -- implement Score
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9 #include "tex-stream.hh"
  10 #include "score.hh"
  11 #include "score-column.hh"
  12 #include "p-score.hh"
  13 #include "debug.hh"
  14 #include "paper-def.hh"
  15 #include "main.hh"
  16 #include "source.hh"
  17 #include "source-file.hh"
  18 #include "midi-output.hh"
  19 #include "midi-def.hh"
  20 #include "p-col.hh"
  21 #include "music-iterator.hh"
  22 #include "music.hh"
  23 #include "global-translator.hh"
  24
  25 extern String default_out_fn;
  26
  27 Score::Score()
  28 {
  29     pscore_p_=0;
  30     paper_p_ = 0;
  31     midi_p_ = 0;
  32     errorlevel_i_ = 0;
  33 }
  34
  35 Score::Score(Score const &s)
  36 {
  37     assert(!pscore_p_);
  38     music_p_ = s.music_p_->clone();
  39     midi_p_ = new Midi_def(*s.midi_p_);
  40     paper_p_ = new Paper_def(*s.paper_p_);
  41 }
  42
  43 Score::~Score()
  44 {
  45     delete music_p_;
  46     delete pscore_p_;
  47     delete paper_p_;
  48     delete midi_p_;
  49 }
  50
  51 void
  52 Score::run_translator(Global_translator * trans_l)
  53 {
  54     trans_l->set_score (this);
  55     Music_iterator * iter = Music_iterator::static_get_iterator_p(music_p_,
  56                                                                   trans_l);
  57     iter->construct_children();
  58
  59     trans_l->start();
  60     while ( iter->ok() || trans_l->moments_left_i() ) {
  61         Moment w = INFTY;
  62         if (iter->ok() ) {
  63             w = iter->next_moment();
  64             iter->print();
  65         }
  66         trans_l->modify_next( w );
  67         trans_l->prepare(w);
  68         trans_l->print();
  69
  70         iter->process_and_next( w );
  71         trans_l->process();
  72     }
  73     delete iter;
  74     trans_l->finish();
  75 }
  76
  77 void
  78 Score::process()
  79 {
  80     paper();
  81     midi();
  82 }
  83
  84 void
  85 Score::midi()
  86 {
  87     if ( !midi_p_ )
  88         return;
  89
  90     *mlog << "\nCreating MIDI elements ..." << flush;
  91
  92     Global_translator* score_trans=  midi_p_->get_global_translator_p();
  93     run_translator( score_trans );
  94     delete score_trans;
  95
  96     if( errorlevel_i_){
  97         // should we? hampers debugging.
  98         warning( "Errors found, /*not processing score*/" );
  99 //      return;
 100     }
 101     print();
 102     *mlog << endl;
 103 }
 104
 105 void
 106 Score::paper()
 107 {
 108     if (!paper_p_)
 109         return;
 110
 111     *mlog << "\nCreating elements ..." << flush;
 112     pscore_p_ = new PScore(paper_p_);
 113
 114     Global_translator * score_trans=  paper_p_->get_global_translator_p();
 115     run_translator( score_trans );
 116     delete score_trans;
 117
 118     if( errorlevel_i_){
 119         // should we? hampers debugging.
 120         warning("Errors found, /*not processing score*/");
 121 //      return;
 122     }
 123
 124     print();
 125
 126     // debugging
 127     *mlog << endl;
 128     pscore_p_->process();
 129
 130     // output
 131     paper_output();
 132 }
 133
 134
 135 void
 136 Score::set(Paper_def *pap_p)
 137 {
 138     delete paper_p_;
 139     paper_p_ = pap_p;
 140 }
 141
 142 void
 143 Score::set(Midi_def* midi_p)
 144 {
 145     delete midi_p_;
 146     midi_p_ = midi_p;
 147 }
 148
 149
 150
 151 void
 152 Score::print() const
 153 {
 154 #ifndef NPRINT
 155     mtor << "score {\n";
 156     music_p_->print();
 157     if (midi_p_)
 158         midi_p_->print();
 159
 160     mtor << "}\n";
 161 #endif
 162 }
 163
 164 void
 165 Score::paper_output()
 166 {
 167     if (paper_p_->outfile_str_=="")
 168         paper_p_->outfile_str_ = default_out_fn + ".out";
 169
 170     if ( errorlevel_i_ ) {
 171         *mlog << "lilypond: warning: no output to: " << paper_p_->outfile_str_
 172         << " (errorlevel=" << errorlevel_i_ << ")" << endl;
 173         return;
 174     }
 175
 176     *mlog << "TeX output to " << paper_p_->outfile_str_ << " ...\n";
 177
 178     Tex_stream the_output(paper_p_->outfile_str_);
 179
 180     the_output << "% outputting Score, defined at: " <<
 181         location_str() << "\n";
 182     pscore_p_->output(the_output);
 183
 184 }
 185
 186 void
 187 Score::midi_output()
 188 {
 189 #if 0
 190     if (!midi_p_)
 191         return;
 192
 193     if (midi_p_->outfile_str_ == "")
 194         midi_p_->outfile_str_ = default_out_fn + ".midi";
 195
 196     *mlog << "midi output to " << midi_p_->outfile_str_ << " ...\n";
 197     Midi_output(this, midi_p_);
 198 #endif
 199 }
 200