З тексту файлу sqUnixMIDIALSA.inc
int sqMIDIPortWriteFromAt(int portNum, int count, int bufferPtr, int time)
{
if (portNum == 0)
{
int i;
snd_seq_event_t ev;
unsigned char *bytePtr= (unsigned char *)bufferPtr;
dprintf("Port %d Write:", portNum);
for (i= 0; i < count; ++i) dprintf(" %d", (int)bytePtr);
dprintf(" at %d\n", time);
/* Цей рядок було додано до тексту MIDIPLugin , щоб передавати на порт TiMIdity
*/
snd_seq_connect_to(seq, out_port, 128, 0);
/* ----------------------------------------------------------------
*/
snd_seq_ev_clear(&ev);
snd_seq_ev_set_source(&ev, out_port);
snd_seq_ev_set_subs(&ev);
snd_seq_ev_schedule_tick(&ev, queue, 0, time);
for (i= 0; i < count; ++i)
processMIDIByte(&ev, *bytePtr++);
snd_seq_event_output(seq, &ev);
snd_seq_drain_output(seq);
success(true);
return count;
}
У вкладенні текст цього файлу