-- Exp #2: Le Disco Punk -- https://www.youtube.com/watch?v=sNzhxE45mGE setcps 0.6 d10 -- metronome $ s "tok*4" # note ("10 0 0 0" - 28) # gain 0.8 d1 -- grosse caisse / caisse claire poum tchak $ fix (# s "[bd,lt]") (s "k") $ fix (# s "sn:2") (s "s") $ s "k ~ s ~ k s/4 s ~" # gain 0.7 d2 -- charley double croche $ s "hh*16" # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1" # n 8 # gain 0.8 patBass = "0 0 . 12 . 0 0 . 12" patBassAlt = "0 0 . ~ 12 ~ ~ . 12 ~ 9 ~ . [6 ~ . 0 ~]" chordsBass = "<a'min c f d'min>" d3 -- basse simple octave sur accords $ superimpose ( (# s "bassWarsaw") . (|- gain 0.4) . (|+ note 12) . (|/ sustain 8) ) $ jux (# s "subBass1") -- la mineur do fa re mineur) -- $ every' 4 3 (# note 0) $ note (slowcat (take 7 (repeat patBass) ++ [patBassAlt]) + chordsBass) # s "subBass1" # gain 1.2 # sustain "1/6 . 1/3 . 1/6 . 1/3" |- note 36 patGuitar = "0 0 . 12 . 0 0 . 12" patGuitarAlt = "0 0 . 12 ~ ~ . 12 ~ ~ 12 . 0" d4 -- guitare main $ jux id $ note (slowcat (take 3 (repeat patGuitar) ++ [patGuitarAlt]) + chordsBass ) # s "pluck" # gain 0.85 d5 -- guitare disco LA $ fast 2 -- $ superimpose ((|- note 12) . (|- gain 0.2) . (# sustain 1)) $ note ("a4 a4 . ~") # s "bsguitar:8" # begin 0.28 # end 0.6 # gain 0.33 # cut 1 d6 -- TODO: synthe trans charnu delay (4:30) $ note ("12 12 . ~ 6 . 9 6 . 3 0" + "<a c d f>") # s "phazer" -- |+ note 24 -- # delay (1/16) # release 0.5 # gain 0.8 once $ s "pluck:0" # gain 0.6