diff --git a/live/collab/raph/hello_tek.tidal b/live/collab/raph/hello_tek.tidal new file mode 100644 index 0000000..bc21c9d --- /dev/null +++ b/live/collab/raph/hello_tek.tidal @@ -0,0 +1,76 @@ + +d1 $ "t*4" # "tek_kick:4" + # gain 0.9 + +do +setcps (134/60/4) +let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) +let f2 = (# djfbus 2 (range 0.25 0.75 "^29")) +let f3 = (# djfbus 3 (range 0.15 0.85 "^13")) +d1 $ f1 + $ midiOn "^42" ( + (<| "k . ~ k ~ ~" ) + ) + $ midiOff "^42" (<| "k*<1 1 2 <1 2>> . k(3,8)" ) + $ "[kick:5,jazz,reverbkick]" + # end 0.25 + # midiG' "^78" 0 0.8 +d2 $ f2 $ "~ s ~ s*<1!3 2>" + # "snare" + # n "[21,22]" + # midiG' "^79" 0 1.3 +d3 $ f2 + $ "h*[<8!8 4 4 16 8 8!4> <16 [16!<1 3 7> <8!3 16>]>]" + # "tek_hh:3" + # midiG' "^80" 0 0.8 + # cut 3 +d4 $ f3 + $ midiOn "^58" (slice 4 ("0 0 0 <0 1 2>")) + $ loopAt 4 + $ "tek_loop:1" + # cut 4 + # gain 0.7 + # midiG' "^82" 0 0.8 + # pan 0.7 + # crushbus 4 (range 12 1.5 "^54") +d5 $ f1 + $ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7") + $ note (">" + "[c,c([3 <3!4 5!2 3 8>],8)]") + # "tek_bass" + # pan 0.3 + # crushbus 5 (range 10 3.5 "^53") + # midiG' "^81" 0 1.2 +d7 $ f3 + $ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0) + $ "" # "tek_end:2" + # midiG' "^84" 0.2 0.8 + # hpf (slow 32 $ range 0 5000 perlin) +d8 $ f3 -- Pretty much decent! + $ "bogdan:21/4" + # begin "<0!4 0.5!4>" + # end "<1!8 0.5!4 1!4>" + # midiG' "^84" 0 2 + # cut 5 + # room 0.4 + +once $ "tek_strange" + # gain 0.8 + + +once $ "tek_end:2" + # gain 0.8 + + +once + $ note "" + # "tek_bass" + # cut 5 + # gain 0.8 + +d4 $ f3 + -- $ superimpose (|+ note "c'min") + $ arp "up" + $ note "g'maj'4" + # "tek_bass" + # octave "[4,5]" + # midiG' "^81" 0 0.8 diff --git a/live/dub/tubby_study.tidal b/live/dub/tubby_study.tidal new file mode 100644 index 0000000..7cb1c04 --- /dev/null +++ b/live/dub/tubby_study.tidal @@ -0,0 +1,69 @@ +setcps (90/60/4) + +-- Study Tubby: See https://www.pure.ed.ac.uk/ws/portalfiles/portal/15441495/Tubbys_Dub_Style.pdf +-- TODO: +-- 3Delay: Drum / Voice / Guitar delays +-- HMIX: Mix Hfiltered global with dry to interfere + +do +let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) +let f2 = (# djfbus 2 (range 0.05 0.99 "^29")) +let f3 = (# djfbus 3 (range 0.05 0.99 "^13")) +d1 $ f1 -- Kick classic runner 4/4 <-> dub rhythm + $ midiOn "^41" (<| "k k k k]> k k k ") + $ midiOff "^41" (<| "k . k([<3 1 3 3> <1 3>],8)") + $ "[ab:5,jazz]" + # lpf 3000 + # legato 0.8 + # midiG' "^78" 0 0.8 +d2 $ f1 -- snare contretemps + $ whenmod 16 12 (fast 2) + $ mask "" + $ "~ snare:1" + # lpf 3500 + # att 0.002 + # rel 0.9 + # gain 0.8 + # midiG' "^79" 0 0.8 +d3 $ f3 -- Hihats + rhythmique horloge + $ superimpose (const $ + fast "<1!4 2 1 1 2 2!8>" + $ "hh*8" + # midiG' "^80" 0 0.8 + ) + $ slice 16 ("[0 1 2 3]*<2!3 [<2 4> 4]>") + $ loopAt 1 + $ "fbreak80:20" + # midiG' "^80" 0 1.2 +d4 -- Bassline classique + $ f1 + $ chop 8 + $ slice 4 "1" + $ loopAt 4 + $ "rootsBass:2" + # lsize (range 0 2 "^33") + # lesliebus 41 (range 0 1 "^53") + # lrate 6.8 + # cut 4 + # pan 0.2 + # midiG' "^81" 0 1.8 +d5 $ f2 + $ midiOn "^90" (stutWith 4 "e" ( + (|+ cut 1) . (|* gain 0.9) . (# legato 2) + )) + $ off "h" id + $ "rootsGuitar" # n "<1!3 3>" + # cut 50 + # midiG' "^82" 0 1.1 + # pan 0.8 +d6 $ f2 -- Piano contretemps delayed crushed + $ note ("~ b ~ b a>" + "[0,7]") + -- $ note "d6" + # "superpiano" + # velocity 0.4 + # delayfb (range 0.5 1.1 "^55") -- 1D: fb / size controlled with single knob + # crushbus 61 (range 16 5 "^19") -- Weird interferences with delay + # delayt "h" + # delay (range 0 1.01 "^55") + # room 0.3 + # midiG' "^83" 0 1.8 diff --git a/live/midi/nova/FFF/grace.tidal b/live/midi/nova/FFF/grace.tidal index aed86c6..8ff8b58 100644 --- a/live/midi/nova/FFF/grace.tidal +++ b/live/midi/nova/FFF/grace.tidal @@ -7,9 +7,7 @@ do let gG a = (gain ("^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux -let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) -let gHPF = (# hpf (max 0 (min 5000 ((range "-5000" 5000 ("^49")))))) -let gDJF = (gLPF . gHPF) +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let novaOn ch pat = (sometimesBy ch pat) let novaOff ch pat = sometimesBy (1 - ch) (pat) let g = (gDJF) diff --git a/live/midi/nova/breaks/slower.tidal b/live/midi/nova/breaks/slower.tidal index 9cf4c15..1c828f4 100644 --- a/live/midi/nova/breaks/slower.tidal +++ b/live/midi/nova/breaks/slower.tidal @@ -6,15 +6,12 @@ resetCycles do setcps (80/60/4) let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine))) -let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) --- let gFreqL = (# lpq (range 0 0.25 "^29")) --- let gFreqH = (# hpq (range 0 0.25 "^30")) --- let gFreqs = (gFreqH . gFreqL) +let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) +let f2 = (# djfbus 1 (range 0.05 0.95 "^29")) -- region Params Rhodes let modIndex = pF "modIndex" -- endregion -let g = (gDJF) -d1 $ g -- KICK +d1 $ f1 $ gF -- KICK $ midiOn "^41" (<| "k*4 . k k k k*<1 2>") -- Run $ midiOn ("^42" - "^41") (<| "k k k*<1 <2 4>>") $ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)") @@ -22,19 +19,19 @@ d1 $ g -- KICK # midiG' "^78" 0 2 # room 0.3 # sz 0.5 # dry 0.9 d2 -- Breakbeat - $ g + $ f1 $ gF $ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1) -- $ midiOn "^43" (fast 4 . often (scramble 2)) -- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]") $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break" # midiG' "^79" 0 1.75 -d3 $ g +d3 $ f1 $ gF $ midiOn "^44" (fast 2) $ "d ~ ~ d d ~ d <~!3 d>" # "snare:22" # speed (range 0.5 1.5 "^52") # midiG' "^80" 0 2 -d4 $ g -- Bassline +d4 $ f1 -- Bassline $ midiOn "^57" (-- + Arps aigus! superimpose ( often (off "h" rev) @@ -43,7 +40,7 @@ d4 $ g -- Bassline + "0(5,8)" |+ "0 7" + 12 )) - . (|* gain 1.1) + . (|* gain 0.9) . (# room 0.5) . (# sz 0.75) ) ) @@ -53,9 +50,8 @@ d4 $ g -- Bassline # room 0.25 # sz 0.8 # orbit 4 # pan 0.2 # midiG' "^81" 0 1.8 -d5 $ g -- fmono +d5 $ f2 -- fmono $ midiOn "^90" (chop "<8!3 [8 16]>") - $ g $ (# lpf (range 10000 5000 "^54")) $ slice 8 ( "0 <1 1 0 0*2> 2 3*<1 <2 4>>" + @@ -63,10 +59,10 @@ d5 $ g -- fmono $ "fmono:40" # cut 4 # crushbus 51 (range 12 1.85 "^54") - # midiG' ("^82" + 0.125 * "^54") 0 1.2 + # midiG' ("^82" - 0.125 * "^54") 0 1.2 # room 0.3 # sz 0.8 # dry 1 d9 -- Maracas Hats - $ g + $ f1 $ gF $ fix ( midiOff "^60" (slow 4) . whenmod 8 6 (fast "<2 [2 4]>") @@ -82,7 +78,7 @@ d9 -- Maracas Hats # orbit 9 # midiG' "^84" 0.2 1.5 d6 -- Pwm steps - $ g + $ f2 $ whenmod 32 16 (scramble 2) $ note ( "0(<2 2 3 5>,8) . ~ 0*<2 4 2 [8 4]>" @@ -97,7 +93,7 @@ d6 -- Pwm steps # sz 0.4 # midiG' "^83" 0 1.2 d7 -- Arps FMRhodes1 - $ g + $ f2 $ superimpose (arp "down up" . (|+| note ("c'maj'2 " + "0 12" + 12))) $ note "/2" @@ -106,7 +102,7 @@ d7 -- Arps FMRhodes1 # modIndex (range 0 100 "^34") # room 0.6 # sz 0.8 # midiG' "^18" 0 1.5 -d10 $ g +d10 $ f1 $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]") $ midiOff "^92" (<| "~ c") $ "clap" diff --git a/live/midi/nova/breaks/solar.tidal b/live/midi/nova/breaks/solar.tidal index b1fe4d6..cfb5bd4 100644 --- a/live/midi/nova/breaks/solar.tidal +++ b/live/midi/nova/breaks/solar.tidal @@ -8,42 +8,44 @@ once $ "dr" # gain 1 do setcps (110/60/4) let modIndex = pF "modIndex" -let gDJF = (# djfbus 1 (range 0.15 0.85 "^49")) +let gDJF1 = (# djfbus 1 (range 0.15 0.85 "^49")) +let gDJF2 = (# djfbus 2 (range 0.15 0.85 "^29")) let mBreak = (midiOn "^41" (mask "t f . f t")) -let g = (gDJF) +let g1 = (gDJF1) +let g2 = (gDJF2) let m = mBreak -d1 $ g -- +d1 $ g1 -- + $ mask "" $ midiOn "^42" (<| "k k k k]>") $ midiOff "^42" (<| "k . ~ k*<1!3 2 2 2 1 2> <~ ~ k >") - $ "jazz" - -- # release "<0.7!3 1>" + -- $ "[jazz,super808]" + $ "[reverbkick]" # midiG' "^78" 0 1.4 -d3 $ g $ m -- Snare - $ fast "<1!4 2!10 4 [4 8]>" - $ s "~ sn" +d3 $ g1 $ m -- Snare + $ mask "" + -- $ fast "<1!4 2!10 4 [4 8]>" + $ s "~ s ~ s" + # "sn" # n "[14,20]" # note "<0!7 -4>" # midiG' "^79" 0 1.4 -d2 $ g $ m -- BREAK +d2 $ g1 $ m -- BREAK $ midiOn ("^44" - "^76") (ply 2) $ midiOn "^76" (striate 4) $ loopAt 2 $ whenmod 8 6 (off "h" id . mask "t . f") $ slice 8 (run 8) $ "break:11" - -- # speed (range 0.5 1.5 "^52") + # octerbus 20 (range 0 1.5 "^52") + # octersubbus 21 (range 0 1.82 "^52") # midiG' "^80" 0 1.2 # cut 2 -d4 $ g $ m - $ striate 2 - $ loopAt 2 - $ slice 8 (run 8) - $ "fbass:3" - # midiG' "^81" 0 1.2 - # crushbus 4 (range 16 1.5 "^53") - # cut 4 - # pan 0.2 -d5 $ g +d4 $ g1 -- Drumroll! + $ "drum:2*[8!3 <<8 [8 [8|16]]>!6 [8 4]!2>]" + # room "^53" + # dry 0.99 + # midiG' "^81" 0 1.4 +d5 $ g2 $ midiOn "^58" (superimpose ( (|+| note ( arp "" @@ -55,24 +57,10 @@ d5 $ g $ note "e3'maj" # "FMRhodes1" # room "<0.4!3 0.7>" - # modIndex (range 0 128 "^54") - # midiG' "^82" 0 1.2 -d7 $ g -- Back bows - $ superimpose ((# cut 71) - . (# n 3) - . mask "t(<1 1 0 [3 <3 1>]>,8)" - ) - $ someCyclesBy "" rev - $ struct "t(<1 <3 5>>,8)" - $ arp "up" - $ note "" - # "cbow" - # n "0" - # midiG' "^83" 0 0.7 - # room 0.3 - # pan 0.7 - # cut 7 -d8 $ g + # modIndex (range 0 128 "^34") + # crushbus 51 (range 16 4.6 "^54") + # midiG' "^82" 0 1.5 +d8 $ g2 $ whenmod 8 4 (rarely (striate 2)) $ whenmod 16 8 (sometimesBy "0 1" rev) $ midiOn "^60" ( @@ -89,6 +77,33 @@ once $ "cbow:3" # gain 0.57 # cut 21 -- TODO MOVE OR REMOVE +d7 $ g2 -- Back bows: dissonant now, not the best angels I ever saw +$ superimpose ((# cut 71) +. (# n 3) +. mask "t(<1 1 0 [3 <3 1>]>,8)" +) +$ someCyclesBy "" rev +$ struct "t(<1 <3 5>>,8)" +$ arp "up" +$ note "" +# "cbow" +# n "0" +# midiG' "^83" 0 0.7 +# room 0.3 +# pan 0.7 +# cut 7 +-- Funky Bassline: not convicned? +d4 $ g $ m +$ striate 2 +$ loopAt 2 +$ slice 8 (run 8) +$ "fbass:3" +# midiG' "^81" 0 1.2 +# crushbus 4 (range 16 1.5 "^53") +# cut 4 +# pan 0.2 + + d7 $ g -- Hello PWM! $ (|* gain "<1!15 0.8>") $ midiOn "^57" (chop "<[8 <4 16>]!15 1>") @@ -118,3 +133,13 @@ d9 $ g $ "clap" # speed (range 0.5 1.5 "^56") # midiG' "^84" 0 1.7 + + + +d1 $ "jazz*4" # gain 0.6 +d3 $ note (scale "aeolian" "2 0*<1 2> 3 <5!3 5(3,8,<0 4>)>" + + "[0,7]") + # "bassWarsaw" + # tremolodepth 12 + # tremolorate 4 + # gain 0.75 # octave 4 diff --git a/live/midi/nova/dnb/meurice.tidal b/live/midi/nova/dnb/meurice.tidal index de018a8..b90c4ee 100644 --- a/live/midi/nova/dnb/meurice.tidal +++ b/live/midi/nova/dnb/meurice.tidal @@ -1,6 +1,6 @@ import Sound.Tidal.ParVagues.Control --- This is a test ;) +-- WIP Name: Alerte Verte -- do setcps (160/60/4) @@ -98,7 +98,7 @@ d10 -- Nappes crushées indépendantes $ note ("") # "moog" # cut 10 - # djfbus 2 (range 0.05 0.95 "^20") + # djfbus 2 (range 0.05 0.95 "^29") # crushbus 10 (range 16 1.5 "^36") # midiG' "^56" 0.2 0.8 d11 -- Sirene indépendante TODO Blend-in / Rework? @@ -106,7 +106,7 @@ d11 -- Sirene indépendante TODO Blend-in / Rework? # octave 3 # legato 2 # "supersiren" - # djfbus 2 (range 0.05 0.95 "^20") + # djfbus 11 (range 0.05 0.95 "^20") # crushbus 11 (range 10 0.501 "^35") # speed 0.2 # ampbus 110 (range 0 0.5 "^19") diff --git a/live/midi/nova/lounge/hoover_sepia.tidal b/live/midi/nova/lounge/hoover_sepia.tidal index 2249b3b..0c05bcb 100644 --- a/live/midi/nova/lounge/hoover_sepia.tidal +++ b/live/midi/nova/lounge/hoover_sepia.tidal @@ -41,7 +41,7 @@ d4 $ g -- Hoover bassline # crushbus 31 (range 16 1 "^53") # ampb 32 (range 0 0.125 "^81") # pan 0.2 - # gain 0.8 + # gM' "^80" 0 1.8 # legato 1.05 d5 $ g -- Arp aigus Rhodes $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)") diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index 9d6929b..4596001 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -10,25 +10,25 @@ let gF = 1.5 let gG a = (gain (gF * "^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux -let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let mBreak = (midiOn "^41" (mask "t f . f t")) let m = mBreak -let g = gDJF -d1 $ g $ m +let f1 = (# djfbus 1 (range 0.1 0.9 "^49")) +let f2 = (# djfbus 2 (range 0.1 0.9 "^29")) +d1 $ f1 $ m -- $ midiOn ("^42" - "^41") (slow 4) $ midiOn "^42" (<| "k k k ") $ midiOff "^42" (<| "k*2") -- $ "[jazz,808bd:1,kick:5]" $ "[jazz,808bd:1]" # midiG' "^78" 0 1.5 -d2 $ g $ m -- Clave de l'été +d2 $ f1 $ m -- Clave de l'été $ midiOn "^43" (fast 2) $ midiOn ("^75"-"^43") (fast 2) $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7)) $ "d ~ ~ d d ~ d <~!3 d>" # "snare:22" # gM' 0 1.4 "^79" # speed (range 0.5 1.5 "^51") -d4 $ g $ m -- Mecano Course +d4 $ f1 $ m -- Mecano Course $ fast 4 $ midiOn "^76" (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165")) $ midiOn "^44" (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125")) @@ -40,7 +40,7 @@ d4 $ g $ m -- Mecano Course $ loopAt 2 $ "breaks125:3" # gM' 0 1.3 "^80" # cut 4 -d5 $ g $ m -- Bassline variable double piste +d5 $ f1 $ m -- Bassline variable double piste $ loopAt 2 $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>") $ midiOn "^57" (# n 14) @@ -50,7 +50,7 @@ d5 $ g $ m -- Bassline variable double piste # crushbus 51 (range 16 4.5 "^53") # gM' 0.3 1.45 "^81" # cut 4 -d6 $ g $ m +d6 $ f2 $ m -- Douce guitare juxée $ chop 16 $ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev)) $ whenmod 16 12 (rev) @@ -58,12 +58,12 @@ d6 $ g $ m $ loopAt 4 $ "fguitar" # n "<12!16 13!16>" # gM' 0 1 "^82" - # release (range 0.15 1 "^34") + # release (range 2 0.15 "^34") # crushbus 61 (range 8 1.4 "^54") # pan 0.75 # room 0.2 # dry 1 # cut 3 -d7 $ g $ m +d7 $ f2 $ m $ loopAt 4 $ mask "t(<4 8 12 16>,16)" $ slice 16 (run 16) @@ -72,7 +72,7 @@ d7 $ g $ m # room 0.2 # gM' 0 1.4 "^83" # cut 7 -d8 $ g $ m +d8 $ f2 $ m $ midiOn "^92" (|+ note 12) $ midiOn "^60" ( superimpose ( @@ -87,7 +87,7 @@ d8 $ g $ m # room 0.24 # "moogBass" # midiG' "^84" 0 0.9 -d9 $ g $ m +d9 $ f1 $ m $ degradeBy (slow 16 $ range 0.8 0.2 saw) $ struct "t(3,8) [ ]" $ midiOn "^59" (# speed (range 0.25 2 ("^55" + perlin))) diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index 0d1f9b6..07a6f0b 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -98,8 +98,7 @@ d8 $ g -- Electrified laggy moog ) $ midiOn "^91" (segment "4 <4 <8 [8 16]>>") $ note (prog + "0 <12!4 12 12 16 <12 16>>") - # "moog" - # cut 8 + # "moog:2" # legato 0.25 # crushbus 8 (range 10 3.4 "^55") # gM' 0 1.8 "^83" # pan 0.6 diff --git a/live/midi/nova/party/80s_neon.tidal b/live/midi/nova/party/80s_neon.tidal new file mode 100644 index 0000000..7357222 --- /dev/null +++ b/live/midi/nova/party/80s_neon.tidal @@ -0,0 +1,68 @@ + +-- Tentative SynthWave #2 + +-- Noises pacman-like +"tacscan:4" + +"electro1:2" -- Drums 80s +"electro1:3" -- Drums 80s + +once $ "electro1:1" # gain 1.5 + +do +let modIndex = pF "modIndex" +let f1 = (# djfbus 1 (range 0.15 0.85 "^49")) +let f2 = (# djfbus 2 (range 0.15 0.85 "^29")) +let mBreak = (midiOn "^41" (mask "t f . f t")) +let m = mBreak +setcps (110/60/4) +d1 $ f1 + $ midiOn "^41" (fast 4) + $ "[jazz,bd]" + # midiG' "^78" 0 1.8 +d2 $ f1 + $ whenmod 8 6 (superimpose (const + $ n "~ 2*<1 2> ~ <2 2*2 3 [3 2]>" + # "electro1" + # midiG' "^79" 0 1.8 + )) + $ "~ snare:20" + # midiG' "^79" 0 1.8 +d3 $ f1 + $ "t*[16!3 <8!3 16>]" + -- $ "t*[<4!4 8!4> <8!3 [16 <16 8>]>]" + # "[tek_hh:1,drum:2]" + # midiG' "^80" 0 1.4 +d4 $ f2 + $ superimpose ( + (# cut 4) + . (|+| note ("12 <7!3 9>" - 12)) + ) + $ midiOn "^57" (chop 8) + $ note "" + # "supersaw" + # octave 4 + # voice 0.05 + # crushbus 4 (range 16 2 "^53") + # midiG' "^81" 0 1.3 +d5 $ f2 + $ note "" + # "FMRhodes1" + # modIndex (range 0.1 32 "^54") + # crushbus 5 (range 10 2 "^34") + # midiG' "^82" 0 1.8 + # pan 0.8 + + + +d4 + $ "moog/2" # n "<2!4 5!4>" + # cut 4 + # legato 2 + # gain 0.4 + + +d5 + $ "fsynth/2" # n "<13>" + # cut 5 + # gain 0.8 diff --git a/live/midi/nova/party/electro_blues.tidal b/live/midi/nova/party/electro_blues.tidal index 3354c3e..34a8072 100644 --- a/live/midi/nova/party/electro_blues.tidal +++ b/live/midi/nova/party/electro_blues.tidal @@ -3,30 +3,33 @@ resetCycles -- Electro-jazz grille du blues snakish do setcps (80/60/4) -let g = (# djfbus 1 (range 0.1 0.9 "^49")) +let f1 = (# djfbus 1 (range 0.1 0.9 "^49")) +let f2 = (# djfbus 1 (range 0.1 0.9 "^49")) +let f3 = (# djfbus 1 (range 0.1 0.9 "^49")) let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"] let chord = "c'maj" let chordAug = "c'maj'8" d1 -- Kick rarement doublé - $ g - $ fast 2 -- Cause this is REPETITIVE MUSIC - $ midiOn "^41" ((<| "k*4") . (superimpose (# "kick:5"))) - $ midiOff "^41" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)") + $ f1 + $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC + $ midiOn "^42" ((<| "k*4") . (superimpose (# "kick:5"))) + $ midiOff "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)") $ "super808" # midiG' "^78" 0 1.1 -d2 $ g +d2 $ f1 $ midiOn "^43" (fast 2) $ "~ [jazz:4,cp]" # hpf (range 0 10000 perlin) # room 0.6 # sz 0.6 # dry 0.99 # midiG' "^79" 0 1.2 -d3 $ g -- Snakes +d3 $ f1 -- Snakes + $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC $ juxBy (slow 8 $ range 0.1 0.9 sine) rev - $ fast 4 - $ "s . s <~!3 s>" + $ fast 2 + $ "s . s <~!3 s>" # "hh*6" # midiG "^80" -d4 $ g +d4 $ f2 $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>") $ midiOn "^57" (juxBy 0.2 ( -- ply "<2 4 [4 8] 8>" . @@ -35,7 +38,7 @@ d4 $ g -- . (|* gain 0.8) -- . (# pan 0.6) -- . (# crush 16) - . (|+ note 12) + -- . (|+ note 12) )) $ note ( cat blues + chord @@ -47,7 +50,7 @@ d4 $ g # voice 0.8 # crushbus 41 (range 10 3 "^53") # midiG' "^81" 0 1.3 -d5 $ g -- Choeurs +d5 $ f2 -- Choeurs $ juxBy 0.5 ( (0.5 ~>) . midiOn "^58" (superimpose ( arp "" @@ -66,7 +69,7 @@ d5 $ g -- Choeurs # midiG' "^82" 0 1.4 # room 0.4 # size 0.7 # dry 1.05 -d9 +d9 $ f1 $ loopAt (2 + (2 * "^92")) $ midiOn "^60" (slice 8 (run ("<8!4 [8!3 16] [8 16] [16 8] [16 32 8 ~]>"))) -- Rush $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance diff --git a/live/mood/tired/afternoon.tidal b/live/mood/tired/afternoon.tidal index a89dec0..022d838 100644 --- a/live/mood/tired/afternoon.tidal +++ b/live/mood/tired/afternoon.tidal @@ -13,17 +13,14 @@ let mel = "] e3 b3>" let prog = ">" let modIndex = pF "modIndex" let gDJF = (# djfbus 1 (range 0.15 0.85 "^49")) --- let gFreqL = (# lpq (range 0 0.25 "^29")) --- let gFreqH = (# hpq (range 0 0.25 "^30")) --- let gFreqs = (gFreqH . gFreqL) let g = (gDJF) d1 $ g -- BEAT $ fast 2 $ midiOn "^41" (<| "k k k k]>") $ midiOff "^41" (<| "k . ~ k ~ ~ ") - $ "[jazz,reverbkick,hh27:6]" + $ "[reverbkick,hh27:6]" # release "<0.7!3 1>" - # midiG' "^78" 0 1.4 + # midiG' "^78" 0 1.7 d3 $ g -- Snare contretemps rushé $ mask "t(16,32)" $ whenmod 4 3 (ply "2 4") @@ -36,7 +33,6 @@ d3 $ g -- Snare contretemps rushé # midiG' "^79" 0 1.4 d2 $ g -- BREAK $ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8) - $ whenmod 32 16 (# djf (slow 32 (cosine + 0.5))) $ slice 8 ( fast "<8 [8 16] 8 [16 <8 4>]>" -- "<0!4 [0 1]!4 <0 1 2 3 4 5 6 7>!4>" @@ -44,8 +40,7 @@ d2 $ g -- BREAK ) $ loopAt 2 $ "break:3" - # speed (range 0.5 1.5 "^52") - # midiG' "^80" 0 2 + # midiG' "^80" 0 1.5 # cut 2 d7 $ g -- Hello PWM! $ (|* gain "<1!15 0.8>") @@ -63,11 +58,13 @@ d6 $ g -- Nappes Rhodes $ note ( prog + "0 12" + - 12 ) # "FMRhodes1" - # pan 0.2 + # pan 0.7 + # room 0.5 # modIndex (range 0 100 "^54") - # crushbus 61 (range 16 5 "^34") + # crushbus 61 (range 16 4.85 "^34") # midiG' "^82" 0 1.5 d9 $ g $ midiOff "^60" (mask "")