| I've not been using CSound for long, and I'm new to this list...I hope
someone can help me out here....
I've written an orchestra and score just to try things out and I'm hearing
some distortion. Its not the first time I've had Csound generate
"background noise" etc. I don't understand how this can happen in
non-realtime syntesis!
I'm using WinSound from the Bath site on an MMX 166 with a crappy
soundblaster card. Would anybody be kind enough to compile the following on
their setup & tell me if its OK. Is my programme at fault, or my card, or
my computer or (most unlikely I'm sure :) ) the Csound programme?
Listen out for the slight distortion at the beginning of each "bell" impact
(no clipping shows up on the waveform, and no samples are out of range).
Millions of thanks & best wishes,
Richard Smith
THE INSTRUMENT:
sr=44000
kr=200
ksmps=220
nchnls=2
ale init 0
ari init 0
galeft init 0
garight init 0
instr 1
iscl=(p6+1) ;scale volume to flag
ivs=(p12/100)
kvol linseg 0, 0.05, p18, p19, p20, p21-p19, p22, p23-p21,p24,
(p3-p23)-0.05, p25, 0.03, 0 ;vl Cnt(0-100)
kpn linseg p26, p28, p27, p29-p28, p27, p3-p29, p30 ; Pan Cnt (-1 to 1)
kpan=kpn*22/7
ist=(p4<17 ? cpspch(p4) : p4)
ien=(p5<17 ? cpspch(p5) : p5)
kpch linseg ien, p3, ien
kvibamp linseg p13, p15, p14, p16-p15, p14, p3-p16, p17 ; vib depth 0-100
kvib1 oscil kvibamp*kpch, p31, 4
kvib2 oscil kvibamp*kpch, p31+p31*ivs, 4
kvib3 oscil kvibamp*kpch, p31+p31*(ivs*0.82), 4
kvib4 oscil kvibamp*kpch, p31+p31*(ivs*0.592), 4
kvib5 oscil kvibamp*kpch, p31+p31*(ivs*0.405), 4
kvib6 oscil kvibamp*kpch, p31+p31*(ivs*0.234), 4
kvib7 oscil kvibamp*kpch, p31-p31*(ivs*.942), 4
kvib8 oscil kvibamp*kpch, p31-p31*(ivs*.792), 4
kvib9 oscil kvibamp*kpch, p31-p31*(ivs*.541), 4
kvib10 oscil kvibamp*kpch, p31-p31*(ivs*.341), 4
kvib11 oscil kvibamp*kpch, p31-p31*(ivs*.17), 4
kchor linseg p7, p9, p8, p10-p9, p8, p3-p10, p11; chor.env
a1 oscil kvol*70/iscl, kpch+(kvib1*kpch-(kvibamp*kpch/2))/500000, p32
a2 oscil kvol*70/iscl,
kpch+(kvib2*kpch-(kvibamp*kpch/2))/500000+(kchor*kpch/2200), p32
a3 oscil kvol*70/iscl,
kpch+(kvib7*kpch-(kvibamp*kpch/2))/500000-(kchor*kpch/2300), p32
a4 oscil p6*kvol*70/iscl,
kpch+(kvib3*kpch-(kvibamp*kpch/2))/500000-(0.842*kchor* kpch/2300), p32
a5 oscil p6*kvol*70/iscl,
kpch+(kvib8*kpch-(kvibamp*kpch/2))/500000-(0.611*kchor* kpch/2300), p32
a6 oscil p6*kvol*70/iscl,
kpch+(kvib4*kpch-(kvibamp*kpch/2))/500000-(0.391*kchor* kpch/2300), p32
a7 oscil p6*kvol*70/iscl,
kpch+(kvib9*kpch-(kvibamp*kpch/2))/500000-(0.154*kchor* kpch/2300), p32
a8 oscil p6*kvol*70/iscl,
kpch+(kvib5*kpch-(0.83*kvibamp*kpch/2))/500000+(kchor* kpch/2300), p32
a9 oscil p6*kvol*70/iscl,
kpch+(kvib10*kpch-(0.62*kvibamp*kpch/2))/500000+(kchor* kpch/2300), p32
a10 oscil p6*kvol*70/iscl,
kpch+(kvib6*kpch-(0.442*kvibamp*kpch/2))/500000+(kchor* kpch/2300), p32
a11 oscil p6*kvol*70/iscl,
kpch+(kvib11*kpch-(0.253*kvibamp*kpch/2))/500000+(kchor* kpch/2300), p32
a100=0.75*a1+ 1*a2+ 0.95*a4+ 0.89*a6+ 0.80*a8+ 0.68*a10+ 0.5*a3+ 0.4*a5+
0.3+a7+ 0.2*a9
a200=0.75*a1+ 0*a2+ 0.2*a4+ 0.3*a6+ 0.4*a8+ 0.5*a10+ 0.68*a3+ 0.8*a5+
0.89*a7+ 0.95*a9 +a11
ale=a100*(kpan<0 ? 2: cos(kpan)+1) + a200*(kpan<0 ? cos(kpan-22/7)+1:0)
ari=a100*(kpan<0 ? 0: cos(kpan-22/7)+1) + a200*(kpan<0 ? cos(kpan)+1 :2)
outs ale*.25, ari*.25
galeft=galeft+ale
garight=garight+ari
outs ale*0.25, ari*0.25
endin
instr 2
a1 oscil 0,200,1
endin
instr 3
aleftrev reverb galeft, p4
arightrev reverb garight, p4
outs aleftrev*p5*0.5, arightrev*p5*0.5
galeft=0
garight=0
endin
THE SCORE
f1 0 2048 10 1 1 1 1 .7 .5 .3 .1
f2 0 2048 10 1 0 .3 0 .2 0 .14 0 .111
f3 0 2048 10 1 .5 .3 .25 .2 .167 .14 .125 .111
f4 0 2048 10 1
; st dur spch epch chflg Chorus Envelpope vOf Vibrato Envelope Volume
Envelope Pan vibr voice
; a b c d e a b c d e a (x y) (x y) (x y) z a b c d e
i1 0 8 3000 3000 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0 0.7 5 6
-1 6 4
i1 0.8 7 4732 4732 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.3 0.7
5 6 -1 6 4
i1 1.5 6 1378 1378 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.2 0.7 5
6 -1 6 4
i1 2.1 5 732 732 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.1 0.7 5 6
-1 6 4
i1 2.6 6 4378 4378 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.2 0.7
5 6 -1 6 4
i1 3 6 3529 3529 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0 0.7 5 6
-1 6 4
i1 3.35 6 2463 2436 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.45 0.7
5 6 -1 6 4
i1 3.65 6 1132 1132 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.6 0.7
5 6 -1 6 4
i1 3.9 6 3654 3654 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.1 0.7 5
6 -1 6 4
i1 4.1 6 364 364 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.9 0.7 5
6 -1 6 4
i1 4.35 6 1274 1274 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 1 0.7 5
6 -1 6 4
i1 4.45 6 265 265 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -1 0.7 5 6
-1 6 4
i1 4.45 10 265 265 1 0 5 3 5 70 30 0 0 3 5 100 0 5 60 7.5 40 8.5 10 0 -1
0.7 5 6 -1 6 1
i1 5.3 7 4732 4732 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.3 0.7
5 6 -1 6 1
i1 6 6 1378 1378 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.2 0.7 5 6
-1 6 1
i1 6.6 5 732 732 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.1 0.7 5 6
-1 6 1
i1 7.1 6 4378 4378 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.2 0.7
5 6 -1 6 1
i1 7.5 6 3529 3529 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0 0.7 5 6
-1 6 1
i1 7.85 6 2463 2436 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.45 0.7
5 6 -1 6 1
i1 8.15 6 1132 1132 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.6 0.7
5 6 -1 6 1
i1 8.4 6 3654 3654 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 0.1 0.7 5
6 -1 6 1
i1 8.6 6 364 364 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -0.9 0.7 5
6 -1 6 1
i1 8.85 6 1274 1274 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 1 0.7 5
6 -1 6 1
i1 8.95 6 265 265 1 6 6 3 4 6 30 0 0 1 2 0 40 0.4 20 4 2 4.1 2 0 -1 0.7 5 6
-1 6 1
|