#include <libaudio.h>

void alCSPSetFadeIn(ALCSPlayer *seqp, u8 chan, ALPan pan) {
    ALEvent       evt;

    evt.type            = AL_SEQP_MIDI_EVT;
    evt.msg.midi.ticks  = 0;
    evt.msg.midi.status = AL_MIDI_ControlChange | chan;
    evt.msg.midi.byte1  = AL_SEQP_PROG_EVT;
    evt.msg.midi.byte2  = pan;

    alEvtqPostEvent(&seqp->evtq, &evt, 0);
}
