-- Pattern add
-- Structure 5:
--  *1*
--       4
--      3
--     2
-- 0

-- "808bd" Bass drum
-- 0 dry drum
-- 1 loud, bouncy bass
-- 2 semi-dry drum
-- 3 semi-dry bouncy drum
-- 4 loud, longer bounce bass
-- 4 loud bass

-- "808cy" Cymbal
-- 0-8: More and more echo
-- 9-16: Single, then several with echo
-- 9-16: Several until one with long echo

--  Structure 5:
--- 808lc Lourd Carillon (rond)
--- 808mc Milieu Carillon (rond)
--- 808hc Haut Carillon (rond)
--- 808lt Lourd Tuyau  (tac)
--- 808ht Milieu Tuyau  (tac)
--- 808ht Haut Tuyau  (tac)
--- 808oh Cymbale bruitée
-- 0: sec
---- 1: 1sec
---- 1: 0.5sec, sourdiné
---- 2-4: aigu-grave

-- 808sd  Cymbale + drum
--- 0:3 bas
--- 4:7 haut

-- bass Basse métallique
--- 0:4 notes harmoniques

-- bass3 Guitare basse
--  0 grave, ronde
--  1 moins grave, plus pincéee
--  2 comme 1 mais plus claire, moins bruitée
--  3 plus sèche
--  4 plus d'écho
--  5 grave, métallique
--  6 grave métallique sèche
--  7 grave, limite wob wob
--  8 aigue, métallique
--  9 Wob wob
-- 10 Wob wob chanté

-- bassdm Drum bas et roulant

-- blip: 8bit notes

-- ade Vibration genre post-gong

-- co Cymbale couverte
--- 0 tic-tshii
--- 1 tintshi
--- 2 tshii-tic
--- 3 tshii-

-- dr Drums variés
--- 0 titititi
--- 1 tatatata
--- 2 tintintin (sourdine, cuivree)
--- 3 zip
--- 4 zip zinp
--- 5 loud bass drum
--- 6 tata (plus cymbale que 1)
--- 7 bass drum + tin
--- 8 tata sourd
--- 9 tak tak bois

-- ulgab: 0 sale, 1 rebond, 2 crash, 3 crash joyeux, 4 idem rebond

-- rave
--- 0 are you ready
--- 1 whoo alright
--- 2 'cut' fast (normal speed 0.8)
--- 3 'a'
--- 4 'give it to them'*2
--- 5 our crow (echo)
--- 6 skat 'td ta'
--- 7 ow! (Jackson distordu)

-- hh high hat?
-- 0: tsii
-- 1: tsiing! (final)
-- 2: tawiit (zip scratché)
-- 3: ziip
-- 4: orchestra hit
-- 5: bass drum
-- 6: tok (bois)
-- 7: tsiing! (sourdiné)
-- 8: tsii (discret)
-- 9: maracas discrète
-- 10: petit ding
-- 11: tok métallique
-- 12: tok métal etouffé

-- glitch
-- 0 noisekick sec
-- 1 portail qui s'ouvre
-- 2 static doux
-- 3 static+bip d'oiseau
-- 4 static coupé sec
-- 5 static + attente téléphone
-- 6 bip oiseau sec pincé
-- 7 bass drum + static
-- 8 tom sec

-- Piano notes:
-- do  -14 -7 0 07 14 21
-- re  -13 -6 1 08 15
-- mi  -12 -5 2 09 16
-- fa  -11 -4 3 10 17
-- sol -10 -3 4 11 18
-- la  -09 -2 5 12 19
-- si  -08 -1 13 20

-- Playground

setcps 0.1

solo 2

hush

d1 $ s "<bd:14([3,5],8) <cp bd*2>>"

d2 $ s "<amencutup*8>" # n (run 16)

d1 $ s "dr_few bd(3,5) sn"

d2 $ s "superpiano"

d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"

d2 $ s "alphabet*2" # n "24 20"
# shape 0.2 # gain 0.5

d3 $ n "[0 5 <9,16> <5,12>]*2"
# s "superpiano" # sustain 0.3

d1 $ s "~ sn:1 ~ sn:1"

d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"

solo 9

d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
# s "supermandolin"
# gain 0.85

d1 $ s "[<cp>](5,8)"

d2 $ s "[808cy*24]/3 ~" # n "0 .. 23" # gain "1.5"

d2 $ slow 4 $ chop "1" $ s "bev cp*4"

d1 $ jux rev $ n
(
  off 0.125 (|+ 12)
$ off 0.125 (|+ 7)
  "<c*2 a(3,8) f(3,8,2) e*2>")
# s "notes"
# gain 0.5
-- # legato (0.5 + (rand / 2))
hush

setcps 0.5

d1 $ "bd"

d1 $ s "[<bd <bd,cp>> [sn*4] ~ sn]"

d2 $ up (run 10) # s "arpy" # gain 0.7

d3 $ degradeBy 0.25 $ s "kurt*2" # shape 0.9 # gain 0.5 # n (irand 6) # vowel "a i e o u"

d4 $ s "east*4"

solo 4

solo 2

solo 1


hush


-- iter: split and rotate N sections

d1 $ s "<808bd:5 808bd:6 808bd:7 808bd:6>*2" -- loud bass

d2 $ iter 8 $ s "hh*8 ~ hh*4 [cp*2 cp]"

d2 $ s "cp(3, 8)" # n "0 .. 9"
d1 $ s "[808oh(5,8)]*2" # n "0 .. 5"

d5 $ degradeBy 0.2 $ s "arpy(11,16)" # n "[1 3 5]"

d3 $ rev

d6 "<sn, bd:2*4>"

d2 $ sometimes (superimpose (0.125~>)) $ "industrial(13,16)" # n (irand 3)

d1 $ iter 4 $ s "[bd ~ bd <bd [bd bd*2?]>]" # n 2 # shape 0.9

d3 $ s "cp(2,4,1)"

d4 $ s "hh*16?"

d5 $ superimpose (choose [0.125, 0.25] <~) $
degradeBy 0.15 $
s "arpy(<11 13 9 7 15>, 16, <0 .. 9>)" # note "[0,2,5]"

unsolo 5

d1 $ sound "<bd*4>" # gain 4

d1 $ superimpose (# speed 0.5) $ striate' 128 0.125 $ s "kurt*4" # n (irand 6) # vowel "a e i o u" # gain 0.9

d2 $ s "drum*4" # gain 1.3

d1 $ sound "[nd ~ bd ~ bd] [~ bd] bd [~ bd] bd bd ~"

d1 $ sound "bd bd bd ~ bd*2 ~ bd*2 ~ bd ~# "

d2 (sound "arpy:1")

solo 1


d1 $ sound "<[bd*4 sn] bd>"
hush
d2 $

d1 $ up "<[1, 5, 8], [3, 6, 8]>" # sound "arpy" -- todo accord parfait

d1 $ sound "arpy(8,8)" # note "2 .. 10"
d1 $ every 2 (|- note "2") $ sound "arpy*4" |> note "10"
-- $ every 2 (|+ up "5") $ sound "arpy*4" |> note "0 2 4 5"
d1 $ sound "arpy(3,2)"
d2 $ sound "bd*4 <sn:3*2 sn:2>/2"
d1 $ every 4 (fast 2) $ every 4 (rev) $ sound "arpy:1 arpy:2 arpy:3 arpy:4"
d2 $ sound "[808bd:1 <808oh [808oh 808oh]>]"
d2 $ sound "[hh hh <bd:2 bd>]"
d3 $ sound "[bd:2 arpy:4 <arpy:2, arpy:10>]"
hush
d2 $ "[bd bd:2*4]"
solo 2