-- MINI1: Filtré militaire bruité
do
resetCycles
setcps (90/60/4)
let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.1 0.9 sine)))
d1
  $ gF
  $ mask "t <t!8 f(<1 2 3>,4,1)!8>"
  $ mask "t . <f t!7> f"
  $ whenmod 32 16 (rarely (stut "[2|4]" 0.35 "s"))
  $ "k . k(<<3 5> 3!3>,8,3)" # "reverbkick"
  # gain (slow 16 $ range 0.8 1.1 saw)
d2
  $ gF
  $ whenmod 32 30 (fast "<2 4>")
  $ whenmod 32 8 (fast 2)
  $ fix (# legato (slow 4 $ sine)) ("glitch")
  $ "~ . s ~"
  # "[sn:1,snare:6,glitch:2]"
  # note ("a4" + "0 <-2!3 1!3>")
  # gain (slow 16 $ range 0.5 0.9 saw)
  # room 0.4 # dry 0.95
  # pan 0.35
d3 -- Drums excited!
  $ gF
  $ mask "t t t? t . t t? t"
  $ ("<q!6 <q!6 e e> e>" ~>)
  $ loopAt 2
  $ slice 16 (run
    $ whenmod 16 8 (iter 2)
    $ slow 16 "<4 8 16 32>"
  )
  $ "break:3"
  # gain (slow 32 $ range 0.4 0.8 saw)
  # legato 1
  # room 0.4 # dry 0.98 # sz 0.8
  # cut 1
  # pan (slow 32 $ range 0.5 0.8 saw)
d4
  $ mask "<t <t!4 [t f] f [f t] t>>"
  $ "h(<5!3 <8 [8 4]>>,8)"
  # "h2ogmhh"
  # n ("<0!8 4!8>" + run 16)
  # gain 0.65
  # release 0.9
  # cut 4

-- Mini2: minimaliste breakbeat
do
  setcps (80/60/4)
  d1
    $ "k . k(<3!3 <5 [5 3]>>,8)"
    # "auto:5" # gain 0.6
  d2
    $ loopAt 2
    $ "ade:8"
    # cut 2
    # gain (slow 32 $ range 0.4 0.6 saw)

-- Mini3: Dark low freq downtempo
do
  setcps (60/60/4)
  let gF = (whenmod 32 24 (# djf (slow 16 $ sine)))
  d1
    $ gF
    $ "k k . k k(<1 3 5 <1 2>>,8,<0 0 0 2>)" -- Breakbeat
    -- $ fast 2 $ "k k k <k k [~ k] k*2>" -- TECHNO
    # "jazz" # gain 0.65
  d2
    $ gF
    -- $ juxBy 0.8 ((|* gain 0.8) . rev)
    $ fast ("<4!6 <4 [8 4] 8> 8>" * "4 <8 [8 4]>")
    $ "[drum:2,cpu:4]" # gain 0.4
  d3 -- OMINOUS rework
    $ note (scale "majPent" (
      -- often rev $
      iter 2 $
      run 4))
    # "bass1"
    # gain 0.4
    # cut 3

do
setcps (70/60/4)
d1
  $ "jazz"
  # gain 0.65
  # lpf (slow 10 $ range 2000 10000 perlin)
d2 -- Slowed break
  $ loopAt 2
  -- $ slow 2
  $ slice 4 "0 1 <2 0 0 2> <3 3 1 1 1 1 1 3>"  -- Double
  -- $ slow 2 $ slice 8 ("0 1 <0 2> 3 4 5 6 7*<1 2>")  -- Simple
  $ "break:13"
  # gain 0.65
  # cut 2

  "break:11" -- Cloches/hh
