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