pensif.tidal 2.35 KB
setcps 0.5

d1 -- beat hip-hop
$ whenmod 16 12 (# gain 1.3)
$ whenmod 16 11 (# gain 1)
$ whenmod 16 8 (# gain 0)
$ s "k k k [<k k?> <~ k>]" -- techno!#
-- Hip hop!
-- $ every' 8 6 (degradeBy "0 1 . 1 . 1")
-- $ s "b ~ b b ~ b b ~"
# s "electro1:5"
# gain 1.3

d2
$ every' 8 6 (degradeBy "<1 0>")
$ every' 8 3 (degradeBy 1)
$ jux rev
$ sometimes (off (1/16) id)
$ s "~ <~ <t? t>> ~ t"
# s "snare:1"
# gain 0.9

once $ s "superpiano" # gain 1

d3
$ every' 8 7 (degrade)
$ every' 4 3 (off (1/16) id) -- double
$ s "dr*8"
# s "drum:8"
# gain 0.7

d3
$ whenmod 8 7 (# silence)
$ sometimesBy "<0 0.25 0.75 0>" (off (3/16) id)
$ sometimesBy 0.8 (off (2/16) id)
$ sometimesBy 0 (off (1/16) id)
$ s "d*4"
# s "drum:8"
# gain (slow 16 $ 0.2 * sine + 0.75)

d4 -- drums
$ degradeBy "<1 1 1 <[1 0.8 0.2 0] 0>>"
$ s "~ electro1(6,8)"
# n (choose [2,3,4])


d5 -- basse
$ whenmod 64 32 (# gain (slow 32 $ sine * 0.3 + 0.6))
$ whenmod 32 24 (|+ note 12) -- pont octave!
$ every' 8 0 (degradeBy "0 0 0 1")
$ superimpose ((arp "<up down updown downup>") . (# gain 0.9))
$ whenmod 8 3 (fast 2)
$ whenmod 8 0 (slow 2)
$ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>"
)
# s "bassWarsaw"
|- note 32
# gain 0.9

d5 -- basse reggae
$ chop "<1 <2 4 8>>"
$ note ("[0,5]" + "<7 7 5 [5 9 7]>")
# s "bassWarsaw"
|- note 24

d6 -- Choeurs <3
$ every' 4 3 (arp "<down up downup updown>")
$ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>"
)
# s "moogBass"
|- note 12
# gain 0.7

d6 -- piano triomphal
$ whenmod 64 63 (degradeBy "0 0.25 . 0.75 1")
$ whenmod 64 59 (|+ velocity 0.1)
$ whenmod 64 54 (|- velocity 0.1)
$ whenmod 64 48 (|+ velocity 0.1) -- pont octave!
$ note "[0 0? 0]*4"
# note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>"
)
# s "superpiano"
# velocity 0.5
# sustain "[0.25 0.25 <0.05 0.15>]*4"
# gain 0.5

d7 -- piano fou contretemps reggae
$ note ("[0,5]" + "0 0 . 0 0 ~ 0 " + "<7 7 5 5>")
# s "superpiano"
# velocity 0.5
# room 0.2


d10 -- background voice "Queue"
$ superimpose (chop 8 . (# crush 5) . (# sustain 2) . (# room 0.4))
$ note "0/4"
# s "alphabet:16"
# gain 0.5

d8 -- cymbale
$ whenmod 16 14 (sometimesBy "0.6 0.7 0.8 0.9" (#s "hh:10"))
$ sometimesBy "0 0 0 0.05" (#s "hh:8")
$ s "h(3,8) h(3,8,<0 <2 4>>)"
# s "hh"
# gain (slow 16 $ sine * 0.6 + 0.6)

d9 -- claps
$ s "~ c ~ c"
# s "clap"
# gain 0.9