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 rhodes volume premiere note
-- TODO: better bass volume, more manual than sine?
-- TODO: filtered outro
-- 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
-- 0 68 131 143 166
......@@ -12,23 +12,29 @@ setcps 0.5 -- One pattern per two seconds
-- 0 34 65 71 86
do
-- resetCycles
let intro = mask "<f!2 t!164>"
let fromVelo = mask "<f!6 t!160>"
let fromSophie = mask "<f!11 [f t] t!154>"
let rouge = "<0!36 1!6 0!2 1!2 0!3 1!2 0!6 2!12 0!90>"
let intro = mask "<f!2 t!84>"
let fromVelo = mask "<f!6 t!80>"
let fromSophie = mask "<f!11 [f t] t!74>"
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 lOutro = 16
let whenEnd = whenmod 160 86
let whenEndRouge = whenmod 86 68
let whenRouge = someCyclesBy rouge
let whenNotRouge = someCyclesBy (1 - rouge)
let whenOutro = (someCyclesBy outro)
-- let gain amount = (gain (amount * 1.5))
d1
let gPluck = "<0.28!6 0.32!8 0.335!82>"
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
$ 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>"))
$ "jazz" # gain 0.45
# lpf 200
d3
d3 $ g
$ intro
$ 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))
......@@ -36,7 +42,7 @@ d3
$ slice 4 "0 1 2 <3!4 2!4 3 3 [2 3] 3*4>"
$ whenmod 4 2 (off "q" id)
$ "break:10" # gain 0.5 # cut 3 -- Runner
d4 -- Piano Nappes/Arps
d4 $ g-- Piano Nappes/Arps
$ intro
$ fromVelo
$ whenOutro (degradeBy ("0 1!7" * (slow lOutro $ range 0.1 0.9 saw)))
......@@ -52,54 +58,122 @@ d4 -- Piano Nappes/Arps
. fromSophie
. 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)")
. arp "<up!3 down>"
-- . arp "<up!3 down>"
. (|+ note 12)
. (|* amp 0.8)
. (|+ pan 0.3)
)
$ note "<b'min7 <a'maj7 d'maj7>>"
$ note prog
# "<FMRhodes1!8 FMRhodes2!8>"
# octave 4
# pan 0.4
# amp 0.35
# 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
$ someCyclesBy "<1!67 0!99>" (mask "[t ~]*4")
$ whenRouge (# crush 8.5)
$ whenOutro (# hpf (slow lOutro $ range 0 1000 saw))
$ whenNotRouge (mask "t f t <f t f f> . t f <t f> <f!3 t>")
$ note "b2!6 <bs2!3 <a2 g2>> b2"
# "supersaw"
-- # gM' 0 1 "^81"
# room 0.5 # sz 0.8
# room 0.85 # sz 0.8
# hpf (slow 16 $ range 400 0 cosine)
# pan (slow 16 $ range 0.2 0.3 cosine)
# gain (slow 68 $ range 0.25 0.34 saw) -- synced piano
d10 -- Metronome timings
$ (|* gain 0.5)
$ every' 166 110 ((<| "a*2") . (# note "b'maj'2") . (# gain 0.8)) --
$ every' 166 90 ((<| "a*2") . (# note "c'maj'2") . (# gain 0.8)) --
$ every' 166 85 ((<| "a*8") . (# note "d'maj'2") . (# gain 0.8)) -- FIN
$ every' 166 80 ((<| "a*4") . (# note "e'maj'2") . (# gain 0.8)) --
$ every' 166 72 ((<| "a*2") . (# note "d'maj'2") . (# gain 0.8)) -- Generique?
$ every' 166 68 ((<| "a*2") . (# note "d'maj'2") . (# gain 0.8)) -- Amis
$ every' 166 60 ((<| "a*2") . (# note "c'maj'2") . (# gain 0.8)) -- Impuissants?
$ every' 166 50 ((<| "a*2") . (# note "a'maj'2") . (# gain 0.8)) -- Homme femme nombril
$ every' 166 35 ((>| note "f(5,8)") . (# gain 0.8)) -- Moon, bientot rouge
$ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain 0.8)) -- Hercule
$ every' 166 30 ((>| note "f(5,8)") . (# gain 0.8)) -- Anarchie
$ every' 166 15 ((# note "g") . (# gain 0.8)) -- Piece?
$ every' 166 11 ((>| note "f(5,8)") . (# gain 0.8)) -- 1 Fin couple, 2-5 Sophie
$ every' 166 9 ((# note "d") . (# gain 0.8)) -- Vetement
$ every' 166 7 ((>| note "~ e ~ e*4") . (# gain 0.8)) -- Mains
$ every' 166 6 ((>| note "~ ~ ~ d") . (# gain 0.8)) -- Velo
$ every' 166 5 ((>| note "c*4") . (# gain 0.8)) -- Oreille
$ every' 166 3 ((>| note "b(3,8)") . (# gain 0.8)) -- Main
$ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain "0.8!3 1.1")) -- CLAP
$ note "a" # "arpy" # gain 0
d10 $ g -- Events timings
$ fix (sometimes (ply 2) . (# n 1) . (# hpf 4500)) ("clap")
$ whenmod 166 75 (mask "t(8,16)" . off "h" id)
$ every' 166 85 ((<| "a*8") . (# note "d3'maj'2'8") . (# gain gPluck)) -- FIN
$ every' 166 83 ((>| "clap([4 [8 12] . 10 [4 0 . [16 8]]],16)") . (# gain gPluck)) -- ...Julien! :clap:
$ every' 166 82 ((>| "clap*[8 . 16 4]") . (# gain gPluck)) -- ...and :clap:
$ every' 166 81 ((>| "clap(5,8,0)") . (# gain gPluck)) -- Leopold :clap:
$ every' 166 80 ((>| "clap(3,8,0)") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 79 ((>| "clap(3,4,0)") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 78 ((>| "clap(4,4,0)") . (# gain gPluck)) -- Sophie :clap:
$ every' 166 77 ((>| "clap(3,4,0)") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 76 ((>| "clap(2,4,0)") . (# gain gPluck)) -- Cyril :clap:
$ every' 166 75 ((>| "clap(1,4,0)") . (# gain gPluck)) -- ...avec... :clap:
$ every' 166 74 ((>| "clap(4,4,0)") . (# gain gPluck)) -- SEPTEMBRE ROSE :clap:
$ every' 166 73 ((>| "clap") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 72 ((>| "clap") . (# gain gPluck)) -- Gregoire :clap:
$ every' 166 71 ((<| "e*4") . (# note "d'maj'2") . (# gain gPluck)) -- Generique?
$ every' 166 70 ((<| "d*2") . (# note "d'maj'2") . (# gain gPluck)) -- Generique?
$ every' 166 68 (const -- Tinks résolution
$ off 1 (degradeBy "0 0.5!7" . rev)
$ struct "t([16 [12 4]],16)"
$ 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 $ "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
......
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
$ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)"
# "hh27:5"
# cut 1
# gain 1.1
# gain 1.5
d2
$ g
$ mask "<f!16 t!16>"
......@@ -21,13 +21,13 @@ d2
# "hh27:2"
# release 0.57
# note "-5"
# gain 1.2
# gain 1.8
d3 $ g
$ 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]>"
# "[hh27:3,drum:2]"
# release 0.8
# gain 0.85
# gain 1.25
d10
$ g
$ note (
......
live/midi/jazz_tech_piano.tidal
......@@ -17,7 +17,7 @@ do
# (velocity (range 0.4 0.7 "^1"))
# (crush (range 32 5 "^1"))
)
$ s "superpiano"
$ s "superpiano"a
# note "<-20 [-19,-15] [-20,-16] ~>"
# velocity "<0.7 0.5 0.6>"
# sustain 3
......
live/midi/nova/breaks/StolenChoir.tidal
......@@ -55,6 +55,11 @@ d5 $ g
# crush (range 16 4 "^34")
# chorus (range 0 4 "^54") -- 0.7
-- TODO REWORK ARABIC LOOP
do
-- resetCycles
......
live/midi/nova/breaks/break_90s.tidal
......@@ -89,7 +89,7 @@ d5 $ g -- Piano base
# room 0.6 # sz 0.8
# pan 0.65
# orbit 5
# midiG' "^82" 0.3 1.5
# midiG' "^82" 0.3 1.7
d4 -- Skank organ
$ g
-- $ superimpose (const $ g
......
live/midi/nova/breaks/break_low.tidal
import Sound.Tidal.ParVagues.Control
setcps (60/60/4)
do
let modIndex = pF "modIndex"
let g = (midiDJF "^49" 150 9850 0 1000)
setcps (60/60/4)
d1 -- Snare
$ g
$ midiOn "^41" (fast 2)
......@@ -53,7 +53,7 @@ d5 -- Bassline
# crush (range 10 5 "^53")
# room 0.5
# sz 0.4
-- # pan 0.2
-- # pan 0.21
# midiG' "^81" 0 1.2
d6 $ g
$ off "e s" (|+ note 7)
......
live/midi/nova/computer_riddim.tidal
......@@ -5,6 +5,17 @@
-- 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
-- region Nova Utils
let gFactor = 2
......@@ -17,13 +28,15 @@ let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
-- endregion Nova Utils
let gDelayD = (# delay (range 0 5 "^13"))
let gDelayFB = (# delayfb (range 0 0.9 "^14"))
-- let gDelayD = (# delay (range 0 5 "^13"))
-- let gDelayFB = (# delayfb (range 0 0.9 "^14"))
let gRoom = ((|+ room (range 0 0.5 "^29")) . (# dry 0.99))
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 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.
-- resetCycles
d1
......@@ -38,7 +51,7 @@ d1
$ novaOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,tech:5]"
# room 0.05
# gM' 0 1.05 "^78"
# midiG' "^78" 0 1.05
d2
$ g -- Snare
$ (|- lpf 1000)
......@@ -55,24 +68,25 @@ d3 $ g -- Hats
)
$ novaOn ("^44") (degradeBy (slow 4 $ range 0.9 0 saw) . (<|"h*16")) -- TODO Eclaircir
$ 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"
-- # pan "^52"
# cut 3
# orbit 1
# pan 0.2
# gM' 0.2 1.25 "^80"
d4 $ g -- Bassline
$ 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
$ note "0" # "bass1:3"
# cut 4
# pan 0.6
# attack (range 0 1 "^53")
# crush (range 16 4 "^53")
# pan 0.7
-- # attack (range 0 1 "^53")
# lpq (range 0 0.33 "^33")
# release 0.95
# 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
$ whenmod 4 3 (sometimesBy "0 1 . 0" (
(# note "[d5,g4,b4]") . (|* gain 0.8)
......@@ -87,7 +101,7 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8
# room 0.13 # sz 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
$ ("0.125" ~>)
$ fast 2
......@@ -107,22 +121,22 @@ d7
d8 -- Trompette lancinante
$ g $ gDelayD
$ degradeBy "^35"
$ novaOn "^59" (mask "<f!3 t>")
$ midiOn "^59" (mask "<f!3 t>")
$ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95))
$ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>"
- 12)
# "brass" # n "2"
# gM' 0.2 1 "^55"
# gM' 0.2 1 "^83"
# attack 0.5
# cut 8
d9 -- CP
$ sometimesBy "^59" (fast 2)
$ midiOn "^60" (fast 2)
$ (# lpf 2000)
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2
$ "~ cp"
# gM' 0 1.1 "^83"
-- # gM' 0 1.1 "^84"
# room 0.2
# dry 0.9
# lpf 2000
......
live/midi/nova/dnb/lucy_rode.tidal
......@@ -45,6 +45,7 @@ do
$ "drum:2"
# midiG' "^80" 0 1.8
d4 $ g -- Bassline pompée
$ midiOn "^89" (chop 2)
$ midiOn "^57" (ply 2)
$ note (scale "aeolian" (
"0*8"
......@@ -53,10 +54,10 @@ do
+ "<0!6 7!2>"
))
# "bassWarsaw"
# crush (range 10 2 "^53")
# crushbus 41 (range 10 2 "^53")
# room 0.4
# pan 0.2
# midiG' "^81" 0 1.3
# midiG' "^81" 0 1.8
d6 $ g --Rhodes arps
$ juxBy 0.8 (
(# modIndex 15)
......@@ -92,7 +93,9 @@ do
# pan 0.74
# sustain (range 0.125 0.5 "^55")
# midiG' "^83" 0 1
d10 $ "~ clap" # midiG' "^84" 0 1.2
d10 $ g $ "~ clap"
# midiG' "^84" 0 1.8
# note "-4"
d2
......
live/midi/nova/dnb/meurice.tidal
......@@ -83,7 +83,7 @@ d7 -- Guitar B
# lsize (1 + (slow 8 perlin * 2))
# lrate 6.7
# cut 71
d8 $ g -- Clave de l'été
d8 $ g -- Clave de l'été pitchable
$ midiOn "^59" (fast 2)
$ midiOn ("^91"-"^59") (fast 2)
$ (|* 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
do
resetCycles
setcps (92/60/4)
do
setcps (60/60/4)
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 g = gDJF
d1 $ g $ gPont
$ mask "<f!4 t!60>"
$ "[bd,jazz]*4" # room 0.1
d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]" # gain 0.4
$ midiOn "^41" (fast 2)
$ "[bd,jazz]*4"
# midiG' "^78" 0 1.2
d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]"
# midiG "^79"
d3 $ g $ gPont
-- $ mask "<f!8 t!24>"
$ (
......@@ -19,46 +23,48 @@ d3 $ g $ gPont
. sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4"))
$ "gretsch:4*16"
# pan 0.25
# gain (0.35 + 0.1 * (segment 8 perlin))
# midiG' "^80" 0 1.5
d4 $ g
$ mask "<f!4 t!28>"
$ note patFunk
# "bass3"
# pan 0.2
# gain 0.5
# crush (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
d5 $ g
$ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
$ ("q" ~>)
$ note patFunk
# "pluck"
# room 0.6
# sz 0.8
# gain 0.35
# crush (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
d6 $ g -- Final guitare rita
$ whenmod 64 48 (# gain 0.25)
$ slice 16 "0 . 1 <~ 1 2>"
$ loopAt 6
$ "rita:0"
# gain 0
# cut 6
# hpf 400
d7 -- 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>"
d7 $ g -- Bonus breaks
$ 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>"
$ "breaks165"
# pan 0.75
# cut 7
# gain (slow 8 $ range 0.35 0.45 saw)
# midiG' "^80" 0 1.2
# room 0.2
# hpf 100
d8 $ g -- Organic madness
$ 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
$ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
-- $ mask "<f!32 t!32>"
$ "forgan:14"
# lpf 1000
# gain 0.3 * "<1!7 0.95 0.9!7 0.85>"
# midiG' "^83" 0 1.2
# cut 8
d10 -- F-U-N-K
$ mask "<f!8 t!24>"
......@@ -68,5 +74,5 @@ d10 -- F-U-N-K
$ n "5 20 13 10"
# "alphabet"
# release 0.8
# gain (slow 32 $ range 0.2 0.34 cosine)
# midiG' "^84" 0 1.3
# 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
let whenBrk pat = whenmod 16 10 pat
let whenNotBrk pat = someCyclesBy "<t!10 f!6>" pat
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)
d1 $ g -- Kick
$ whenBrkLPF
-- $ whenBrkLPF
$ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
$ "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" # "jazz"
# lpf 1000
# room 0.2 # att 0.5
$ midiOn "^41" (<| "k*2 k*2 k*2 k*<2 4>")
$ midiOff "^41" (<| "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" )
$ midiOn "^41" (superimpose (# "kick:5"))
$ midiOff "^41" (superimpose (# "reverbkick"))
$ "[reverbkick,jazz]"
# legato 2 # cut 1
# midiG' "^78" 0 1.8
# midiG' "^78" 0 1.2
d2 $ g -- Contretemps snare
$ whenBrkLPF
$ whenmod 16 8 (fast 2)
......@@ -28,20 +30,20 @@ d2 $ g -- Contretemps snare
# "snare:20"
# midiG "^79"
d3 $ g -- Drumroll fantôme
$ midiOn "^76" (fast "<2!3 4>")
$ 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]>")
$ "drum:2"
# 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
$ swing 2
$ whenNotBrk (off "<e q> . <q h>" (|+ note 7))
$ 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)
# "bassWarsaw"
# midiG' "^81" 0 1
# crushbus 51 (range 10 5.2 "^53")
# midiG' "^81" 0 1.3
d4 $ g -- Toy bogdan
$ every' 16 15 (>| "~ ~ ~ bogdan:4")
$ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
......
live/midi/nova/lofi/new_dust.tidal
......@@ -88,7 +88,7 @@ d5 $ g -- Infectious Bassline
# "bassWarsaw"
# width "^34"
# crush (range 16 2.5 "^54")
# midiG' "^82" 0 1
# midiG' "^82" 0 1.3
# room 0.2
d7 -- TOYS
$ degradeBy (0.99 - "^55")
......
live/midi/nova/lounge/invoque_ete.tidal
......@@ -25,7 +25,7 @@ d1 $ g
d2 $ g -- Clave de l'été
$ midiOn "^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>"
# "snare:22" # gM' 0 1.4 "^79"
# speed (range 0.5 1.5 "^51")
......@@ -97,7 +97,7 @@ d9 $ g
)
$ "hh:3"
# lpq (range 0 0.2 "^35")
# gM' 0 1.2 "^19"
# gM' 0 1.7 "^19"
do
d1 $ "reverbkick" # gain 1.2
......
live/midi/nova/party/electro_blues.tidal
......@@ -9,12 +9,11 @@ let chord = "c'maj"
let chordAug = "c'maj'8"
d1 -- Kick rarement doublé
$ g
$ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 <1 <2 [1 2]>>"))
$ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
$ midiOn ("^42"+"^41") (<| "k*4")
$ midiOff ("^42"+"^41") (<| "k . k(<5 6 7 5>,8,<0!7 3>)")
$ "808bd" # n "15"
# midiG' "^78" 0 1.5
$ fast 2 -- Cause this is REPETITIVE MUSIC
$ midiOn "^41" ((<| "k*4") . (superimpose (# "kick:5")))
$ 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)")
$ "super808"
# midiG' "^78" 0 1.1
d2 $ g
$ midiOn "^43" (fast 2)
$ "~ [jazz:4,cp]"
......@@ -28,13 +27,15 @@ d3 $ g -- Snakes
# "hh*6"
# midiG "^80"
d4 $ g
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
arpeggiate
-- . (# "supermandolin")
arp "pinkyup"
. (often (ply 2))
-- . (|* gain 0.8)
-- . (# pan 0.6)
-- . (# crush 16)
. (|+ note 12)
))
$ note (
cat blues + chord
......@@ -44,14 +45,15 @@ d4 $ g
# pan 0.75
# room 0.1
# voice 0.8
# crushbus 41 (range 10 3 "^53")
# midiG' "^81" 0 1.3
d5 $ g -- Choeurs
$ juxBy 0.5 (
(0.5 ~>) . midiOn "^58" (superimpose (
arpeggiate
arp "<converge!8 diverge!4>"
. (|+ note chordAug)
. (|+ pan 0.05)
. (|* gain 0.85)
-- . (|* gain 0.85)
)
. (|+ note 12)
. (|* gain 0.95)
......
live/midi/nova/party/last_one.tidal
......@@ -7,9 +7,6 @@ let midiOn ch pat = someCyclesBy ch pat
let midiOff ch pat = someCyclesBy (1 - ch) pat
let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat
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
setcps (110/60/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
- 36)
# "bassWarsaw"
# pan 0.2
# room 0.4
# room 0.2
# crushbus 40 (range 10 2.85 "^53")
# midiG' "^81" 0 1.5
d5 $ g
d5 $ g -- Nappes plage
$ midiOn "^58" (superimpose (
struct "t . t(3,8)"
. arpeggiate
......@@ -54,7 +51,7 @@ d5 $ g
# midiG' "^82" 0 1
# attack 0.8
# room 0.4 # sz 0.9
d6
d6 -- Guitare nostalgique
$ midiOn "^59" (slice 4 "0 1 2 3")
$ mask "<t!3 f>"
$ "fguitar" # n "<34!32 35!16 34!16>"
......@@ -88,4 +85,4 @@ d8 $ g
)
# "cbow" # n "[9,<~!4 10!4>]"
# 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
d1 $ g
$ slowdown
$ 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
$ "[super808,jazz]"
$ "kick:5"
# midiG "^78"
# room 0.85 # dry 0.98 # sz 0.8
d2 $ g
$ 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>"
# midiG' 0.5 1.5 "^80"
# midiG' "^80" 0 1.5
d10
$ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>"
# "snare"
......@@ -44,7 +45,7 @@ d3 $ g -- Bassline + arps
d4 $ g -- Synth disto baseline
$ "poesieSynth/2"
# n (slow 4 "<0 1>")
# midiG' "^82" 0 0.85
# midiG' "^82" 0 0.95
# crushbus 41 (range 10 3.5 "^54")
# cut 4
# pan 0.8
......
live/mood/tired/afternoon.tidal
......@@ -58,7 +58,7 @@ d7 $ g -- Hello PWM!
# rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53")
# midiG' "^81" 0 2
# midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes
$ note (
prog
......@@ -68,7 +68,7 @@ d6 $ g -- Nappes Rhodes
# pan 0.2
# modIndex (range 0 100 "^54")
# crushbus 61 (range 16 5 "^34")
# midiG' "^82" 0 1.8
# midiG' "^82" 0 1.5
d9 $ g
$ midiOff "^60" (mask "<f!8 t!124>")
$ 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