From 8de51ecebfad597588984417198e5974d0fa304c Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sat, 21 Oct 2023 12:44:00 +0200 Subject: [PATCH] Repair: 4 tracks for VitEuf --- live/midi/nova/beatober/oct_16_haunted_house.tidal | 148 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/breaks/acid_rain.tidal | 62 +++++++++++++++++++++++++++++++------------------------------- live/midi/nova/breaks/bain_bouillant.tidal | 106 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/techno/ete_a_mauerpark.tidal | 20 +++++++++++--------- 4 files changed, 296 insertions(+), 40 deletions(-) create mode 100644 live/midi/nova/beatober/oct_16_haunted_house.tidal mode change 100644 => 100755 live/midi/nova/breaks/acid_rain.tidal create mode 100755 live/midi/nova/breaks/bain_bouillant.tidal diff --git a/live/midi/nova/beatober/oct_16_haunted_house.tidal b/live/midi/nova/beatober/oct_16_haunted_house.tidal new file mode 100644 index 0000000..9567be2 --- /dev/null +++ b/live/midi/nova/beatober/oct_16_haunted_house.tidal @@ -0,0 +1,148 @@ +do +-- resetCycles +setcps (120/60/4) +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gMute2 = (midiOn "^74" (mask "f*16")) +let gMute3 = (midiOn "^75" (mask "f*16")) +let gM1 = gMask . gMute +let gM2 = gMask . gMute2 +let gM3 = gMask . gMute3 +let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) +let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) +let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) +let modIndex = pF "modIndex" +d1 $ gM2 $ gF1 -- Kick solide + $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" + $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4" + $ midiOn "^42" (struct "t*4") + $ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~") + $ "[jazz,kick:4]" # lpf 3000 + -- # midiG' "^78" 0 1.5 +d2 + $ gM1 $ gF1 -- snare contretemps variable + $ fix (|* gain 0.7) "cp" + $ midiOn "^43" (<| "~ cp ~ cp") + $ midiOff "^43" (<| "~ cp") + $ "[cp,snare:24]" + # pan 0.65 + # legato 0.22 + -- # midiG' "^79" 0 1.6 +d3 $ gM1 $ gF1 + $ "~ d ~ d ~ d ~ " + # "snare:34" + # hpf 7000 + -- # midiG' "^80" 0 1.5 +d4 -- Basse convaincante + $ gM3 $ gF2 + $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw)) + $ midiOn "^89" (ply "<[4@5 2 4 2] 1>") + $ someCyclesBy (1 - "^17") (struct "") + $ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") + $ note "@5 ef3 d3 " + # "bassWarsaw" + # room 0.32 # sz 0.1 + # crushbus 42 (range 16 4 "^53") + # relbus 43 (range 2 0.02 "^33") # att 0.22 + -- # midiG' "^81" 0 1.5 + # pan 0.4 + |* gain "1@5 0.95 0.98 0.95" +d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux + $ mask "<[[t ] ]!8 t!24 t!96>" + -- g c ef g / g c ef f / gs c ef f / gs c ef g + -- g c ef g / g c ef f / gs c ef gs / gs c ef g + -- g c ef g / g c ef f / gs c ef f / gs c ef g + -- g c ef g / gsc ef f / gs c g f / gs c f ef + $ note ("<[ gs4 gs4>@3 @2 @3] >>") + # "FMRhodes1" + # modIndex (range 0 50 "^54") + # delaybus 51 (range 0 0.8 "^34") + # delayt "" + # delayfb 0.25 + # pan 0.7 + -- # midiG' "^82" 0 1.5 +d8 + $ gF1 + $ midiOn "^92" (ply "1 <2!3 4>") + $ midiOff "^60" (mask "t(4,8,1)") + $ chop 16 + $ loopAt 2 + $ "jungle_breaks:45" + # cut 8 + -- # midiG' "^84" 0 1.5 +d6 $ gF1 -- HAWKS + -- $ mask "" + $ "~ [s s*2] ~ [s <~!3 s>]" + # "armora:1" + # legato "<0.5>" + # note "" + # pan 0.9 + # hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw) + # room 1.0 + # sz 0.01 + # dry 1.025 + -- # room 0 + -- # midiG' "^31" 0 1.5 +d7 $ gM2 $ gF3 -- High carillon! + $ midiOn "^59" ( -- Basse reponse + superimpose ((0.125 <~) . (|* gain 1.2) . (# note "") . (# pan 0.45)) + ) + $ (0.125 ~>) + $ note (" " + - 7 -- Calage + ) + # "808hc:2" + # pan 0.85 + -- # midiG' "^83" 0 1.5 + # gain 0.8 +d9 $ gF3 -- Pads atmospheriques + $ off 0.25 ((# pan 0.8) . (# cut 91)) + $ note ("" + -9 -- calage + ) + # "trance_pads:7" + # cut 9 # legato 2 + -- # midiG' "^20" 0 1.4 + # pan 0.4 + # room 0.4 +d10 + $ mask "" + $ gF1 $ "<~!12 ~ ~ ~>" + # end 0.85 + # cut 10 + -- # midiG' "^13" 0 1.3 + -- # gain (1.3 * "^77") + # gain 1.3 +d11 + $ mask "" + $ note ("~ " + 4) + # "~ cy" + # "808cy:8" + -- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw)) + # gain (1.1 * (slow 8 $ range 0.75 1 saw)) + + +once $ arp "up" $ note ("c4'maj'4") +# "808cy:8" + # gain 1 + +d11 -- What is the effect? + $ fix ((# "weird_dialogs:39") . (# begin 0.81)) "answer" + $ fix ((# "weird_dialogs:39") . (# begin 0.45). (# end 0.81)) "variations" + $ fix ((# "weird_dialogs:39") . (# begin 0.2). (# end 0.45)) "almost" + $ fix ((# "weird_dialogs:39") . (# end 0.2)) "effects" + $ whenmod 32 28 (# "~ ") + $ "~ < >" + -- $ "~ " + # midiG' "^20" 0 1.4 + # cut 11 + # speed 1 + +once $ "weird_dialogs:39" + # begin 0.45 + # end 1 + # cut 11 + + +d2 + $ "~ cp" diff --git a/live/midi/nova/breaks/acid_rain.tidal b/live/midi/nova/breaks/acid_rain.tidal old mode 100644 new mode 100755 index d31bbc8..1fd7146 --- a/live/midi/nova/breaks/acid_rain.tidal +++ b/live/midi/nova/breaks/acid_rain.tidal @@ -9,18 +9,18 @@ d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... $ midiOn "^42" (<| "k k k ") $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . ]>") -- ..or not? $ "[kick:5,808bd:4,kick:4]" - # midiG' "^78" 0 1.7 + # gain 1.2 d2 $ gF $ midiOn "^43" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" ) $ midiOff "^43" (<| "~ " ) - $ "" + $ "clap:2" # lpf 2000 # note "-2" # room (slow 8 $ range 0.2 0.6 saw) # dry 1 - # midiG' "^79" 0 1.7 + # gain 1.3 d3 $ gF $ gMute - $ midiOn "^76" (ply "4 8") + $ midiOn "^76" (ply "2 4") $ midiOn "^44" (off (0.5- 0.125) id) $ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>" # "hh" @@ -28,29 +28,6 @@ d3 $ gF $ gMute # midiG' "^80" 0 1.4 # room 0.3 # dry 1.1 -d5 $ gF2 -- Nice organs you got there - $ slice 8 "[5(3,8) <6 6 3 <2 7>>]" - $ loopAt 2 - $ "forgan:28" - # cut 5 - # hpfbus 51 (slow 32 $ range 5000 0 saw) - # midiG' "^82" 0 1.8 - # pan (slow 16 $ range 0.5 0.2 saw) -d6 $ gF2 -- Jump aboard the BASIC BUS - -- $ sometimesBy (1 - "^19") (mask "t(1, 8)") - $ midiOn "^91" (chop "<8!3 16>") - $ midiOn "^59" (jux rev) - $ midiOff "^41" ( - whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93))) - ) - $ chop 32 - $ loopAt 8 - $ "synth_commodore" # n "1" - # crushbus 61 (range 16 2.25 "^55") - # roombus 63 (range 0 0.5 "^35") - # midiG' "^83" 0 1.2 - -- # panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw)) - # pan 0.8 d4 $ gF2 -- Piano solo lover sunset $ midiOn "^57" (-- Sunset echoes off 0.5 ((sometimes (juxBy 0.8 (off "[0.125,0.25]" (|+ note 12) . (|* gain 0.6)))) @@ -63,10 +40,32 @@ d4 $ gF2 -- Piano solo lover sunset - 36) # "FMRhodes1" # crushbus 41 (range 16 2.25 "^53") - # modIndex ((range 0 16 "^33")) + # modIndex (range 0 16 "^33") # room 0.4 - # midiG' "^81" 0 1.8 - -- # cut 8 +d5 $ gF2 -- Jump aboard the BASIC BUS + -- $ sometimesBy (1 - "^19") (mask "t(1, 8)") + $ midiOn "^90" (chop "<8!3 16>") + $ midiOn "^58" (jux rev) + $ midiOff "^41" ( + whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93))) + ) + $ chop 32 + $ loopAt 8 + $ "synth_commodore" # n "1" + # crushbus 61 (range 16 2.25 "^54") + # roombus 63 (range 0 0.5 "^34") + # cut 5 + # gain 1.2 + # panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw)) + -- # pan 0.8 +d7 $ gF2 -- Nice organs you got there + $ slice 8 "[5(3,8) <6 6 3 <2 7>>]" + $ loopAt 2 + $ "forgan:28" + # cut 7 + # hpfbus 51 (slow 32 $ range 5000 0 saw) + # gain 1.4 + # pan (slow 16 $ range 0.5 0.2 saw) d8 $ gF $ gM $ midiOn "^60" (loopAt 4 . (# "drums_nes:7")) $ midiOn "^92" (ply 2) @@ -75,7 +74,8 @@ d8 $ gF $ gM $ loopAt 1 $ chop 8 $ "breaks165" - # midiG' "^84" 0 1.8 + -- # midiG' "^84" 0 1.8 + # gain 1.6 # pan 0.3 diff --git a/live/midi/nova/breaks/bain_bouillant.tidal b/live/midi/nova/breaks/bain_bouillant.tidal new file mode 100755 index 0000000..883f78e --- /dev/null +++ b/live/midi/nova/breaks/bain_bouillant.tidal @@ -0,0 +1,106 @@ +do +setcps (128/60/4) +let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) +let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) +let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) +-- let gDelay = (# delaybus 4 (range 0 0.5 "^13")) . (# delayfb 0.7) . (# delayt 0.5) +let gDelay = id +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gMute2 = (midiOn "^74" (mask "f*16")) +let gM = gMask . gMute +let gM2 = gMask . gMute2 +-- let gDJF1 = someCyclesBy "<0!30 2!2>" (# djfbus 4 (slow 2 $ range 0.5 0.1 saw)) +-- let gDJF2 = someCyclesBy "<1!8 0!24>" (# djfbus 4 (slow 8 $ range 0.1 0.5 saw)) +-- let gDJF = gDJF1 . gDJF2 +let gO = (# octersubbus 5 (range 0 1 "^29")) . (# octerbus 6 (range 0 1.2 "^29")) +let gDJF = id +let gOcter = id +d1 $ gF1 $ gM2 -- Kick + $ midiOn "^42" (<| "k k k k]>") + $ midiOff "^42" ( + (<| " ~ ~ <~!3 k> . ~ <~!7 k> ~ ~") + ) + $ fix ((|* gain 0.9) . (# lpf 5000)) "rampleA0" + $ "[rampleA0:3,jazz]" + # gain 1.2 + -- # midiG' "^78" 0 1.5 +d2 $ gF1 $ gM + $ "~ s ~ s" + # "[rampleA0:11,rampleA2:11]" -- Basic snare + # gain 1.2 +d3 $ gF1 $ gM $ gDelay -- Contretemps + -- $ midiOn "^76" (slow 2) + -- $ midiOff "^44" (slow 2) + $ "~ h ~ h ~ h ~ h*<1 2 2 <1 2>>" + -- $ "~ h ~ <~!4 h!28> ~ <~!3 h ~!3 h h!8> ~ ]>>" + # "[snare:38]" + # room 0 + # gain 1.2 +d4 $ gO $ gF2 -- SUBSUB INFRABASS + -- $ juxBy 0.8 ( + -- (# crushbus 41 (slow 16 $ range 12 2.5 saw)) + -- . (# lpfbus 41 (slow 16 $ range 10000 2000 saw)) + -- ) + $ note "(3,8)" + # "jungbass:3" + # lpf 2000 + # cut 4 + # crushbus 41 (range 16 2 "^53") + # pan 0.8 + # gain 2 +d5 $ gO $ gF2 -- Basse appel important + $ note "]>" + # "giorgio_syn:0" + -- # midiG' "^81" 0 1.5 + # pan 0.32 + # distortbus 51 (range 0 1.2 "^54") + # cut 7 + # gain 1.5 +d7 $ gO $ gF3 -- guitare salvatrice + -- $ mask "" + $ slice 16 "0*[4 <4 4 1 1 4 4 1 4 1 1 4 4> 4 <1!3 4>]" + $ chop 16 + $ loopAt 2 + $ "fguitar:55" + # cut 7 + # gain 1.2 +d6 $ gO $ gM $ gF1 -- Rim drums + $ fix ((|* gain (1.2 + 0.1 * perlin))) (n 18) + $ n (stack [ + "~ ~ ~ <~!7 <13 14 15 16 17>>", -- Cy + "<~!0 18([<1 3> <1 <3!3 5>>],8)!16> 18(<1 1 3 1>,8)" + ]) + # "h2ogmhh:1" + |* gain (range 0.8 1 perlin) + # gain 1.5 +d8 $ gM2 $ gF1 -- BOOM BOOM THE BREAKS + $ fix (|* gain 0.8) ("jungle_breaks:24") + $ whenmod 8 7 (slice 4 "0 3 2*<1 2> 1*<1 2 4 4>") + $ midiOn "^36" ((# n "19")) -- Pure COMEON! + $ midiOn "^56" ((# n "23")) -- Raise COMEON! + -- $ midiOn "^60" (const $ loopAt 2 $ chop 8 $ "jungle_breaks:60" # gain 0.8) + $ chop 16 $ loopAt 2 + $ "jungle_breaks:24" + # gain 1.2 +d9 $ gF3 + $ "jungle_pads:22/4" + # cut 9 + -- # midiG' "^19" 0 1 +d10 $ gF1 -- NOISES + $ fix (|* gain (slow 32 $ range 1 0.3 saw)) "giorgio_syn" + $ (stack [ + "<~!16 giorgio_syn:52!16>/2" + ]) + # cut 10 + + + +d11 $ gF2 -- Le Météore (TODO: Variations? Autre sample de meteore?) + $ slice 4 "0 1 2*<1!7 8> 3*<1!3 2>" + $ "meth_bass:0/2" + # note "c" + # midiG' "^17" 0 1 + # pan 0.35 + # crushbus 91 (range 16 2.5 "^53") + # cut 11 diff --git a/live/midi/nova/techno/ete_a_mauerpark.tidal b/live/midi/nova/techno/ete_a_mauerpark.tidal index 4e69759..2805c78 100644 --- a/live/midi/nova/techno/ete_a_mauerpark.tidal +++ b/live/midi/nova/techno/ete_a_mauerpark.tidal @@ -27,14 +27,15 @@ d1 $ gF $ gMute # rel 0.125 # room 0 # lpf 4000 - # midiG' "^78" 0 1.9 + -- # midiG' "^78" 0 1.9 d2 $ gF $ gMute -- Clap timer $ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c")) - $ midiOff "^43" ((|* gain "0.8 1") . (<| "c . ~ ~ ~ <~!3 c>")) + $ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>")) $ drumFrom "[sakatadpm48,rolandr8]" "cp" # lpf 2000 - # midiG' "^79" 0 1.9 + -- # midiG' "^79" 0 1.9 d7 $ gF3 $ gM2 -- High Cello Dauphin + $ midiOn (1 - "^35") (struct "t . f") $ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>" $ midiOn "^59" (|- note 12) $ note ( @@ -45,14 +46,14 @@ d7 $ gF3 $ gM2 -- High Cello Dauphin # room 0.2 # pan 0.9 # crushbus 71 (range 16 2.5 "^55") - # midiG' "^83" 0 1.2 + -- # midiG' "^83" 0 1.2 d3 $ gF $ gMute2 $ midiOn "^44" (mask "t([8 4 <4 <8 16>>],16)") $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]") $ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh" $ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]" # n "0!3 <0!3 1>" - # midiG' "^80" 0 1.6 + -- # midiG' "^80" 0 1.6 d4 $ gF2 $ slow 2 -- Basse Germanique $ midiOn "^89" (struct "t*<16 32>") -- Basse folle $ (0.125 <~) -- Calage :) @@ -69,7 +70,7 @@ d4 $ gF2 $ slow 2 -- Basse Germanique # room 0.2 # pan 0.4 # crushbus 41 (range 16 2.5 "^53") - # midiG' "^81" 0 1.6 + -- # midiG' "^81" 0 1.6 d6 $ gF3 $ gMute2 -- Leads reponse $ midiOn "^90" (struct "t*<16 32>") -- Basse folle $ midiOn "^58" (|+ note 12) @@ -92,7 +93,7 @@ d6 $ gF3 $ gMute2 -- Leads reponse # pan 0.33 # modIndex (range 0 16 "^34") # crushbus 61 (range 16 2.5 "^54") - # midiG' "^82" 0 1.5 + -- # midiG' "^82" 0 1.5 d8 $ gM $ gF3 -- Breaks divins $ midiOn "^92" (off "e" id) $ midiOn "^60" (mask "[f t]") @@ -104,7 +105,7 @@ d8 $ gM $ gF3 -- Breaks divins # cut 8 # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4" # midiG' "^84" 0 1.4 -d10 $ gF3 -- Pads angéliques +d9 $ gF3 $ sometimesBy "^19" (superimpose ( (# cut 101) . (arp "up") @@ -127,9 +128,10 @@ d10 $ gF3 -- Pads angéliques # roombus 101 (range 0 0.5 "^18") # lesliebus 102 (range 0 2 "^19") # sz 0.6 # dry 2 - # midiG' "^20" 0 1.6 # legato 2 # pan 0.64 # cut 10 + + bf g bf -- libgit2 0.27.0