diff options
| author | Simon Schampijer <simon@schampijer.de> | 2007-07-27 13:57:18 (GMT) |
|---|---|---|
| committer | Simon Schampijer <simon@schampijer.de> | 2007-07-27 13:57:18 (GMT) |
| commit | ae8fd1350a9c6b90f3bf7c63f7822a2b9f728dff (patch) | |
| tree | ae90b7f2b5afcaa682c8f6e9858d62509aa56b6d /csound | |
| parent | 340c898dfd503d31c8fc584ea6029151b747f304 (diff) | |
Changed Memorize to play ogg files
The memorize activity has been changed to use ogg files
instead of aiff files to save storage on the XO. The old
player images (aka icecream) has been removed from the
git tree as well.
Diffstat (limited to 'csound')
| -rw-r--r-- | csound/univorc.csd | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/csound/univorc.csd b/csound/univorc.csd index 639aa27..b646f8f 100644 --- a/csound/univorc.csd +++ b/csound/univorc.csd @@ -25,19 +25,13 @@ instr 108 */ S1 strget p4 inst = p5 -ich filenchnls S1 -iln filelen S1 +ich = 1 +iln = 10 ioffset = p8 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 @@ -68,10 +62,10 @@ printf "sfplay:%d OFF\n", 1, inst turnoff endif if ich = 1 then -a1 diskin2 S1,1,ioffset,1 +a1 oggplay S1, ioffset a2 = a1 else -a1,a2 diskin2 S1,1,ioffset,1 +a1,a2 oggplay S1, ioffset endif outs a1*kg1, a2*kg1 printf_i "sfplay:%d\n", 1, inst |