/* 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 2
 * 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, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * $URL$
 * $Id$
 *
 */

#ifndef SOUND_MODS_MAXTRAX_H
#define SOUND_MODS_MAXTRAX_H

#include "sound/mods/paula.h"

namespace Audio {

class MaxTrax : public Paula {
public:
	MaxTrax(int rate, bool stereo);
	virtual ~MaxTrax();

protected:
	void interrupt();

private:
public:

	enum { kNumPatches = 64, kNumVoices = 4, kNumChannels = 16, kNumExtraChannels = 1 };
	enum { kPriorityScore, kPriorityNote, kPrioritySound };
	int16	_microtonal[128];
	struct Event;

	struct PlayerContext {
		uint16	vBlankFreq;
		int32	ticks;
		int32	tickUnit;
		uint16	frameUnit;

		uint16	maxScoreNum;
		uint16	tempo;
		uint16	tempoInitial;
		uint16	tempoStart;
		int16	tempoDelta;
		int32	tempoTime;
		int32	tempoTicks;

		byte	volume;

		bool	filterOn;
		bool	handleVolume;
		bool	musicPlaying;
		bool	musicLoop;

		int		scoreIndex;
		const Event	*nextEvent;
		int32	nextEventTime;

		bool	addedNote;
		byte	lastVoice;
		byte	voicesActive;

	} _playerCtx;

	struct Envelope {
		uint16	duration;
		uint16	volume;
	};

	const struct Patch {
		const Envelope *attackPtr;
		//Envelope *releasePtr;
		uint16	attackLen;
		uint16	releaseLen;

		uint16	tune;
		uint16	volume;

		// this was the SampleData struct in the assembler source
		const int8	*samplePtr;
		uint32	sampleTotalLen;
		uint32	sampleAttackLen;
		uint16	sampleOctaves;
	} _patch[kNumPatches];

	struct Event {
		uint16	startTime;
		uint16	stopTime;
		byte	command;
		byte	parameter;
	};

	struct Score {
		const Event	*events;
		uint32	numEvents;
	} *_scores;

	int _numScores;

	struct ChannelContext {
		const Patch	*patch;
		uint16	regParamNumber;

		uint16	modulation;
		uint16	modulationTime;

		int16	microtonal;

		uint16	portamento;

		int16	pitchBend;
		int16	pitchReal;
		int8	pitchBendRange;

		uint8	volume;
		uint8	voicesActive;
//		uint8	number;

		enum {
			kFlagRightChannel = 1 << 0,
			kFlagPortamento = 1 << 1,
			kFlagDamper = 1 << 2,
			kFlagMono = 1 << 3,
			kFlagMicrotonal = 1 << 4,
			kFlagModVolume = 1 << 5,
			kFlagAltered = 1 << 6
		};
		byte	flags;

		uint8	lastNote;
		uint8	program;

	} _channelCtx[kNumChannels + kNumExtraChannels];

	struct VoiceContext {
		ChannelContext *channel;
		const Patch	*patch;
		const Envelope *envelope;
		uint32	uinqueId;
		uint32	lastTicks;
		uint32	ticksLeft;
		int32	portaTicks;
		int32	incrVolume;
		uint32	periodOffset;
		/*ifne FASTSOUND
			APTR	voice_CurFastIOB			; current fast iob playing
			APTR	voice_NextFastIOB			; next fast iob to play
			APTR	voice_FastBuffer			; pointer to buffer area
		endc*/
		uint16	envelopeLeft;
		uint16	noteVolume;
		uint16	baseVolume;
		uint16	lastPeriod;
		byte	baseNote;
		byte	endNote;
		byte	number;
		byte	link;
		byte	priority;
		enum {
			kStatusFree,
			kStatusHalt,
			kStatusDecay,
			kStatusRelease,
			kStatusSustain,
			kStatusAttack,
			kStatusStart
		};
		byte	status;
		enum {
			kFlagStolen = 1 << 0,
			kFlagPortamento = 1 << 1,
			kFlagDamper = 1 << 2,
			kFlagBlocked = 1 << 3,
			kFlagRecalc = 1 << 4
		};
		byte	flags;
		byte	lastVolume;

		int32	stopEventTime;
		byte	stopEventCommand;
		byte	stopEventParameter;
	} _voiceCtx[kNumVoices];

	bool load(Common::SeekableReadStream &musicData, bool loadScores = true, bool loadSamples = true);
	bool doSong(int songIndex, int advance = 0);

	void stopMusic();
	void freePatches();
	void freeScores();
	void resetChannel(ChannelContext &chan, bool rightChannel);

	int calcNote(VoiceContext &voice);
	int8 noteOn(ChannelContext &channel, byte note, uint16 volume, uint16 pri);
	void noteOff(ChannelContext &channel, byte note);
	void killVoice(byte num);

	void setTempo(const uint16 tempo) {
		_playerCtx.tickUnit = (int32)(((uint32)(tempo & 0xFFF0) << 8) / (uint16)(5 * _playerCtx.vBlankFreq));
	}

	static void outPutEvent(const Event &ev, int num = -1) {
		struct {
			byte cmd;
			const char *name;
			const char *param;
		} COMMANDS[] = {
			{0x80, "TEMPO   ", "TEMPO, N/A      "},
			{0xa0, "SPECIAL ", "CHAN, SPEC # | VAL"},
			{0xb0, "CONTROL ", "CHAN, CTRL # | VAL"},
			{0xc0, "PROGRAM ", "CHANNEL, PROG # "},
			{0xe0, "BEND    ", "CHANNEL, BEND VALUE"},
			{0xf0, "SYSEX   ", "TYPE, SIZE      "},
			{0xf8, "REALTIME", "REALTIME, N/A   "},
			{0xff, "END     ", "N/A, N/A        "},
			{0xff, "NOTE    ", "VOL | CHAN, STOP"},
		};

		int i = 0;
		for (; i < ARRAYSIZE(COMMANDS) - 1 && ev.command != COMMANDS[i].cmd; ++i)
			;

		if (num == -1)
			debug("Event    : %02X %s %s %02X %04X %04X", ev.command, COMMANDS[i].name, COMMANDS[i].param, ev.parameter, ev.startTime, ev.stopTime);
		else
			debug("Event %3d: %02X %s %s %02X %04X %04X", num, ev.command, COMMANDS[i].name, COMMANDS[i].param, ev.parameter, ev.startTime, ev.stopTime);
	}

	static void outPutScore(const Score &sc, int num = -1) {
		if (num == -1)
			debug("score   : %i Events", sc.numEvents);
		else
			debug("score %2d: %i Events", num, sc.numEvents);
		for (uint i = 0; i < sc.numEvents; ++i)
			outPutEvent(sc.events[i], i);
		debug("");
	}
};
}	// End of namespace Audio

#endif