From: John Harrison ()
Date: Apr 2, 2005
Subject:
Re: monophonic instrument in one instrument
This is a multi-part message in MIME format.
sr = 44100 ; sample rate
ksmps = 20 ; sr/kr
nchnls = 2 ; number of channels
;maxalloc 1,1 ; WHY DIDN'T THIS SOLVE THE PROBLEM?
instr 1
start: ; LABEL BEGINNING OF CODE FOR REINIT PASS
iamp = 7000
ifreq cpsmidi
kwait init 0
iactive active 1 ; GET # OF ACTIVE INSTANCES OF THIS INSTRUMENT AT i TIME
ckgoto (iactive == 1), SkipWait
kwait = 1 ; IF MORE THAN ONE INSTANCE AT i time, FLAG THIS CONDITION
SkipWait:
ckgoto (kwait == 1), CheckWait ; IF MORE THAN ONE INSTANCE FLAGGED, UPDATE CONDITION
; ELSE, PLAY THE NOTE
aampenv expsegr .0001, .02, 1, .2, .001
aosc1 oscili iamp, ifreq, 1
outs aosc1 * aampenv, aosc1 * aampenv
kgoto end ; SKIP UPDATE OF FLAGS IF THIS IS INSTANCE OF NOTE BEING PLAYED
CheckWait:
kactive active 1
ckgoto (kactive > 1), end
reinit start ; IF THIS IS THE ONLY INSTANCE LEFT, REINIT
end:
endin
--------------000902040005020907010203--
-- [EMAIL REMOVED] (or to http://www.cs.bath.ac.uk/cgi-bin/csound ) [EMAIL REMOVED]