feat: Bogdan session

parent 8853d1e9
d1
$ n "8 13 3 4 15 4 13 19"
# s "alphabet*8"
-- Weird singing vocals
d2
$ whenmod 128 64 (# silence)
$ whenmod 128 48 (hurry "<2 1> <0.5 1 2>")
$ whenmod 32 16 (# release sine)
$ whenmod 32 18 (# gain 0.6)
$ whenmod 32 20 (# gain 0.4)
$ whenmod 32 16 (# gain 0.7)
$ sometimes (# gain (sine - 0.3))
$ chunk 4 (off 0.625 (|+ 0))
$ chop 4
$ s "moan"
# note "[4,8]"
# note "<[0,7] [4,8] [0,9] [<0 4>]>"
-- # note "<0 4>"
-- # note "0 2 4 7 [0,12]"
......@@ -104,7 +104,7 @@
-- 12: tok métal etouffé
-- glitch
-- 0 noisekick sec
-- 0 noise kick sec
-- 1 portail qui s'ouvre
-- 2 static doux
-- 3 static+bip d'oiseau
......@@ -114,15 +114,45 @@
-- 7 bass drum + static
-- 8 tom sec
-- Kicks
-- popkick
--- 0 sec bruité
--- 1 sec rond métal
--- 2 sec rond
--- 3 sec bruité ulgab
--- 4 sec explosion
--- 5 même avec toy final
--- 6 sec bruité toc
--- 7 rond tuyau
--- 8 aigu souris
--- 9 tuyau sable
-- clubkick
--- 0 sec métal
--- 1 un peu plus long
--- 2 sec plus grave?
--- 3 sec plus grave?
--- 4 sec plus aigu?
-- hardkick:
--- 0 bruité
--- 1
--- 2
--- 3
--- 4
--- 5
--- 6
--- 7
--- 8
--- 9
-- 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
-- Gammes
-- "0 2 4 5 7 9 11 12" Pentatonique
-- "0 2 3 4 5 6 7 9 10 11 12" -- Blues
-- Playground
setcps 0.1
......
......@@ -10,8 +10,6 @@ d1 $ n
"<c d e f g a b c6>"
) # s "superpiano"
d1 $ n "0 2 4 5 7 9 11 12" -- gamme pentatonique
d1 $ n "0 2 3 4 5 6 7 9 10 11 12" -- gamme du blues
d1 $ n "[0 3 5 7 12]*2" # s "superpiano"
......
d1 $ s "dr(2,4)"
d1 $ s "bogdan"
d2
$ somecycles (slow 2)
$ s "bogdan:7(1,4,1)"
d1
$ whenmod 8 4 (off 0.125 (|+ 0))
$ s "bogdan(<<1 2> 4>, 2)"
# gain 1.5
d2
$ whenmod 16 8 (# silence)
$ s "hh(<2 4>,4) ~ hh <~ hh>"
# s "bogdan:1"
d3
$ fast 2
$ degradeBy 0.3
$ superimpose (off (choose [0.25, 0.5]) (|+ 0))
$ s "bogdan:2"
# note (scale "dorian" (irand 7))
# gain 0.8
d4
$ s "bogdan(<<1 2> <2 1>>, 4)"
# n "<4 <6 <9 13>>>"
-- Bogdanerie (omondi)
unsolo 3
d1 $ s "reverbkick(<2 <4 8>>,4):1"
# gain 0.8
# pan (0.5 + sine / 2)
d4 -- omondi nigga!
$ whenmod 4 2 (rev . chop 2)
$ somecyclesBy 0.8 (fast 1.5) $ somecycles (slow 2)
$ s "bogdan:12(<1 2>,2)" # cut 2
# note "0"
# gain 0.8
d2
$ every 4 (fast 2)
$ s "<[dr*2 [~ dr?]] dr*4> hh*2" # pan 1
# gain 0.8
d3 -- piano lead
$ off 0 (|- 7)
$ off 0 (|+ 12)
$ s "~ superpiano superpiano ~"
# scale "major" (
choose [-7,0,7]
)
# velocity 0.6
# sustain "0.3 1 1"
d5 -- motherfuck
$ whenmod 64 23 (# gain 0)
$ loopAt 0.35
$ s "bogdan:11(1,4,1)"
# pan (slow 4 $ sine)
# gain 0.8
d6 -- cheeky bastard
$ whenmod 8 4 (# crush 5)
$ whenmod 32 16 (# gain sine)
$ s "bogdan:7(<1 <1 2>>,4)"
# gain 0
d4
$ s "arpy:0"
# note 20
d2 $ s "supermandolin(<3 5>,8)"
# note (scale "major" "[0,2,4]" + (irand 6))
-- # gain 0.9
......@@ -20,6 +20,8 @@ $ s "[hh?*4] <~ hh*2>"
# note "<3 0> <0 3>"
# gain 0.5
unsolo 2
d3
$ whenmod 32 28 (# silence)
$ whenmod 32 27 (# release 1)
......
setcps 0.5
d1
$ whenmod 32 28 (# silence)
$ whenmod 16 8 (# gain (0.35 + sine))
$ s "dr dr? <dr*2 dr>? dr dr dr? dr*2 dr"
setcps 0.5
d1
$ whenmod 32 28 (# silence)
$ whenmod 16 8 (# gain (0.35 + sine))
$ s "dr dr? <dr*2 dr>? dr dr dr? dr*2 dr"
d3
$ whenmod 128 80 (degrade)
$ whenmod 128 64 (# speed 0.5)
$ whenmod 32 30 (degradeBy 0.8)
$ whenmod 32 28 (# note 12)
$ whenmod 32 24 (# note 19)
$ almostNever (off (4/8) (+ 7))
$ sometimes (off (1/16) (|+ 12))
$ sometimes (off (0) (|- 12))
$ chunk 2 (0.125 ~>)
$ s "[[hh?,hh] hh?]*8"
# s "superpiano"
# pan (0.2 + rand / 2)
# sustain (0.5 + rand / 2)
# velocity cosine
# note (wchoose [
-- do re mi fa sol la si
(12, 1), (14, 1), (19, 1),
(0, 2), (2, 2), (7, 2),
(-12, 4), (-10, 2), (-7, 1), (-5, 3)
])
d3 $ s "superpiano*8"
# note (scale "aeolian" "0 2 <4 7>")
d1
$ s "nass:0" # cut 1
d4
$ whenmod 32 28 (# gain cosine)
$ degradeBy 0.3
$ off (1/16) (|+ 2)
$ off (1/8) (|+ 0)
$ s "bass3*4"
# note "<[0 5 0 0] [5 5 0 0] [7 5 0 7] [0 5 0 7]>"
d5
$ sometimes (# s "hh,cp")
$ s "cp*<2 <2 <2 4>>>"
setcps 1
d1
$ sometimes (off 0.125 (|+ 0))
$ s "clubkick(<<1 2> 4>,4)"
......@@ -32,5 +34,4 @@ $ s "bass3(<2 4>, 4)"
# note "2 2 2 2 2 2 2 4"
# gain 0.7
# note "0 2 4 5 7 9 11 12" -- gamme pentatonique
setcps 0.6
d2 $ s "supermandolin(<3 5>,8)"
# note (scale "major" "[0,2,4]" + (irand 6))
-- # gain 0.9
let a = "maj"
d2 $
superimpose (rev . (slow 2) . (|-| note 24)) $
somecyclesBy 0.8 (fast 2) $ somecycles (slow 2) $
s "superpiano" # note (scale a (irand 12))
# velocity (0.5 + rand / 2)
# sustain sine
d1
$ somecyclesBy 0.8 (fast 4)
$ somecyclesBy 0.1 (fast 8)
$ somecycles (slow 2)
$ s "dr"
d3
$ off 0.125 (# gain 0.7)
$ s "cp"
......@@ -23,3 +23,5 @@ v (6) voodoo (5)
wind (10) wobble (1) world (3)
xmas (1)
yeah (31)
bogdan (7) nass (3)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment