Context Navigation

SETV2GI.C@ 73dd55f

Last change on this file since 73dd55f was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Imported original source code.
Property mode set to `100755`
File size: 1.2 KB

Rev	Line
[3ae31e9]	1	/*
	2	=============================================================================
	3	setv2gi.c -- MIDAS-VII -- set the voices to the instrument for a group
	4	Version 2 -- 1988-07-11 -- D.N. Lynx Crowe
	5	=============================================================================
	6	*/
	7
	8	#include "stddefs.h"
	9	#include "vsdd.h"
	10	#include "vsddsw.h"
	11	#include "graphdef.h"
	12
	13	#include "midas.h"
	14	#include "instdsp.h"
	15
	16	extern short curinst;
	17	extern short curvce;
	18
	19	extern short ins2grp[];
	20	extern short s_inst[];
	21	extern short vce2grp[];
	22
	23	extern struct instdef vbufs[];
	24
	25	/*
	26
	27	*/
	28
	29	/*
	30	=============================================================================
	31	setv2gi() -- set voices to the instrument for a group
	32	=============================================================================
	33	*/
	34
	35	setv2gi(group)
	36	short group;
	37	{
	38	register short grp, vce, ins;
	39	register struct instdef *ip;
	40	register struct idfnhdr *fp;
	41
	42	ins = ins2grp[group] & 0x00FF;
	43	grp = group + 1;
	44
	45	for (vce = 0; vce < 12; vce++) {
	46
	47	if (vce2grp[vce] EQ grp) { /* for each voice in the group */
	48
	49	if (curvce EQ vce) {
	50
	51	curinst = ins;
	52	s_inst[curvce] = ins;
	53	}
	54
	55	execins(vce, ins, 1);
	56	}
	57	}
	58	}
	59

Note: See TracBrowser for help on using the repository browser.