Skip to content

T
Tidal
Commit 6d4bb5a3 by PLN (Algolia)
Options

live: jeudi incident

parent 3d541bfb
Showing with 333 additions and 200 deletions
live/collab/julien.tidal deleted 100644 → 0
resetCycles
setcps (135/60/4)
do
let maskIntro = mask "<f!6 t!28>"
d1
$ maskIntro
$ superimpose ((# "gretsch") . (|* gain 0.8))
$ "k . ~ k ~ ~"
# "[jazz,bd]"
# gain 0.5
d2
$ maskIntro
$ superimpose (const -- Tchak
$ whenmod 16 12 (fast "<2 4 4 8>" . ("q" <~) . mask "t f")
$ mask "<t!8 f!3 t!5>"
$ "~ s ~ s*<1!7 2>"
# "[gretsch:2,sn:2]" # lpf 4000
# room (slow 4 $ perlin * 0.35)
# gain 0.55)
$ whenmod 8 6 (# lpf "<4000 2000>")
$ splice 8 (run 8) $ "breaks165"
# gain (slow 16 $ range 0.2 0.55 saw)
d3
$ someCyclesBy "<1!8 0!28>" (mask "t(<0!4 4!4>,4)")
$ whenmod 4 3 (degradeBy "0 0.5!6 0")
$ sometimesBy "0 0.1!6 0.5" (fast 2)
$ "drum:2*8" # gain 0.5
d4
$ note ("<a3!4 c4!3 a3>"
+ "<c'maj!3 c'maj'4 c'min!3 c'min'4>"
)
# "supersaw" # voice 0.1
# gain 0.2 # pan 0.9 # room 0.1
d5
$ someCyclesBy "<1!2 0!14>" (|* gain 1.2)
$ "day:1/2"
# gain (slow 16 $ range 0.45 0.5 sine)
# gain 0.65
# hpfbus 4 (range "-50" 5000 sine)
# legato 2
# cut 5
once $ "dr" # cut 1
live/disco/high.tidal
...@@ -17,11 +17,11 @@ setcps (125/60/4) ...@@ -17,11 +17,11 @@ setcps (125/60/4)
d1 d1
$ whenInFade $ whenInFade
$ mask "<f!7 t!57>" -- Masked intro $ mask "<f!7 t!57>" -- Masked intro
$ mask "<t!16 [t f!3] f!7 t(2,4)!8 t!8>" -- $ mask "<t!16 [t f!3] f!7 t(2,4)!8 t!8>"
$ superimpose (# lpf 200) $ superimpose (# lpf 200)
$ "kicklinn*4" $ "kicklinn*4"
# release 0.15 # release 0.15
# gain 0.8 # gain 0.89
d2 d2
$ whenInFade $ whenInFade
$ mask "<f(1,4)!7 t!57>" -- Masked intro $ mask "<f(1,4)!7 t!57>" -- Masked intro
...@@ -54,7 +54,6 @@ d3 ...@@ -54,7 +54,6 @@ d3
d4 -- Cymb d4 -- Cymb
$ whenInFade $ whenInFade
$ whenMont (fast "<[1!3 2] [1 2 1 2] 1 [1 2!3]>") $ whenMont (fast "<[1!3 2] [1 2 1 2] 1 [1 2!3]>")
$ whenDrop ((jux rev) . (# hpf 500))
$ degradeBy (slow 16 $ "<1 0.8 0.5 0>") $ degradeBy (slow 16 $ "<1 0.8 0.5 0>")
$ sometimesBy "0.1 0 <1 1 1 0.5> <0 0.1!2 1>" (ply 2) $ sometimesBy "0.1 0 <1 1 1 0.5> <0 0.1!2 1>" (ply 2)
$ fast 4 "~ electro1:1" $ fast 4 "~ electro1:1"
......
live/fusion/elephunk.tidal
do do
-- resetCycles -- resetCycles
setcps (92/60/4) -- setcps (92/60/4)
let gain p = gain (1.5 * p)
let gFadeIntro = someCyclesBy "<t!8 f!56>" (|* gain (slow 8 $ range 0 1 saw)) let gFadeIntro = someCyclesBy "<t!8 f!56>" (|* gain (slow 8 $ range 0 1 saw))
let patFunk = "ds gf f <bf4!3 bf>" let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw)) let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
...@@ -33,8 +34,6 @@ d5 $ g ...@@ -33,8 +34,6 @@ d5 $ g
# room 0.6 # room 0.6
# sz 0.8 # sz 0.8
# gain 0.35 # gain 0.35
d6 $ g -- Final guitare rita d6 $ g -- Final guitare rita
$ whenmod 64 48 (# gain 0.25) $ whenmod 64 48 (# gain 0.25)
$ slice 16 "0 . 1 <~ 1 2>" $ slice 16 "0 . 1 <~ 1 2>"
......
live/jam/cbow.tidal 0 → 100644
d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1
resetCycles
-- P P T . P T
-- P T . PP P T
do
let chord = "d4'min7'4"
let gF = midiDJF "^49" 200 9800 0 2000
let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7))
let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF . gLeslie
setcps (100/60/4)
d1 $ gDJF $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k*4" )
$ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" )
$ "[jazz,bd]"
# midiG' "^78" 0 0.75
d2 $ gDJF $ g
$ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
$ "~ s ~ s"
# "h2ogmsn:6"
# midiG' "^79" 0 0.8
d3 $ g -- Bass
$ gDJF
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ slow 4
$ note (
(arp "up <up!8 down!8>" chord))
# "cbow:0"
# pan 0.3
# cut 3
# room 0.6
# sz 0.5
# midiG' "^81" 0 0.56
# crush (range 10 2 "^53")
d4 $ g
-- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4")
$ slow 2
$ whenmod 16 8 (ply 2)
$ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
$ note (arp "converge" chord)
# pan 0.4
# "cbow:2"
# cut 4
# room 0.2
# midiG' "^82" 0 0.4
d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 0.8
d8 $ g -- Angels
$ midiOff "^59" (mask "<f!32 t!32>")
$ note "<[c . ~!3 <~ <d g4>>] a4>"
# "cbow:3"
# cut 8
# midiG' "^83" 0 0.56
d4
$ whenmod 32 16 (jux rev)
$ "h2ogmcp(5,8,<0!3 [0 3]>)"
# gain 0.45
(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (
live/midi/nova/FFF/pray.tidal
...@@ -60,7 +60,7 @@ d5 -- Fragments of Wiley ...@@ -60,7 +60,7 @@ d5 -- Fragments of Wiley
$ novaOn "^90" (segment "<2 [2 4] [4 8] [16 32]>") $ novaOn "^90" (segment "<2 [2 4] [4 8] [16 32]>")
$ novaOn "^58" (slow 16) $ novaOn "^58" (slow 16)
$ novaOff "^58" (slow 4) $ novaOff "^58" (slow 4)
$ "pray" -- TODO INTRO then /4 $ "pray"
# crush (range 10 2.5 "^54") # crush (range 10 2.5 "^54")
# n "<0!4 1!8>" # n "<0!4 1!8>"
# cut 5 # cut 5
......
live/midi/nova/breaks/break_90s.tidal
...@@ -6,6 +6,8 @@ import Sound.Tidal.ParVagues.Control ...@@ -6,6 +6,8 @@ import Sound.Tidal.ParVagues.Control
setcps (80/60/4) setcps (80/60/4)
resetCycles resetCycles
once "dr"
-- Break90s∷ :) -- Break90s∷ :)
do do
-- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine))) -- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine)))
...@@ -13,8 +15,9 @@ let gDJF = (midiDJF "^49" 0 10000 0 10000) ...@@ -13,8 +15,9 @@ let gDJF = (midiDJF "^49" 0 10000 0 10000)
let g = (gDJF) let g = (gDJF)
d1 d1
$ g $ g
$ midiOn "^41" (superimpose (# "kick:5") $ midiOn "^41" (superimpose ((# "kick:5")
. (<| "k k k k k k k k*2") . (|* gain 0.9))
. (<| "k k k k k k k [<k ~> <k ~ ~ k>]")
. (# room 0) . (# room 0)
. (|* gain 0.9) . (|* gain 0.9)
) )
......
live/midi/nova/breaks/slower.tidal
...@@ -5,7 +5,7 @@ setcps (80/60/4) ...@@ -5,7 +5,7 @@ setcps (80/60/4)
resetCycles resetCycles
do do
let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.1 0.5 sine))) let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
let gDJF = (midiDJF "^49" 200 9800 0 200) let gDJF = (midiDJF "^49" 200 9800 0 200)
let gFreqL = (# lpq (range 0 0.25 "^29")) let gFreqL = (# lpq (range 0 0.25 "^29"))
let gFreqH = (# hpq (range 0 0.25 "^30")) let gFreqH = (# hpq (range 0 0.25 "^30"))
...@@ -65,7 +65,7 @@ d5 -- fmono ...@@ -65,7 +65,7 @@ d5 -- fmono
# crush (range 12 1.85 "^54") # crush (range 12 1.85 "^54")
# midiG' ("^82" + 0.125 * "^54") 0 1.2 # midiG' ("^82" + 0.125 * "^54") 0 1.2
# room 0.3 # sz 0.8 # dry 1 # room 0.3 # sz 0.8 # dry 1
d9 -- Hats d9 -- Maracas Hats
$ g $ g
$ fix ( $ fix (
midiOff "^60" (slow 4) midiOff "^60" (slow 4)
......
live/midi/nova/computer_riddim.tidal
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
do do
-- region Nova Utils -- region Nova Utils
let gFactor = 1.25 let gFactor = 1.45
let gG a = (gain (gFactor * "^77" * a)) -- gain Global let gG a = (gain (gFactor * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
...@@ -109,8 +109,9 @@ d8 -- Trompette lancinante ...@@ -109,8 +109,9 @@ d8 -- Trompette lancinante
$ g $ gDelayD $ g $ gDelayD
$ degradeBy "^35" $ degradeBy "^35"
$ novaOn "^59" (mask "<f!3 t>") $ novaOn "^59" (mask "<f!3 t>")
$ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.85)) $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95))
$ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>") $ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>"
- 12)
# "brass" # n "2" # "brass" # n "2"
# gM' 0.2 1 "^55" # gM' 0.2 1 "^55"
# attack 0.5 # attack 0.5
......
live/midi/nova/dnb/lucy_rode.tidal
import Sound.Tidal.ParVagues.Control import Sound.Tidal.ParVagues.Control
once "dr" once $ "dr" # gain 0.8
resetCycles resetCycles
setcps (60/60/4) setcps (60/60/4)
...@@ -32,6 +32,7 @@ do ...@@ -32,6 +32,7 @@ do
$ slice 4 (run 4) $ slice 4 (run 4)
$ "fbreak80:4" $ "fbreak80:4"
# midiG' "^79" 0 2 # midiG' "^79" 0 2
# leslie "^51" # lrate 6.7
# cut 2 # cut 2
d3 $ g -- Drumroll d3 $ g -- Drumroll
$ midiOn "^41" ( $ midiOn "^41" (
...@@ -59,6 +60,7 @@ do ...@@ -59,6 +60,7 @@ do
# crush (range 10 3.7 "^54") # crush (range 10 3.7 "^54")
# modIndex (range 0 4.19 "^34") # modIndex (range 0 4.19 "^34")
d4 $ g -- Bassline pompée d4 $ g -- Bassline pompée
$ midiOn "^57" (ply 2)
$ note (scale "aeolian" ( $ note (scale "aeolian" (
"0*8" "0*8"
|+ (fast 4 $ arp "up" |+ (fast 4 $ arp "up"
......
live/midi/nova/dnb/meurice.tidal
...@@ -24,7 +24,7 @@ d2 ...@@ -24,7 +24,7 @@ d2
$ g $ g
$ g32Bridge $ g32Bridge
$ whenmod 16 12 (struct "t*<4 4 8 16>") $ whenmod 16 12 (struct "t*<4 4 8 16>")
$ whenmod 16 8 (fast 2) $ whenmod 16 4 (fast 2)
$ "~ cp" $ "~ cp"
# "[snare:4,snare:22]" # "[snare:4,snare:22]"
# pan 0.55 # pan 0.55
...@@ -32,11 +32,11 @@ d2 ...@@ -32,11 +32,11 @@ d2
# room 0.8 # dry 0.99 # sz 0.2 # room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d3 -- Running Hats d3 -- Running Hats
$ g -- $ g
$ degradeBy ("1 0 0 1!13" - "^52") -- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (fast 2) -- $ midiOn "^44" (fast 2)
$ "h2ogmhh*8" $ "hh*[8 . 8 <16 8 4 [4 8]>]"
# n "[0|0|0|0|1|1|3|3]*8" -- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4)) # midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4))
# room (slow 8 $ range 0.2 0.45 saw) # room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw) # sz (slow 8 $ range 0.8 0.2 saw)
...@@ -81,7 +81,14 @@ d7 -- Guitar B ...@@ -81,7 +81,14 @@ d7 -- Guitar B
# lsize (1 + (slow 8 perlin * 2)) # lsize (1 + (slow 8 perlin * 2))
# lrate 6.7 # lrate 6.7
# cut 71 # cut 71
d8 $ g -- Clave de l'été
$ midiOn "^59" (fast 2)
$ midiOn ("^91"-"^59") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>"
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0.5 2 "^55")
# midiG' "^83" 0 1.5
d6 $ "seawolf:0/4" d6 $ "seawolf:0/4"
......
live/midi/nova/lofi/new_dust.tidal
...@@ -84,12 +84,12 @@ d5 $ g -- Infectious Bassline ...@@ -84,12 +84,12 @@ d5 $ g -- Infectious Bassline
# legato 2 # legato 2
# "bassWarsaw" # "bassWarsaw"
# width "^34" # width "^34"
-- # crush (range 16 2.5 "^54") -- Manual crush enabler # crush (range 16 2.5 "^54") -- Manual crush enabler
# midiG' "^82" 0 1 # midiG' "^82" 0 1
# room 0 # room 0.2
d7 -- TOYS d7 -- TOYS
$ degradeBy (0.99 - "^55")
$ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1")) $ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1"))
$ degradeBy (slow 16 $ "<0.95 0.8 0.45 [0 0.2!3]>")
$ slice 8 (stack [ $ slice 8 (stack [
"<~!8 4!4 [4 5]!4>", -- Classico "<~!8 4!4 [4 5]!4>", -- Classico
"<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod "<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod
...@@ -100,12 +100,25 @@ d8 $ g -- Toy bogdan ...@@ -100,12 +100,25 @@ d8 $ g -- Toy bogdan
$ fix (|* gain 0.75) "hh" $ fix (|* gain 0.75) "hh"
$ every' 16 15 (>| "~ ~ ~ bogdan:4") $ every' 16 15 (>| "~ ~ ~ bogdan:4")
$ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8)) $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
$ every' 16 1 (>| "~ ~ ~ bogdan:4")
$ "~ ~ ~ hh" $ "~ ~ ~ hh"
# room 0.5 # room 0.5
# legato 2 # legato 2
# hpf 200 # hpf 200
# midiG' "^84" 0.5 1.1 # midiG' "^84" 0.5 1.1
# leslie 0.2 # lrate 6.7 # lsize 0.7 # leslie 0.2 # lrate 6.7 # lsize 0.7
d9 $ g -- Toy Dusty
$ slice 24
(cat [
"0 0",
"~ 1 ~ 1",
"0 0 0 0",
"~ 1 ~ 1 ~ 1 2 3"
-- "2",
-- "0 1*2 2 ~ ~ ~ ~ ~"
])
$ "dusty"
# cut 9 # gain 0.65
# midiG' "^56" 0.3 1.1
once $ ""# cut 21
once $ "dr" # cut 21 # gain 0.5 once $ "dr" # cut 21 # gain 0.5
live/midi/nova/lounge/cbow.tidal 0 → 100644
d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1
resetCycles
-- P P T . P T
-- P T . PP P T
do
let chord = "d4'min7'4"
let gF = midiDJF "^49" 200 9800 0 2000
let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7))
let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF . gLeslie
setcps (100/60/4)
d1 $ gDJF $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k*4" )
$ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" )
$ "[jazz,bd]"
# midiG' "^78" 0 0.75
d2 $ gDJF $ g
$ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
$ "~ s ~ s"
# "h2ogmsn:6"
# midiG' "^79" 0 0.8
d3 $ g -- Bass
$ gDJF
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ slow 4
$ note (
(arp "up <up!8 down!8>" chord))
# "cbow:0"
# pan 0.3
# cut 3
# room 0.6
# sz 0.5
# midiG' "^81" 0 0.56
# crush (range 10 2 "^53")
d4 $ g
-- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4")
$ slow 2
$ whenmod 16 8 (ply 2)
$ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
$ note (arp "converge" chord)
# pan 0.4
# "cbow:2"
# cut 4
# room 0.2
# midiG' "^82" 0 0.4
d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 0.8
d8 $ g -- Angels
$ midiOff "^59" (mask "<f!32 t!32>")
$ note "<[c . ~!3 <~ <d g4>>] a4>"
# "cbow:3"
# cut 8
# midiG' "^83" 0 0.56
d4
$ whenmod 32 16 (jux rev)
$ "h2ogmcp(5,8,<0!3 [0 3]>)"
# gain 0.45
(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (
live/midi/nova/lounge/invoque_ete.tidal
...@@ -17,6 +17,7 @@ let gFreqH = (# hpq (range 0 0.25 "^30")) ...@@ -17,6 +17,7 @@ let gFreqH = (# hpq (range 0 0.25 "^30"))
let gFreqs = (gFreqH . gFreqL) let gFreqs = (gFreqH . gFreqL)
let gDJF = (gLPF . gHPF) let gDJF = (gLPF . gHPF)
let g = gDJF . gFreqs let g = gDJF . gFreqs
-- let g = id
d1 $ g d1 $ g
$ midiOn ("^42" - "^41") (slow 4) $ midiOn ("^42" - "^41") (slow 4)
$ midiOn "^41" (<| "k k k <k k k*2 [~ k]>") $ midiOn "^41" (<| "k k k <k k k*2 [~ k]>")
......
live/midi/nova/lounge/michael.tidal 0 → 100644
setcps (120/60/4)
resetCycles
-- Michael: lounge piano/brass tech/break
do
let gDJF = midiDJF "^49" 200 9800 0 1000
let g = gDJF
d1 $ g
$ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)")
$ "jazz"
# room 0.5 # sz 0.5
# dry 1
# midiG' "^78" 0 1.6
d2 $ g
$ whenmod 8 6 (ply "2 <2 4>")
$ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
# midiG "^79"
d3
$ g
$ midiOn "^44" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52")
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
"0 . 2 0"
)
# midiG' "^80" 0 1.6
d4 $ g -- Synth brass choir
$ midiOn "^57" (# crush 6)
$ fix (
(# "fsynth:3")
. (|- note 24)
. (|+ pan 0.1)
. (|* gain "^53")
) "a"
$ fix (
(# "fsynth:3")
. (|- note 12)
. whenmod 4 2 (often (ply 2))
. (# pan (perlin))
. (|* gain "^33")
) "b"
$ fix (
(# "fsynth:3")
. slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
. arp "pinkyup"
. (|+ pan 0.1)
. (>| note ("c'maj'3" - 7))
. (|* gain ("^17" * 0.9))
) "c"
$ slice 4 "<0 1 2 3>"
$ "[a,b,c]"
# midiG' "^81" 0 1.5
# room 0.3
# sz 0.6
d5 $ g -- Jumpy Piano
$ midiOff "^58" (struct "t(2,4)")
$ degradeBy ("0 0.95!7 0" - "^34")
$ juxBy 0.8 (rev . (# cut 51))
$ mask "f <f!8 t!8>!3 . t"
$ slice 8 (run ("4 <4 8>" * "<1!3 2>"))
$ "fpiano:3" # gain 1.25
# cut 5
# crush (range 16 3 "^54")
# room 0.5
# sz 0.7
# midiG' "^82" 0 1.5
d7 $ g
$ slice 8 (run ("<2!3 4>" * "<1!4 2!4 [2 1]*4 [2 4]*4>"))
$ "forgan:17" # cut 7
# midiG' "^83" 0 (1.2 - 0.5 * "^55")
# crush (range 16 1.5 "^55")
d8 $ g
$ loopAt 2
$ degradeBy ("0 0.9!7 0" - "^36")
$ scramble 2
$ slice 8 (run 8)
$ "fbreak120"
# room 0.8
# dry (1 + (slow 8 $ perlin * "^56"))
# midiG' "^84" 0 1.5
# cut 6
live/midi/nova/lounge/top_hats.tidal
...@@ -20,7 +20,7 @@ let g = (gDJF . gFreqs) ...@@ -20,7 +20,7 @@ let g = (gDJF . gFreqs)
setcps 0.5 setcps 0.5
d1 $ g d1 $ g
$ midiOn "^41" ( -- KICK RUN $ midiOn "^41" ( -- KICK RUN
((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.25)) ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.35))
) )
$ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ "hh27" # n "[5,6]" $ "hh27" # n "[5,6]"
......
live/midi/nova/minneapolis.tidal
...@@ -38,6 +38,7 @@ d1 $ g ...@@ -38,6 +38,7 @@ d1 $ g
# gM' 0 1 "^78" # gM' 0 1 "^78"
d2 $ g d2 $ g
$ mask "<f!8 t!8> <f!4 t!4> . t" $ mask "<f!8 t!8> <f!4 t!4> . t"
$ novaOn "^75" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165"))
$ sometimesBy ("^43") -- Stut $ sometimesBy ("^43") -- Stut
(mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s") (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
$ every' 8 7 (mask "f t!3" . jux rev) $ every' 8 7 (mask "f t!3" . jux rev)
...@@ -51,7 +52,7 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO ...@@ -51,7 +52,7 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
sometimesBy "0!15 <0!4 1!4>" (# silence) . sometimesBy "0!15 <0!4 1!4>" (# silence) .
sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) . sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) .
fast 2) . fast 2) .
(|* gain 0.8) . (|* gain 0.75) .
(>| "ho*8") (>| "ho*8")
) )
$ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll $ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll
...@@ -100,12 +101,12 @@ d5 $ g -- Basse + Sirene ...@@ -100,12 +101,12 @@ d5 $ g -- Basse + Sirene
. (-| note 12) -- 24 when crushed . (-| note 12) -- 24 when crushed
. (# gM' 0.2 0.8 (( . (# gM' 0.2 0.8 ((
"^81" -- gain bass "^81" -- gain bass
* (range 0.6 0.9 "^33") -- Modulated 5C * (range 0.7 0.9 "^53") -- Modulated 5C
) )
- (0.125 * "^57") -- When TECHNOPHILE - (0.125 * "^57") -- When TECHNOPHILE
)) ))
. (# crush (range 10 3 . (# crush (range 10 3
"^53")) "^33"))
. (# room 0.5) . (# room 0.5)
. (# size 0.8) . (# size 0.8)
) )
...@@ -115,8 +116,8 @@ d5 $ g -- Basse + Sirene ...@@ -115,8 +116,8 @@ d5 $ g -- Basse + Sirene
) )
# s "supersaw" # s "supersaw"
# voice 0.15 # voice 0.15
# crush (range 10 2 "^53") # crush (range 10 2 "^33")
# gM' 0 0.8 ("^81" * (range 0.9 0.4 "^33")) -- Modulated 5C # gM' 0.2 0.8 ("^81" * (range 1 0.45 "^53")) -- Modulated 5C
# pan (slow 10 $ range 0.6 0.8 sine) # pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantome d7 $ g -- Claps fantome
$ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s") $ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s")
...@@ -131,14 +132,14 @@ d7 $ g -- Claps fantome ...@@ -131,14 +132,14 @@ d7 $ g -- Claps fantome
d8 $ g -- Gunfire d8 $ g -- Gunfire
$ sometimesBy "^20" ( $ sometimesBy "^20" (
superimpose (const -- pistolets superimpose (const -- pistolets
$ sometimes ( -- réplique $ someCyclesBy 0.25 ( -- réplique
off 0.5 (|+ gain 0.1) off 0.5 (|+ gain 0.1)
. (# room 0.25) . (# room 0.25)
) )
$ often (stut 2 0.85 (1/16)) -- écho $ sometimes (stut 2 0.55 ("[s|e|h]")) -- écho
$ s "~ ~ ~ snare:57" $ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3))) # speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3)))
# gM' 0 1 ("^56") # gM' 0 1 "^56"
# cut 80 # cut 80
# dry 1.02 # dry 1.02
# pan (range 0.2 0.8 perlin) # pan (range 0.2 0.8 perlin)
......
live/midi/nova/party/dark_angel_frappe.tidal
...@@ -9,33 +9,34 @@ let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux ...@@ -9,33 +9,34 @@ let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF) let gDJF = (gLPF . gHPF)
let gRes = (# hpq "^29") . (# lpq "^30") let gRes = (# hpq (range 0.01 0.5 "^29")) . (# lpq (range 0.01 0.5 "^30"))
let novaOn ch pat = (someCyclesBy ch pat) let novaOn ch pat = (someCyclesBy ch pat)
let novaOff ch pat = someCyclesBy (1 - ch) pat let novaOff ch pat = someCyclesBy (1 - ch) pat
-- endregion Nova Utils -- endregion Nova Utils
let g = (gDJF . gRes) let g = (gDJF . gRes)
setcps 0.5 setcps 0.5
d1 $ g d1 $ g
-- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>" $ midiOn "^42" (<| "k k k k")
$ "k k k <k [k k] k [~ k]>" $ midiOn "^41" (<| "k k k <k [k k] k [~ k]>")
# "[jazz,cpu]" $ midiNo "^42" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)")
# room 0.8 # sz 0.8 # dry 1 $ "[jazz,cpu,bd:8]"
# gM' 0 1.6 "^78" # room 0.2 # sz 0.8 # dry 1
# gM' 0 1.16 "^78"
d2 $ g -- Clap d2 $ g -- Clap
$ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2")) $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
$ novaOff "^60" (# silence) $ novaOff "^60" (# silence)
$ "~ [clap,<cp!3 ~>]" $ "~ [clap,<cp!3 ~>]"
# lpf 2500 # lpf 2500
# room 0 # dry 0.99 # room 0 # dry 0.99
# gM' 0 1.3 "^84" # gM' 0 1.13 "^84"
d3 $ g -- Break 4/4 d3 $ g -- Break 4/4
-- $ sometimes (off "e" id) $ midiOn "^43" (slow 2)
$ fix (|* gain 0.8) (n 2) $ fix (|* gain 0.8) (n 2)
$ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>" $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
# "amencutup" # "amencutup"
# gain 1.2 # note (range "-12" 12 "^51")
# gM' 0 1.4 "^79"
# pan 0.4 # pan 0.4
# gM' 0 1.4 "^79"
d8 $ g -- Hats d8 $ g -- Hats
$ fix (|* gain 0.9) ("hh27") $ fix (|* gain 0.9) ("hh27")
$ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]" $ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
...@@ -44,14 +45,14 @@ d8 $ g -- Hats ...@@ -44,14 +45,14 @@ d8 $ g -- Hats
# gM' 0 1.45 "^80" # gM' 0 1.45 "^80"
d4 -- RESONANT BASSLINE d4 -- RESONANT BASSLINE
$ g $ g
$ novaOn "^81" (slow "2 . 2 <1!3 0.5>") $ novaOn "^57" (slow "2 . 2 <1!3 0.5>")
$ whenmod 16 12 ( $ whenmod 16 12 (
degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin)) degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
. (# legato 2) . (# legato 2)
) )
$ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw" $ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
# gM' 0 1 "^81" # gM' 0 1 ("^81" - 0.2 * "^53")
# crush (range 10 3 "^53") # crush (range 10 1 "^53")
# room 0.5 # sz 0.8 # room 0.5 # sz 0.8
d5 $ g -- Synth voices d5 $ g -- Synth voices
$ novaOff "^58" (# silence) $ novaOff "^58" (# silence)
...@@ -59,14 +60,15 @@ d5 $ g -- Synth voices ...@@ -59,14 +60,15 @@ d5 $ g -- Synth voices
$ loopAt 2 $ loopAt 2
$ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>") $ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
$ "fsynth:47" $ "fsynth:47"
# gM' 0 1 "^82" # crush (range 10 2 "^54")
# gM' 0 1 ("^82" - 0.2 * "^54")
# cut 5 # cut 5
d7 $ g -- Fill drums d7 $ g -- Side guitar
$ (|* gain (slow 10 $ range 0.9 1.2 perlin)) $ sometimesBy "^35" (scramble 16)
-- $ loopAt 2 $ mask "<t!6 f!2>"
$ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>" $ loopAt 2
-- $ mask "<f!3 t>" $ "fguitar:61"
$ "ffills:7"
# cut 7 # cut 7
# pan 0.6 # pan 0.2
# gM' 0 1.5 "^83" # crush (range 16 2 "^55")
# gM' 0 1 "^83"
live/midi/nova/party/electro_blues.tidal
...@@ -13,24 +13,25 @@ d1 -- Kick rarement doublé ...@@ -13,24 +13,25 @@ d1 -- Kick rarement doublé
$ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>") $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
$ "k*4" # "jazz" $ "k*4" # "jazz"
# room 0.1 # dry 0.99 # sz 0.6 # room 0.1 # dry 0.99 # sz 0.6
# midiG' "^77" 0 1.5 # midiG' "^78" 0 1.5
d2 $ g d2 $ g
$ "~ [jazz:4,cp]" $ "~ [jazz:4,cp]"
# hpf (range 0 10000 perlin) # hpf (range 0 10000 perlin)
# midiG "^78" # midiG "^79"
d3 -- Snakes d3 -- Snakes
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 4 $ fast 4
$ "s . s <s!3 ~> <~!3 s>" $ "s . s <s!3 ~> <~!3 s>"
# "hh*6" # "hh*6"
# gain (slow 32 $ range 0.55 1.2 saw) # midiG "^80"
d4 d4
$ never (superimpose ( $ midiOn "^57" (juxBy 0.2 (
ply "<2 4 [4 8] 8>" . -- ply "<2 4 [4 8] 8>" .
mask "t(1,4)" . arpeggiate . (# "supermandolin") arpeggiate
. (|* gain 0.8) -- . (# "supermandolin")
. (# pan 0.6) -- . (|* gain 0.8)
. (# crush 16) -- . (# pan 0.6)
-- . (# crush 16)
)) ))
$ note ( $ note (
cat blues + chord cat blues + chord
...@@ -43,7 +44,7 @@ d4 ...@@ -43,7 +44,7 @@ d4
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
d5 -- Choeurs d5 -- Choeurs
$ juxBy 0.5 ( $ juxBy 0.5 (
(0.5 ~>) . midiOn "^59" (superimpose ( (0.5 ~>) . midiOn "^58" (superimpose (
arpeggiate arpeggiate
. (|+ note chordAug) . (|+ note chordAug)
. (|+ pan 0.05) . (|+ pan 0.05)
...@@ -56,6 +57,6 @@ d5 -- Choeurs ...@@ -56,6 +57,6 @@ d5 -- Choeurs
$ note (cat blues) $ note (cat blues)
# "moogBass" # "moogBass"
# octave 3 # octave 3
# midiG' "^83" 0 1.4 # midiG' "^82" 0 1.4
# room 0.4 # room 0.4
# size 0.7 # dry 1.05 # size 0.7 # dry 1.05
live/midi/nova/party/funk_angel_frappe.tidal deleted 100644 → 0
-- FUNKY ANGEL FRAPPE
-- Needs bass/more lead high?
do
-- region Nova Utils
let gFactor = 1.4
let gG a = (gain (gFactor * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let gRes = (# hpq "^29") . (# lpq "^30")
let novaOn ch pat = (someCyclesBy ch pat)
let novaOff ch pat = someCyclesBy (1 - ch) pat
-- endregion Nova Utils
let g = (gDJF . gRes)
setcps 0.5
d1 $ g
-- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
$ "k k k <k [k k] k [~ k]>"
# "[jazz,cpu]"
# room 0.8 # sz 0.8 # dry 1
# gM' 0 1.5 "^78"
d2 $ g -- Clap
$ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
$ novaOff "^60" (# silence)
$ "~ [clap,<cp!3 ~>]"
# lpf 2500
# room 0 # dry 0.99
# gM' 0 1.3 "^84"
d3 $ g -- Break 4/4
-- $ sometimes (off "e" id)
$ fix (|* gain 0.8) (n 2)
$ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
# "amencutup"
# gain 1.2
# gM' 0 1.2 "^79"
# pan 0.4
d8 $ g -- Hats
$ fix (|* gain 0.9) ("hh27")
$ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
# "[drum:2,hh27:4]"
# pan (slow 16 $ range 0.4 0.6 saw)
# gM' 0 1.35 "^80"
d4 -- RESONANT BASSLINE
-- $ (# lpq (range 0 0.8 "^53"))
-- $ (# lpf (slow 32 $ min 10000 (range 500 15000 sine)))
$ g
$ novaOn "^81" (slow "2 . 2 <1!3 0.5>")
$ whenmod 16 12 (
degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
. (# legato 2)
)
-- $ juxBy 0.8 (# crush (slow 16 $ range 16 5 isaw))
$ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
-- # accelerate ("<0!60 -0.1 -0.1 -0.2 -0.2>")
# gM' 0 1 "^81"
# crush (range 10 3 "^33")
# room 0.5 # sz 0.8
d5 $ g -- Synth voices
$ novaOff "^58" (# silence)
$ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51)))
$ loopAt 2
$ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
$ "fsynth:47"
# gM' 0 1 "^82"
# cut 5
d7 $ g -- Fill drums
$ (|* gain (slow 10 $ range 0.9 1.2 perlin))
-- $ loopAt 2
$ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>"
-- $ mask "<f!3 t>"
$ "ffills:7"
# cut 7
# pan 0.6
# gM' 0 1.5 "^83"
live/midi/nova/tidal_crime.tidal
...@@ -8,7 +8,7 @@ once $ "dr" # gain 1.2 ...@@ -8,7 +8,7 @@ once $ "dr" # gain 1.2
do do
-- region Nova Utils -- region Nova Utils
let gFactor = 1.2 let gFactor = 1
let gG a = (gain (gFactor * "^77" * a)) -- gain Global let gG a = (gain (gFactor * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
...@@ -48,11 +48,12 @@ d3 $ g ...@@ -48,11 +48,12 @@ d3 $ g
$ novaOn ("^76") --BOUTON NASSIM $ novaOn ("^76") --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125") . (>| "breaks125")
. (|* gain 0.9)
) )
$ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw)) $ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw))
$ "d d d d d d d*2 d" $ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]" # "[drum:2,amencutup:5]"
# gM' 0 0.75 "^80" # gM' 0 1.25 "^80"
# pan (slow 16 $ range 0.1 0.9 sine) # pan (slow 16 $ range 0.1 0.9 sine)
# room 0.2 # dry 0.99 # room 0.2 # dry 0.99
d4 $ g $ gP -- Gauche d4 $ g $ gP -- Gauche
...@@ -92,7 +93,7 @@ d7 $ g ...@@ -92,7 +93,7 @@ d7 $ g
# sawHarmonic 1.9 # sawHarmonic 1.9
# pan 0.1 # pan 0.1
# mix 0.8 # mix 0.8
# gM' 0 0.8 "^83" # gM' 0 1.1 "^83"
# room 0.2 # room 0.2
d8 $ g d8 $ g
$ novaOn "^90" (chop 16) $ novaOn "^90" (chop 16)
...@@ -102,7 +103,7 @@ d8 $ g ...@@ -102,7 +103,7 @@ d8 $ g
# voice (range 0.1 2 "^34") # voice (range 0.1 2 "^34")
# room 0.6 # sz 0.2 # room 0.6 # sz 0.2
# gM' 0.4 1 "^82" # gM' 0.4 1 "^82"
# crush (range 10 3.6 "^54") # crush (range 12 3.6 "^54")
d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83" d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83"
......
live/mood/fight/clav_clash.tidal
do do
setcps (60/60/4) setcps (60/60/4)
resetCycles -- resetCycles
d1 -- Kick chaloupé d1 -- Kick chaloupé
$ mask "<f!8 t!56>" $ mask "<f!8 t!56>"
$ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw)) $ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw))
$ "k . k(<5 3 5 [4 8]>,8)" $ "k . k(<5 3 5 [4 8]>,8)"
# "[reverbkick,jazz]" # "[reverbkick,jazz]"
# gain 0.6 # gain 0.6
# room 0.2
d3 -- Drumroll léger d3 -- Drumroll léger
$ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s") $ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s")
$ someCyclesBy "<0.2!3 0.5>" (fast 2) $ someCyclesBy "<0.2!3 0.5>" (fast 2)
...@@ -36,12 +37,13 @@ d6 -- Nappes Rhodes ...@@ -36,12 +37,13 @@ d6 -- Nappes Rhodes
$ note ("<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>") $ note ("<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>")
# "FMRhodes1" # "FMRhodes1"
# pan 0.2 # pan 0.2
# gain 0.8 # gain 0.96
d7 -- LEAD PIANO! d7 -- LEAD PIANO!
$ mask "<f!4 [t f!3]!4 t!56>" $ mask "<f!4 [t f!3]!4 t!56>"
$ whenmod 64 48 ( $ whenmod 64 48 (
euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8 euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8
. (# crush "<16 14 10 9>") . (# crush "<16 14 10 9>")
. (|* gain 0.9)
) )
$ off ("q" + "<0!8 s!8>") ( $ off ("q" + "<0!8 s!8>") (
|+ note "<c!16 <c c'maj'2 c'maj'3>!16>" |+ note "<c!16 <c c'maj'2 c'maj'3>!16>"
......
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