-- Oldskool: NTM ton fils
do
setcps (90/60/4)
let gPont24 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.05 saw)))
let gPart2 = (whenmod 64 32 (# djfbus 1 (slow 32 $ range 0.05 0.85 saw)))
let g = gPont24 . gPart2
-- let g = id
d1 $ g
  $ fix (
    (# hpf 2500)
    . (|* gain 0.7)
  ) "909"
  $ mask "<t!3 [t f!3]> . t"
  $ "k k ~ ~ . [~ k] k ~ ~"
  # "[jazz,808bd:3,909]"
  # gain 1.62
d2 $ g
  $ mask "<t!3 f> . <t t f t>"
  $ "~ s ~ s" # "[sn:20, snare:44, snare:8]"
d3
  $ g $ "drum:2*[8!2 <8 16> 16]"
  -- $ "drum:2*8"
  # gain 1.2
d4 $ g $ note "<[[c3 ~ c3] bf2 af2 g2]!3 f2>" # "bassWarsaw" # gain 1.7

-- Radius: TECHNO DEFORMEE
do
setcps (100/60/4)
let g1 = (# djfbus 1 (range 0.10 0.90 "^49"))
let g2 = (# djfbus 2 (range 0.10 0.90 "^29"))
d1 $ g1 $ "909*4"
  # midiG' "^78" 0 1.3
d2 $ g1 $ "~ cp" # lpf 2000 # room 0.5 # dry 1
  # midiG' "^79" 0 1.2
d3 $ g2 $ "[hh <hh!3 <~!3 hh*<1 2>>>]*8"
  # midiG' "^80" 0 1.2
d4 $ g2
  $ midiOn "^90" (juxBy 0.8 (rev .
    (# cut 12) .
    chop 8 .
    (|* gain 0.8))
  )
  $ midiOn "^58" (slice 4 ("0 1 <2!3 [~ 2]> 3*<4 2 [4 2] 4>"))
  $ "raph_jardin" # n "<4!3 <5 4> 4 4 3 2>"
  # cut 11
  # lpf 2000
  # midiG' "^82" 0 1.2
  # crushbus 41 (range 12 2.5 "^54")
d5 $ g1
  $ midiOn "^57" (striate "2 <2!3 4>" . chop 8)
  $ "fbass:3"
  # cut 5
  # crushbus 51 (range 12 2.5 "^53")
  # midiG' "^81" 0 1.2


once $ "FMRhodes1" # note "c5" # gain 1.7