Repair: 4 tracks for VitEuf

live/midi/nova/beatober/oct_16_haunted_house.tidal

+do
+-- resetCycles
+setcps (120/60/4)
+let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
+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 ~ <d!12 [~ d]!3 [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 "<t [t t]>")
+  $ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
+  $ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
+  # "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 <f!4 t!4>] <f!8 t!8>]!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 ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
+  # "FMRhodes1"
+  # modIndex (range 0 50 "^54")
+  # delaybus 51 (range 0 0.8 "^34")
+  # delayt "<h>"
+  # 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 "<f!16 t!16>"
+  $ "~ [s s*2] ~ [s <~!3 s>]"
+  # "armora:1"
+  # legato "<0.5>"
+  # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
+  # 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 "<c4!4  cs4!4>") . (# pan 0.45))
+  )
+  $ (0.125 ~>)
+  $ note ("<c!4 ef!2 f g> <c!4 ef!2 f g> <c!4 ef!2 f g> <ef!4 f f g c6>"
+  - 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 ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
+  -9 -- calage
+  )
+  # "trance_pads:7"
+  # cut 9 # legato 2
+  -- # midiG' "^20" 0 1.4
+  # pan 0.4
+  # room 0.4
+d10
+  $ mask "<f!16 t!16 t!96>"
+  $ gF1 $ "<~!12 <risers:2!3 ~> ~ ~ ~>"
+  # end 0.85
+  # cut 10
+  -- # midiG' "^13" 0 1.3
+  -- # gain (1.3 * "^77")
+  # gain 1.3
+d11
+  $ mask "<f!24 t!8>"
+  $ note ("~ <c5!4 ef5 ef5 f5 g5>" + 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 (# "~ <answer!3 [variations answer]>")
+  $ "~ <<effects!4 almost!4> <almost variations>>"
+  -- $ "~ <variations>"
+  # midiG' "^20" 0 1.4
+  # cut 11
+  # speed 1
+
+once $ "weird_dialogs:39"
+  # begin 0.45
+  # end 1
+  # cut 11
+
+
+d2
+  $ "~ cp"

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 <k!3 k*2 k k ~ [~ k]>")
   $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..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" (<| "~ <c!7 ~>" )
-  $ "<clap!3 clap:2>"
+  $ "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
 
 

live/midi/nova/breaks/bain_bouillant.tidal

+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 . <f t f <f t>> <t f f <t f>>"))
+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!7 [<k ~> k]>")
+  $ midiOff "^42" (
+    (<| "<k!24 ~!8> ~ ~ <~!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> ~ <h ~ h ~ h!3 <h*2 [~ h*<1 2>]>>"
+  # "[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 "<g3!4 c3!4>(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 "<fs3 [fs3@7 b3] [fs3@7 g3] [fs3@5 g3 fs3 d2] [b2@7 d2] [b2@7 d2] [b2@7 gs2] [b2 . b2 d3 <fs3 g3>]>"
+  # "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 "<f!32 t!32>"
+  $ 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

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 <bf a>