infiltrations.tidal

once $ "dr"

-- INFILTRATIONS
-- Chemin de moindre pente
-- L'eau coule toujours vers le bas
-- Tension, reaction, detente
-- Mais dans la suite logique quelque-chose ne va pas

-- La larme qui coule, elle merite de tomber
-- Le nuage qui deborde ne demande qu'a percer
-- Le ruisseau qui s'egare peut toujours diverger
-- Le ruminement hagard un jour va s'arreter

-- Et pourtant nous sommes tous fait d'eau
-- Rinces, trempes, et pourtant ravis
-- Sois comme l'eau, mon ami
-- Sois comme l'eau, mon ami



do
setcps (80/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
d1 $ gF1 $ gM2
  $ superimpose ((|* gain (1.3 * "^30")) . (# "hardkick:2"))
  $ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
  $ "kick:5"
  # lpf 200
d2 $ gF1 $ gM1
  $ midiOn "^75" (ply 4)
  $ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
  $ midiOff "^43" (<| "~ s")
  $ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9)))
  $ "[snare:2,snare:10]"
  # octer 0.1
  # octersub 0.2
  # octersubsub 0.8
  # pan 0.25
  -- # lpf 3000
d3 $ gF1 $ gM1
  $ often (ply "[1 2] <2!3 [2 4]>")
  $ "hh(3,8) hh(3,8)"
  # octer 0.8
  # room 0.4 # dry 1.1
  |* gain "1 1 0.95 1 0.96 1 0.975 1.1"
d4 $ gF2 $ gM3 $ note (
  "<e gs e <ef <fs gs4>>>"
  - 24
  )
  # "bassWarsaw"
  # octerbus 43 (range 0 1.5 "^17")
  # squizbus    42 (range 0 2.5 "^33")
  # crushbus    41 (range 16 3.5 "^53")
  # room 0.3 # sz 0.6 # dry 0.5
d5 $ gF3 $ gM3
  $ note (
  "<e gs e <ef <fs gs4>>>"
  |+| "<0 [0 12 0]> 7@2 <0!3 <12 -12>>"
  -- + 12
  )
  # "giorgio_syn:24"
  # legato 2
  # squizbus 51 (slow 16 $ range 0 (range 0 4 "^54") saw)
  # crushbus 52 (range 16 2.5 "^53")
  # gain 0.8
  # pan (slow 8 $ range 0.8 0.6 saw)
  # cut 5
d8 $ gF1 $ gM1
  $ chop 16
  $ midiOn "^20"  (loopAt 4)
  $ midiOff "^20" (loopAt 1)
  $ midiOn "^36" (# "jungle_breaks:14")
  $ midiOn "^56" (# "jungle_breaks:15")
  $ midiOn "^92" (ply "<2!3 [4!3 8]>")
  $ loopAt 2
  $ midiOn "^60" (slice 8 (run "<4!3 2>"))
  $ "jungle_breaks:12"
  # cut 8
  # pan "0.8 0.2 0.8 [0.2 0.8]*2"
  # gain 0.7