diff options
Diffstat (limited to 'csound/univorc.csd')
-rw-r--r-- | csound/univorc.csd | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/csound/univorc.csd b/csound/univorc.csd index 3851ca3..639aa27 100644 --- a/csound/univorc.csd +++ b/csound/univorc.csd @@ -7,12 +7,8 @@ sr=22050 ksmps=100 nchnls=2 -gaudp1 init 0 -gaudp2 init 0 - - /************************************************************************** - General Soundfile Player - Used by Memosono + General Soundfile Player - Used by Memorize Activity **************************************************************************/ instr 108 @@ -20,13 +16,11 @@ instr 108 p4 : filename p5 : unique instance ID p6 : output gain (0-1) - p7 : udp send gain (0-1) - p8 : offset in seconds + p7 : offset in seconds channels: sfplay.<ID>.on - instance control channel (1:on 0: off) sfplay.<ID>.gain - soundfile play gain (0-1) - sfplay.<ID>.udpgain - udp send gain (0-1) sfplay.<ID>.flen - holds the channel length */ S1 strget p4 @@ -47,11 +41,9 @@ endif Splay sprintf "sfplay.%d.on", inst ; instance control channel Sname sprintf "sfplay.%d.fname", inst ; filename channel Sgain sprintf "sfplay.%d.gain", inst ; gain channel -Sudp sprintf "sfplay.%d.udpgain", inst ; udp gain channel chnset S1, Sname chnset 1, Splay chnset p6, Sgain -chnset p7, Sudp event_i "i",109,0,iln,inst,ich,ioffset turnoff endin @@ -68,10 +60,8 @@ ioffset = p6 Splay sprintf "sfplay.%d.on", inst ; instance control channel Sname sprintf "sfplay.%d.fname", inst ; filename channel Sgain sprintf "sfplay.%d.gain", inst ; gain channel -Sudp sprintf "sfplay.%d.udpgain", inst ; udp gain channel kon chnget Splay kg1 chnget Sgain -kg2 chnget Sudp S1 chnget Sname if kon == 0 then printf "sfplay:%d OFF\n", 1, inst @@ -84,14 +74,9 @@ else a1,a2 diskin2 S1,1,ioffset,1 endif outs a1*kg1, a2*kg1 -gaudp1 = a1*kg2 + gaudp1 -gaudp2 = a2*kg2 + gaudp2 printf_i "sfplay:%d\n", 1, inst endin - - - </CsInstruments> <CsScore> f0 600000 |