diff options
Diffstat (limited to 'csound')
-rw-r--r-- | csound/__init__.py | 0 | ||||
-rw-r--r-- | csound/csoundserver.py | 60 | ||||
-rw-r--r-- | csound/univorc.csd | 150 |
3 files changed, 0 insertions, 210 deletions
diff --git a/csound/__init__.py b/csound/__init__.py deleted file mode 100644 index e69de29..0000000 --- a/csound/__init__.py +++ /dev/null diff --git a/csound/csoundserver.py b/csound/csoundserver.py deleted file mode 100644 index 953b74b..0000000 --- a/csound/csoundserver.py +++ /dev/null @@ -1,60 +0,0 @@ -# Copyright (C) 2006, 2007, 2008 One Laptop Per Child -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# - -import os -import logging -from threading import Thread - -import csnd - -_logger = logging.getLogger('csound') - -class CsoundServer(Thread): - def __init__(self): - Thread.__init__(self) - self.csound = csnd.Csound() - - def start(self): - self.perf = csnd.CsoundPerformanceThread(self.csound) - uniorcpath = os.path.join( os.path.dirname(__file__), 'univorc.csd') - if not os.path.exists(uniorcpath): - _logger.error('univorc not found %s'%uniorcpath) - else: - if self.csound.Compile(uniorcpath) == -1: - _logger.debug('error compiling csound orchestra %s'%uniorcpath) - return 1 - self.perf.Play() - return 0 - - def pause(self): - self.perf.Stop() - self.perf.Join() - self.csound.Reset() - _logger.debug('stop performance') - - def perform(self, msg): - _logger.debug(' [perform_cb] %s'%str(msg)) - self.perf.InputMessage(str(msg)) - - def quit(self): - _logger.info('quit') - self.perf.Stop() - self.perf.Join() - self.csound.Reset() - self.csound = None - - diff --git a/csound/univorc.csd b/csound/univorc.csd deleted file mode 100644 index 5e3232c..0000000 --- a/csound/univorc.csd +++ /dev/null @@ -1,150 +0,0 @@ -<CsoundSynthesizer> -<CsOptions> --+rtaudio=alsa -odac -m0 -d -b2048 -B4096 -</CsOptions> -<CsInstruments> -sr=16000 -ksmps=100 -nchnls=2 - -/************************************************************************** - General ogg-vorbis Soundfile Player -**************************************************************************/ - -instr 100 -/* soundfile play control - p4 : filename - p5 : unique instance ID - p6 : output gain (0-1) - 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>.flen - holds the channel length -*/ -S1 strget p4 -inst = p5 -ich = 1 -iln = 10 -ioffset = p7 - -Slen sprintf "sfplay.%d.flen", p5 ; file length channel -chnset iln, Slen - -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 -chnset S1, Sname -chnset 1, Splay -chnset p6, Sgain -event_i "i",101,0,iln,inst,ich,ioffset -turnoff -endin - - -instr 101 -/* soundfile player - This is the actual soundfile player. - It never gets called directly -*/ -ich = p5 -inst= p4 -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 -kon chnget Splay -kg1 chnget Sgain -S1 chnget Sname -if kon == 0 then -printf "sfplay:%d OFF\n", 1, inst -turnoff -endif -if ich = 1 then -a1 oggplay S1, ioffset -a2 = a1 -else -a1,a2 oggplay S1, ioffset -endif - outs a1*kg1, a2*kg1 -printf_i "sfplay:%d\n", 1, inst -endin - - -/************************************************************************** - General wav, aiff Soundfile Player -**************************************************************************/ - -instr 102 -/* soundfile play control - p4 : filename - p5 : unique instance ID - p6 : output gain (0-1) - 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>.flen - holds the channel length -*/ -S1 strget p4 -inst = p5 -ich filenchnls S1 -iln filelen S1 -ioffset = p7 - -Slen sprintf "sfplay.%d.flen", p5 ; file length channel -chnset iln, Slen - -if ioffset >= iln then -turnoff -else -iln = iln - ioffset -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 -chnset S1, Sname -chnset 1, Splay -chnset p6, Sgain -event_i "i",103,0,iln,inst,ich,ioffset -turnoff -endin - - -instr 103 -/* soundfile player - This is the actual soundfile player. - It never gets called directly -*/ -ich = p5 -inst= p4 -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 -kon chnget Splay -kg1 chnget Sgain -S1 chnget Sname -if kon == 0 then -printf "sfplay:%d OFF\n", 1, inst -turnoff -endif -if ich = 1 then -a1 diskin2 S1,1,ioffset,1 -a2 = a1 -else -a1,a2 diskin2 S1,1,ioffset,1 -endif - outs a1*kg1, a2*kg1 -endin - - -</CsInstruments> -<CsScore> -f0 600000 - -</CsScore> -</CsoundSynthesizer> |