From 7764c04a64923beb40e070b8aea531622520cf7d Mon Sep 17 00:00:00 2001
From: Simon Schampijer <simon@schampijer.de>
Date: Mon, 16 Jul 2007 15:48:25 +0000
Subject: Fixed setup.py to create bundle memorize instad of memosono.

Cleaned the csound instrument and changed sndplayer accordingly.
---
(limited to 'csound')

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
--
cgit v0.9.1