perm filename INSY[1,LMM] blob sn#017013 filedate 1973-01-07 generic text, type T, neo UTF8
00100	< FILE NAME='INSTS'
00200	<FOUR INSTRUMENTS FOR ELEMENTRY COMPUTER MUSIC
00250	<P10 IS STEREO CONTROL
00300	
00400	COMPILE;
00500	INSTRUMENT TOOT;
00600	OSCIL[10](P4,10*MAG/P2,P5);
00700	COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
00800	OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;
00900	
01000	INSTRUMENT CLAR;
01100	OSCIL[10](P4,10*MAG/P2,P5);
01200	COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
01300	OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;
01400	
01500	INSTRUMENT BRIT;
01600	OSCIL[10](P4,10*MAG/P2,P5);
01700	COSCIL(U1,P3*MAG,P8);< P8 IS TONE COLOR FOR 'BRIT'
01800	OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;
01900	
02000	INSTRUMENT BUZZ;
02100	OSCIL[10](P4,10*MAG/P2,P5);
02200	COSCIL(U1,P3*MAG,P9);< P9 IS TONE COLOR FOR 'BUZZ'
02300	OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;
02400	FINISH;
02500	
02600	ARRAY F2,F3,F4,F5,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
02700	SEG(F1);.9 6,1 11 .9 82	.7 90  0 100; < MEZZO LEGATO
02800	SEG(F2);1 3,1 11,.5 31,.3 51,0 100; < STACCATO
02900	SYNTH(F3);1,.8  2,.15 3,.05  999; < TOOT
03000	SYNTH(F4);1,.5  3,.3  5,.2  7,.1  999; < CLAR
03100	SYNTH(F5);1,.3  2,.4  3,.2  8,.2  12 .1  999; < BRIT
03200	SEG(F6);-1,1   1,7   -1,14   -1,100; < BUZZ
03300	
03500	
03600	PLAY;TOOT 0 .12 C 1000 F1 F3 F4 F5 F6 1;
03700	CLAR .12;BRIT .24;BUZZ .36;FINISH;PRINT(LSBUF);