/*---------------------------------------------------*/ 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));}