| Hi there,
Annoy you neighbors with this MotoCross orchestra and score!
Bye there,
Hans Mikelson
;------------------------------------------------------------------
; ORCHESTRA
sr=44100
kr=22050
ksmps=2
nchnls=2
;------------------------------------------------------------------
; Industrial Loops
;------------------------------------------------------------------
instr 4
idur = p3
iamp = p4*2
ifqc = cpspch(p5)
iplstab = p6
irattab = p7
iratrat = p8
ipantab = p9
imixtab = p10
ilptab = p11
kpan oscil 1, 1/idur, ipantab ; Panning
kmix oscil 1, 1/idur, imixtab ; Fading
kloop oscil 1, 1/idur, ilptab ; Looping
;kfc expseg .1, idur/2, 4, idur/2, .1 ; Fqc Center
loop1:
kprate oscil 1, iratrat/kloop, irattab ; Pulse Rate
kamp oscil iamp, kprate, iplstab ; Amplitude Pulse
asig rand kamp ; Noise source
;aflt butterbp asig, ifqc*kfc, ifqc*kfc/4 ; Band Filter
aflt butterbp asig, ifqc, ifqc/4 ; Band Filter
aout balance aflt, asig ; Bring level back up
; When the time runs out reinitialize
timout 0, i(kloop), cont1
reinit loop1
cont1:
outs aout*sqrt(kpan)*kmix, aout*sqrt(1-kpan)*kmix ; Output pan
& fade
endin
; SCORE
f1 0 8192 10 1 ; Sine
; Pulse Tables
f12 0 1024 7 0 512 1 512 0
; Rate Tables
f25 0 1024 -5 5000 1024 100
; Pan Tables
f31 0 1024 7 1 1024 0
; Mix Tables
f41 0 1024 5 .01 128 1 768 1 128 .01
; Loop Tables
f50 0 1024 -5 .41 50 .021 206 .35 56 .012 200 .28 56 .016 200 .085 56 .02
200 .32
; Generate Industrial Loops
; Sta Dur Amp Pitch PulsTab RtTab RtRt PanTab MixTab Loop
i4 0 32 6000 8.00 12 25 1 31 41 50
|