-- La vibe: techno basse vibratoire
do
setcps (120/60/4)
let gDjf = (whenmod 64 32 (# djf (slow 32 $ range 0 0.5 saw)))
d1
$ gDjf
$ mask "<[t f!3]!4 [t f t f]!4 t!24 f!4 t f!3 [t f]!4 t!24>"
$ fast 4 $ "jazz" # gain 0.65
d2
$ gDjf
$ "~ . <cp!7 cp*2> ~"
# gain (slow 16 $ range 0.5 0.8 saw)
# lpf 2000
d3 -- Bass marche nocturne
$ sometimesBy "<0!16 1!16 0!3 1 0 0 1 0 0!3 1 1!3 0 1!16>"
( -- La Vibe
juxBy 0.25 (
(|+ note 12)
. (# room 0.1) . (# sz 0.1)
. scramble 4
. ply 4
))
$ note ("c [~ f] . c <c <g b4>>")
# octave 2
# legato 1
# "superpwm"
# gain (slow 32 $ range 0.45 0.65 cosine)
# pan 0.4
# room 0.2 # size 0.3
d4
$ often (stut 4 0.9 "<q e s>")
$ mask "t . <t t? f t> t"
$ "hh*[4 <8 <4 16>>]"
# gain (slow 32 $ range 0.65 0.9 sine)
# pan (slow 32 $ range 0.4 0.8 sine)
# cut 4