pour_une_hypothese.tidal

resetCycles


do
setcps(125/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 prog = "<c g f c>"
d1 $ gF1 $ gM2
  $ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
  $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
  $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
  $ "[kick:5,tech:5,jazz]"
  # gain 1
d2 $ gF1 $ gM1
  $ midiOn "^43"  (<| "~ c ~ c")
  $ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
  $ fix ((|* gain 0.8) . (# room 0)) "cp"
  $ "[cp]" # room 0.4 # sz 0.5 # dry 1.2
  # gain 0.7
  -- # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
  # "h2ogmsn:12"
  # cut 3
  # legato (range 0.48 1 sine)
  # gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
  # room 0.14 # sz 0.4 # dry 1
  # pan "<0.7!16 0.3!16>"
  -- # pan 0.8
d4 $ gM3 $ gF2
  $ midiOn "^57" (superimpose ( -- Arp up!
    struct "t*<4 8>" .
    (|+| note (arp "down" "[0,<5 7>,9, 12]")) . (# cut 41))
  )
  $ midiOn "^89" (ply "2 <4 8>")
  -- $ chop 8
  $ loopAt 4
  $ note (prog - 36  + "0(3,8) 0(<3 5>,8,<0!6 2!2>)")
  # "bassWarsaw"
  # cut 4
  # legato 4
  # pan 0.35
  # room 0.3
  # crushbus 41 (range 12 4.5 "^53")
d5 $ gM3 $ gF3
  $ someCyclesBy (slow 8 $ range 0.1 1 saw) (degradeBy "0 1!6 0.5")
  $ swingBy ("<1!3 <2 1>>"/3) 4
  $ note (prog  - 12 + arp "pinkyup" "c'min'4")
  # "FMRhodes2"
  # cut 4
  # legato 4
  # pan 0.35
  # room 0.3
  # modIndex (range 0 50 "^54")
d7 $ gF3 -- Anges du Minitel
  $ midiOn "^91" (chop 8)
  $ swingBy ("<1!3 2>"/3) 4
  $ stut (slow 16 "<0 1 2 3>") 0.75 "e"
  $ note ((slow 4 prog) + arp "up" "<c'min'3!3 c>@3 ~")
  # pan 0.2
  # room 0.4
  # "moogBass"
  # gain 0.8
d10 $ gF3 $ gM3 -- Anges du Minitel
  $ note ((slow 4 prog) + arp "up" "c'min'3(<3 3 <5 3> 5>,8) ~")
  # "moogBass"
d8 $ gM1 $ gF1
  -- Transforms over samples
  $ midiOn "^60" (iter "1 4") -- Split
  $ midiOn "^92" (fast 2) -- Multi
  $ chop 16
  $ loopAt 2
  -- Sample selection
  $ midiOn "^36" (# n 33)
  $ midiOn "^56" (loopAt 1 . (# "break:7"))
  $ "jungle_breaks:20"
  # cut 8
  # pan "<0.3!16 0.7!16>"
  # gain 0.78






d5 $ gM3 $ gF3
  $ chop 8
  $ loopAt 2
  $ "nujazz_keys125" # n "<56 56 57 56 58!4 59 59 56 59>"
  # cut 5
  # pan 0.6
d7 $ gM3 $ gF3
  $ chop 8
  $ loopAt 2
  $ "nujazz_keys125" # n "<66!4 67!4>"
  # cut 7
  # octerbus 71 (range 0 0.5 "^55")
  # pan 0.1
d12 $ gM3 $ gF3
  $ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>"
  $ chop 8
  $ loopAt 2 $ "nujazz_keys125:44"
  # cut 5
  # gain 0.8
  # pan 0.7
  # room 0.2
d11 $ gM3 $ gF3
  -- $ (0.5 <~)
  $ loopAt 2
  $ "nujazz_keys125"
  # n "<4!3 5>"
  # cut 5
  # roombus  110 (slow 16 $ range 0 0.9 saw)
  # lpfbus 112 (slow 32 $ range 12000 500 sine)
  # att 0.02
  # rel 7
  # gain 0.9
d10 $ gM3 $ gF3
  $ superimpose (
    mask "<f!16 t!16>"
    . arp "<up [up down]>"
    . (|+ note "c'maj'4") . (|* gain 0.75))
  $ note ("<c5 g4 <ef4!2 bf4!2> <c4 f4>>" + "0(3,8) 0(3,8)"
  -- - 12
  )
  # "[FMRhodes1]"
  # modIndex 1
  # room 0.2
  # pan 0.45
  # gain 1.2