Initial commit

engines/tot/midi.cpp

@@ -0,0 +1,194 @@
+/* ScummVM - Graphic Adventure Engine
+ *
+ * ScummVM is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program 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.
+ *
+ * This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
+#include "audio/midiparser.h"
+#include "audio/adlib_ctmidi.h"
+#include "common/config-manager.h"
+
+#include "tot/midi.h"
+
+namespace Tot {
+
+MidiPlayer::MidiPlayer() {
+	_driver = nullptr;
+
+	_paused = false;
+	_musicData = nullptr;
+	_parserMusic = nullptr;
+}
+
+MidiPlayer::~MidiPlayer() {
+	stop();
+
+	if (_driver) {
+		_driver->setTimerCallback(nullptr, nullptr);
+		_driver->close();
+	}
+	if (_parserMusic)
+		delete _parserMusic;
+	if (_driver) {
+		delete _driver;
+		_driver = nullptr;
+	}
+}
+int MidiPlayer::open() {
+
+	// Don't call open() twice!
+	assert(!_driver);
+
+	OPL::Config::OplType oplType =
+		(MidiDriver_ADLIB_Multisource::detectOplType(OPL::Config::kOpl3) && ConfMan.getBool("opl3_mode")) ?
+			OPL::Config::kOpl3 : OPL::Config::kOpl2;
+
+	_driver = new MidiDriver_ADLIB_CTMIDI(oplType);
+
+	_parserMusic = MidiParser::createParser_SMF(0);
+
+	_driver->property(MidiDriver::PROP_USER_VOLUME_SCALING, true);
+	_driver->setControllerDefault(MidiDriver_Multisource::CONTROLLER_DEFAULT_PITCH_BEND);
+	_driver->setControllerDefault(MidiDriver_Multisource::CONTROLLER_DEFAULT_PANNING);
+
+	int returnCode = _driver->open();
+	if (returnCode != 0)
+		error("MidiPlayer::open - Failed to open MIDI music driver - error code %d.", returnCode);
+
+	syncSoundSettings();
+	// Connect the driver(s) and the parser(s).
+	_parserMusic->setMidiDriver(_driver);
+	_parserMusic->setTimerRate(_driver->getBaseTempo());
+	_driver->setTimerCallback(this, &onTimer);
+	return 0;
+}
+
+void MidiPlayer::onTimer(void *data) {
+	MidiPlayer *p = (MidiPlayer *)data;
+	if (p->_parserMusic) {
+		p->_parserMusic->onTimer();
+	}
+}
+
+bool MidiPlayer::isPlaying() {
+	return _parserMusic->isPlaying();
+}
+
+void MidiPlayer::stop() {
+	if (_parserMusic) {
+		_parserMusic->stopPlaying();
+		if (_driver)
+			_driver->deinitSource(0);
+	}
+}
+
+void MidiPlayer::pause(bool b) {
+	if (_paused == b || !_driver)
+		return;
+
+	_paused = b;
+	if (_paused) {
+		if (_parserMusic)
+			_parserMusic->pausePlaying();
+	} else {
+		if (_parserMusic)
+			_parserMusic->resumePlaying();
+	}
+}
+
+void MidiPlayer::syncSoundSettings() {
+	if (_driver)
+		_driver->syncSoundSettings();
+}
+
+void MidiPlayer::setLoop(bool loop) {
+	if (_parserMusic)
+		_parserMusic->property(MidiParser::mpAutoLoop, loop);
+}
+
+void MidiPlayer::setSourceVolume(uint8 volume) {
+	if (_driver)
+		_driver->setSourceVolume(0, volume);
+}
+
+void MidiPlayer::startFadeOut() {
+	if (_driver)
+		// Note: 40 ms is almost imperceptibly short
+		_driver->startFade(40, 0);
+}
+
+void MidiPlayer::startFadeIn() {
+	if (_driver)
+		_driver->startFade(40, 255);
+}
+
+bool MidiPlayer::isFading() {
+	return _driver ? _driver->isFading() : false;
+}
+
+void MidiPlayer::load(Common::SeekableReadStream *in, int32 size) {
+
+	MidiParser *parser = _parserMusic;
+	if (!parser)
+		return;
+
+	if (size < 0) {
+		// Use the parser to determine the size of the MIDI data.
+		int64 startPos = in->pos();
+		size = parser->determineDataSize(in);
+		if (size < 0) {
+			warning("MidiPlayer::load - Could not determine size of music data");
+			return;
+		}
+		// determineDataSize might move the stream position, so return it to
+		// the original position.
+		in->seek(startPos);
+	}
+
+	if (isPlaying())
+		stop();
+	parser->unloadMusic();
+
+	byte **dataPtr = &_musicData;
+	if (*dataPtr) {
+		delete[] *dataPtr;
+	}
+
+	*dataPtr = new byte[size];
+	in->read(*dataPtr, size);
+
+	parser->loadMusic(*dataPtr, size);
+}
+
+void MidiPlayer::play(int track) {
+	MidiParser *parser = _parserMusic;
+	if (!parser)
+		return;
+	if (parser->setTrack(track)) {
+		if (_driver)
+			// Reset the source volume to neutral (in case the previous track
+			// was faded out).
+			_driver->resetSourceVolume(0);
+		parser->startPlaying();
+	} else {
+		parser->stopPlaying();
+		warning("MidiPlayer::play - Could not play %s track %i", "music", track);
+	}
+}
+
+} // End of namespace Tot