X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fperformance.cc;h=ec61a1bfeb1c7d6056161b3dc1c330fc2da059ed;hb=1a9d44f4edf9c0b3bc12d399491ca7001743b539;hp=cb56dd2b4208e364426bd107c5a89db45ad210bb;hpb=1a71119277d04b287b3a976c526adba6500239c6;p=lilypond.git diff --git a/lily/performance.cc b/lily/performance.cc index cb56dd2b42..ec61a1bfeb 100644 --- a/lily/performance.cc +++ b/lily/performance.cc @@ -1,179 +1,127 @@ /* - performance.cc -- implement Performance + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 1997--2009 Jan Nieuwenhuizen - (c) 1997--1999 Jan Nieuwenhuizen + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ -#include -#include "debug.hh" -#include "string.hh" -#include "string-convert.hh" -#include "main.hh" -#include "midi-def.hh" -#include "midi-item.hh" -#include "midi-stream.hh" +#include "performance.hh" + +#include +using namespace std; + #include "audio-column.hh" -#include "audio-item.hh" #include "audio-staff.hh" -#include "performance.hh" -#include "score.hh" -#include "file-results.hh" +#include "file-name.hh" +#include "international.hh" #include "lily-version.hh" - -#include "killing-cons.tcc" +#include "main.hh" +#include "midi-chunk.hh" +#include "midi-stream.hh" +#include "score.hh" +#include "string-convert.hh" +#include "warn.hh" Performance::Performance () { - midi_l_ =0; - audio_elem_p_list_ = 0; + midi_ = 0; } - -Performance::~Performance() +Performance::~Performance () { - delete audio_elem_p_list_; + junk_pointers (audio_elements_); } void -Performance::output (Midi_stream& midi_stream) +Performance::output (Midi_stream &midi_stream) const { - int tracks_i = audio_staff_l_arr_.size() + 1; + int tracks_ = audio_staffs_.size (); - // ugh - int clocks_per_4_i = 384; - - midi_stream << Midi_header (1, tracks_i, clocks_per_4_i); - output_header_track (midi_stream); - *mlog << "\n"; - *mlog << _ ("Track ... "); - int channel = 1; - for (int i =0; i < audio_staff_l_arr_.size (); i++) + midi_stream.write (Midi_header (1, tracks_, 384)); + if (be_verbose_global) + progress_indication (_ ("Track...") + " "); + + int channel = 0; + for (vsize i = 0; i < audio_staffs_.size (); i++) { - *mlog << '[' << flush; - Audio_staff *s = audio_staff_l_arr_[i]; + Audio_staff *s = audio_staffs_[i]; + if (be_verbose_global) + progress_indication ("[" + to_string (i)); - *mlog << i << flush; + int midi_channel = s->channel_; + + if (midi_channel < 0) + { + midi_channel = channel; + channel ++; + /* + MIDI players tend to ignore instrument settings on + channel 10, the percussion channel. + */ + if (channel % 16 == 9) + channel ++; + } /* - Aargh, let's hear it for the MIDI standard. - MIDI players tend to ignore instrument settings on - channel 10, the percussion channel by default. - */ - if (channel == 9) - channel++; - s->output (midi_stream, channel++); - *mlog << ']' << flush; + Huh? Why does each staff also have a separate channel? We + should map channels to voices, not staves. --hwn. + */ + if (midi_channel > 15) + { + warning (_ ("MIDI channel wrapped around")); + warning (_ ("remapping modulo 16")); + + midi_channel = midi_channel % 16; + } + + s->output (midi_stream, midi_channel); + if (be_verbose_global) + progress_indication ("]"); } } - void -Performance::output_header_track (Midi_stream& midi_stream) +Performance::add_element (Audio_element *p) { - Midi_track midi_track; - - // perhaps multiple text events? - String str = String (_("Creator: ")); - if (no_timestamps_global_b) - str += gnu_lilypond_str (); - else - str += gnu_lilypond_version_str(); - str += "\n"; - - /* - This seems silly, but in fact the audio elements should - be generated elsewhere: not midi-specific. - */ - Audio_text creator_a (Audio_text::TEXT, str); - Midi_text creator (&creator_a); - midi_track.add (Moment (0), &creator); - - str = _("Automatically generated"); - if (no_timestamps_global_b) - str += ".\n"; - else - { - str += _(", at "); - time_t t (time (0)); - str += ctime (&t); - str = str.left_str (str.length_i() - 1); - } - Audio_text generate_a (Audio_text::TEXT, str); - Midi_text generate (&generate_a); - midi_track.add (Moment (0), &generate); - - str = _f ("from musical definition: %s", origin_str_); + audio_elements_.push_back (p); +} - Audio_text from_a (Audio_text::TEXT, str); - Midi_text from (&from_a); - midi_track.add (Moment (0), &from); +void +Performance::write_output (string out) const +{ + if (out == "-") + out = "lelie.midi"; - Audio_text track_name_a (Audio_text::TRACK_NAME, "Track " - + String_convert::i2dec_str (0, 0, '0')); - Midi_text track_name (&track_name_a); - - midi_track.add (Moment (0), &track_name); + /* Maybe a bit crude, but we had this before */ + File_name file_name (out); + out = file_name.to_string (); - // Some sequencers read track 0 last. - // Audio_tempo tempo_a (midi_l_->get_tempo_i (Moment (1, 4))); - // Midi_tempo tempo (&tempo_a); - // midi_track.add (Moment (0), &tempo); + Midi_stream midi_stream (out); + message (_f ("MIDI output to `%s'...", out)); - midi_stream << midi_track; + output (midi_stream); + progress_indication ("\n"); } -void -Performance::add_element (Audio_element *p) -{ - if (Audio_staff*s=dynamic_cast (p)) - { - audio_staff_l_arr_.push (s); - } - else if (Audio_column *c = dynamic_cast(p)) - { - c->performance_l_ = this; - } - audio_elem_p_list_ = new Killing_cons (p, audio_elem_p_list_); -} void -Performance::print() const +Performance::process () { -#ifndef NPRINT - DEBUG_OUT << "Performance { "; - DEBUG_OUT << "Items: "; - for (Cons* i =audio_elem_p_list_; i; i = i->next_) - i->car_->print (); - DEBUG_OUT << "}"; -#endif } -void -Performance::process() +Performance * +unsmob_performance (SCM x) { - print (); - - String out = midi_l_->get_default_output (); - if (out.empty_b ()) - { - - out = default_outname_base_global; - if (out == "-") - out = "lelie"; - int def = midi_l_->get_next_default_count (); - if (def) - { - out += "-" + to_str (def); - } - - out += ".midi"; - } - - Midi_stream midi_stream (out); - *mlog << _f ("MIDI output to %s...", out) << endl; - target_str_global_array.push (out); - - output (midi_stream); - *mlog << endl; + return dynamic_cast (unsmob_music_output (x)); }