| Hi all,
Here is an orchestra & score for making industrial noise based on looping
pulsed noise.
Have fun,
Hans Mikelson
;------------------------------------------------------------------
; Industry
; by Hans Mikelson April 1998
;------------------------------------------------------------------
; ORCHESTRA
sr=44100
kr=22050
ksmps=2
nchnls=2
instr 2
idur = p3
iamp = p4*2
ifqc = cpspch(p5)
iplstab = p6
irattab = p7
iratrat = p8
ipantab = p9
imixtab = p10
iloop = p11
adel init 0
kprate oscil 1, iratrat, irattab ; Pulse Rate
kamp oscil iamp, kprate, iplstab ; Amplitude Pulse
kloop linseg 0, .005, 1, iloop-.01, 1, .005, 0, p3-iloop-.01, 0 ;
Gate in delay loop
kpan oscil 1, 1/idur, ipantab ; Panning
kmix oscil 1, 1/idur, imixtab ; Fading
asig rand kamp ; Noise source
aflt butterbp asig, ifqc, ifqc/4 ; Band Filter
abal balance aflt, asig ; Bring level back up
aout = abal*kloop+adel ; Gate in with feedback
adel delay aout, iloop ; Delay
outs aout*sqrt(kpan)*kmix, aout*sqrt(1-kpan)*kmix ; Output pan
& fade
endin
; SCORE
; Pulse Tables
f10 0 1024 7 0 256 0 256 1 256 0 256 0
f11 0 1024 7 0 256 0 128 0 128 1 128 0 128 0 256 0
; Rate Tables
f20 0 1024 -5 1 512 200 512 100
f21 0 1024 -5 10 1024 1000
f22 0 1024 -5 100 512 10000 512 30
f23 0 1024 -5 25 1024 62
f24 0 1024 -7 500 1024 62
f25 0 1024 -5 5000 1024 1000
f26 0 1024 -7 50 512 500 512 50
; Pan Tables
f30 0 1024 7 0 1024 1
f31 0 1024 7 1 1024 0
f32 0 1024 7 1 512 0 512 1
f33 0 1024 7 .5 1024 .5
; Mix Tables
f40 0 1024 5 .01 256 1 512 1 256 .01
f41 0 1024 5 .01 128 1 768 1 128 .01
f42 0 1024 5 1 1024 1
; Generate industrial tones
; Sta Dur Amp Pitch PulseTab RtTab RtRt PanTab MixTab Loop
i2 0 8 8000 9.00 11 22 1 31 41 .2
i2 3 10 8000 7.00 10 22 1 32 41 .3
i2 7 12 8000 9.00 11 23 10 30 40 .2
i2 9 12 8000 8.00 11 24 10 32 41 .05
i2 11 20 8000 7.00 11 25 4 31 40 .5
i2 12 22 8000 7.02 11 25 10 32 41 .2
i2 17 2 8000 6.00 11 26 10 33 42 .010
i2 19.5 2 8000 6.00 11 26 10 33 42 .011
i2 22 2 8000 6.00 11 26 10 33 42 .012
i2 17 10 8000 8.05 11 26 10 31 41 .08
|