123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133 |
- {-
- Anny: Cuadrillion (Demo)
- anny.audio
- First played for Algorave's fith birthday, #algofive 17th March 2017
- Written for Fwonk release nr. 200 out in March 2017. FW200 is Fwonk's
- final release, at least in its current form, but its catalogue will
- live on. There is a lot of very good electronic music in there, so be
- sure to check it out some time!
- fwonk.co.uk
- See README.md
- -}
- let bpm b = cps (b/60)
- every' n o f = when ((== (o-1)) . (`mod` n)) f
- d'drum = d1
- d'perc = d2
- d'bass = d3
- d'bleep = d4
- d'moog = d4
- d'gt = d5
- d'gt2 = d6
- d'gt3 = d7
- bpm 149
- -- @bleep
- d'bleep $
- -- every' 5 2 (iter 4) $ -- (2)
- -- every 3 (rev . slow 2 . chop 4) $ -- (1)
- n "[[~ 0] ~ 1 ~]/4" # s "bleep"
- # gain "1.2"
- d'drum $
- every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
- 1 <~ n "1/16" # s "drum"
- -- @drumintro
- d'drum $
- every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
- n "{1, [~! [~ 0]!]/4}" # s "drum"
- d'drum $
- every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
- n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
- d'perc $ n "[~ 1 ~ ~]/4" # s "drum2"
- -- @perc
- d'perc $
- stack [
- n "[~ 1 0 ~]/4",
- 0.5 ~> n "[3 2 ~]/3"
- -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (1)
- -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7" -- (2)
- ]
- # s "drum2"
- -- @drum
- d'drum $
- -- every' 16 16 (density 2) $ -- (1) replacing (0)
- every' 16 16 (within (0.5, 1) $ density 2) $ -- (0)
- n "{0, 1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
- -- @bass
- d'bass $
- -- slowspread slow [1,1,1,2,3] $ -- (2)
- (0.5 <~) $ rev $ gap 32 $
- -- superimpose ((# gain "0.7") . (# speed "3")) $ -- (1)
- every' 32 31 (overlay $ n "2" # s "drbass") $
- every' 16 16 (overlay $ n "1 ~" # s "drbass") $
- n "[0 0 [~ 0] !]/4" # s "drbass"
- # gain "0.9"
- # vowel "{a, i}"
- # shape "0.4"
- # orbit "1" # room "0.2" # size "0.1"
- # resonance "0.1" # cutoff "130" -- 10 -> 130
- -- @gt
- d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
- -- every 3 (slow 32) $ -- (1) then (2) remove
- every 2 rev $
- (0.5 ~>) $
- slow 8 $ smash 16 [1,2] $ striate 16 $
- n "0" # s "acb"
- # cut "7"
- # gain "0.8" -- 0.1 -> 0.8
- # speed (scale 0.7 1.4 $ slow 3 sine1)
- # vowel "u"
- -- @gt2
- d'gt2 $ (0.5 <~) $
- slow 8 $
- iter 4 $
- striate 16 $
- sound "acg"
- # cut "6"
- # shape "0.4"
- # gain "0.9"
- -- ~drum w/ (1)
- -- @gt3
- let hp = "240"
- lp = "1200"
- r = "0.3"
- in d'gt3 $
- (3 ~>) $
- -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
- slow 16 . gap 8 $ -- (0) and (2) remove
- -- slow 30 . gap 15 $ -- (2)
- sound "dg"
- # gain "0.9"
- # orbit "1" # room "0.2" # size "0.1"
- # speed (scale 1 1.25 $ slow 4.1 sine1)
- # cutoff lp # resonance r
- # hcutoff hp # resonance r
- mapM_ ($ silence) [d'gt, d'gt2, d'gt3]
- -- ~perc w/ (1)
- -- ~perc w/ (2)
- -- ~gt w/ (1)
- -- ~bass w/ (1)
- -- ~gt2
- -- ~gt w/ (2) then (3)
- -- ~gt3 w/ (2)
- mapM_ ($ silence) [d'gt, d'gt2, d'gt3, d'bass]
- hush
|