| Dear List:
Krysztof Foltman sent this awesome ride,
careful with the line breaks:
;-----------------------------------------------
;Krysztof Foltman RIDECYM1.ORC
;-----------------------------------------------
sr=44100
kr=44100
ksmps=1
instr 1
ipitch init cpspch(p5)
is init 2
it init 1.7
knamp3 expseg 0.1,p3-p6/it-0.3,0.01,p6/it,0.001,0.02/it,0.001,0.1,0.00001
knamp4 expseg
0.1,p3*0.7-p6/it-0.3,0.007,p6/it,0.001,0.02/it,0.001,0.1,0.00001
kshf expseg is*2500,0.06/it,is*200,p3,is*200
kshf2 expseg is*3000,0.19/it,is*300,p3,is*300
kshf3 expseg is*13000,0.23/it,is*1500,p3,is*1500
kshf4 expseg is*13000,0.16/it,is*800,p3,is*790
kshf5 expseg is*11000,0.08/it,is*1200,p3,is*1200
amod3ge1 oscili 0.5,is*1000+kshf2/5,2
amod3ge2 oscili 0.5,is*1080+kshf/2,2
amod3ge3 oscili 0.5,is*1190+kshf/1.7,2
amod3ge4 oscili 0.5,is*1343+kshf2/3,2
amod3ge5 oscili 0.5,is*1549+kshf/4,2
amod3ge6 oscili 0.5,is*1779+kshf/2.1,2
amod3ge7 oscili 0.5,is*1997+kshf2/2.4,2
amod3a reson amod3ge1+amod3ge6+amod3ge7,is*kshf3,is*kshf3*2,1
amod3b reson amod3ge2+amod3ge4+amod3ge5,is*kshf4,is*kshf4,1
amod3c reson amod3ge1+amod3ge2+amod3ge3,is*kshf5,is*kshf5,1
anois1a oscili knamp3*20,is*1075,3
anois1b oscili knamp3*20,is*1314,3
anois1c oscili knamp4*20,is*1759,3
anois1d oscili knamp4*20,is*2153,3
anois1e oscili knamp3*20,is*1987,3
anoise=anois1a+anois1b+anois1c+anois1d+anois1e
anois2 butterbp anoise,is*7548,is*1350
anois3 butterbp anoise,is*3548,is*1050
anois4 butterbp anois2*amod3a,is*4901,is*444
anois5 butterbp anois3*amod3b,is*5701,is*540
anois6 butterbp anois2*amod3c,is*6901,is*640
atmp = (anois4+anois5+anois6)*4
out 32000*atmp*p4
endin
;-----------------------------------------------
;-----------------------------------------------
;-----------------------------------------------
;-----------------------------------------------
;Krysztof Foltman RIDECYM1.SCO
;-----------------------------------------------
;funkcja 1, czysta sinusoidka
f1 0 8192 10 1
f2 0 8192 10 0 0 0 0 0 0 0 0 0 0 0.3 0 0.6 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 1 0
0.3 0 0 0 1
f3 0 8192 11 4 31 0.6
;f2 0 8192 20 5
i1 0.00 1.30 1.00 8.00 0.05
;-----------------------------------------------
;-----------------------------------------------
;-----------------------------------------------
All the best,
Eloy
------
leaddaet@earthlink.net
http://home.earthlink.net/~leaddaet
----------
>From: "Krzysztof Foltman"
>To: "'Eloy Anzola'"
>Subject: RE: More bassdrums
>Date: Fri, Oct 1, 1999, 6:25 AM
>
> See it :-)
>
> I tried to post to the Csound list, but no success...
>
> ...kf |