/*====================================================================
 *
 * Copyright 1993, Silicon Graphics, Inc.
 * All Rights Reserved.
 *
 * This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics,
 * Inc.; the contents of this file may not be disclosed to third
 * parties, copied or duplicated in any form, in whole or in part,
 * without the prior written permission of Silicon Graphics, Inc.
 *
 * RESTRICTED RIGHTS LEGEND:
 * Use, duplication or disclosure by the Government is subject to
 * restrictions as set forth in subdivision (c)(1)(ii) of the Rights
 * in Technical Data and Computer Software clause at DFARS
 * 252.227-7013, and/or in similar or successor clauses in the FAR,
 * DOD or NASA FAR Supplement. Unpublished - rights reserved under the
 * Copyright Laws of the United States.
 *====================================================================*/

#include <libaudio.h>
#include "n_libaudio.h"

s32 n_alSeqpGetChlProgram(N_ALSeqPlayer *seqp, u8 chan)

{
    s32         i;
    ALBank      *b = seqp->bank;
    ALInstrument *inst;
    ALChanState s;

    s = seqp->chanState[chan];
    for (i=0; i<b->instCount; i++){
        inst = b->instArray[i];
        if (inst == s.instrument)
            return i;
    }
    return(-1);
    
}

