resetCycles

do
setcps (80/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 -- THIS TIME IT'S GONNA BE SLOW
  $ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
  $ midiOff "^42" (
     (someCyclesBy (slow 16 $ range 0 0.8 saw)( -- Hackish run
       superimpose ((0.5 ~>) . mask "t(1,8)")
       )
    )
    . (<| "<8 <~!3 <8 [8 . 8(3,9)]>>>")
  )
  $ fix (|* gain 0.8) "jazz"
  $ "[808bd:1,jazz]"
  # gain 0.9
  # midiG' "^78" 0 1
  # room 0.5 # dry 1
d2 $ gF1 -- Snare euclidien gratos
  $ "~ <~!4 s(<1!3 4>, 4)!4> ~ s(<1!7 <3 [3 <5 8>]>>,8)"
  # "[dr_few:3,snare:13]"
  # gain 0.7
  # midiG' "^79" 0 0.9
  # pan 0.8
  # lpf 2000
d3 $ gF1 -- Break malmene
  $ whenmod 16 15 (slice 4 "0*5 ~*3")
  $ whenmod 8 7 (slice 4 "0*8")
  $ whenmod 4 3 (slice 4 "0 1*2 2 3*2")
  $ chop 16
  $ loopAt 2
  $ "fbreak80:0"
  # room 0.3
  # dry 1
  # sz 0.6
  # cut 3
  # pan 0.1
  # gain 0.65
  # midiG' "^80" 0 1
d4 $ gF1 -- Drumroll au retard orchestre
  $ sometimesBy 0.2 (struct "t(<3 3 1 <1 [5 8]>>,8)")
  $ "dr2:5*[16!3 [32@5 16]]"
  # gain (slow 32 $ range 0.24 0.6 sine)
  # cut 4
  # delay (range 0.25 0.5 perlin)
  # delayt 0.375
  # delayfb 0
  # pan 0.55
  # midiG' "^84" 0 1
d6 $ gF2 -- Programmatic bass
  $ midiOn "^89" (slice 4 "1*<2 4>" . (# cut 6))
  $ midiOn "^57" (
    someCyclesBy "<f!24 t!8>" (slice "<16 8 4 2>" (run 16))
    . someCyclesBy "<f!16 t!8 f!8>" (slice 8 "[0 .. 4] . [7 .. 5]")
    . someCyclesBy "<f!8 t!8 f!16>" (slice 8 (run 4))
    )
  $ loopAt 2
  $ "fbass:24/2"
  # cut 6
  # gain 0.6
  # room 0.4
  # midiG' "^81" 0 0.8
  # crushbus 61 (range 16 4 "^53")
  # room "<0.35!3 0.7>"
d5 $ gF2 -- Le rythme de la rentree
  -- $ mask "<f!7 t f!7 t f!14 t!2 t!16>"
  $ whenmod 64 48 (superimpose (
    (struct "t*<2 4 <2 8 8 2> [16 <4 <4 1>>]>")
    . (|+ note 12)
    . (|+ pan 0.2)
    . (# cut 51)))
  $ slice 8 "0 1(<1 <<1 3> <5 8>>>,8) 2 3*<1!3 2>"
  $ "fepiano:8/2"
  # pan 0.7
  # room 0.2
  # cut 5
  # gain 0.4
  # midiG' "^82" 0 0.8
d7 -- DIGITAL RAIN
  $ slice 2 "<0 0 1 1 0*2!2 1*<2!3 [2 4]>>"
  $ "fepiano:11"
  # panbus 71 (range 0.05 0.95 "^35")
  # hpfbus 72 (range 500 4993 "^55")
  # squizbus 73 (range 0 1.993 "^55")
  # midiG' "^83" 0 1.2