dub techno loop

loop.hs

-- dX is the number of the sound channel used (up to 6)
-- sound sets a sound playing, you can include multiple sounds
-- and they all play within the time of one cycle
-- a sine LFO is slowly changing the cutoff over 7 cycles
-- from 200hz to 400hz
-- playing every 1/4 note in this case
d1 $ sound "bd*4" # cutoff (range 200 400 $ slow 7 $ sine)

-- claps on the off beats
d2 $ sound "~ cp ~ cp" # cutoff (range 400 1000 $ slow (range 1 3 $ rand) $ sine)

--- this is playing a chord on the instrument supersquare
-- in the first cycle, there is no sound
-- in the second cycle, it has a 50%
-- chance of playing on beat 4
d3 $ n "{~ ~ ~ ~, ~ ~ ~ <[c4,ef4,g4,d5]>?}" # s "supersquare" # gain "0.8" # cutoff (range 240 500 $ slow 5.5 $ sine) # gain 0.85 # attack 0.2 # sustain 1.4 # release 1.6 # pan (slow 7 $ range 0.3 0.7 $ sine) # pitch1 (slow 2 $ range 0.9 1.1 $ sine)

-- to end
hush