Week-end: Fusion Acide, Priere Dure

copycat/godzilla.tidal

+-- Eminem Godzilla
+
+-- TODO: Eminem Darkness
+
+setcps 0.45
+
+d1 $ s "bd" --
+# gain 0.9
+
+d2 $ s "~ cp" -- tak
+
+[1 2 3] ~ . 3 ~ 2 ~ 1 ~]#
+
+d4
+$ s "dr*4"
+# gain 0.8

copycat/numero10.tidal

+-- Booba - Numero 10
+
+setcps 0.77
+
+d1 -- beat
+$ whenmod 64 50 (# silence)
+$ superimpose (# s "kick:5")
+$ s "b b . <~ b ~ b> ~. <~ ~ ~ b> ~ . ~"
+-- $ s "[b b] ~ [~ ~ ~ ~] ~"
+# s "808bd:3"
+-- # up (-1)
+-- # release 0.8
+
+d2  -- snare
+$ whenmod 64 48 (# silence)
+$ s "<~ ~ ~ s?> <~ ~ ~ [~ s?]> <s s s s?> ~"
+# s "sn:1"
+
+d3 -- drumroll
+$ whenmod 8 6 (degrade . (|+ gain 0.2))
+$ s "dr*8"
+# gain (slow 32 $ sine * 0.2 + 0.7)
+# pan (slow 16 $ 0.5 * sine + 0.25)
+
+d4 $ s "bsbass:4"
+
+d5 -- lead piano
+$ whenmod 12 9 (|+ n 7)  -- variation descente
+$ superimpose -- nappes phazer
+( (# s "phazer")
+. (|- gain 0.2)
+-- . every 2 (someCyclesBy 1 ( -- variations octaves
+  -- |+ n (choose [12,-12])
+-- ))
+)
+$ n (scale "major" "<<0 2> 1 <2 0> ~>")
+# s "defaultB"
+# gain 1
+
+d5
+$ superimpose -- nappes phazer
+( (# s "phazer")
+. (|- gain 0.2)
+-- . every 2 (someCyclesBy 1 ( -- variations octaves
+  -- |+ n (choose [12,-12])
+-- ))
+)
+$ n (scale "major" "<<0 2> 1 <2 0> ~>")
+# s "defaultB"
+# gain 0.9
+
+
+d6 -- choeur
+$ silence
+-- $ superimpose ((# s "ade:3") . (# note (-24)))
+$ s "ade:2" # note (scale "major" (
+  "<<0 2> 1 <2 0> ~>"
+  - 20
+)) # cut 6
+# gain 1.8

live/fusion/acid_jazz.tidal

+d1 -- beat
+$ whenmod 16 10 (degrade)
+$ someCyclesBy 0.9 (superimpose (# size 0.9) . (# room 0.9))
+$ s "tech:5*4" # note (-4)
+
+d3 -- piano main gauche
+$ s "superpiano"
+# note "<-20 [-19,-15] [-20,-16] ~>"
+# velocity "<0.7 0.5 0.6>"
+# sustain 3
+# gain 0.9
+
+d4 -- piano main droite
+$ degradeBy ("<0.1>")
+$ s "superpiano*16"
+# note "<-20 [-19,-15] [-20,-16] ~>"
+# velocity "<0.7 0.5 0.6>"
+|+ note 12
+# gain 0.9
+
+
+d2 -- hihat/cymbal
+$ someCycles (superimpose (const "~ ~ 808cy ~"))
+$ every 4 (const $ "[~ [hh,hh:8] ~ [hh ~ hh]]*2" # gain 1.2)
+$ s "[~ hh ~ <hh [hh ~ hh]>]*2"
+# gain 1.4
+
+
+d6 -- white noise
+$ whenmod 64 48 (degradeBy 0.9)
+$ rarely (off 0.5 (|+ 0))
+$ sometimes (jux rev)
+$ (# speed (rand / 2))
+$ s "glitch:2" -- # n (run 8)
+# cut 1
+# gain 1.2

live/fusion/acide_guitar.tidal

+setcps 1
+
+d1 -- kick
+$ whenmod 64 48 (# silence) -- break
+$ whenmod 8 6 degrade
+$ fast 2
+$ s "kick:5"
+# gain 0.9
+
+d2 -- basse!
+$ someCyclesBy 0.8 (fast 2 . (# room 0.7). (# size 0.7))
+$ whenmod 8 4 (|+ note "<-5 2>")
+$ note (scale "major" "0 <12 8? 0>")
+# s "bass3:5"
+
+d3 -- claps
+$ whenmod 64 48 (# silence) -- break
+$ sometimesBy 0.2 (stut 2 0.9 0.25)
+$ s "~ clap:1"
+# room (slow 16 $ sine * 0.5 + 0.25)
+# gain (slow 32 $ 0.75 - cosine * 0.25)
+
+d4 --hihats?
+$ whenmod 16 8 (# n 6)
+$ s "~ ~ [hh hh?] ~"
+# n 8
+
+d5 -- sometimes, vocals
+$ whenmod 64 48 (# silence) -- break
+$ whenmod 8 4 (striate 4)
+$ sometimesBy 0.8 (# silence)
+$ s "bsvocals"
+# n 2
+# room "0.8"
+# cut 1
+
+d6 -- breakbeat? TODO confirm rythm
+$ whenmod 64 48 (# gain 1) -- break
+$ iter 4 $ loopAt 2
+$ chop 4
+$ sound "breaks125"
+# gain 0.5

live/fusion/ploink.tidal

+-- TECHNO HOP
+
+d1 -- beat
+$ someCycles (0.25 ~>)
+$ s "<b b b b?> <b? b b? <~ <~ b>>>"
+# s "kick:5"
+
+d2  -- snare
+$ jux rev
+-- $ whenmod 64 48 (# silence)
+$ whenmod 8 6 (someCycles (fast 2))
+$ s "<~ ~ ~ s?> <~ ~ ~ [~ s?]> <s s s s?> ~"
+# s "sn:1"
+
+d3 -- drumroll
+$ sometimesBy "<0.1 .. 0.5 0.5 0.1>" (fast 2 . degrade)
+$ s "d*2 [<~ d?*2> d? ~] d?*2 d*2"
+# s "dr"
+-- # gain (slow 64 $ sine * 0.7 + 0.4)
+
+d4 -- ploink electrique
+$ whenmod 32 30 ((degradeBy 0.8) . (# gain (slow 2 $ 1 - tri * 0.8)))
+$ whenmod 32 28 (rev . degrade)
+$ whenmod 32 26 (rev . fast 2 . degradeBy 0.1 . (# release 0.3))
+$ superimpose ((# lpf 2000) . (|- note 12))
+$ degradeBy "0.5 0.9 0 0.2 0.1 0.5 0.05 0.01"
+$ note (scale "aeolian" (run 8))
+# s "ade:1"
+# release 0.8
+|- note 12
+
+d5 -- fourchette folle
+$ whenmod 128 96 (# silence)
+$ whenmod 16 10 (superimpose (fast 2))
+$ whenmod 16 8 (off 0.25 (|- note "<5 7>"))
+$ n "0"
+# s "superfork"
+# room (slow 256 $ 2 - sine * 1.8)
+# size (slow 128 $ sine * 0.4 + 0.45)
+# dry (irand 4)

live/hardcore/priere.tidal

+-- Prière dure
+
+setcps 1.1
+
+d1 -- kick régulier
+$ fast 2 -- double tempo, parfois (à la main)
+$ every 8 (slow 2)
+$ s "kick:5"
+
+d2 -- claps réguliers
+$ s "~ clap" # n "[0,<2 3 4>]"
+# gain 0.7
+# room 0.7
+
+d3 -- synthé
+$ whenmod 16 8 (superimpose (|+ note "<7 7 7 7 5 5 3 3>"))
+$ whenmod 16 4 (superimpose (|+ note "5"))
+$ s "f"
+|- note 12
+# gain (slow 64 $ sine * 0.4 + 0.2)
+
+d4 -- cymbales régulières dégradées au hasard
+$ fast 2
+$ degrade
+$ degradeBy "<0.2 0 0.8 1>"
+$ s "808cy*4"
+
+d5 -- basse régulière montée/descente
+$ superimpose (rev . (|+ note "<5 5 7 5 0 <0 5> 0>"))
+$ s "bassWarsaw*<2 4 2? 4?>"
+|- note 24
+
+d8 -- xylophone aéolien montant
+$ degradeBy 0.9
+$ superimpose ((|+ note "[-12,12]"))
+$ n (scale "aeolian" (run 8))
+# s "xylophone"
+# gain 0.9

live/noise/decentering.tidal

+setcps 0.5
+
+d1 -- vents aigus
+$ stut "<0 2 4 0>" 0.5 0.125
+$ n "[0,1] 9"
+# s "wind"
+# gain (slow 64 $ cosine * 0.6 + 0.3)
+
+d2 -- beat
+$ fast 2
+$ every 4 (sometimes (off 0.125 (|+ 0)))
+$ whenmod 32 30 degrade
+$ whenmod 32 26 degrade
+$ s "house"
+# room 0.8
+# size 0.7
+# dry 1
+# gain (slow 32 $ cosine * 0.25 + 0.7)
+# lpf 800
+
+d3 -- glitch reseau
+$ every 4 (someCyclesBy 0.2 (chop 4))
+$ s "~ glitch:5"
+# gain (slow 64 $ sine * 0.7 + 0.2)
+
+d5 -- bourrasque space
+$ whenmod 16 10 (
+  (swing 2) . (chop 2)
+)
+$ s "space:3"
+# speed 0.5
+# gain (slow 64 $ cosine * 0.7 + 0.2)
+
+d6 -- oiseaux
+$ sometimes (off 1 (|+ 1)) -- copie mesure suivante
+$ sometimes (1 ~>) -- decalage mesure suivante
+$ degradeBy (slow 64 $ sine * 0.8 + 0.2)
+$ s "birds" # n (irand 10)
+# gain 0.7
+
+d7 -- moineau roll
+$ sometimesBy (slow 16 $ sine * 0.8) (off (1/16) (|+ 0))
+$ s "birds3(<[3|6] 8>,8)"
+# gain (slow 64 $ 1 - sine * 0.2)
+
+d8 -- pebbles voice-blocker
+$ often (superimpose (rev . (|- note 12)))
+$ off "<0.25 0.125 0.5>" ((chop 8) . (# gain 0.8))
+$ s "pebbles"
+# cut 1
+# note (scale "major" (irand 7))
+# speed "<1 2 1 [1|2]>"
+# gain 0.9
+
+d9
+$ fast 2
+$ s "~ [b b?]]"
+# s "birds3"
+# n (wchoose [(9,13),(1,14)])
+# room (slow 64 $ cosine * 0.8 + 0.05)
+# size (slow 64 $ cosine * 0.8 + 0.05)
+# dry 0
+
+d10 -- basse
+$ superimpose (
+  (fast 2) . (chop 4)  . (# crush (4 + (irand 10)))
+) -- echos crushes!
+$ jux rev
+$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
+$ every 4 (someCycles (fast 2 . degrade))
+$ often (fast 2 . (0.25 ~>))
+$ note "<0 <3 [3 3]> <0 [3 0]>>"
+# s "bassWarsaw"
+# hpf (slow 64 $ cosine * 900 + 100)
+# room (slow 64 $ 1 - cosine * 0.9)
+|- note 24
+
+d11 -- cymbale
+$ whenmod 64 32 (someCycles (# n 3)) -- prolonge
+$ almostNever (superimpose (const $ s "~ ~ 808cy:1 ~"))
+$ whenmod 16 8 (# note 4)
+$ whenmod 16 0 (# note 7)
+$ euclid 5 4
+$ s "cy"
+# s "808cy"
+# gain (slow 32 $ sine * 0.5 + 0.5)