diff options
Diffstat (limited to 'csound/univorc.csd')
-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 |