/*---------------------------------------------------*/
long STS_Build14BitValue (long e)
{
long field0 = MidiGetField(e, 0);
long field1 = MidiGetField(e, 1);
long val = (field1 << 7) | field0;
return val;
}
/* ------------------------------------------------------------------------- */
static char * DatasToText(MidiEvPtr e , char *buff)
{
char *ptr= buff;
int i, max;
*ptr= 0;
switch (EvType(e)) {
case typeTextual:
case typeCopyright:
case typeSeqName:
case typeInstrName:
case typeLyric:
case typeMarker:
case typeCuePoint:
for( i=0, max= min(MidiCountFields(e), 18); i< max; i++)
*ptr++= (char)MidiGetField(e, i);
*ptr= 0;
break;
case typeSMPTEOffset:
for( i=0; i< 6; i++, ptr+=3)
sprintf( ptr, "%-2ld ", MidiGetField(e, i));
break;
default:
for( i=0, max= min(MidiCountFields(e), 5); i< max; i++, ptr+=4)
sprintf( ptr, "%-3ld ", MidiGetField(e, i));
}
return buff;
}
/*---------------------------------------------------*/
void HandlePrivate(ScorePtr sp, char* str, long e)
{
switch(sp->cAction){
case 0: /* Simply write midi values*/
long f0 = MidiGetField(e, 0);
long f1 = MidiGetField(e, 1);
long f2 = MidiGetField(e, 2);
long f3 = MidiGetField(e, 3);
sprintf(str, "%03u \t %03u \t %03u \t %03u \t", f0, f1, f2, f3);
break;
}
}
void TrsfTempoSeq(MidiSeqPtr s, double ticks)
{
double tt; // dur?e d'un ticks (micro sec)
double t1; // temps du dernier changement de tempo (micro sec)
double t2; // temps actuel (micro sec)
long d1; // date du dernier changement de tempo (ticks)
MidiEvPtr e;
t1 = 0.0;
tt = 500000.0 / ticks;
d1 = 0;
e = First(s);
while (e) {
t2 = t1 + tt * (Date(e) - d1);
if (EvType(e) == typeTempo) {
tt = MidiGetField(e, 0) / ticks;
d1 = Date(e);
t1 = t2;
}
Date(e) = (long) (t2 / 1000.0);
e = Link(e);
}
}
void MidiInputDeviceMidiShare::ReceiveEvents(short ref)
{
MidiInputDeviceMidiShare* driver = (MidiInputDeviceMidiShare*)MidiGetInfo(ref);
MidiEvPtr ev;
while ((ev = MidiGetEv(ref)))
switch(EvType(ev)) {
case typeCtrlChange:
driver->DispatchControlChange(MidiGetField(ev,0),MidiGetField(ev,0),Chan(ev));
MidiFreeEv(ev);
break;
case typePitchWheel:
driver->DispatchPitchbend(((MidiGetField(ev,0)+(MidiGetField(ev,1) << 7)) - 8192),Chan(ev));
MidiFreeEv(ev);
break;
case typeNote:
driver->DispatchNoteOn(Pitch(ev),Vel(ev),Chan(ev));
MidiTask(KeyOffTask,Date(ev)+Dur(ev),ref,(long)ev,0,0);
break;
case typeKeyOn:
if (Vel(ev) > 0)
driver->DispatchNoteOn(Pitch(ev),Vel(ev),Chan(ev));
else
driver->DispatchNoteOff(Pitch(ev),Vel(ev),Chan(ev));
MidiFreeEv(ev);
break;
case typeKeyOff:
driver->DispatchNoteOff(Pitch(ev),Vel(ev),Chan(ev));
MidiFreeEv(ev);
break;
}
}
void transposeAndDelay (short aRefNum)
{
MidiEvPtr e;
while (e = MidiGetEv(aRefNum)) {
switch (EvType(e)) {
case typeNote:
case typeKeyOn:
case typeKeyOff:
MidiSetField(e, 0, 7 + MidiGetField(e,0)); // transpose pitch + 7
Date(e) += 1000; // delay 1000 ms
MidiSend(aRefNum, e);
break;
default:
MidiFreeEv(e);
}
}
}
/*---------------------------------------------------*/
void STS_WriteScore (long s, ScorePtr sp)
{
MidiEvPtr e = 0;
float p2, p3;
long param;
int ref, chan, type;
FILE *f;
char scoreline[1024];
char str[25];
char str2[25];
if((f = fopen(sp->scorefile, "wt")) != NULL){
if(sp->addinfile != "NULL") STS_AppendToScoreFile(sp->addinfile, f);
e = FirstEv(s);
if(e){
while(e){
type = EvType(e);
if(!sp->events[type]){e = Link(e); continue;}
if(sp->ab == abTrack){
ref = RefNum(e);
if(sp->shiftref) ref += 1;
if(!sp->trkchn[ref]){e = Link(e); continue;}
else sprintf(scoreline, "i%u \t", ref);
}
if(sp->ab == abChan){
chan = Chan(e);
if(!sp->trkchn[chan]){e = Link(e); continue;}
else sprintf(scoreline, "i%u \t", chan + 1);
}
p2 = (float)Date(e) / 1000.;
sprintf(str, "%.3f \t", p2); strcat(scoreline, str);
switch(type){
case typeNote:
p3 = (float)MidiGetField(e, 2) / 1000.;
sprintf(str, "%.3f \t", p3); strcat(scoreline, str);
STS_ConvertPitch(sp, str, MidiGetField(e, 0));
STS_ConvertAmpli(sp, str2, MidiGetField(e, 1));
STS_OrderParams(sp, scoreline, str, str2);
break;
case typeKeyPress:
sprintf(str, "%.3f \t", sp->defdur / 1000.); strcat(scoreline, str);
STS_ConvertPitch(sp, str, MidiGetField(e, 0));
STS_ConvertAmpli(sp, str2, MidiGetField(e, 1));
STS_OrderParams(sp, scoreline, str, str2);
break;
case typeCtrlChange:
case typeCtrl14b:
case typeNonRegParam:
case typeRegParam:
sprintf(str, "%.3f \t", sp->defdur / 1000.); strcat(scoreline, str);
sprintf(str, "%03u \t", MidiGetField(e, 0)); strcat(scoreline, str);
sprintf(str, "%03u \t", MidiGetField(e, 1)); strcat(scoreline, str);
break;
case typeProgChange:
case typeChanPress:
sprintf(str, "%.3f \t", sp->defdur / 1000.); strcat(scoreline, str);
sprintf(str, "%03u \t", MidiGetField(e, 0)); strcat(scoreline, str);
break;
case typePitchWheel:
sprintf(str, "%.3f \t", sp->defdur / 1000.); strcat(scoreline, str);
param = STS_Build14BitValue((long)e) - 8192;
sprintf(str, "%03li \t", param); strcat(scoreline, str);
break;
default:
if(type >= typePrivate && type <= typeLastPrivate){
sprintf(str, "%.3f \t", sp->defdur / 1000.); strcat(scoreline, str);
sp->CFunc(sp, str, (long)e);
strcat(scoreline, str);
}
break;
}
strcat(scoreline, "\n"); fputs(scoreline, f);
e = Link(e);
}
}
if(sp->writesection){
if(sp->padout > 0.){
sprintf(str, "f0 %.3f\n", sp->padout / 1000.);
fputs(str, f);
}
fputs("s", f);
}
else fputs("e", f);
fclose(f);
}
}
/*
* fluid_midishare_midi_driver_receive
*/
static void fluid_midishare_midi_driver_receive(short ref)
{
fluid_midishare_midi_driver_t* dev = (fluid_midishare_midi_driver_t*)MidiGetInfo(ref);
fluid_midi_event_t new_event;
MidiEvPtr e;
int count, i;
while ((e = MidiGetEv (ref)))
{
switch (EvType (e))
{
case typeNote:
/* Copy the data to fluid_midi_event_t */
fluid_midi_event_set_type(&new_event, NOTE_ON);
fluid_midi_event_set_channel(&new_event, Chan(e));
fluid_midi_event_set_pitch(&new_event, Pitch(e));
fluid_midi_event_set_velocity(&new_event, Vel(e));
/* and send it on its way to the router */
(*dev->driver.handler)(dev->driver.data, &new_event);
#if defined(MACINTOSH) && defined(MACOS9)
MidiTask(dev->upp_task_ptr, MidiGetTime()+Dur(e), ref, (long)e, 0, 0);
#else
MidiTask(fluid_midishare_keyoff_task, MidiGetTime()+Dur(e), ref, (long)e, 0, 0);
#endif
/* e gets freed in fluid_midishare_keyoff_task */
continue;
case typeKeyOn:
/* Copy the data to fluid_midi_event_t */
fluid_midi_event_set_type(&new_event, NOTE_ON);
fluid_midi_event_set_channel(&new_event, Chan(e));
fluid_midi_event_set_pitch(&new_event, Pitch(e));
fluid_midi_event_set_velocity(&new_event, Vel(e));
break;
case typeKeyOff:
/* Copy the data to fluid_midi_event_t */
fluid_midi_event_set_type(&new_event, NOTE_OFF);
fluid_midi_event_set_channel(&new_event, Chan(e));
fluid_midi_event_set_pitch(&new_event, Pitch(e));
fluid_midi_event_set_velocity(&new_event, Vel(e)); /* release vel */
break;
case typeCtrlChange:
/* Copy the data to fluid_midi_event_t */
fluid_midi_event_set_type(&new_event, CONTROL_CHANGE);
fluid_midi_event_set_channel(&new_event, Chan(e));
fluid_midi_event_set_control(&new_event, MidiGetField(e,0));
fluid_midi_event_set_value(&new_event, MidiGetField(e,1));
break;
case typeProgChange:
/* Copy the data to fluid_midi_event_t */
fluid_midi_event_set_type(&new_event, PROGRAM_CHANGE);
fluid_midi_event_set_channel(&new_event, Chan(e));
fluid_midi_event_set_program(&new_event, MidiGetField(e,0));
break;
case typePitchWheel:
/* Copy the data to fluid_midi_event_t */
fluid_midi_event_set_type(&new_event, PITCH_BEND);
fluid_midi_event_set_channel(&new_event, Chan(e));
fluid_midi_event_set_value(&new_event, ((MidiGetField(e,0)
+ (MidiGetField(e,1) << 7))
- 8192));
break;
case typeSysEx:
count = MidiCountFields (e);
/* Discard empty or too large SYSEX messages */
if (count == 0 || count > FLUID_MIDI_PARSER_MAX_DATA_SIZE)
{
MidiFreeEv (e);
continue;
}
/* Copy SYSEX data, one byte at a time */
for (i = 0; i < count; i++)
dev->sysexbuf[i] = MidiGetField (e, i);
fluid_midi_event_set_sysex (&new_event, dev->sysexbuf, count, FALSE);
break;
default:
MidiFreeEv (e);
continue;
}
MidiFreeEv (e);
/* Send the MIDI event */
(*dev->driver.handler)(dev->driver.data, &new_event);
}
}
void TExtEventReceiver::ReceiveTempo(MidiEvPtr e) {fPlayer->SetTempo(MidiGetField(e,0));}
