acid_80s.tidal

 -- region Part 1 Breakbeato-bass
do
  d1
    -- BREAKBEAT!
    $ s "jazz(2,4)" # lpf 1000
    -- $ superimpose (
      -- const
      -- $ s "k(<1!7 3>,8) . k(<1 3 5>,8)"
      -- # s "reverbkick"
      -- # gain 0.5
    -- )
    -- $ loopAt 2 -- 4 slowdown
    -- $ slice 4 "0? 1*2 3(3,8) ~"
    -- $ s "break:1"
    # gain 0.5
  d2
    $ fast "<4!2 8 16>"
    $ s "ifdrums:1" # gain 0.5 # sz 0.5 # room 0.5


  d5
    $ note ("<0>"
    + "[0,<12 12?>](<3!3 5 3!3 5 3!3 5 8 10 5>,16)"
    )
    # s "bass3"
    # gain 0.55

      -- $ whenmod 32 16 (degradeBy "0 0.5!7 0")
      $ superimpose (
        (arp "up") . (|+ note 24)
        . (# gain 0.35)
        -- . (# crush (slow 16 $ range 0.75 8 sine))
        )
      $ s "t(<4!2 5!2>,<4!2 8!2>)"
      # note ("<c3'min c3'maj c3'min7 c3'maj>")
      # s "supersaw"
      # voice 0.01 # gain 0.3
-- endregion

-- Techno tambourino piano
do
  setcps 0.45
  solo 1 -- Kick
  unsolo 2 -- Drums gretsch contretemps chaloupé
  solo 3 -- Drumroll aigu
  unsolo 4 -- Piano fou
  unsolo 5 -- Bass guitar 80s
  unsolo 6 -- Noise
  solo 7 -- Birds
  d1
    -- $ whenmod 32 28 (slow 4)
    -- $ whenmod 8 7 (slow 2)
    -- $ s "k k k [<k!3 k?> <~ k?>]"
    $ whenmod 8 7 (>| n "0*4")
    $ s "k . k(<1 3!2 5>,8)"
    # s "jazz"
    # gain (slow 128 $ range 0.35 0.6 cosine)
  d2
    $ n "1 . [[2,2](<4!3 3 4>,8)]"
    # s "gretsch"
    # gain (slow 30 $ range 0.4 0.8 sine)
  d3
    $ often (jux rev)
    $ fast "<4!3 <8 [16 8]>> <8!3 16>"
    $ s "gretsch:3"
    # gain (slow 16 $ range 0.3 0.5 saw)
    # room 0.6 # sz 0.9
  d4
    $ rev
    $ superimpose (arp "[updown,downup?]"
    . (stut "<2 3 4>" 0.8 0.125)
    . (|+ note 12)
    . (|* velocity 1.1)
    )
    $ note ("<g3'maj!3 g3'min g3'maj!2 g3'min g3'maj>")
    # s "superpiano"
    # velocity (slow 100 $ range 0.15 0.35 tri)
  d5 -- Guitare synth 80s flamboyant
    $ note (scale "hexMajor6"
      "[g4(<3 5 3 3 5 3 3 5>,8)]"
      -- + "[1 3 <1!4 <6 8 6 6>!4>]*4"
      + (whenmod 8 4 rev $ "[0 <5 3 2 -2>]")
    )
    # s "supersaw"
    # voice 0.01
    # gain (slow 80 $ range 0.25 0.45 sine)
    # hpf 500 # hpq 0.4
  d6 $ "glitch:2/4"
    # speed (range 0.1 0.5 perlin)
    # begin 0.1
    # gain (slow 16 $ range 0.5 0.7 saw)
  d7 -- Background birds
    $ often (stut 4 0.75 0.5)
    $ s "birds/4" # n (irand 7)
    # note (-2)
    # gain 0.45
    # speed (range 0.5 1.5 rand)