update live

blocks/drums.tidal

@@ -54,7 +54,6 @@ $ s "dr dr dr dr dr dr sn ~ dr dr dr dr sn"
 
 d1
 $ every 1 (off (8/16) id)
-$ every 2 (off (9/16) id)
 $ every 2 (off (10/16) id)
 $ every 2 (off (14/16) id)
 -- $ every 4 (off (15/16) id)

blocks/instruments.tidal

+-- Bulles 8bit
+once $ s "supersnare"
+# n (-12)
+# accelerate 8
+# sustain 1

blocks/melody.tidal

@@ -19,6 +19,8 @@ $ s "~ dsynth(<4 3 5>,8)"
 
 once $ s "arp" # n 0
 
+-- Basse synthé :)
+d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.6 # orbit 0
 
 d1 -- continuous laser
 $ s "bd" >| speed (segment 50 $ range 40 5 (saw))

blocks/snares.tidal

+
+-- TODO: Snare
+d2
+$ every' 8 6 (degradeBy "<1 0>")
+$ jux rev
+$ sometimes (off (1/16) id)
+$ s "~ <~ <t? t>> ~ t"
+# s "supersnare"
+# accelerate 5
+# hpf 500
+# decay 8 # sustain 0.2  # n (0)
+# gain 0.9

live/boeuf/samedi_confine_extra.tidal

+-- Acte 3: BIRDS
+
+prog = "<0 0 0 0 2 2 4 4>"
+
+d3 $ superimpose ((|-| n 24) . (# gain 0.0)) $ degradeBy 0 $ n (scale "aeolian" (iter 6 $ "[-2 2 7 11 14 7 0 14]*2" + prog - "0 -7 0 -7 0 0 -7")) # s "supersaw" # legato 1 # gain 0.65 # orbit 1 # lpf (slow 6 $ range 500 1200 sine) # lpq (slow 8 $ range 0 0.1 sine) # voice 0.1 # silence
+
+d4 $ n (scale "aeolian" ("[-7,-2,4,7,9,11,13]*4" + prog)) # s "superhammond" # attack 1 # gain 0.65 # lpf (slow 32 $ range 300 2500 sine) # lpq (slow 8 $ range 0 0.15 sine) # silence
+
+d4 $ whenmod 8 6 (degradeBy 0.75) $ inside 2 (sometimesBy 0.1 (ply 2)) $ iter 4 $ n ("0 0 2 ~ [5 4] 2 <3 5> [1 [2 2]]" + "<5 5 5 8 2 3>") # s "<dr dr dr jazz>"
+
+d5 $ s "insect*4" # n (irand 6) # speed (range 0.25 4 rand)
+
+d6 $ s "birds" # n (irand 6) # speed (range 0.5 2 rand)
+
+-- EHOUE
+
+d6 $ sometimesBy "0 0.75" (stut 4 0.9 (1/16)) $ sometimesBy "0 0 0.5 0" (0.125 ~>) $ s "k k k? k?" # s "kick:5" # gain 0.9
+
+-- moineau scratch
+d7 $ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>" $ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine)
+
+-- pivert!
+d8 $ someCycles (# silence) $ often (stut 5 0.9 0.05) $ s "birds3:6(<1 1 3 1> ,8)"
+
+d10 $ whenmod 4 2 (juxBy 0.3 rev) $ rarely (slow 2) $ whenmod 4 2 degrade $ sometimesBy (slow 8 $ "<0.2 0.5 0.9>") (off (1/16) id) $ s "dr*8" # s "drum:8"
+
+-- vents du haut!
+d12 $ chunk 16 (rev) $ rarely (rev) $ every 4 (# crush 6) $ s "wind*16" # note (run 8) # legato 2 # gain 0.7 # silence
+
+-- bourrasque
+d11 $ every 16 (jux rev) $ every 8 (# gain 0.9) $ s "space:3" # speed 0.25 # silence
+-- AYWAY !
+
+
+
+-- EEEEEEEEEEEEEEEEEEEWEEEEEEEEEEEEEEEEEEEEEEEEE !E

live/hip/pensif.tidal

+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

study/nova/disco_punk.tidal

+setcps 0.6
+
+d10 -- metronome
+$ s "tok*4" # note ("10 0 0 0" - 28)
+# gain 0.5
+
+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.6
+
+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.1) . (|+ 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 0.8
+# 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.6
+
+
+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