123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143 |
- {-
- defs
- -}
- let bpm b = cps (b/60)
- withmod a b c d = (whenmod a b . within (c, d))
- every' n o f = when ((== (o-1)) . (`mod` n)) f
- msil = mapM_ ($ silence)
- let tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
- mt s d i = slow s . tmod 0.3 3 $ density d $ i
- let d'drum = d1
- d'wax = d3
- d'nim = d4
- d'nim2 = d5
- d'bass = d6
- d'hi = d7
- -- original bpm = 105
- bpm 105
- {----------
- drum + perc
- ----------}
- d'drum silence
- let --dp = n "1/4"
- --dp = n "[1*2, 0*8]/8"
- --dp = n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
- dp = n "[1, 0*2 [~ 0] ! ~]/4"
- {--}
- kp = n "[~ [0 2]/2]"
- --kp = n "[[~ 0] [[2!! ~]/4 0]]/2"
- {--}
- --sp = n ""
- --sp = 4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4"
- sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
- {--}
- ste = id -- . mt 16 16
- de = id
- . (whenmod 9 5 . whenmod 7 4) (density 2 . rev) {- 9 5? -}
- -- . superimpose (0.25 ~>)
- ke = id
- -- . every' 16 8 (const $ s "kit:3")
- -- . whenmod 3 2 (density 2)
- -- . (whenmod 11 5 . within (0.5, 1)) (density 2)
- se = id
- . within (0.1, 0.4) (# nudge "0.05") . within (0.6, 0.9) (# nudge "0.05")
- --{-
- . whenmod 7 6 (slowspread ($) [
- density 8 . rev . slow 4,
- (0.25 <~),
- (0.25 ~>)
- ])
- --}
- --{-
- . whenmod 5 3 (
- superimpose (
- within (0, 0.5) ((# gain "0.6") . (# n (irand 3)) . (# s "tom")) .
- (# gain "0.65") . (0.25 ~>) . density 2
- ))
- --}
- -- . every' 16 16 (superimpose (0.75 ~>))
- in d'drum $
- ste $ stack [
- de $ dp # s "drum",
- ke $ kp # s "kit",
- se $ sp # s "sn" # gain "0.76"
- ]
- {-----
- icarus
- -----}
- d'wax silence
- d'wax $
- every' 2 2 (within (0, 0.75) (iter 16)) $
- slow 16 . striate 256 $ s "icarus"
- d'wax $ retrig $ s "icarus:1/20"
- {-----
- nimble
- -----}
- msil [d'nim, d'nim2]
- let ns = slow 16 . striate 256
- --ns = mt 16 1 . striate 256
- nei = 4 {- 4,6 -}
- ne = id
- -- . every' 2 2 (within (0, 0.5) (const silence))
- {-
- . superimpose (
- iter nei
- -- . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
- -- . nudge "0"
- )
- --}
- . (0.5 ~>)
- in d'nim $
- ne $ ns $ n "[0 1]/2" # s "nimble"
- {---
- bass
- ---}
- d'bass silence
- let be = id
- -- . (# speed "[1 1.2]")
- -- . (0.5 ~>)
- . (1.3 ~>)
- bc = id
- -- . striate 16
- . gap 32
- bs = id
- . slow 8
- -- . mt 16 2
- in d'bass $
- be $ bs $ stack [
- bc $ sound "bass",
- bc $ sound "sine"
- ]
- # gain "0.8"
- {---------
- alt nimble (wip)
- ---------}
- d'hi silence
- d'hi $
- -- whenmod 16 12 (0.5 ~>) $
- -- whenmod 16 8 (0.5 ~>) $
- -- (0.5 ~>) $
- whenmod 12 8 (0.5 <~) $ (0.5 ~>) $ -- heh
- slow 8 $
- -- slowspread ($) [gap 16, gap 64] $
- slowspread ($) [gap 16, gap 32] $
- n "[0 1]/2" # s "nimble"
- # speed "[-3 -2]"
- -- # gain "1.2"
- hush
|