-- Stack Aerienne

setcps 0.46

d1 -- Kick regulier reprise 7/8
$ every' 8 7 (degradeBy "1 . 0 [1 0]")
$ every' 8 3 (degradeBy "1 . 1 [1 0]")
$ s "k k k [k k]"
# s "kick:11"
# note "0 0 0 [0 . <4 6>]"
# gain 0.7
# pan 0.4
# room 0.5 # size 0.3 # dry 1

d2
$ weave 16 (pan (slow 8 $ sine)) [ -- Rythmique
( -- drumroll
  sometimesBy (slow 16 $ saw / 2) (superimpose ((# s "d") . (# gain 0.5)))
  $ degradeBy "0 <0 1> 0 0.5"
  $ s "d*16"
  # s "dr"
  # gain 0.7
)
, ( -- clochettes!
  whenmod 32 28 (# gain 0.75)
  $ whenmod 8 4 (jux ((1/16) ~>))
  $ euclid "<8 1 7 1>" 8 $ s "superfork"
  # note (
    slow 4 $ "<c'maj c'min>"
    -12
    )
  # gain 0.6
)
, ( -- scratch
sometimesBy 0.2 (off (1/32) id)
$ sometimesBy 0.6 (off (1/16) id)
$ euclid (slow 8 $ "5 7") 8
$ n "0"
# s "birds3"
-- # n (choose [0,0,2])
# gain 0.3
)
]

d3  -- weird bassline
$ fast 2
$ whenmod 16 12 (# gain 0)
$ whenmod 16 8 (juxBy 0.25 rev)
$ whenmod 8 2 (chop 2)
$ every 4 (rev . chop 8)
$ note "0" # s "bass1:1/2"
# gain 0.5

d4 $ stack [ -- basses aeriennes
(
  superimpose (|+ note 12)
  $ note (slow 4 $ "<c'maj c'min>") # s "moogBass"
  # gain (slow 16 $ sine * 0.3 + 0.45)
) , (
  superimpose (|- note 12)
  $ superimpose (swing 3 . arp "updown" . fast 2 . (|- note 12))
  $ note (
    (slow 4 $ "<c'maj c'min>")
    + "<0 12>"
    ) # s "ikedaBass"
    # gain (slow 16 $ cosine * 0.3 + 0.34)
)
]

d5
$ superimpose ((# s "cheapPiano1") . (|- gain 0.3))
$ note "0(14,16, <0 0 2 2>)"
# note (arpeggiate $
  (slow 4 $ "<c'maj c'min>") -- accords
  + (slow 8 $ "<0 [0,[5 . <0 12>]]>") -- alerne do / quinte-octave
  + (slow 8 $ "<0 [-5 -12] [-12 -5] 0>") -- variations
)
# s "superpiano"
# velocity 0.5
# gain 0.7
# sustain (slow 4 $ "<1/8 <1/16 0>>")
# pan (slow 16 $ 0.2 + sine / 8)

d8 -- macron gabber guerre
$ whenmod 128 64 (# gain 0.65)
$ superimpose ((# octersub 16) . (# octersubsub 2))
$ every 2 (choose [0,0.125] ~>)
$ n "~ 0*2"
# s "macron:0" # begin 0.55
# gain 0
