--- /dev/null
+
+f1 0 16384 10 1 0.5 0.25 0.125 0.1 0.2 0.1 0.1 0.2 0.1 0.1
+
+t 0 600
+
+i4.1 0 0.25 10 20000
+i4.2 0.25 0.25 10.04 20000
+i4.3 0.5 0.5 10.07 30000
+
+i4.4 1 0.25 10.04 20000
+i4.5 1.25 0.25 10.07 20000
+i4.6 1.5 0.5 10.09 30000
+
+i4.7 2 0.25 10.09 20000
+i4.8 2.25 0.25 11.00 20000
+i4.9 2.5 0.5 11.04 30000
+
+i4.10 3 0.25 11.00 20000
+i4.11 3.25 0.25 11.04 20000
+i4.12 3.5 0.5 11.07 30000
+
+f0 7
+
+e
a1 pareq a1, p4,p5, 1, 1 ; growl
a1 pareq a1, p6 ,1+kncrck*p7 ,1, 0 ; "crackling"
a1 pareq a1, p6/2,1+k2crck*p7 ,1, 0 ; "crackling"
+ a1 pareq a1, p6/3,1+k2crck*p7 ,1, 0 ; "crackling"
- a1 pareq a1, 10, 0, 1, 1 ; thunder stop (dc correction)
- a1 pareq a1, 4000, 0, 1, 2 ; extreme high stop
+ a1 pareq a1, 10, 0, 0.7, 1 ; thunder stop (dc correction)
+ a1 pareq a1, p9, 0, 0.7, 2 ; extreme high stop
out a1*700 ; adjust your volume here
endin
kff = kff*p6 ; frequency exponential rise
out aout*kamp
-endin
\ No newline at end of file
+endin
+
+instr 4
+
+ ifqc= cpspch(p4)
+ ihold
+
+ kamp linseg 0,p3/8,1,p3*6/8,1,p3/8,0
+ kfenv expseg 0.001,p3/8,3,p3,1,p3*1,0.001
+
+ asrc oscili p5/4,ifqc,1
+ aout lowres asrc,ifqc*kfenv/2,2
+ aphs phaser2 aout, ifqc*(kfenv+1), 0.89,20, 2, 2, 0.6
+
+ aout = aout - aphs
+
+ aecho reverb aout,0.01,0.1
+ aout=aout+aecho*0.3
+
+ aout balance aout,asrc
+
+ aout butterhp aout,1000,0
+
+
+ out aout*kamp
+
+endin
\ No newline at end of file