From 03a8176f24df5f7301f1597360432c5f83d895e6 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sat, 28 Mar 2020 23:52:40 +0100 Subject: [PATCH] update live --- blocks/drums.tidal | 1 - blocks/instruments.tidal | 5 +++++ blocks/melody.tidal | 2 ++ blocks/snares.tidal | 12 ++++++++++++ live/boeuf/samedi_confine_extra.tidal | 36 ++++++++++++++++++++++++++++++++++++ live/hip/pensif.tidal | 110 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ study/nova/disco_punk.tidal | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 7 files changed, 231 insertions(+), 1 deletion(-) create mode 100644 blocks/instruments.tidal create mode 100644 blocks/snares.tidal create mode 100644 live/boeuf/samedi_confine_extra.tidal create mode 100644 live/hip/pensif.tidal create mode 100644 study/nova/disco_punk.tidal diff --git a/blocks/drums.tidal b/blocks/drums.tidal index 9e67f4f..61193ca 100644 --- a/blocks/drums.tidal +++ b/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) diff --git a/blocks/instruments.tidal b/blocks/instruments.tidal new file mode 100644 index 0000000..c51d131 --- /dev/null +++ b/blocks/instruments.tidal @@ -0,0 +1,5 @@ +-- Bulles 8bit +once $ s "supersnare" +# n (-12) +# accelerate 8 +# sustain 1 diff --git a/blocks/melody.tidal b/blocks/melody.tidal index c599621..513d38d 100644 --- a/blocks/melody.tidal +++ b/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)) diff --git a/blocks/snares.tidal b/blocks/snares.tidal new file mode 100644 index 0000000..7242686 --- /dev/null +++ b/blocks/snares.tidal @@ -0,0 +1,12 @@ + +-- TODO: Snare +d2 +$ every' 8 6 (degradeBy "<1 0>") +$ jux rev +$ sometimes (off (1/16) id) +$ s "~ <~ > ~ t" +# s "supersnare" +# accelerate 5 +# hpf 500 +# decay 8 # sustain 0.2 # n (0) +# gain 0.9 diff --git a/live/boeuf/samedi_confine_extra.tidal b/live/boeuf/samedi_confine_extra.tidal new file mode 100644 index 0000000..355dfe4 --- /dev/null +++ b/live/boeuf/samedi_confine_extra.tidal @@ -0,0 +1,36 @@ +-- 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 "" + +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 diff --git a/live/hip/pensif.tidal b/live/hip/pensif.tidal new file mode 100644 index 0000000..daa64ed --- /dev/null +++ b/live/hip/pensif.tidal @@ -0,0 +1,110 @@ +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>]" -- 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" +# 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 "") . (# 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 "") +$ 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 diff --git a/study/nova/disco_punk.tidal b/study/nova/disco_punk.tidal new file mode 100644 index 0000000..3229faa --- /dev/null +++ b/study/nova/disco_punk.tidal @@ -0,0 +1,66 @@ +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 = "" + +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" + "") +# s "phazer" +-- |+ note 24 +-- # delay (1/16) +# release 0.5 +# gain 0.8 + +once $ +s "pluck:0" # gain 0.6 -- libgit2 0.27.0