From 951131e7c2a7ce270398f4635126c2cdcd1892e7 Mon Sep 17 00:00:00 2001
From: Chris Apers
Date: Sun, 12 Sep 2004 11:14:14 +0000
Subject: Zodiac midi driver

svn-id: r15028
---
 backends/midi/zodiac.cpp | 94 +++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 93 insertions(+), 1 deletion(-)

(limited to 'backends/midi')

diff --git a/backends/midi/zodiac.cpp b/backends/midi/zodiac.cpp
index c712a92208..775f987b01 100644
--- a/backends/midi/zodiac.cpp
+++ b/backends/midi/zodiac.cpp
@@ -23,5 +23,97 @@
 #include "common/util.h"
 
 #ifndef DISABLE_TAPWAVE
-// Tapwave code will come here
+
+#include "TwTraps.h"
+#include "TwMidi.h"
+
+
+class MidiDriver_Zodiac:public MidiDriver_MPU401 {
+public:
+	MidiDriver_Zodiac();
+	int open();
+	void close();
+	void send(uint32 b);
+	void sysEx(byte *msg, uint16 length);
+
+private:
+	TwMidiHandle _midiHandle;
+	Boolean _isOpen;
+	Int32 _oldVol;
+ };
+
+MidiDriver_Zodiac::MidiDriver_Zodiac() {
+	_isOpen = false;
+	_midiHandle = 0;
+}
+
+int MidiDriver_Zodiac::open() {
+	Err e;
+
+	if (e = TwMidiOpen(&_midiHandle))
+ 		return MERR_DEVICE_NOT_AVAILABLE;
+
+	TwMidiGetMasterVolume(&_oldVol);
+	TwMidiSetMasterVolume(twMidiMaxVolume);
+
+	_isOpen = true;
+	return 0;
+}
+
+void MidiDriver_Zodiac::close() {
+	if (_isOpen) {
+		_isOpen = false;
+		MidiDriver_MPU401::close();
+		
+		TwMidiSetMasterVolume(_oldVol);
+		TwMidiClose(_midiHandle);
+	}
+}
+
+void MidiDriver_Zodiac::send(uint32 b) {
+	if (!_isOpen)
+		return;
+
+	UInt8 midiCmd[4];
+	UInt8 chanID,mdCmd;
+
+	midiCmd[3] = (b & 0xFF000000) >> 24;
+	midiCmd[2] = (b & 0x00FF0000) >> 16;
+	midiCmd[1] = (b & 0x0000FF00) >> 8;
+	midiCmd[0] = (b & 0x000000FF);
+	
+	chanID = (midiCmd[0] & 0x0F) ;
+	mdCmd = midiCmd[0] & 0xF0;
+
+	switch (mdCmd) {
+		case 0x80:	// note off
+			TwMidiNoteOff(_midiHandle, chanID, midiCmd[1], 0);
+			break;
+	
+		case 0x90:	// note on
+			TwMidiNoteOn(_midiHandle, chanID, midiCmd[1], midiCmd[2]);
+			break;
+		
+		case 0xB0:	// control change
+			TwMidiControlChange(_midiHandle, chanID, midiCmd[1], midiCmd[2]);
+			break;
+		
+		case 0xC0:	// progam change
+			TwMidiProgramChange(_midiHandle, chanID, midiCmd[1]);
+			break;
+		
+		case 0xE0:	// pitchBend
+			TwMidiPitchBend(_midiHandle, chanID, (short)(midiCmd[1] | (midiCmd[2] << 8)));
+			break;
+	}
+}
+
+void MidiDriver_Zodiac::sysEx(byte *msg, uint16 length) {
+	TwMidiSysEx(_midiHandle, 0, msg, length);
+}
+
+MidiDriver *MidiDriver_Zodiac_create() {
+	return new MidiDriver_Zodiac();
+}
+
 #endif
-- 
cgit v1.2.3