Skip to content

T
Tidal
Commit c0311301 by PLN (Algolia)
Options

live: Sexes to FDLM2021

parent 4026e3cb
Showing with 666 additions and 115 deletions
live/boeuf/_clock.tidal 0 → 100644
p "midiclock" $ midicmd "midiClock*48" # s "midi"
-- Your MIDI device should then adjust its BPM to Tidal's cps.
-- Then it's worth sending a stop message like this:
once $ midicmd "stop" # s "midi"
-- and then finally a start message to start the MIDI clock at the right time. The following sends a start message every fourth cycle:
p "midictl" $ midicmd "start/4" # s "midi"
-- Once everything's started and in sync, it's probably best to stop sending the start messages to avoid glitching:
p "midictl" $ silence
-- However now if you do hush, the midiclock will stop as well as all the other patterns. To avoid this, you can overwrite the hush function with a version that silences particular patterns:
let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16]
-- You will probably find that the downbeats for SuperDirt and your MIDI devices don't align. As a starting point, set MIDI latency in supercollider to 0:
~midiOut.latency = 0;
live/boeuf/samedi_chill.tidal 0 → 100644
import Sound.Tidal.ParVagues.Control
setcps 0.5
do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gDeg = (degradeBy (0.9 * "0 ^29!7 0"))
let g = gDJF
let chill = "<t!16 f!16 1!32>"
d1 $ g
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . k(<1 <3 5>>,8)")
$ "jazz"
# midiG' "^78" 0 1.4
d2 $ g $ gDeg
$ "~ . s <~!3 s> <~!7 s> <~ ~ s <~ <s ~>>>"
# "snare:34"
# midiG' "^79" 0 2
# note (range "-12" "12" "^51")
d3 $ g $ gDeg
$ juxBy "52" rev
$ whenmod 16 8 (often (slow "<4!3 2>"))
$ midiOn "^44" (splice 16 ("0 1 2 3*<4 4 2 4> 0 1 6 7(3,8)"))
$ loopAt 2
$ "break"
# midiG' "^80" 0 1.8
# cut 3
d4 $ g $ gDeg
$ midiOn "^41" (fast 2)
$ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]"
# midiG' "^81" 0 1.8
# note (range "-12" "12" "^53")
d5
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
$ slice 8 (run 8)
$ loopAt "<1!6 2 2>"
$ "breaks165"
# cut 3
# midiG' "^82" 0 1.8
live/boeuf/vendredi_saint.tidal 0 → 100644
import Sound.Tidal.ParVagues.Control
setcps 0.5
d4 $ n "0 2 4 12" # s "midi"
do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
d1 $ g
$ midiOn "^41" (fast 2)
$ "[cpu2]*2"
-- # att "^30"
-- # rel "^50"
# midiG' "^78" 0 2
# room 0.2
-- # crushbus 11 (range 16 0.95 "^14")
d2 $ g
$ midiOn ("^41"-"^43") (fast 2)
$ midiOn "^41" (|+ gain 0.7)
$ "~ [cp,clap:1]"
# midiG' "^79" 0 3
# note (range "-12" "12" "^51")
# room 0.4 # dry 0.98
# crushbus 11 (range 16 1.95 "^15")
d3 $ g
$ midiOn ("^44" + "^76") (
const $ loopAt "<1!6 2 2>"
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
$ slice 8 (run 8)
$ "breaks165"
# cut 3
# note (range "-12" "12" "^52")
# midiG' "^80" 0 1.8
)
$ rarely ("e" ~>)
$ every' 4 3 (fast "<1 2> <2 4>")
$ "drum:2*8"
# midiG' "^80" 0 1.5
d4 $ g -- Mecano Course
$ fast 4
-- $ midiOn "^76" (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165"))
$ midiOn "^57" (
slice 16 ("0*<1 2> 1 2 3*<2 1>")
-- . (>| "breaks125")
)
$ midiOn "^89" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ sometimesBy "0 ^33!7" (shuffle 8)
$ someCyclesBy "^53" (iter 4)
-- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
$ chop 8
$ loopAt 2 $ "breaks125:3"
# midiG' "^81" 0 1.2
# cut 4
d5 -- Runny Maracas Pitchables
$ g
$ mask "t(16,32)"
$ midiOn "^90" (ply "<2!3 4>")
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^82" 0 2
# room "^34"
# note (range "-24" "0" "^18")
# crushbus 51 (range 16 4.2 "^54")
d8 $ g
$ note (scale "aeolian" (iter 4 $ slow 4 $ arpeggiate "c'min'4") - 24)
# "supersaw"
# midiG' "^56" 0 1
# crushbus 51 (range 16 2 "^36")
# pan 0.2
# velocity 0.9
# room 0.4
live/collab/Sexes/julien.tidal
setcps 0.5 -- One pattern per two seconds
-- TODO: Intro basse volume -- TODO: Intro basse volume
-- TODO: Intro rhodes volume premiere note -- TODO: Intro rhodes volume premiere note
-- TODO: better bass volume, more manual than sine?
-- TODO: filtered outro -- TODO: filtered outro
-- TODO: filler notes bass 8/8 -- TODO: filler notes bass 8/8
-- TODO Replace scaffolding with relevant noises
setcps 0.5 -- One pattern per two seconds
-- Intro -- Rouge -- Blanc -- Generique -- FIN -- Intro -- Rouge -- Blanc -- Generique -- FIN
-- 0 68 131 143 166 -- 0 68 131 143 166
...@@ -12,23 +12,29 @@ setcps 0.5 -- One pattern per two seconds ...@@ -12,23 +12,29 @@ setcps 0.5 -- One pattern per two seconds
-- 0 34 65 71 86 -- 0 34 65 71 86
do do
-- resetCycles -- resetCycles
let intro = mask "<f!2 t!164>" let intro = mask "<f!2 t!84>"
let fromVelo = mask "<f!6 t!160>" let fromVelo = mask "<f!6 t!80>"
let fromSophie = mask "<f!11 [f t] t!154>" let fromSophie = mask "<f!11 [f t] t!74>"
let rouge = "<0!36 1!6 0!2 1!2 0!3 1!2 0!6 2!12 0!90>" let rouge = "<0!30 [0 1] 0!5 [1 0 1 1] 1!5 [1!3 0] 0 [0 1!3] 1 0!3 1!4 [1 0!3] 0 0 [0 1] 1!12 0!90>"
let outro = "<0!150 1!16>" let outro = "<0!150 1!16>"
let lOutro = 16 let lOutro = 16
let whenEnd = whenmod 160 86
let whenEndRouge = whenmod 86 68
let whenRouge = someCyclesBy rouge let whenRouge = someCyclesBy rouge
let whenNotRouge = someCyclesBy (1 - rouge) let whenNotRouge = someCyclesBy (1 - rouge)
let whenOutro = (someCyclesBy outro) let whenOutro = (someCyclesBy outro)
-- let gain amount = (gain (amount * 1.5)) let gPluck = "<0.28!6 0.32!8 0.335!82>"
d1 let prog = "<b'min7 <a'maj7 d'maj7>>"
let g = (whenEnd (# silence))
-- d12 $ whenRouge (|- note 12) $ "superpiano*4" # velocity 0.2 -- Caleur rouge
d1 $ g
$ intro $ intro
$ whenRouge (fast 4) -- Rouge $ whenRouge (fast 4) -- Rouge
$ whenEndRouge (|* gain (slow 16 $ range 1 0.5 saw))
$ superimpose ((# "reverbkick") . (# hpf 200) . (|* gain 0.7) .(# legato "<1!4 <q!3 e>!4>")) $ superimpose ((# "reverbkick") . (# hpf 200) . (|* gain 0.7) .(# legato "<1!4 <q!3 e>!4>"))
$ "jazz" # gain 0.45 $ "jazz" # gain 0.45
# lpf 200 # lpf 200
d3 d3 $ g
$ intro $ intro
$ whenOutro (degradeBy (slow lOutro $ range 0.1 0.95 sine)) $ whenOutro (degradeBy (slow lOutro $ range 0.1 0.95 sine))
$ whenRouge (sometimesBy "<0.25 0.5 0.5 <0.75 0.9>>" (mask "t(16,32)" . ply 2)) $ whenRouge (sometimesBy "<0.25 0.5 0.5 <0.75 0.9>>" (mask "t(16,32)" . ply 2))
...@@ -36,7 +42,7 @@ d3 ...@@ -36,7 +42,7 @@ d3
$ slice 4 "0 1 2 <3!4 2!4 3 3 [2 3] 3*4>" $ slice 4 "0 1 2 <3!4 2!4 3 3 [2 3] 3*4>"
$ whenmod 4 2 (off "q" id) $ whenmod 4 2 (off "q" id)
$ "break:10" # gain 0.5 # cut 3 -- Runner $ "break:10" # gain 0.5 # cut 3 -- Runner
d4 -- Piano Nappes/Arps d4 $ g-- Piano Nappes/Arps
$ intro $ intro
$ fromVelo $ fromVelo
$ whenOutro (degradeBy ("0 1!7" * (slow lOutro $ range 0.1 0.9 saw))) $ whenOutro (degradeBy ("0 1!7" * (slow lOutro $ range 0.1 0.9 saw)))
...@@ -52,54 +58,122 @@ d4 -- Piano Nappes/Arps ...@@ -52,54 +58,122 @@ d4 -- Piano Nappes/Arps
. fromSophie . fromSophie
. sometimesBy (slow 4 "<0 0.25 0.5 0.75>") (ply "1 <1 2 4 8>") . sometimesBy (slow 4 "<0 0.25 0.5 0.75>") (ply "1 <1 2 4 8>")
. struct ("t . t(<3!3 <5 [3 5]>>,8)") . struct ("t . t(<3!3 <5 [3 5]>>,8)")
. arp "<up!3 down>" -- . arp "<up!3 down>"
. (|+ note 12) . (|+ note 12)
. (|* amp 0.8) . (|* amp 0.8)
. (|+ pan 0.3) . (|+ pan 0.3)
) )
$ note "<b'min7 <a'maj7 d'maj7>>" $ note prog
# "<FMRhodes1!8 FMRhodes2!8>" # "<FMRhodes1!8 FMRhodes2!8>"
# octave 4 # octave 4
# pan 0.4 # pan 0.4
# amp 0.35 # amp 0.35
# gain (0.54 - (slow 68 $ range 0 0.14 sine)) -- synced bass # gain (0.54 - (slow 68 $ range 0 0.14 sine)) -- synced bass
d5 -- RESONANT BASSLINE from Angel frappe d5 $ g -- RESONANT BASSLINE from Angel frappe
$ fromSophie $ fromSophie
$ someCyclesBy "<1!67 0!99>" (mask "[t ~]*4") $ someCyclesBy "<1!67 0!99>" (mask "[t ~]*4")
$ whenRouge (# crush 8.5)
$ whenOutro (# hpf (slow lOutro $ range 0 1000 saw)) $ whenOutro (# hpf (slow lOutro $ range 0 1000 saw))
$ whenNotRouge (mask "t f t <f t f f> . t f <t f> <f!3 t>") $ whenNotRouge (mask "t f t <f t f f> . t f <t f> <f!3 t>")
$ note "b2!6 <bs2!3 <a2 g2>> b2" $ note "b2!6 <bs2!3 <a2 g2>> b2"
# "supersaw" # "supersaw"
-- # gM' 0 1 "^81" # room 0.85 # sz 0.8
# room 0.5 # sz 0.8
# hpf (slow 16 $ range 400 0 cosine) # hpf (slow 16 $ range 400 0 cosine)
# pan (slow 16 $ range 0.2 0.3 cosine) # pan (slow 16 $ range 0.2 0.3 cosine)
# gain (slow 68 $ range 0.25 0.34 saw) -- synced piano # gain (slow 68 $ range 0.25 0.34 saw) -- synced piano
d10 -- Metronome timings d10 $ g -- Events timings
$ (|* gain 0.5) $ fix (sometimes (ply 2) . (# n 1) . (# hpf 4500)) ("clap")
$ every' 166 110 ((<| "a*2") . (# note "b'maj'2") . (# gain 0.8)) -- $ whenmod 166 75 (mask "t(8,16)" . off "h" id)
$ every' 166 90 ((<| "a*2") . (# note "c'maj'2") . (# gain 0.8)) -- $ every' 166 85 ((<| "a*8") . (# note "d3'maj'2'8") . (# gain gPluck)) -- FIN
$ every' 166 85 ((<| "a*8") . (# note "d'maj'2") . (# gain 0.8)) -- FIN $ every' 166 83 ((>| "clap([4 [8 12] . 10 [4 0 . [16 8]]],16)") . (# gain gPluck)) -- ...Julien! :clap:
$ every' 166 80 ((<| "a*4") . (# note "e'maj'2") . (# gain 0.8)) -- $ every' 166 82 ((>| "clap*[8 . 16 4]") . (# gain gPluck)) -- ...and :clap:
$ every' 166 72 ((<| "a*2") . (# note "d'maj'2") . (# gain 0.8)) -- Generique? $ every' 166 81 ((>| "clap(5,8,0)") . (# gain gPluck)) -- Leopold :clap:
$ every' 166 68 ((<| "a*2") . (# note "d'maj'2") . (# gain 0.8)) -- Amis $ every' 166 80 ((>| "clap(3,8,0)") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 60 ((<| "a*2") . (# note "c'maj'2") . (# gain 0.8)) -- Impuissants? $ every' 166 79 ((>| "clap(3,4,0)") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 50 ((<| "a*2") . (# note "a'maj'2") . (# gain 0.8)) -- Homme femme nombril $ every' 166 78 ((>| "clap(4,4,0)") . (# gain gPluck)) -- Sophie :clap:
$ every' 166 35 ((>| note "f(5,8)") . (# gain 0.8)) -- Moon, bientot rouge $ every' 166 77 ((>| "clap(3,4,0)") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain 0.8)) -- Hercule $ every' 166 76 ((>| "clap(2,4,0)") . (# gain gPluck)) -- Cyril :clap:
$ every' 166 30 ((>| note "f(5,8)") . (# gain 0.8)) -- Anarchie $ every' 166 75 ((>| "clap(1,4,0)") . (# gain gPluck)) -- ...avec... :clap:
$ every' 166 15 ((# note "g") . (# gain 0.8)) -- Piece? $ every' 166 74 ((>| "clap(4,4,0)") . (# gain gPluck)) -- SEPTEMBRE ROSE :clap:
$ every' 166 11 ((>| note "f(5,8)") . (# gain 0.8)) -- 1 Fin couple, 2-5 Sophie $ every' 166 73 ((>| "clap") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 9 ((# note "d") . (# gain 0.8)) -- Vetement $ every' 166 72 ((>| "clap") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 7 ((>| note "~ e ~ e*4") . (# gain 0.8)) -- Mains $ every' 166 71 ((<| "e*4") . (# note "d'maj'2") . (# gain gPluck)) -- Generique?
$ every' 166 6 ((>| note "~ ~ ~ d") . (# gain 0.8)) -- Velo $ every' 166 70 ((<| "d*2") . (# note "d'maj'2") . (# gain gPluck)) -- Generique?
$ every' 166 5 ((>| note "c*4") . (# gain 0.8)) -- Oreille $ every' 166 68 (const -- Tinks résolution
$ every' 166 3 ((>| note "b(3,8)") . (# gain 0.8)) -- Main $ off 1 (degradeBy "0 0.5!7" . rev)
$ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain "0.8!3 1.1")) -- CLAP $ struct "t([16 [12 4]],16)"
$ note "a" # "arpy" # gain 0 $ note (arp "down" "<b'min7 <a'maj7 d'maj7>>")
# pan (range 0.1 0.9 saw)
# "tink" # gain 0.8
# room "0 0.2 0.4 0.5"
) -- Amis
$ every' 166 60 ((>| note (struct "t(2,8) t(3,8)" $ arp "down" "d'maj7'4")) . (# gain gPluck)) -- Impuissants?
$ every' 166 50 ((<| "a*4") . (# note (arpeggiate "a4'min7'4")) . (# gain gPluck)) -- Homme femme nombril
$ every' 166 35 (const -- Tinks glitchés
$ struct "t([12 32],16)"
$ note (arp "up" "a'maj7")
# "tink" # gain 0.8
# pan (range 0.9 0.1 saw)
# room "0 0.4"
) -- Moon, bientot rouge
$ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain gPluck)) -- Hercule
$ every' 166 30 (const $ "igor:4" # lpf 2000 # gain 0.45) -- Anarchie
$ every' 166 15 (const -- Tinks retour
$ off 1 (degradeBy "0 0.5!7" . rev)
$ struct "t(12,16)"
$ note (arp "down" "<b'min7 <a'maj7 d'maj7>>")
# "tink" # gain 0.8
# pan (range 0.1 0.9 saw)
) -- Piece
$ every' 166 11 ((>| note "b(5,8)") . (# gain gPluck)) -- 1 Fin couple, 2-5 Sophie
$ every' 166 9 (const -- Tinks aller
$ off 1 (degradeBy "0 0.5!7" . rev)
$ struct "t([6 12],16)"
$ note (arp "up" "<b'min7 <a'maj7 d'maj7>>")
# "tink" # gain 0.9
# pan (range 0.9 0.1 saw)
) -- Vetement
$ every' 166 7 ((>| note "~ e ~ [b d ~ e]") . (# note (arp "down" "d'maj7")) . (# gain gPluck)) -- Mains
$ every' 166 6 ((>| note "~ ~ ~ d") . (# gain gPluck)) -- Velo
$ every' 166 5 (struct "t([5 10],16)" . (>| note (arp "updown" "b'min7'4")) . (# gain gPluck)) -- Oreille
$ every' 166 3 ((>| note "[b d](2,8,3)") . (# gain gPluck)) -- Main
$ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain "0.5!3 0.6")) -- CLAP
$ note "a" # "cpluck:4" # gain 0
# pan 0.4
d7 $ g -- Side high cello
$ whenRouge (someCyclesBy 0.8 (off "0.625" (|+ pan 0.18)))
$ someCyclesBy 0.2 (degrade)
$ whenmod 8 4 (superimpose (
(|+| note "0 <~!2 12!2> <~ 0!3> . 7")
. (ply 2)
))
$ whenNotRouge (swing "2")
$ note (arp "<up!4 converge!2 diverge!2>" "<b'min7 <a'maj7 d6'maj7>>")
# "cpluck:4"
# gain (slow 100 $ range 0.1 0.34 cosine)
# pan 0.8
# room 0.4
# hpf (slow 100 $ range 0 9000 cosine)
# legato (0.7 - (slow 4 $ perlin/8))
once $ "clap([4 [8 12] . 10 [4 0 . [16 8]]],16)"
# gain 0.6
) . (# gain gPluck)) -- Julien :clap:
once $ "cpluck:4" # gain 0.5
once $ "super808*" # gain 0.7 once $ "super808*" # gain 0.7
once $ "igor:0" # cut 21 # gain 0.5
once
$ off 1 (degradeBy "0 0.5!7" . rev)
$ struct "t(12,16)"
$ note (arp "up" "<b'min7 <a'maj7 d'maj7>>")
# "tink"
once $ "igor:4" # cut 21 # gain 0.5 once $ "igor:4" # cut 21 # gain 0.5
once once
......
live/dub/fdlm2021.tidal 0 → 100644
setcps (90/60/4)
-- Hello Twitch :)
-- Nous sommes le 21 Juin 2021
-- C'est la Fête de la Musique
-- Nous sommes en live :)
-- Ce soir, je découvre les samples avec vous
-- Il s'agit du pack Modern Roots Reggae : https://freesound.org/people/zuluonedrop/packs/17834/?page=4#sound
-- Détails en description après le live ;)
-- Petits réglages sonores...
-- On commence
-- Je connecte maintenant le code qui produit les sons
-- À un controleur qui va permettre d'envoyer des paramètres
-- Permettant ainsi de controller le code en live :)
do
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
d1 $ g
$ midiOn "^42" (fast 2)
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[jazz,rootsDrums:0]"
# midiG' "^78" 0 1.1
d2 $ g
$ midiOn ("^43"+"^75") (superimpose (slice 8 ("0*4 1 1*4 3 4 5 6*2 7")
. (loopAt 1)
. (>| "breaks165")
. (|* gain 0.7)
))
$ fast "<1 [4!3 8]>" "~ s"
# "snare:20"
# note (range "-8" 8 "^51")
# midiG' "^79" 0 0.9
# room 0.3
# dry 0.98
# sz 0.5
d10 $ g -- Drumroll bonus <3
$ whenmod 32 16 (degradeBy 0.25)
$ midiOn "^42" (fast 2)
$ midiOn "^44" (slow 2)
$ fast (2 * "<8 8 4 8> 8 . 16 [8 32]")
$ "dr"
# midiG' "^79" 0 1.1
d3 -- Running Hats
$ g
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ sometimesBy "0 . 0!3 0.95" (ply "<2 [2|4]>")
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 1.2
# pan 0.6
# cut 3
d4 -- Bassline
$ g
$ "rootsBass:3"
# crushbus 41 (range 16 1.5 "^53")
# midiG' "^81" 0 0.8
# pan 0.3
d5 $ g -- Guitar
$ slice 4 "0 3 0*<1!4 2 2 1 2> 2*<1!3 4>"
$ "rootsGuitar:3"
# cut 5 # gain 0.9
# midiG' "^82" 0 1
# hpf (slow 16 $ range 0 2000 sine)
d7 $ g-- Trompettes en retard
$ fast "4 8"
$ slice 4 "<0 1 2 3>"
$ "rootsTrump:8" -- ritournelle
# cut 7
# midiG' "^56" 0 0.6
# pan 0.6
# cut 3
d8 $ g -- Trombone Pensif
$ fast ("<4 [4 <2!3 8>]>" * "<0.25!8 1!8 2!8 2!8>")
$ slice 4 "<1? 1 0 1?>"
$ "rootsTromb:1"
# cut 4
# midiG' "^55" 0 0.65
# room 0.3
# crushbus 41 (range 16 1.25 "^35")
# cut 8
# pan 0.8
d6 $ g -- Piano contretemps reggae!
$ superimpose (
(# cut 61)
. mask "t(16,32)"
. (|+ note 12)
)
$ midiOn "^91" (slow 4 . mask "t(8,16)") -- 59: Slow and delayed
$ midiOn "^91" ((# delay 0.25) . (# delayfb "<0.5!3 0.8>") . (|* gain 0.9))
$ n ("~ 1 ~ <1 <[~ 1] 1?>> ~ <0!3 [0 1]> ~ 0*<1!6 2 <4 [4 8]>>"
+ "<0!3 [-1 1]>"
)
# "rootsPiano" -- Let's reboot this line
# gain 0.5
# cut 6
# room 0.6
# sz 0.5
# midiG' "^83" 0 1
d9 $ g -- Mix Drums :)
$ juxBy 0.25 rev -- For all the Tidalers out there :P
$ midiOn "^60" (fast 2)
$ midiOn "^92" (fast 2)
$ slice 8 "0 1 2 3 <4 0> <5 1>*2 6 7*<1 <2 4>>"
$ "rootsMix/2"
# cut 9
# pan ((slow 4 sine) + (perlin/8)) -- Random locations :)
# midiG' "^84" 0 0.8
d11 $ g -- Final saxes
$ slow "<4!4 2!2 1 <1 2>>"
$ n "<9 10> . <~!8 10!8>" # "rootsSaxes"
# cut 8
# crushbus 110 (range 16 4 "^19")
# midiG' "^20" 0 0.8
-- C'est fini pour ce live-coding from scratch :)
-- Je vous propose une dernière pour la route :
-- Un précédent livecoding de Dub qui n'a encore jamais été diffusé ;)#
-- Computer Riddim :
d6
$ degradeBy "0 0.4!7 . 0.8!3 0.1"
$ often rev
$ slice 8 (run 8)
$ slow 2
$ "rootsMix"
# n "<1 2>"
# cut 6
# gain 0.2
onc
-- region Study
-- rootsBass (4)
-- rootsDrums (12)
-- rootsGuitar (8)
-- rootsMix (6)
-- rootsPiano (4)
-- rootsSaxes (11)
-- rootsTromb (10)
-- rootsTrump (9)
o
d1
$ slow 2
$ "rootsMix"
# n "<0 1 2 3 4 5>"
# cut 1
# gain 0.6
once $ "rootsTrump:8" -- ritournelle
# cut 4 # gain 0.6
-- 0 Long low end riff -- INTRO
-- 1 Short low
-- 2 Short *2 high echo cocotte tension
-- 6 Short *2 high echo cocotte resolution
-- 7 Long 2/6/2/6/2/6/2/6
-- 3 Short low riff
-- 4 Short low
-- 5 Long low -- INTRO
once $ "rootsGuitar:8"
# cut 4 # gain 0.6
-- 1 Short aigu tendu
-- 2 Short aigu conclu
-- 3 Long 1-2-1-2-1-2-1-2 aigu
-- 0 Long 1-2-1-2-1-2-1-2 mid
once $ "rootsPiano:0"
# cut 2
# gain 0.6
once $ "rootsTromb:8"
# cut 4 # gain 0.46
once $ "rootsSaxes:<9 10>"
# cut 4 # gain 0.6
-- BASS
once $ "rootsBass:3"
# cut 3
-- Reorder mixes?
live/hip/lofi/back_baby.tidal
...@@ -12,7 +12,7 @@ d1 ...@@ -12,7 +12,7 @@ d1
$ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)" $ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)"
# "hh27:5" # "hh27:5"
# cut 1 # cut 1
# gain 1.1 # gain 1.5
d2 d2
$ g $ g
$ mask "<f!16 t!16>" $ mask "<f!16 t!16>"
...@@ -21,13 +21,13 @@ d2 ...@@ -21,13 +21,13 @@ d2
# "hh27:2" # "hh27:2"
# release 0.57 # release 0.57
# note "-5" # note "-5"
# gain 1.2 # gain 1.8
d3 $ g d3 $ g
$ sometimesBy "0 <1!3 0.5> 0 <0!3 0.5>" (ply "[8|8 16|16]") $ sometimesBy "0 <1!3 0.5> 0 <0!3 0.5>" (ply "[8|8 16|16]")
$ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>" $ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>"
# "[hh27:3,drum:2]" # "[hh27:3,drum:2]"
# release 0.8 # release 0.8
# gain 0.85 # gain 1.25
d10 d10
$ g $ g
$ note ( $ note (
......
live/midi/jazz_tech_piano.tidal
...@@ -17,7 +17,7 @@ do ...@@ -17,7 +17,7 @@ do
# (velocity (range 0.4 0.7 "^1")) # (velocity (range 0.4 0.7 "^1"))
# (crush (range 32 5 "^1")) # (crush (range 32 5 "^1"))
) )
$ s "superpiano" $ s "superpiano"a
# note "<-20 [-19,-15] [-20,-16] ~>" # note "<-20 [-19,-15] [-20,-16] ~>"
# velocity "<0.7 0.5 0.6>" # velocity "<0.7 0.5 0.6>"
# sustain 3 # sustain 3
......
live/midi/nova/breaks/StolenChoir.tidal
...@@ -55,6 +55,11 @@ d5 $ g ...@@ -55,6 +55,11 @@ d5 $ g
# crush (range 16 4 "^34") # crush (range 16 4 "^34")
# chorus (range 0 4 "^54") -- 0.7 # chorus (range 0 4 "^54") -- 0.7
-- TODO REWORK ARABIC LOOP -- TODO REWORK ARABIC LOOP
do do
-- resetCycles -- resetCycles
......
live/midi/nova/breaks/break_90s.tidal
...@@ -89,7 +89,7 @@ d5 $ g -- Piano base ...@@ -89,7 +89,7 @@ d5 $ g -- Piano base
# room 0.6 # sz 0.8 # room 0.6 # sz 0.8
# pan 0.65 # pan 0.65
# orbit 5 # orbit 5
# midiG' "^82" 0.3 1.5 # midiG' "^82" 0.3 1.7
d4 -- Skank organ d4 -- Skank organ
$ g $ g
-- $ superimpose (const $ g -- $ superimpose (const $ g
......
live/midi/nova/breaks/break_low.tidal
import Sound.Tidal.ParVagues.Control import Sound.Tidal.ParVagues.Control
setcps (60/60/4)
do do
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let g = (midiDJF "^49" 150 9850 0 1000) let g = (midiDJF "^49" 150 9850 0 1000)
setcps (60/60/4)
d1 -- Snare d1 -- Snare
$ g $ g
$ midiOn "^41" (fast 2) $ midiOn "^41" (fast 2)
...@@ -53,7 +53,7 @@ d5 -- Bassline ...@@ -53,7 +53,7 @@ d5 -- Bassline
# crush (range 10 5 "^53") # crush (range 10 5 "^53")
# room 0.5 # room 0.5
# sz 0.4 # sz 0.4
-- # pan 0.2 -- # pan 0.21
# midiG' "^81" 0 1.2 # midiG' "^81" 0 1.2
d6 $ g d6 $ g
$ off "e s" (|+ note 7) $ off "e s" (|+ note 7)
......
live/midi/nova/computer_riddim.tidal
...@@ -5,6 +5,17 @@ ...@@ -5,6 +5,17 @@
-- TODO: Chap 22 - From reggae to dub -- TODO: Chap 22 - From reggae to dub
-- C'était ParVagues :)
-- Vous pouvez retrouver plus de son/plus de code sur soundcloud.com/ParVagues
-- Prochains lives éventuels sur Twitch
-- Quelques sons sur Spotify/Deezer/Youtube/etc ;)
-- Bonne fête de la Musique à tous !
do do
-- region Nova Utils -- region Nova Utils
let gFactor = 2 let gFactor = 2
...@@ -17,13 +28,15 @@ let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -17,13 +28,15 @@ let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
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 gDelayD = (# delay (range 0 5 "^13")) -- let gDelayD = (# delay (range 0 5 "^13"))
let gDelayFB = (# delayfb (range 0 0.9 "^14")) -- let gDelayFB = (# delayfb (range 0 0.9 "^14"))
let gRoom = ((|+ room (range 0 0.5 "^29")) . (# dry 0.99)) let gRoom = ((|+ room (range 0 0.5 "^29")) . (# dry 0.99))
let gSize = (|+ size (min 0 (range "-0.5" 0.5 "^29"))) let gSize = (|+ size (min 0 (range "-0.5" 0.5 "^29")))
let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2)) -- let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2))
let g = (gDJF . gRoom) let g = (gDJF . gRoom)
let chords = "<[a5,c5,e5] [e4,g4,b4]>" let chords = "<[a5,c5,e5] [e4,g4,b4]>"
let gDelay = id
let gDelayD = id
setcps (140/60/4) -- keep it between 110-190 BPM. You won't be sorry you did. setcps (140/60/4) -- keep it between 110-190 BPM. You won't be sorry you did.
-- resetCycles -- resetCycles
d1 d1
...@@ -38,7 +51,7 @@ d1 ...@@ -38,7 +51,7 @@ d1
$ novaOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub $ novaOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,tech:5]" $ "[jazz,tech:5]"
# room 0.05 # room 0.05
# gM' 0 1.05 "^78" # midiG' "^78" 0 1.05
d2 d2
$ g -- Snare $ g -- Snare
$ (|- lpf 1000) $ (|- lpf 1000)
...@@ -55,24 +68,25 @@ d3 $ g -- Hats ...@@ -55,24 +68,25 @@ d3 $ g -- Hats
) )
$ novaOn ("^44") (degradeBy (slow 4 $ range 0.9 0 saw) . (<|"h*16")) -- TODO Eclaircir $ novaOn ("^44") (degradeBy (slow 4 $ range 0.9 0 saw) . (<|"h*16")) -- TODO Eclaircir
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]") $ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the jjjjjjjjjjjjjjj Hi Hat hit $ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the Hi Hat hit
$ s "gretsch:4" $ s "gretsch:4"
-- # pan "^52" -- # pan "^52"
# cut 3 # cut 3
# orbit 1 # orbit 1
# pan 0.2
# gM' 0.2 1.25 "^80" # gM' 0.2 1.25 "^80"
d4 $ g -- Bassline d4 $ g -- Bassline
$ novaOn "^57" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif $ novaOn "^57" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ novaOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements $ novaOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ note "0" # "bass1:3" $ note "0" # "bass1:3"
# cut 4 # cut 4
# pan 0.6 # pan 0.7
# attack (range 0 1 "^53") -- # attack (range 0 1 "^53")
# crush (range 16 4 "^53")
# lpq (range 0 0.33 "^33") # lpq (range 0 0.33 "^33")
# release 0.95 # release 0.95
# orbit 1 # orbit 1
# gM' 0.25 1.5 "^81" # crushbus 41 (range 16 3.5 "^53")
# midiG' "^81" 0.25 1
d5 $ g $ gDelay -- Skank Piano d5 $ g $ gDelay -- Skank Piano
$ whenmod 4 3 (sometimesBy "0 1 . 0" ( $ whenmod 4 3 (sometimesBy "0 1 . 0" (
(# note "[d5,g4,b4]") . (|* gain 0.8) (# note "[d5,g4,b4]") . (|* gain 0.8)
...@@ -87,7 +101,7 @@ d5 $ g $ gDelay -- Skank Piano ...@@ -87,7 +101,7 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8 # release 0.8
# room 0.13 # sz 0.4 # room 0.13 # sz 0.4
# pan 0.4 # pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54")) # midiG' ("^82" * (range 0.25 1.5 "^54")) 0 1
d6 $ g $ gDelay-- Skank Hammond d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>) $ ("0.125" ~>)
$ fast 2 $ fast 2
...@@ -107,22 +121,22 @@ d7 ...@@ -107,22 +121,22 @@ d7
d8 -- Trompette lancinante d8 -- Trompette lancinante
$ g $ gDelayD $ g $ gDelayD
$ degradeBy "^35" $ degradeBy "^35"
$ novaOn "^59" (mask "<f!3 t>") $ midiOn "^59" (mask "<f!3 t>")
$ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95)) $ 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) - 12)
# "brass" # n "2" # "brass" # n "2"
# gM' 0.2 1 "^55" # gM' 0.2 1 "^83"
# attack 0.5 # attack 0.5
# cut 8 # cut 8
d9 -- CP d9 -- CP
$ sometimesBy "^59" (fast 2) $ midiOn "^60" (fast 2)
$ (# lpf 2000) $ (# lpf 2000)
$ g $ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8))) $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2 $ fast 2
$ "~ cp" $ "~ cp"
# gM' 0 1.1 "^83" -- # gM' 0 1.1 "^84"
# room 0.2 # room 0.2
# dry 0.9 # dry 0.9
# lpf 2000 # lpf 2000
......
live/midi/nova/dnb/lucy_rode.tidal
...@@ -45,6 +45,7 @@ do ...@@ -45,6 +45,7 @@ do
$ "drum:2" $ "drum:2"
# midiG' "^80" 0 1.8 # midiG' "^80" 0 1.8
d4 $ g -- Bassline pompée d4 $ g -- Bassline pompée
$ midiOn "^89" (chop 2)
$ midiOn "^57" (ply 2) $ midiOn "^57" (ply 2)
$ note (scale "aeolian" ( $ note (scale "aeolian" (
"0*8" "0*8"
...@@ -53,10 +54,10 @@ do ...@@ -53,10 +54,10 @@ do
+ "<0!6 7!2>" + "<0!6 7!2>"
)) ))
# "bassWarsaw" # "bassWarsaw"
# crush (range 10 2 "^53") # crushbus 41 (range 10 2 "^53")
# room 0.4 # room 0.4
# pan 0.2 # pan 0.2
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.8
d6 $ g --Rhodes arps d6 $ g --Rhodes arps
$ juxBy 0.8 ( $ juxBy 0.8 (
(# modIndex 15) (# modIndex 15)
...@@ -92,7 +93,9 @@ do ...@@ -92,7 +93,9 @@ do
# pan 0.74 # pan 0.74
# sustain (range 0.125 0.5 "^55") # sustain (range 0.125 0.5 "^55")
# midiG' "^83" 0 1 # midiG' "^83" 0 1
d10 $ "~ clap" # midiG' "^84" 0 1.2 d10 $ g $ "~ clap"
# midiG' "^84" 0 1.8
# note "-4"
d2 d2
......
live/midi/nova/dnb/meurice.tidal
...@@ -83,7 +83,7 @@ d7 -- Guitar B ...@@ -83,7 +83,7 @@ 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é d8 $ g -- Clave de l'été pitchable
$ midiOn "^59" (fast 2) $ midiOn "^59" (fast 2)
$ midiOn ("^91"-"^59") (fast 2) $ midiOn ("^91"-"^59") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1") $ (|* gain "0.75 1 1 1 0.75 1 1 1")
......
live/midi/nova/dnb/noname.tidal 0 → 100644
import Sound.Tidal.ParVagues.Control
-- This is a test ;)
--
do
setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gFreqL = (# lpq (range 0 0.5 "^29"))
let gFreqH = (# hpq (range 0 0.5 "^30"))
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
let g = (gDJF . gFreqL . gFreqH)
d1
$ g
$ superimpose ( -- Undertone
(|+ note "<12!3 8 12!2 8 4>")
. (|* gain 0.9)
)
$ (|* gain "1!7 0.95")
$ midiOn "^41" (<| "k k k <k!3 k*2>")
$ midiOff "^41" (<| "b . ~ b ~ <~!3 b>")
$ "kick:5"
# midiG' "^78" 0 1.4
d2 -- Snare tchak!
$ g
$ g32Bridge
$ whenmod 16 12 (struct "t*<4 4 8 16>")
$ whenmod 16 4 (fast 2)
$ "~ cp"
# "[snare:40,snare:22]"
# pan 0.55
# note (range "-7" 7 "^51")
# room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2
d3 -- Running Hats
$ g
$ midiOn "^76" --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125")
. (|* gain 0.9)
)
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
# room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw)
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6
# cut 3
d4 -- Resolute Bass
$ g
$ midiOn "^57" ( -- Glitch vary end
rev
)
$ slice 4 ("0 <~ 3> 0 1*<1 2 4 8>")
$ loopAt 4
$ chop 16
$ "fbass:43"
# pan 0.15
# room 0.25 # sz 0.1
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.6
# cut 4
d6 -- Opiniatre guitare
$ g
-- $ someCyclesBy "<t!16 f!16>" (segment "<8 <4 2>>")
$ midiOn "^90" (slice 2 (run "<4 <2 8>>"))
$ "fguitar:40/2"
# crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 1.2
# cut 6
d7
$ superimpose (
(# cut 71)
. arp "up"
. (|+| note ("[c, ef, f, c6]" + 12))
)
$ note ("<<c!2 ef!2> c <ef f> <c!7 b>>")
# "moog"
# midiG' "^83" 0 1.5
# cut 7
d9 $ g -- CLAPS!
$ midiOff "^60" (mask "<f!8 t!124>")
$ midiOn "^92" (fast 4)
$ "~ clap:2"
# midiG' "^84" 0 1.5
once $ "forgan:24"
# gain 1
# cut 3
once $ "fguitar:59" -- sometimes 43
# gain 1.2
# cut 5
d6 $ "seawolf:0/4"
# cut 6
# gain 0.75
once $ "dr" # gain 1
live/midi/nova/fusion/elephunk.tidal
import Sound.Tidal.ParVagues.Control import Sound.Tidal.ParVagues.Control
do
resetCycles resetCycles
setcps (92/60/4)
do
setcps (60/60/4)
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 = (# djfbus 1 (range 0.5 0.15 "^49"))
let gPont = whenmod 64 32 (mask "<f!6 t!26>") let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g = gDJF let g = gDJF
d1 $ g $ gPont d1 $ g $ gPont
$ mask "<f!4 t!60>" $ mask "<f!4 t!60>"
$ "[bd,jazz]*4" # room 0.1 $ midiOn "^41" (fast 2)
d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>" $ "[bd,jazz]*4"
$ "~ c ~ c" # "[clap]" # gain 0.4 # midiG' "^78" 0 1.2
d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]"
# midiG "^79"
d3 $ g $ gPont d3 $ g $ gPont
-- $ mask "<f!8 t!24>" -- $ mask "<f!8 t!24>"
$ ( $ (
...@@ -19,46 +23,48 @@ d3 $ g $ gPont ...@@ -19,46 +23,48 @@ d3 $ g $ gPont
. sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4")) . sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4"))
$ "gretsch:4*16" $ "gretsch:4*16"
# pan 0.25 # pan 0.25
# gain (0.35 + 0.1 * (segment 8 perlin)) # midiG' "^80" 0 1.5
d4 $ g d4 $ g
$ mask "<f!4 t!28>" $ mask "<f!4 t!28>"
$ note patFunk $ note patFunk
# "bass3" # "bass3"
# pan 0.2 # pan 0.2
# gain 0.5 # crush (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
d5 $ g d5 $ g
$ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2)) $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
$ ("q" ~>)
$ note patFunk $ note patFunk
# "pluck" # "pluck"
# room 0.6 # room 0.6
# sz 0.8 # sz 0.8
# gain 0.35 # crush (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
d6 $ g -- Final guitare rita d6 $ g -- Final guitare rita
$ whenmod 64 48 (# gain 0.25)
$ slice 16 "0 . 1 <~ 1 2>" $ slice 16 "0 . 1 <~ 1 2>"
$ loopAt 6 $ loopAt 6
$ "rita:0" $ "rita:0"
# gain 0 # gain 0
# cut 6 # cut 6
# hpf 400 # hpf 400
d7 -- Bonus breaks d7 $ g -- Bonus breaks
$ mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>" $ midiOff "^76" (mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>")
$ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>" $ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
$ "breaks165" $ "breaks165"
# pan 0.75 # pan 0.75
# cut 7 # cut 7
# gain (slow 8 $ range 0.35 0.45 saw) # midiG' "^80" 0 1.2
# room 0.2 # room 0.2
# hpf 100 # hpf 100
d8 $ g -- Organic madness d8 $ g -- Organic madness
$ mask "<f!7 t f!4 t f!19 t!3 f t!28>" $ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
-- $ sometimesBy (slow 4 saw) (ply 2) $ midiOn "^59" (sometimesBy (slow 4 saw) (ply 2))
$ chop 4 $ chop 4
$ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw)) $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
-- $ mask "<f!32 t!32>" -- $ mask "<f!32 t!32>"
$ "forgan:14" $ "forgan:14"
# lpf 1000 # lpf 1000
# gain 0.3 * "<1!7 0.95 0.9!7 0.85>" # midiG' "^83" 0 1.2
# cut 8 # cut 8
d10 -- F-U-N-K d10 -- F-U-N-K
$ mask "<f!8 t!24>" $ mask "<f!8 t!24>"
...@@ -68,5 +74,5 @@ d10 -- F-U-N-K ...@@ -68,5 +74,5 @@ d10 -- F-U-N-K
$ n "5 20 13 10" $ n "5 20 13 10"
# "alphabet" # "alphabet"
# release 0.8 # release 0.8
# gain (slow 32 $ range 0.2 0.34 cosine) # midiG' "^84" 0 1.3
# pan "<0.1!4 0.9!4>" # pan "<0.1!4 0.9!4>"
live/midi/nova/lofi/dark_money.tidal
...@@ -9,16 +9,18 @@ let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat ...@@ -9,16 +9,18 @@ let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat
let whenBrk pat = whenmod 16 10 pat let whenBrk pat = whenmod 16 10 pat
let whenNotBrk pat = someCyclesBy "<t!10 f!6>" pat let whenNotBrk pat = someCyclesBy "<t!10 f!6>" pat
let whenBrkLPF = whenBrk (# lpf "<400 200 100 50 0 0>") let whenBrkLPF = whenBrk (# lpf "<400 200 100 50 0 0>")
let gDJF = midiDJF "^49" 200 9800 0 1000 let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (gDJF) let g = (gDJF)
d1 $ g -- Kick d1 $ g -- Kick
$ whenBrkLPF -- $ whenBrkLPF
$ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>") $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
$ "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" # "jazz" $ midiOn "^41" (<| "k*2 k*2 k*2 k*<2 4>")
# lpf 1000 $ midiOff "^41" (<| "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" )
# room 0.2 # att 0.5 $ midiOn "^41" (superimpose (# "kick:5"))
$ midiOff "^41" (superimpose (# "reverbkick"))
$ "[reverbkick,jazz]"
# legato 2 # cut 1 # legato 2 # cut 1
# midiG' "^78" 0 1.8 # midiG' "^78" 0 1.2
d2 $ g -- Contretemps snare d2 $ g -- Contretemps snare
$ whenBrkLPF $ whenBrkLPF
$ whenmod 16 8 (fast 2) $ whenmod 16 8 (fast 2)
...@@ -28,20 +30,20 @@ d2 $ g -- Contretemps snare ...@@ -28,20 +30,20 @@ d2 $ g -- Contretemps snare
# "snare:20" # "snare:20"
# midiG "^79" # midiG "^79"
d3 $ g -- Drumroll fantôme d3 $ g -- Drumroll fantôme
$ midiOn "^76" (fast "<2!3 4>")
$ whenBrk (slow "<2 2 4 4 8 8 16 16>") $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
$ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>") $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
$ "drum:2" $ "drum:2"
# room 0.6 # sz 0.9 # dry 1.01 # room 0.6 # sz 0.9 # dry 1.01
# midiG' "^80" 0 1.4 # midiG' "^80" 0 1.8
d5 $ g -- Bassline {hypno,aqua}tique d5 $ g -- Bassline {hypno,aqua}tique
$ swing 2 $ swing 2
$ whenNotBrk (off "<e q> . <q h>" (|+ note 7)) $ whenNotBrk (off "<e q> . <q h>" (|+ note 7))
$ struct "t*<[1 0] 2 4 [12 . 8]>" $ struct "t*<[1 0] 2 4 [12 . 8]>"
$ (|/ crush (range 0 2 "^53")) -- Manual crush enabler
$ (# crush (slow 8 $ range 10 7 saw))
$ note ("fs a" - 24) $ note ("fs a" - 24)
# "bassWarsaw" # "bassWarsaw"
# midiG' "^81" 0 1 # crushbus 51 (range 10 5.2 "^53")
# midiG' "^81" 0 1.3
d4 $ g -- Toy bogdan d4 $ g -- Toy bogdan
$ 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))
......
live/midi/nova/lofi/new_dust.tidal
...@@ -88,7 +88,7 @@ d5 $ g -- Infectious Bassline ...@@ -88,7 +88,7 @@ d5 $ g -- Infectious Bassline
# "bassWarsaw" # "bassWarsaw"
# width "^34" # width "^34"
# crush (range 16 2.5 "^54") # crush (range 16 2.5 "^54")
# midiG' "^82" 0 1 # midiG' "^82" 0 1.3
# room 0.2 # room 0.2
d7 -- TOYS d7 -- TOYS
$ degradeBy (0.99 - "^55") $ degradeBy (0.99 - "^55")
......
live/midi/nova/lounge/invoque_ete.tidal
...@@ -25,7 +25,7 @@ d1 $ g ...@@ -25,7 +25,7 @@ d1 $ g
d2 $ g -- Clave de l'été d2 $ g -- Clave de l'été
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2) $ midiOn ("^75"-"^43") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1") $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
$ "d ~ ~ d d ~ d <~!3 d>" $ "d ~ ~ d d ~ d <~!3 d>"
# "snare:22" # gM' 0 1.4 "^79" # "snare:22" # gM' 0 1.4 "^79"
# speed (range 0.5 1.5 "^51") # speed (range 0.5 1.5 "^51")
...@@ -97,7 +97,7 @@ d9 $ g ...@@ -97,7 +97,7 @@ d9 $ g
) )
$ "hh:3" $ "hh:3"
# lpq (range 0 0.2 "^35") # lpq (range 0 0.2 "^35")
# gM' 0 1.2 "^19" # gM' 0 1.7 "^19"
do do
d1 $ "reverbkick" # gain 1.2 d1 $ "reverbkick" # gain 1.2
......
live/midi/nova/party/electro_blues.tidal
...@@ -9,12 +9,11 @@ let chord = "c'maj" ...@@ -9,12 +9,11 @@ let chord = "c'maj"
let chordAug = "c'maj'8" let chordAug = "c'maj'8"
d1 -- Kick rarement doublé d1 -- Kick rarement doublé
$ g $ g
$ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 <1 <2 [1 2]>>")) $ fast 2 -- Cause this is REPETITIVE MUSIC
$ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>") $ midiOn "^41" ((<| "k*4") . (superimpose (# "kick:5")))
$ midiOn ("^42"+"^41") (<| "k*4") $ midiOff "^41" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
$ midiOff ("^42"+"^41") (<| "k . k(<5 6 7 5>,8,<0!7 3>)") $ "super808"
$ "808bd" # n "15" # midiG' "^78" 0 1.1
# midiG' "^78" 0 1.5
d2 $ g d2 $ g
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ "~ [jazz:4,cp]" $ "~ [jazz:4,cp]"
...@@ -28,13 +27,15 @@ d3 $ g -- Snakes ...@@ -28,13 +27,15 @@ d3 $ g -- Snakes
# "hh*6" # "hh*6"
# midiG "^80" # midiG "^80"
d4 $ g d4 $ g
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 ( $ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" . -- ply "<2 4 [4 8] 8>" .
arpeggiate arp "pinkyup"
-- . (# "supermandolin") . (often (ply 2))
-- . (|* gain 0.8) -- . (|* gain 0.8)
-- . (# pan 0.6) -- . (# pan 0.6)
-- . (# crush 16) -- . (# crush 16)
. (|+ note 12)
)) ))
$ note ( $ note (
cat blues + chord cat blues + chord
...@@ -44,14 +45,15 @@ d4 $ g ...@@ -44,14 +45,15 @@ d4 $ g
# pan 0.75 # pan 0.75
# room 0.1 # room 0.1
# voice 0.8 # voice 0.8
# crushbus 41 (range 10 3 "^53")
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
d5 $ g -- Choeurs d5 $ g -- Choeurs
$ juxBy 0.5 ( $ juxBy 0.5 (
(0.5 ~>) . midiOn "^58" (superimpose ( (0.5 ~>) . midiOn "^58" (superimpose (
arpeggiate arp "<converge!8 diverge!4>"
. (|+ note chordAug) . (|+ note chordAug)
. (|+ pan 0.05) . (|+ pan 0.05)
. (|* gain 0.85) -- . (|* gain 0.85)
) )
. (|+ note 12) . (|+ note 12)
. (|* gain 0.95) . (|* gain 0.95)
......
live/midi/nova/party/last_one.tidal
...@@ -7,9 +7,6 @@ let midiOn ch pat = someCyclesBy ch pat ...@@ -7,9 +7,6 @@ let midiOn ch pat = someCyclesBy ch pat
let midiOff ch pat = someCyclesBy (1 - ch) pat let midiOff ch pat = someCyclesBy (1 - ch) pat
let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gLPQ = (# lpqbus 4 (range 0 0.5 "^13"))
let gHPQ = (# hpqbus 5 (range 0 0.5 "^14"))
let gRoom = (# roombus 6 (range 0 0.5 "^15"))
let g = gDJF let g = gDJF
setcps (110/60/4) setcps (110/60/4)
let prog = "<c6'maj7'2 <g6'maj'2 g6'maj> d6'm9 <g6'maj g6'maj'4>>" let prog = "<c6'maj7'2 <g6'maj'2 g6'maj> d6'm9 <g6'maj g6'maj'4>>"
...@@ -38,10 +35,10 @@ d4 $ g -- Bassline ...@@ -38,10 +35,10 @@ d4 $ g -- Bassline
- 36) - 36)
# "bassWarsaw" # "bassWarsaw"
# pan 0.2 # pan 0.2
# room 0.4 # room 0.2
# crushbus 40 (range 10 2.85 "^53") # crushbus 40 (range 10 2.85 "^53")
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
d5 $ g d5 $ g -- Nappes plage
$ midiOn "^58" (superimpose ( $ midiOn "^58" (superimpose (
struct "t . t(3,8)" struct "t . t(3,8)"
. arpeggiate . arpeggiate
...@@ -54,7 +51,7 @@ d5 $ g ...@@ -54,7 +51,7 @@ d5 $ g
# midiG' "^82" 0 1 # midiG' "^82" 0 1
# attack 0.8 # attack 0.8
# room 0.4 # sz 0.9 # room 0.4 # sz 0.9
d6 d6 -- Guitare nostalgique
$ midiOn "^59" (slice 4 "0 1 2 3") $ midiOn "^59" (slice 4 "0 1 2 3")
$ mask "<t!3 f>" $ mask "<t!3 f>"
$ "fguitar" # n "<34!32 35!16 34!16>" $ "fguitar" # n "<34!32 35!16 34!16>"
...@@ -88,4 +85,4 @@ d8 $ g ...@@ -88,4 +85,4 @@ d8 $ g
) )
# "cbow" # n "[9,<~!4 10!4>]" # "cbow" # n "[9,<~!4 10!4>]"
# pan "<0.3!7 0.7>" # pan "<0.3!7 0.7>"
# midiG' "^84" 0 1 # midiG' "^84" 0 1.5
live/midi/nova/punk/hello_poesie.tidal
...@@ -10,16 +10,17 @@ let g = gDJF ...@@ -10,16 +10,17 @@ let g = gDJF
d1 $ g d1 $ g
$ slowdown $ slowdown
$ midiOn "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL $ midiOn "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL
$ midiOff "^42" (<| "k . k(<3 1 3 5>,8)") -- Attente $ midiOff "^42" (<| "k . ~ k ~ ~") -- Attente
$ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition $ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition
$ "[super808,jazz]" $ "kick:5"
# midiG "^78" # midiG "^78"
# room 0.85 # dry 0.98 # sz 0.8 # room 0.85 # dry 0.98 # sz 0.8
d2 $ g d2 $ g
$ slowdown $ slowdown
$ "hh*[<16!4 8 8 16 16> . 8 16]" $ fix (someCyclesBy "<1!16 0!16>" (degradeBy "0 0.5!6 0")) ("hh")
$ "[hh*[<16!4 8 8 16 16> . 8 16],[~ snare:20]*2]"
# note "0 2 0 <2 3 2 -1>" # note "0 2 0 <2 3 2 -1>"
# midiG' 0.5 1.5 "^80" # midiG' "^80" 0 1.5
d10 d10
$ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>" $ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>"
# "snare" # "snare"
...@@ -44,7 +45,7 @@ d3 $ g -- Bassline + arps ...@@ -44,7 +45,7 @@ d3 $ g -- Bassline + arps
d4 $ g -- Synth disto baseline d4 $ g -- Synth disto baseline
$ "poesieSynth/2" $ "poesieSynth/2"
# n (slow 4 "<0 1>") # n (slow 4 "<0 1>")
# midiG' "^82" 0 0.85 # midiG' "^82" 0 0.95
# crushbus 41 (range 10 3.5 "^54") # crushbus 41 (range 10 3.5 "^54")
# cut 4 # cut 4
# pan 0.8 # pan 0.8
......
live/mood/tired/afternoon.tidal
...@@ -58,7 +58,7 @@ d7 $ g -- Hello PWM! ...@@ -58,7 +58,7 @@ d7 $ g -- Hello PWM!
# rate "<1!5 2 4 <1 4>>" # rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine) # resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53") # crushbus 71 (range 10 3 "^53")
# midiG' "^81" 0 2 # midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes d6 $ g -- Nappes Rhodes
$ note ( $ note (
prog prog
...@@ -68,7 +68,7 @@ d6 $ g -- Nappes Rhodes ...@@ -68,7 +68,7 @@ d6 $ g -- Nappes Rhodes
# pan 0.2 # pan 0.2
# modIndex (range 0 100 "^54") # modIndex (range 0 100 "^54")
# crushbus 61 (range 16 5 "^34") # crushbus 61 (range 16 5 "^34")
# midiG' "^82" 0 1.8 # midiG' "^82" 0 1.5
d9 $ g d9 $ g
$ midiOff "^60" (mask "<f!8 t!124>") $ midiOff "^60" (mask "<f!8 t!124>")
$ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]") $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
......
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