diff options
author | Simon Schampijer <simon@schampijer.de> | 2007-07-16 15:48:25 (GMT) |
---|---|---|
committer | Simon Schampijer <simon@schampijer.de> | 2007-07-16 15:48:25 (GMT) |
commit | 7764c04a64923beb40e070b8aea531622520cf7d (patch) | |
tree | af837fae1b4558e383ebc64244230cf9327f3d3d /csound/univorc.csd | |
parent | c96694fce7eebd63a7b1abe27446d677e08a5af0 (diff) |
Fixed setup.py to create bundle memorize instad of memosono.
Cleaned the csound instrument and changed sndplayer accordingly.
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 |