X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fperformance.cc;h=9f840efd2524eedc28e7204a13d5c5f47d97a958;hb=b5b3e36d04fe1a35c9ffc5671b1351394783fbf6;hp=87392b5153dfcac0fc7f0a25df47df6b60bf9060;hpb=8aad615ea7bb31f49a0c2afc21eea5ff5de20437;p=lilypond.git diff --git a/lily/performance.cc b/lily/performance.cc index 87392b5153..9f840efd25 100644 --- a/lily/performance.cc +++ b/lily/performance.cc @@ -1,148 +1,135 @@ /* - 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--2015 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 "main.hh" +#include "midi-chunk.hh" +#include "midi-stream.hh" +#include "score.hh" +#include "string-convert.hh" +#include "warn.hh" -Performance::Performance () +Performance::Performance (bool ports) + : midi_ (0), + ports_ (ports), + header_ (SCM_EOL) { - midi_l_ =0; } -void -Performance::add_column (Audio_column* p) +Performance::~Performance () { - p->performance_l_ = this; - audio_column_p_list_.bottom().add (p); + junk_pointers (audio_elements_); } void -Performance::output (Midi_stream& midi_stream_r) +Performance::derived_mark () const { - int tracks_i = audio_staff_l_list_.size() + 1; - // ugh - int clocks_per_4_i = 384; - midi_stream_r << Midi_header (1, tracks_i, clocks_per_4_i); - output_header_track (midi_stream_r); - int n = 1; - for (PCursor i (audio_staff_l_list_); i.ok(); i++) - i->output (midi_stream_r, n++); + scm_gc_mark (header_); } -void -Performance::output_header_track (Midi_stream& midi_stream_r) +SCM +Performance::get_header () const { - 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"; - - Midi_text creator (Midi_text::TEXT, str); - 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); - } - Midi_text generate (Midi_text::TEXT, str); - midi_track.add (Moment (0), &generate); - - str = _f ("from musical definition: %s", origin_str_); - - Midi_text from (Midi_text::TEXT, str); - midi_track.add (Moment (0), &from); - - Midi_text track_name (Midi_text::TRACK_NAME, "Track " - + String_convert::i2dec_str (0, 0, '0')); - midi_track.add (Moment (0), &track_name); - - Midi_tempo tempo (midi_l_->get_tempo_i (Moment (1, 4))); - midi_track.add (Moment (0), &tempo); - - midi_stream_r << midi_track; + return header_; } void -Performance::add_staff (Audio_staff* l) +Performance::set_header (SCM module) { - audio_staff_l_list_.bottom().add (l); + assert (ly_is_module (module)); + header_ = module; } void -Performance::add_element (Audio_element *p) +Performance::output (Midi_stream &midi_stream, + const string &performance_name) const { - audio_elem_p_list_.bottom().add (p); + int tracks_ = audio_staffs_.size (); + + midi_stream.write (Midi_header (1, tracks_, 384)); + debug_output (_ ("Track...") + " ", false); + + //Find the first Audio_item in the performance, so all staves start + //at the same tick. + Moment start_mom = 0; + for (vsize i = 0; i < audio_elements_.size (); i++) + if (Audio_item *item = dynamic_cast(audio_elements_[i])) + start_mom = min (start_mom, item->audio_column_->when ()); + + for (vsize i = 0; i < audio_staffs_.size (); i++) + { + Audio_staff *s = audio_staffs_[i]; + if (Audio_control_track_staff *c = + dynamic_cast(s)) + { + // The control track, created by Control_track_performer, should + // contain a placeholder for the name of the MIDI sequence as its + // initial audio element. Fill in the name of the sequence to + // this element before outputting MIDI. + assert (!c->audio_items_.empty ()); + Audio_text *text = + dynamic_cast(c->audio_items_.front ()); + assert (text != 0); + assert (text->type_ == Audio_text::TRACK_NAME); + assert (text->text_string_ == "control track"); + text->text_string_ = performance_name; + } + debug_output ("[" + ::to_string (i), true); + s->output (midi_stream, i, ports_, moment_to_ticks (start_mom)); + debug_output ("]", false); + } } void -Performance::print() const +Performance::add_element (Audio_element *p) { -#ifndef NPRINT - DOUT << "Performance { "; - DOUT << "Items: "; - for (PCursor i (audio_elem_p_list_.top ()); i.ok (); i++) - i->print (); - - DOUT << "\ncolumns: "; - for (PCursor i (audio_column_p_list_); i.ok(); i++) - i->print(); - DOUT << "}\n"; -#endif + audio_elements_.push_back (p); } void -Performance::process() +Performance::write_output (string out, const string &performance_name) const { - print (); + if (out == "-") + out = "lelie.midi"; + + /* Maybe a bit crude, but we had this before */ + File_name file_name (out); + out = file_name.to_string (); - 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); + message (_f ("MIDI output to `%s'...", out)); - output (midi_stream); - *mlog << endl; + output (midi_stream, performance_name); + progress_indication ("\n"); +} + +void +Performance::process () +{ }