-- Hip-Hop energetic instrumental

setcps 0.42

d8 $ -- silence -- metronome
s "<birds:0 birds3:2 birds3:2 birds3:2>"
# gain "<0.2 0.3 0.3 0.3>"

d1 -- 4: KICK Chaloupe
$ whenmod 16 14 (# gain 0.7)
$ whenmod 16 11 (# gain 0)
$ whenmod 16 7 (# gain 0.7)
$ whenmod 16 6 (# gain 0)
$ jux rev
$ s "<k ~> <~ k> . k k ~ k"
# s "jazz"
# pan 0.4
# gain 0.65

d2 -- 3: Hats sur 8!
$ whenmod 16 15 (|+ gain 0.5)
$ whenmod 16 11 (|- gain 0.6)
$ whenmod 16 4 (|+ gain 0.4)
$ whenmod 16 3 (|/ gain 2)
-- $ jux rev
$ sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit!
  (# s "supersnare").  (# n (-12))
  . (# accelerate 8) . (# sustain 1)
  . (|- gain 0.3)
  ))
$ every' 4 3 ((1/16) ~>) -- decale sur 8
$ euclid "<1 3 5 8>" 8
$ s "superhat"
# pan (slow 16 $ sine)
# gain 0.5

d3 -- 2: Drumroll!
-- $ jux rev
$ whenmod 16 11 (|+ gain 0.1)
$ sometimesBy "0 0.5" (off (1/16) id)
$ whenmod 16 8 (fast 2)
$ n "0*4" # s "drum:8"
# gain (slow 32 $ cosine / 4 + 0.4)
# pan 0.4

d4 -- 1: Scratched birds!
$ ((1/16) ~>)
-- $ degradeBy "0 0.7 0.1" $ s "b*16"
$ rarely (off (1/16) id) $ s "b(8,8)"
-- $ s "b(<3 3 5 3 5 5 8 5 8 8 8 8>,8)"
# s "birds3" # n (irand 3)
# gain (slow 32 $ sine / 4 + 0.5)
# pan 0.6

d5 -- 4: Lead saw
$ whenmod 32 16 (# silence)
$ whenmod 16 14 (stut 4 0.9 (1/16))
$ whenmod 16 12 (|+ n 12)
$ whenmod 16 8 (|+ n 12)
$ degradeBy (slowcat [
  "0", "0", "0", "0 1 . ~ . 1 1 . <0 1>",
  "0", "0", "0", "1 0 . ~ . 1 1 . <0 1>",
  "0 . 1", "0 . 1", "0 . 1", "0 . 1",
  "0 . 1", "0 . 1", "0 . 1", "0 . 1"
])
$ n (
  "0 5 . ~ . 12 13 . <12 15>"
)
# s "supersaw"
# gain 0.4

d6 -- 4: Basses accompagnement
$ jux id
$ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>" # s "bassWarsaw"
|- 24
# pan 0.2
# gain 0.7

d10 -- 5: Toy Classical music!
$ hurry 2
$
every' 32 28
(|> s "toys:2")
$ s "~ ~ t ~"
# s "~"
# lpf 1000 # vowel "u"
# leslie 0.01 # lsize 4 # lrate 0.7
# note (-10)
# gain 0.8