soleil_enthousiaste.tidal 1.33 KB
resetCycles

do
setcps (110/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.90 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mel = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let melB = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let modIndex = pF "modIndex"
d1 $ g1 $ "k<1!4 2 1 1 2> . ~!3 <~!3 k>"
  # "[808bd:1,jazz]"
  # midiG' "^78" 0 0.9
d2 $ g1 $ "~ . s ~ ~ <~!4 s!4>"
  # "[sn:20,snare:8]"
  # midiG' ("^79" * "~ . 1 0.9") 0 0.9
d3 $ g1
  $ midiOn "^44" (fast 2)
  $ sometimesBy 0.1 (fast 2)
  $ "d*[8 <8 <4 [4 16]>>]"
  # "drum:2"
  # midiG' "^80" 0 0.9
d4 $ g2
  $ whenmod 32 24 (superimpose (
    arp "<up!6 downup!2>"
    . (|+ note 12)
    . (# pan 0.7)
  ))
  $ note ("<0 0(<3 5>,8)>"
  + (slow 4 mel)
  -- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
  - 24)
  # "FMRhodes1"
  # att 1 # rel 2
  # modIndex 0
  # room 0.8
  # dry 1
  # sz 0.2
  # midiG' "^82" 0 1.3
d5 $ g2
  $ note ("<[f af bf] [f@2 <af!4 bf!4> <bf!4 af!4>]> [<cs6!4 [cs6@3 ds6]!4>]"
  - 24)
  # "bassWarsaw"
  # midiG' "^81" 0 1.3
  # crushbus 51 (range 16 4.6 "^53")
  # pan 0.3
d6
  $ slice 16 ("<0!4 ~!3 0> 1 2 3 4 5 6*<1!3 2> <7 15>")
  $ "break:18"
  # midiG' "^84" 0 1.3
  # speed (range 0 2 "^56")
  # cut 6