feat: from blocks to sunny

LICENSE

+This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
+See full terms: https://creativecommons.org/licenses/by-nc-sa/3.0/

blocks/rolls.tidal

+d3 -- Et tititi, et tatata, et titititatatatititi, et tititi...
+$ every' 8 7 (degradeBy "1 0")
+$ every' 8 6 (<| s "d*6 [d? d]*3")
+$ s "d <d d*3> <d <d d*3>> d*3"
+# s "dr"
+
+d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
+$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
+# s "dr:9"

live/boeuf/samedi_confine_extra.tidal

@@ -42,7 +42,7 @@ d1 $ superimpose ((|-| n 12) . (# gain 0.0)) $ n (scale "aeolian" (iter 6 $ "[-2
 
 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
 
-d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.5 # orbit 0 # silence
+d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.5 # orbit 0
 
 -- BON CETAIT GRAVE COOL MAIS JE VAIS MARRETER ET JOUER A BLACK MESAAVEC SONIA !!!
 -- ON SE REFAIT CA DEMAIN ? ;)

live/fusion/blue_party.tidal

@@ -15,8 +15,7 @@ $ superimpose -- kick!
 (every 4 (off 0.125 id))
 . whenmod 64 56 (# gain 0)
 . whenmod 32 16 (fast 2)
-. (# s "clubkick:4")
-. (# gain 0.5)
+. (# s "jazz")
 . (# cps 0.5)
 $ whenmod 32 30 (# gain 0)
 $ whenmod 32 24 (# gain (slow 4 $ tri))
@@ -26,7 +25,11 @@ $ whenmod 32 8 (# gain tri)
 $ every 8 ((slow 8 $ "0 <0.125 0.25>") ~>)
 $ s "d d"
 # s "drum"
-# gain 0.5
+# gain 0.8
+
+d1 -- techno!
+$ s "j j j <[~ k] <k [~ k]>>"
+# s "jazz"
 
 d3 -- hihat 3/5 sur 8
 $ every 8 ( -- caisse metal variations
@@ -62,7 +65,7 @@ $ s (slow 1 $ "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>")
   "<0 3 4 0> 3 0 <0 0 4 4>" -- base blues
 ))
 # s "superpiano/2"
-# velocity (slow 32 $ sine * 0.3 + 0.5)
+# velocity (slow 32 $ sine * 0.3 + 0.3)
 
 -- . . . . . . . .
 -- 10110101101

live/fusion/dessin.tidal

+d1 -- Variations hardcore
+$ whenmod 64 32 (<| s "k*<8 [8 4] 4 <8 16>>")
+$ whenmod 64 16  (<| s "k k k <k*2 [~ k]>")
+$ whenmod 64 8  (<| s "k*<4 2 2 4 2 2 4 4>")
+$ whenmod 64 6  (<| s "k*2")
+$ whenmod 64 4  (<| s "<k k*2>")
+$ whenmod 64 0  (<| s "k")
+$ s "k"
+# s "kick:5"
+# lpf (slow 64 $ range 200 2000 sine)
+# gain 0.8
+
+
+d1 -- TECHNO
+$ whenmod 40 30 (# gain (slow 10 $ range 0.9 0.5 isaw))
+$ s "k k k <[~ k] k*2>"
+# s "kick:5"
+# lpf (slow 16 $ range 200 2000 sine)
+
+d2 -- snares
+$ sometimesBy "0 0.5 0.5 0.75" (# n 1)
+$ s "s(<3 [3|5]>,8)"
+# s "snare"
+# n "0"
+
+d9
+$ euclid (slow 4 $ "<1 <5 3>>") 8
+$ s "glitch:5"
+# hpf 2000
+# gain 1.2
+
+d3
+$ whenmod 8 6 (# gain 0)
+$ sometimesBy (slow 8 $ range 0 0.5 sine) (fast 2)
+$ degradeBy (slow 8 $ range 0 0.5 cosine)
+$ s "dr*12"
+# s "drum:8"
+
+d5
+$ bite 4 "<0 1> <1 0> <3 2*2> <3 2>"
+$ s "s(<1 3>,<1 8>)"
+# note (scale "major"
+"[0,5]"
++ "<0 2 4 2 7 5 7 9>"
+- 28
+)
+
+d5 -- basse régulière montée/descente
+$ s "b"
+# note (scale "major" (-14 + "[0,5]" + (slow 2 $ "<0 <5 -2>>")))
+# s "supersaw"
+# voice 0.1
+# gain 0.8
+
+d6 $ s "birds" # n (irand 6) # speed (range 0.5 2 rand) # gain 0.9
+
+d4
+$ jux (# s "cheapPiano1")
+$ s "0 <0 <~ 0*2>> 0 0 0*2 0*2 <0 ~> 0"
+# note (scale "major" "[0,5]" + (slow 2 $ "<0 5>"))
+# s "superpiano"
+# velocity 0.5
+# room 0.1

live/fusion/kaalamite.tidal

+setcps 1
+
+once
+$ note (scale "major" 1 - (run 4))
+# s "kaamelott:1"
+# end 0.04
+# gain 0.9
+
+d1
+$ every 8 (# silence)
+$ s "k <k ~> k <~ <k k*2>>" # s "kick:5"
+# gain 0.8
+
+d2
+$ sometimesBy "<0 0 0 [0 0.5 0 1]>" (hurry 2)
+$ sometimes (fast 2)
+$ s "~ sn:1*2"
+
+d4 $ s "~ [~|c|c|c*2|c ~ c]"
+# s "clap:2"
+# gain 0.8
+
+d3 $ note ( scale "major" (
+  1 - (bite 4 ("<0 3>*[1|2] <1 2 3 4> <2 3 4 1> <3 0>*[1|2]") $ run 4
+  ) + "<0 0 0 0 0 2 4 6 0>"
+  )
+  - 24
+)
+# s "supersaw"
+# voice 0.01
+# gain 0.8
+
+d7 -- choeur!
+$ note (scale "major" "[0,3,<<~ 7> 5>]/2")
+# s "kaamelott:1"
+# end 0.04
+# sustain 2
+# gain 0.9
+
+once $ s "kaamelott:1" # begin 0.85 -- les oiseaux petits
+-- # end 0.92
+# cut 1

live/hip/beats.tidal

 -- SirenBeat
-
 setcps 0.45
 
-d1 -- regulo techno
--- $ whenmod 16 10 (# gain 0)
-$ (# s "clubkick:2")
-$ fix ((# note 0) . (# lpf 2000)) (s "h")
-$ fix ((# note 1) . (# lpf 5000)) (s "l")
-$ s "h l? . h <~ l> . <h h h [~ h]> . h <h? [h|h|~]>"
-|- note 2
-# gain 0.8
-
-
-
--- #
-
-
--- #
-
-
-
 d1 -- reverbkick varie
-$ whenmod 16 14 (# gain 0.8) -- fin break 1? TODO test
-$ whenmod 16 10 (# gain 0) -- break 1
+$ every' 16 13 (fast 2)
+-- $ whenmod 16 13 (# gain 1) -- fin break 1
+-- $ whenmod 16 10 (# gain 0) -- break 1
 $ (# s "reverbkick")
 $ fix ((# note 0) . (# lpf 2000)) (s "h")
 $ fix ((# note 1) . (# lpf 5000)) (s "l")
 $ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
 |- note 2
-# gain 0.8
 # pan 0.2
 
 d2 -- amen sur 8
@@ -38,7 +19,7 @@ $ off (1/16) degrade
 $ every 2 (sometimes $ degrade . fast 2)
 $ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
 $ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
-# gain 0.5
+# gain (slow 64 $ range 0.5 0.8 sine)
 # pan 0.8
 
 d3 -- Drumroll
@@ -48,7 +29,7 @@ $ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
 $ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
 $ s "d*8"
 # s "dr"
-# gain (slow 32 $ sine * 0.4 + 0.4)
+# gain (slow 32 $ sine * 0.5 + 0.4)
 # pan (slow 8 $ 0.2 + tri * 0.8)
 
 d4 -- Hats motif rythme
@@ -59,25 +40,23 @@ $ n "f'maj e'min d'maj ~"
 # sustain 0.2
 # gain 0.5
 
-d5 -- lead
--- $ whenmod 4 2 (sometimes $ jux rev)
-$ whenmod 8 4 (sometimes $ degradeBy 0.25)
-$ every 4 (chunk 4 (|- n "[5,12]" )) -- variante chunkee quinte
-$ superimpose (|- n 12) -- octave
-$ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
-$ n ("f'maj e'min d'maj ~" - 12)
-# s "supersiren"
-# gain 0.2
+d5 -- Sirene
+$ s "supersiren/4"
+# note (slow 4 $ "<f e c e5>"
+- 36)
+# gain 0.5
 
 d6 -- basse motif
-$ whenmod 60 64 (
-  swing 2
-  . (# gain 1.1)
-  )
-$ arp "thumbup"
-$ n "f'maj e'min d'maj ~"
+$ whenmod 16 10 ( -- break 1
+  superimpose (# s "subBass2") . (|- gain 0.1))
+$ whenmod 60 64 (swing 2)
+$ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
+$ note ("f'maj e'min d'maj ~"
++ (slow 4 $ "<0 4 2 <0 12>>") -- descente
+- 24)
 # s "subBass1"
-|- n 24
+# gain 1
+# room 0.4 # size 0.2
 
 d7 -- sometimes, slow bass synth
 $ whenmod 64 61 (chop 2)
@@ -88,13 +67,45 @@ $ n "f'maj ~ e'min ~ d'maj ~"
 # legato "1 1 2 ~"
 # sustain "1 1 4 ~"
 |- n 24
-# gain 0
+# gain 0.4
 
 d10 -- scratch moineau!
 $ sometimesBy 0.2 (off (1/32) id)
 $ degradeBy "0 0.1 0.8 0"
-$ euclid (slow 8 $ "<8 16>") 16
+$ euclid (slow 8 $ "<3 5>") 16
 $ n "0"
 # s "birds3"
 # n (choose [0,0,2])
-# gain 0.6
+
+d11 $ s "birds/4" # n (irand 6) # speed (0.5 + rand * 2)
+# gain (0.4 + rand / 2)
+
+-- SANDBOX
+
+
+
+d1 -- regulo techno
+-- $ whenmod 16 10 (# gain 0)
+$ (# s "clubkick:2")
+$ fix ((# note 0) . (# lpf 2000)) (s "h")
+$ fix ((# note 1) . (# lpf 5000)) (s "l")
+$ s "h l? . h <~ l> . <h h h [~ h]> . h <h? [h|h|~]>"
+|- note 2
+# gain 0.8
+
+
+
+d5 -- lead
+-- $ whenmod 16 10 (# gain 0) -- break 1
+-- $ whenmod 4 2 (sometimes rev)
+-- $ whenmod 8 4 (sometimes $ degradeBy 0.25)
+$ every 4 (chunk 4 (|- n "[5,12]" )) -- variante chunkee quinte
+$ (superimpose $
+  arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
+  . (|+ gain 0.3)
+  . (|- note 24)
+)
+$ note ("f4'maj e4'min d4'maj ~")
+# s "supersiren"
+# sustain 0.25
+# gain 0.4

live/hip/sunny.tidal

+setcps 0.3
+
+d1
+$ sometimes (stut 3 0.9 0.125)
+$ rarely (# cut "[1,2]")
+$ s "k ~ k . k k <k ~>"
+# s "kick" # n "[2,9]"
+# lpf (slow 32 $ range 200 20000 sine)
+# gain 0.8
+
+d2 -- Snares plus ou moins reguliers
+$ whenmod 48 36 (# gain (slow 12 $ 0.9 - saw / 2))
+$ fast 2
+$ sometimes (fast 2)
+$ s "~ <~ s?> . s s?"
+# "snare"
+# n "[2|3] . <4 6>"
+# gain (slow 32 $ range 0.5 0.9 cosine)
+
+d3 -- Et tititi, et tatata, et titititatatatititi, et tititi...
+$ rarely (degrade)
+$ rarely (fast 2)
+$ s "dr*8"
+# s "drum:8"
+# gain (slow 32 $ range 0.5 1.2 sine)
+
+d4 $ n (stack [
+  "0(3,8,<0 4>)"
+  ,"<~ 1*2?>(1,8,7)"
+  ,"[2, 3?](3,8,<0 0 0 0 2 2 2 4>)"
+  ])
+# s "hh"
+
+d5
+$ juxBy 0.2 (# crush 5)
+$ arp (slow 4 $ "<pinkyup updown downup speedupdown speeddownup>")
+$ whenmod 16 8 (someCyclesBy 0.75 rev)
+$ note (scale "aeolian" (
+  "f4'maj d4'min d4'maj c4'maj" - 7
+))
+# s "supersaw" # voice 0.05
+# gain 0.75
+
+d7
+$ every 2 (superimpose ((swing 2) . (arp "[updown|downup]") . (# room 0.5)))
+$ note (scale "aeolian" "<d4'maj e4'maj f4'min <d f>4'maj>")
+# s "toys"
+# begin 0.3 # end 0.5
+# gain 0.6
+
+
+-- Sandbox
+d4 -- basse tension chelou
+$ whenmod 32 18 (# gain 0.8)
+$ whenmod 32 17 (# gain "0.8 0")
+$ whenmod 32 16 (# gain 0)
+$ note "0 . 0*<1 2 4 2> . 0*<1 1 4 1>"
+# note (scale "aeolian" "0 .. 5" + "[0,7]" + (slow 4 $ "<-7 0>")
+- 21)
+# s "supersaw"
+# voice 0.05
+# gain 0.7
+
+d8
+$ s "s/4"
+# note (scale "aeolian" (slow 4 $ "<-2 -5>"))
+|- note 24
+# s "supersiren"
+# voice 0.1
+# gain 0.8
+
+
+
+d2
+-- $ euclid "<7 3 4 7>" 8
+$ n "0? <~ <0? 0>> 0? 0"
+# s "sn:[2|8]"
+# room 0.5 # dry 1.1 # size 0.5

live/hip/volette.tidal

@@ -5,13 +5,13 @@ d1
 $ someCycles (degradeBy "0 0.5 1 0" . fast 2)
 $ whenmod 8 6 (degradeBy "1 1 1 1 1 1 1 0")
 $ s "<k [k*2 ~]> . k ~ <~ k?> <k? k>"
-# s "kick:6"
+# s "reverbkick"
 # lpf 500
 # gain 0.6
 # pan 0.1
 
 d2
-$ whenmod 8 6 (jux (# crush 4))
+$ whenmod 8 6 (juxBy 0.2 (# crush 4))
 $ someCycles (jux $ hurry 2)
 $ sometimes ((# n 3) . stut 4 0.75 0.125)
 $ s "~ s? ~ s?*2"
@@ -38,7 +38,7 @@ $ s "dr"
 d4
 $ someCycles (degrade . (# sustain 0.25))
 $ someCycles (slow 2)
-$ bite 4 "[0|0 0] 2 1*2 <3 3 0 3>"
+$ bite 4 "<[0 1 2 3] [0 1 1 1] [0 3 2 1] [[0|0 0] 2 1*2 <3 3 0 3>]>"
 $ note ("5 6 8 ~ 8 [6 5] 6 ~"
 - "[24,36]"
 )

live/techno/80s.tidal

+setcps 0.4
+
+d1
+$ s "k k? <k k?> k*<1 1 2 1 2 2 2 1>"
+-- $ s "k [<~ k> <~ k> k? k]"
+# s "jazz"
+
+d4
+$ someCycles (juxBy 0.2 rev)
+$ sometimes (hurry 2)
+$ sometimes (off (1/8) id)
+$ n "2 ~ 3 2 . ~ 3 2 3" # s "electro1"
+
+d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
+$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
+# s "dr:9"
+# gain (slow 16 $ range 0.5 0.9 sine)
+# pan (slow 32 $ sine)
+
+d5
+$ sometimesBy (slow 4 $ "<0 0.25 0.5 1>") arpeggiate
+$ s "cs80leadMH*2"
+# note (scale "major" "e'maj" + "<[0 <3 [3|<7 5>]>]>" - 21
+)
+# gain 0.6
+
+d6
+$ sometimes (arp (slow 8 $ "<updown downup>"))
+$ note (scale "major" (
+whenmod 32 24 (5 - )
+"c'maj" + "<[0 <3 [3|<7 5>]>]>")
+- 21)
+# s "supersaw"
+# voice 0.1
+# gain 0.7
+
+d7
+$ s "glitch(<5 5 5 <4 3>>,8)"
+# n (slow 8 $ "<5 [2|6|7]>")
+# lpf (slow 64 $ range 10000 20000 sine)
+# hpf (slow 64 $ range 0 200 cosine)
+# gain 0.9
+# room 0.4
+# size 0.5
+# dry 1

live/techno/german_wings.tidal

 -- Techno - 80s - aerian
-setcps 0.6
+setcps 0.4
 
 d1
 -- $ fast 4 . (off 0.5 (# s "<~ clap>"))

live/techno/jump.tidal

+setcps 0.6
+
+d1
+$ often (
+  superimpose (
+  (stut 4 0.5 0.125) .
+  (# s "electro1:3") .
+  (# gain 0.8)
+))
+$ note "0 <0 0?> <0 0 0? 0> [[0|1] 1]"
+-- $ note "<0 [0|0*2]>*4"
+-- $ note "[0|0*2] . ~ <0 0 0 ~>" -- attente
+# s "jazz"
+# pan 0.3
+# gain 0.75
+
+d2 -- Snares reguliers
+$ whenmod 8 4 (fast 2)
+$ s "~ ~ s ~"
+# s "snare:8"
+# room (slow 20 $ range 0 0.6 sine)
+# size (slow 40 $ range 0.6 0.6 cosine)
+# dry 0.9
+# gain 0.9
+
+d3 -- Drumroll FIXME
+$ degrade
+$ s "dr*16"
+# gain 0.8
+
+d4 --
+-- Todo: vars interne a la mesure
+$  s "supersaw(<5 7 3>,8, <0 2>)"
+# n (scale "aeolian" ("<0 0 0 0 2 2 4 <-2 3>>" - 14))
+# gain (slow 16 $ range 0.5 0.65 sine)
+# voice 0.1 # room 0.5 # orbit 0
+
+d5 -- Bulles folles
+$ bite 4 "<0 3>(1,3,<1 3>) <1 1(3,8)> 2 <3 3*2 0 3>"
+$ note (scale "major" (
+  whenmod 16 8 (8 -)
+  (run 8)
+  + (slow 4 $ "<-14 -7 0 -14>") -- gamme
+  + "[0,7]" -- accord
+))
+# s "supersaw"
+# voice 0.05
+# accelerate 1
+# gain (slow 16 $ range 0.6 0.4 sine)
+
+d6 -- Sirene
+-- $ whenmod 16 8 (chop ("<2 2 16 16 8 64 32 16>"))
+$ s "supersiren/4"
+# sustain 3 -- FIXME: Except when chopped
+# n (scale "aeolian" ("<0 0 0 0 2 2 4 <-2 3>>" - 14))
+# gain 0.6
+
+d7 -- glitchs!
+$ jux rev
+$ s "g(<3 5 8 1>,8,<0 2>)"
+# s "glitch:2"
+# gain 0.6
+# pan (rand / 4)
+
+d8 -- Bulles finales
+$ often (# crush 4)
+$ someCycles (stut 8 0.5 (1/16))
+$ every' 8 7 (# gain 0.7)
+$ s "~ s ~ s ~ s s ~"
+# s "supersnare"
+# n (-12)
+# accelerate 8
+# sustain 1
+# gain 0