/*====================================================================
 * instrument.c
 *
 * Synopsis:
 *
 * 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 <stdlib.h>
#include <bstring.h>
#include <assert.h>
#include "ic.h"

ICInst  *curInstrument = 0;

void instNew(ICInst *i)
{
    i->decl.declclass   = ICINST;
    i->decl.id          = objectID++;
    i->decl.offset      = (void *)-1;              
    i->decl.size        = sizeof(ALInstrument) - sizeof(ALSound *);
    
    i->volume      = 127;
    i->pan         = 0; 
    i->soundCount  = 0;
}

void instAddSound(ICInst *i, ICSound *s, int dummy)
{
    listAppend(&i->soundList, s);
    i->decl.size += sizeof(ALSound *);
    i->soundCount++;
}

void instSetPan(ICInst *i, int pan)
{
    i->pan = pan;
}

void instSetVol(ICInst *i, int vol)
{
    i->volume = vol;
}

void instLayOut(ICInst *ici)
{
    ALInstrument  *i;
    Node        *obj;
    int         j = 0;
    
    ici->decl.size = declSize((Decl *)ici);
    
    i = calloc(1, ici->decl.size);
    assert(i);

    i->pan        = ici->pan;
    i->volume     = ici->volume;
    i->soundCount = ici->soundCount;
    
    for (obj = ici->soundList.head; obj != 0; obj = obj->next) {
        Decl *decl = obj->data;
        i->soundArray[j++] = decl->offset;
    }

    ici->inst = i;
}

void instPrint(ICInst *i)
{
    Node        *obj;
    Id          *name;
    int         j;
    
    name = findname((Decl *)i);
    
    printf("Instrument: %s\n", name->name);
    declPrint((Decl *)i);
    printf("\tcoarseTuning:\t= %x\n", i->inst->coarseTuning);
    printf("\tfineTuning:\t= %x\n", i->inst->fineTuning);
    printf("\tvolume:\t\t= %x\n", i->inst->volume);
    printf("\tpan:\t\t= %x\n", i->inst->pan);
    printf("\tbendRange:\t= %x\n", i->inst->bendRange);
    printf("\tvibDelay:\t= %x\n", i->inst->vibDelay);
    printf("\tvibRate:\t= %x\n", i->inst->vibRate);
    printf("\tvibDepth:\t= %x\n", i->inst->vibDepth);
    printf("\tsoundCount:\t= %x\n", i->inst->soundCount);

    for (j = 0; j < i->inst->soundCount; j++) {
        printf("\tsound: \t\t= 0x%x\n", i->inst->soundArray[j]);
    }

    printf("\n");
    
}

void instWrite(ICInst *ici, FILE *file) 
{
    fwrite(ici->inst, ici->decl.size, 1, file);
}