feat: saturday :)

parent 3a78b02a
......@@ -7,3 +7,16 @@ $ s "d <d d*3> <d <d d*3>> d*3"
d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9"
d1 $ n "0 <~ 0> [~ 0] ~"
# s "jazz"
d3
$ someCycles degrade
$ sometimesBy "0 0.5" (fast 2)
$ "dr:12(10,12)"
d3 -- Percroll
$ almostNever (# n 1) . degrade
$ s "d(<10!2 14 16>,16)"
# s "bsperc:5"
--- TODO: Sample Geisha by Les elles
-- Drone vibrating dildo
-- Chopped moans
-- DU CODE !
do
d1 -- BEAT
$ whenmod 32 30 (# gain 0.9)
$ whenmod 32 25 (# gain 0)
$ sometimesBy "1 0.5 0.25 0" (fast 2) -- FASTER!
$ s "b ~ [b? b] <~ [~ b?]>"
# s "reverbkick"
# gain 0.8
# pan (slow 8 $ range 0.6 0.8 saw)
d2 -- Breaks
$ whenmod 32 19 rev
$ whenmod 32 18 (slow 2)
$ whenmod 32 17 (fast 2)
$ whenmod 32 16 rev
$ whenmod 32 30 (# gain "<0.5 0.6>")
$ whenmod 32 24 (# gain 0)
$ loopAt 2 $ chop (slow 4 "<2 8>") $ sound "break"
# gain 0.65
# pan (slow 8 $ range 0.2 0.8 saw)
d3 -- Percroll
$ almostNever (# n 1) . degrade
$ s "d(<10!2 14 16>,16)"
# s "bsperc:5"
# gain (slow 8 $ range 0.7 1 saw)
d4 -- basse bruitée
$ whenmod 32 16 (# crush 4) . (# lpf 12000)
$ sometimesBy 0.2 (fast 2)
$ chop (slow 4 $ "<[1|2] [4|8] 8 1>")
$ note (scale "aeolian" (
"[0, <~ [0 ~ <1 2> <2 1>]>]"
) - 24)
# s "supersaw"
# voice 0.25
# gain 0.55
d5 -- Claps dégradés
$ degradeBy "0.9 0 0.5"
$ s "c([3|5],8)"
# s "clap"
# n "0 [0|1]"
# gain 0.8
d6 -- PIANO FOU
$ note (scale "aeolian" (
"c5'maj(<[3|5|7] [10|12|14]>,16,[0|4])" -- accord
+ (iter 4 $ "{0 [2 0] 4 [2 0]}") -- melodie
+ "<0!4 7 0 -7>" -- gamme
)
)
# "superpiano"
# sustain (1/"[2|4|8]")
# velocity (slow 64 $ range 0.3 0.5 sine)
d7 -- Choeur nappes
$ note (scale "aeolian" ("c4'maj"))
# s "moogBass"
# amp (slow 4 $ "<0.2 0.4 0.6 0.8>") -- INTENSIFICATION
# gain (slow 4 $ "<1 0.9 0.8 0.8>") -- Compense volume
# cutoff (slow 16 $ (1000 * (1 + run 15))) -- Variations filtree
d8 -- du code
$ "~ kaamelott:2/8"
# begin (slow 8 $ "<0 0 0.5 0.55 0.75 0.5>")
# end (slow 8 $ "<0.5 0.5 1 1 1 1 >")
# crush (5 + irand 10)
# speed (0.85 + rand / 4)
# room 0.5
# gain 0.7
once $ s "kaamelott:2"
setcps 0.5
d1
$ sometimesBy "0 0 0 <0 0.9>" (fast 2)
$ n "0 0*[1|2|4]"
-- "0 <~ ~ ~ 0?> 0 [<~ 0?> 0]"
-- "0!4 0*<2 [4 2] [4 8] [<4 8> <8 12>]>"
# s "jazz"
# gain 0.8
d2
$ bite 4 "0 1 2*<1 2> 3*<1 <2 4>>"
$ loopAt "<4 2!2 1>" $ chop 32 $ s "breaks125"
# gain 0.8
d3
$ almostNever (superimpose (<| s "~ ~ 808cy:1 ~"))
$ swing (slow 64 $ "<3 5>")
$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
$ euclid 5 4
$ s "808cy"
# note "<4 4 4 4 7 7 7 7>"
# gain (slow 32 $ sine * 0.4 + 0.3)
d4
$ sometimes (hurry 2)
$ degrade
$ s "~ clap:2"
# gain 0.9
d5
$ whenmod 16 8 (superimpose $ arp "<updown downup pinkyup>")
$ s "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>"
# note (scale "major" "<c'maj <ds'maj f4'maj> <df'maj ff'maj>>([3|4],8)"
+ (
(slow 4 $ "<0 2>")
)
)
# s "superpiano" # velocity "0.6 [0.5 0.4] 0.5 [0.4 0.7]"
d6 $ silence
d10 -- basse
$ chop 4
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ note (iter 4 $ "<0 <3 [3 3]> <0 [3 0]>>" - 24)
# s "bassWarsaw"
-- # hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ range 0.1 0.8 cosine)
# gain 0.8
-- SirenBeat
setcps 0.45
d1 -- reverbkick varie
$ every' 16 13 (fast 2)
-- $ whenmod 16 13 (# gain 1) -- fin break 1
-- $ whenmod 16 10 (# gain 0) -- break 1
$ (# s "reverbkick")
$ fix ((# note 0) . (# lpf 2000)) (s "h")
$ fix ((# note 1) . (# lpf 5000)) (s "l")
$ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
|- note 2
# pan 0.2
d2 -- amen sur 8
$ whenmod 16 10 (# gain 0) -- break 1
$ whenmod 16 8 (off 0.125 (|+ n 7))
$ off (1/16) degrade
$ every 2 (sometimes $ degrade . fast 2)
$ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
$ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
# gain (slow 64 $ range 0.5 0.8 sine)
# pan 0.8
d3 -- Drumroll
$ superimpose ( -- hats
(# s "superhat") . (# sustain (slow 8 $ sine * 0.1 + 0.1)) . (|- gain 0.1))
$ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
$ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
$ s "d*8"
# s "dr"
# gain (slow 32 $ sine * 0.5 + 0.4)
# pan (slow 8 $ 0.2 + tri * 0.8)
d4 -- Hats motif rythme
$ sometimesBy (slow 4 $ isaw) (slow 2)
$ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
$ n "f'maj e'min d'maj ~"
# s "superhat"
# sustain 0.2
# gain 0.5
d5 -- Sirene
$ s "supersiren/4"
# note (slow 4 $ "<f e c e5>"
- 36)
# gain 0.5
d6 -- basse motif
$ whenmod 16 10 ( -- break 1
superimpose (# s "subBass2") . (|- gain 0.1))
$ whenmod 60 64 (swing 2)
$ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
$ note ("f'maj e'min d'maj ~"
+ (slow 4 $ "<0 4 2 <0 12>>") -- descente
- 24)
# s "subBass1"
# gain 1
# room 0.4 # size 0.2
d7 -- sometimes, slow bass synth
$ whenmod 64 61 (chop 2)
$ whenmod 64 60 rev
$ whenmod 64 32 (every 4 (# gain 0.8))
$ n "f'maj ~ e'min ~ d'maj ~"
# s "bassWarsaw"
# legato "1 1 2 ~"
# sustain "1 1 4 ~"
|- n 24
# gain 0.4
d10 -- scratch moineau!
$ sometimesBy 0.2 (off (1/32) id)
$ degradeBy "0 0.1 0.8 0"
$ euclid (slow 8 $ "<3 5>") 16
$ n "0"
# s "birds3"
# n (choose [0,0,2])
do
d1 -- reverbkick varie
$ every' 16 13 (fast 2)
$ whenmod 16 13 (# gain 1) -- fin break 1
$ whenmod 16 10 (# gain 0) -- break 1
$ (# s "reverbkick")
$ fix ((# note 0) . (# lpf 2000)) (s "h")
$ fix ((# note 1) . (# lpf 5000)) (s "l")
$ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
|- note 2
# pan 0.2
d2 -- amen sur 8
$ whenmod 16 10 (# gain 0) -- break 1
$ whenmod 16 8 (off 0.125 (|+ n 7))
$ off (1/16) degrade
$ every 2 (sometimes $ degrade . fast 2)
$ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
$ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
# gain (slow 64 $ range 0.5 0.8 sine)
# pan 0.8
d3 -- Drumroll
$ superimpose ( -- hats
(# s "superhat") . (# sustain (slow 8 $ sine * 0.1 + 0.1)) . (|- gain 0.1))
$ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
$ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
$ s "d*8"
# s "dr"
# gain (slow 32 $ sine * 0.5 + 0.4)
# pan (slow 8 $ 0.2 + tri * 0.8)
d4 -- Hats motif rythme
$ sometimesBy (slow 4 $ isaw) (slow 2)
$ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
$ n "f'maj e'min d'maj ~"
# s "superhat"
# sustain 0.2
# gain 0.5
d5 -- Sirene
$ s "supersiren/4"
# note (slow 4 $ "<f e c e5>"
- 36)
# gain 0.6
d6 -- basse motif
$ whenmod 16 10 ( -- break 1
superimpose (# s "subBass2") . (|- gain 0.1))
$ whenmod 60 64 (swing 2)
$ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
$ note ("f'maj e'min d'maj ~"
+ (slow 4 $ "<0 4 2 <0 12>>") -- descente
- 24)
# s "subBass1"
# gain 1
# room 0.4 # size 0.2
d7 -- sometimes, slow bass synth
$ whenmod 64 61 (chop 2)
$ whenmod 64 60 rev
$ whenmod 64 32 (every 4 (# gain 0.8))
$ n "f'maj ~ e'min ~ d'maj ~"
# s "bassWarsaw"
# legato "1 1 2 ~"
# sustain "1 1 4 ~"
|- n 24
# gain 0.4
d10 -- scratch moineau!
$ sometimesBy 0.2 (off (1/32) id)
$ degradeBy "0 0.1 0.8 0"
$ euclid (slow 8 $ "<3 5>") 16
$ n "0"
# s "birds3"
# n (choose [0,0,2])
d11 $ s "birds/4" # n (irand 6) # speed (0.5 + rand * 2)
# gain (0.4 + rand / 2)
......
......@@ -56,9 +56,9 @@ $ s "~ [b b?]]"
# dry 0
d10 -- basse
$ superimpose -- echos crushes!
(fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2)
$ jux rev
-- $ superimpose -- echos crushes!
-- (fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2)
-- $ jux rev
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ every 4 (someCycles (fast 2 . degrade))
$ often (fast 2 . (0.25 ~>))
......
......@@ -132,7 +132,6 @@
--- 6 Tac leger
-- bssnare
-- bsvocals
......
......@@ -8,3 +8,4 @@ unsolo 7
unsolo 8
unsolo 9
unsolo 10
unsolo 11
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