Skip to content

T
Tidal
Unverified Commit 18cb5b74 by PLN (Algolia)
Options

live: nova

parent a21125d9
Showing with 1717 additions and 11 deletions
backlog.md
# Work in progress
## Worksheet
- Jazz noise: basis for jazzy drums / hip instru
- TODO Foret noire: techno sorciere-forestiere!
......@@ -14,6 +15,10 @@ Beats.tidal: various background beats, hip/techno
-- Kumai nights: Techno kawai nocturne
## ARDOUR
- HarpsiDub: minidub + harpsichord
- BAILAR: Marcia danse pour moi! Accompagne Clavinet bass ou lead
## Lessons
- Reread building up
......@@ -28,10 +33,10 @@ Beats.tidal: various background beats, hip/techno
<!-- endregion -->
- BAILAR: Marcia danse pour moi! Accompagne Clavinet bass ou lead
- Crapeau HipPo: Clav sur rythme hip-hop manuel
- Solitude hivernale: cool melancolic hip
- Break britafuninnique: boucle hip hop breatbeat piano attend un lead
- Marche vertige: vertige vibration attend drum militaire
......@@ -40,9 +45,16 @@ Beats.tidal: various background beats, hip/techno
-- [Trans/techno] Interesting barrels needs a lead
-- BUBULLE! Comment t'ais-je oublié ?
### Drone
Hello Drone: Drone in D, vaguement mélodique
La voix de l'Ordre: Monotonal drone <> breakbeat
### TECHNO
- Crapeau HipPo: Clav sur rythme hip-hop manuel kick techno/hip
- Le naufrage! Funkpiano 110BPM
- Wake the Funk: WIP techno funk attend résolue + hats
......@@ -50,6 +62,11 @@ Beats.tidal: various background beats, hip/techno
- Vertige expérientiel : Techno progressive+ résolue bass laggy+ forks
- Cuba space program: Techno-clave + vibraphone, bonne montée attends drop!
-- Danse des Sirenes [minibeat]
-- ElectricFunk: Electric feel + funk epiano/clavinet
### Techno 4 Temps, 4 Stems:
-- Detroit: various tentatives
-- La Vibe
......@@ -58,12 +75,17 @@ Beats.tidal: various background beats, hip/techno
-- ToneDown: Techno numérico-mélancolique résolvable
-- Afternoon: Chill breakbeat evening sunset
## Hip-hop
-- Boom [minibeat]
-- Re comme remede dans malade!
## Copycat
- 44 More
- Bad guy: getting there!
## Remix
- Kanye Fly
- Kanye Fly: nombreuses tentatives
# Somewhat complete
......@@ -72,5 +94,4 @@ Beats.tidal: various background beats, hip/techno
-- Chaude civ: Breakbeat bassline diphonique
## Record :)
- Morning flowers: breakbeat bassline funky + MIDI Jazzy éventuel :)
live/drone/hello_drones.tidal
......@@ -48,7 +48,7 @@ d8
# room 0.4
# octave 6
# legato 1
# gain 0.35
# gain 0.45
d9
$ superimpose ((|- note 12) . (# legato 2))
$ "g g(3,8,<3!3 0>)"
......
live/midi/beats.tidal
......@@ -197,3 +197,18 @@ d3
-- # sz 0.8
-- # legato (slow 16 $ range 0.12 2 sine)
-- # gain 2
-- Break maracas Mamoi
do
d3 $ "drum:2*4" # gain 0.5
d1
$ slow 2
$ "k*<1!3 2> . k(<3 3 [3 5] 3>,8,<0!6 4>)"
# "reverbkick"
# gain 0.75 # lpf 4000
d2
$ whenmod 16 10 (# lpf (slow 6 $ range 5000 200 saw))
$ loopAt 2
$ slice 4 "<0 0 3 <0 3>> 1*<1 1 2 <1 2>> 2*<1 2 2 4> 3"
$ "breaks165" # cps (165/50/4)
# gain (0.55 * "1 1 0.9 1")
live/midi/jazz.tidal
resetCycles
-- Electro-jazz grille du blues snakish
do
setcps (80/60/4)
let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw)))
......@@ -59,7 +58,7 @@ d5 -- Choeurs
$ note (cat blues)
# "moogBass"
# octave 3
# gain 0.95
# gain 0.9
# room 0.4
# size 0.7 # dry 1.05
......
live/midi/nova/120_techoirs.tidal 0 → 100644
import Controls
-- Controls:
-- 1A 2A 3A 4A 5A 6A 7A 8A UP DOWN
--^13 14 15 16 17 18 19 20 104 105
-- 1B 2B 3B 4B 5B 6B 7B 8B L R
--^29 30 31 32 33 34 35 36 106 107
-- 1C 2C 3C 4C 5C 6C 7C 8C
--^49 50 51 52 53 54 55 56
-- 1F 2F 3F 4F 5F 6F 7F 8F
--^77 78 79 80 81 82 83 84
-- 1: Global - DJF Room Size
-- 2: Kick - TODO TODO TODO
-- 3: Drumroll - Jux Ply2 Pan
-- 4: Break - sbSlice sbStri TODO
-- 5: Etincelles - LPF5&6 LPQ5&6 Crush5&6
-- 6: ArpElectrique - TODO TODO TODO
-- 7: Claps - TODO TODO TODO
-- 8: Choirs - Room hpf cutoff
do
setcps (120/60/4)
let gGain = "^77"
let gFilter = (# djf "^49")
let gRoom = (|* room (range 0 0.5 "^29"))
let gSize = (|* size (range 0 0.8 "^13"))
let gF = (gFilter . gSize . gRoom . (# dry 0.98))
let gG a = (gain (gGain * a)) -- gain Global
let gM a = (gG (range 0.3 0.8 a))
let gM' l h a = (gG (range l h a))
let prog = ("<f'maj7!3 g'sus4 f'maj7!3 g'sus4 f'maj7!3 <a'minor7 e'minor7> f'maj7!3 g'sus4>")
d1 $ gF
$ "jazz*4"
# room 0.3 # dry 0.97
# gM' 0 1 "^78"
d2 $ gF
-- $ sometimesBy ("^51") (jux rev)
-- $ sometimesBy ("^31") (ply 2)
$ whenmod 4 3 (mask "t . t t f t")
$ "[gretsch:4,drum:2]*[4 8]"
# pan (range 0.02 0.98 "^15")
# gM "^79"
# lpf 4000
d3 $ gF
$ someCyclesBy ("^16") (juxBy 0.7 (rev . chop 8 .(# cut 31)))
$ someCyclesBy ("^32") (striate 16)
$ someCyclesBy ("^52") (
slice 8 "[0 2 0 <6 4>]*2")
$ "fbreak120:9"
# gM "^80"
# lpf 5000
# cut 3
d4 $ gF
$ superimpose (
(|- note 24)
. arp "up"
. swing 2
. (# gM "^82")
. (# crush 16)
)
$ superimpose (
(|+ note 12)
. chop (slow 4 "<1 2 4 8>")
. arp "updown"
. (|* gain 0.8)
)
$ note (prog)
# "bassWarsaw"
# gM "^81"
# lpf (range 100 10000 (segment 16 $ "^53"))
# lpq "^33"
# room 0.5
# crush (range 10 4.5 "^17")
# sz 0.8
d7 $ gF
$ whenmod 16 8 (fast 2)
$ "~ cp*<1!3 2>"
# gM "^83"
# room 0.2
# dry 0.99 # lpf 4000
d8 $ gF -- CHOIRS
$ off "h" (
(|+ note 12)
. (# legato "<0.75!3 0.5>")
. (|* gain 0.8)
)
-- $ slice 4 (run 2)
$ superimpose (|+ note 12)
$ note (prog)
# "moogBass"
# octave 4
-- # amp 0.5
# room ("^20") # sz 0.75
# hpf (range 0 10000 "^36")
# cutoff (range 120 10000 "^56")
# gM' 0.45 0.9 "^84"
live/midi/nova/80fonk.tidal 0 → 100644
import Controls
-- Controls:
-- 1A 2A 3A 4A 5A 6A 7A 8A UP DOWN
--^13 14 15 16 17 18 19 20 104 105
-- 1B 2B 3B 4B 5B 6B 7B 8B L R
--^29 30 31 32 33 34 35 36 106 107
-- 1C 2C 3C 4C 5C 6C 7C 8C
--^49 50 51 52 53 54 55 56
-- 1F 2F 3F 4F 5F 6F 7F 8F
--^77 78 79 80 81 82 83 84
-- 1: Global - DJF TODO TODO
-- 2: Kick - TODO TODO TODO
-- 3: Drumroll - Jux Ply2 Pan
-- 4: Break - sbSlice sbStri TODO
-- 5: Etincelles - LPF5&6 LPQ5&6 Crush5&6
-- 6: ArpElectrique - TODO TODO TODO
-- 7: Claps - TODO TODO TODO
-- 8: Choirs - TODO TODO TODO
do
setcps (80/60/4)
let gGain = (cF 0.5 "77")
let gFilter = (# djf "^49")
let gRoom = (|* room (range 0 0.5 "^29"))
let gSize = (|* size (range 0 0.8 "^13"))
let gF = (gFilter . gSize . gRoom)
let gG a = (gain (gGain * a)) -- gain Global
let gM a = (gG (range 0.2 0.8 a)) -- gain Modéré
let gM' l h a = (gG (range l h a)) -- gain ModéréManuel
let whenPont1 p = whenmod 16 10 p
let prog = ("<g4'sus>")
d1 $ gF
$ whenPont1 (mask "t(2,4)")
$ "k . k(<3 <1!3 5>>,8)"
# "[reverbkick,jazz]"
# room 0.3 # dry 0.97
# gM (1.3 * "^78")
d2 $ gF
$ whenPont1 (fast "4!3 <4!3 2 4 2>")
$ sometimesBy ("^51") (jux rev)
$ sometimesBy ("^31") (ply 2)
$ fast "[8 <8 16>]"
$ "[dr,drum:2]"
# pan ("^16")
# dry 0.98
# gM "^79"
d3 $ gF
$ whenPont1 (mask "t(<4!3 6 4 2>,16)")
$ someCyclesBy ("^32") (striate 16)
$ someCyclesBy ("^52") (
slice 8 "[0 2 0 <6 4>]*2")
$ "fbreak80"
# gM' 0.3 1 "^81"
# lpf (range 0 5000 "^16")
# cut 3
d4 $ gF
$ jux (|+ room 0.1)
$ sometimesBy ("^53") (rev . chop 8)
$ loopAt 2
$ "fguitar:8"
# gM "^81"
# pan (0.5 + (perlin * "^17"))
# cut 3
d5
-- $ gF
-- $ off "q" (|+ room 0.1)
-- $ sometimesBy ("^53") (rev . chop 8)
$ loopAt 2
$ "fbass:11"
# cut 5
-- # lpq ("^34")
-- # lpf (range 10000 0 "^54")
# gM' 0.25 1.1 "^82"
# pan (0.5 + (perlin * "^18"))
d6
$ "[~ s]*<2!4 4!3 [4 8]>"
# "snare:2"
# gM "^80"
live/midi/nova/Controls.tidal 0 → 100644
module Controls where
gG a b = a + b
live/midi/nova/DX_tech.tidal 0 → 100644
do
let gG a = (gain ("^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 gF = (# djf ("^49"))
let gRm = (# room 0.12)
let g = (gF . gRm)
let g = (id)
setcps (120/60/4)
d1
$ g
$ every' 8 6 (# silence)
$ sometimesBy "^42" (slow 2)
$ fast 4
$ "[jazz,tech:5]"
# gM' 0 1.2 "^78"
d2
$ g
$ every' 8 7 (mask "f . f t")
$ rarely (ply 2)
$ rarely (mask "t(3,4)")
$ "hh*8"
# gM' 0 1.3 "^79"
d3 $ g
$ sometimesBy "^57" ( -- OFF ARP!
off "q" id . (arpeggiate . (# legato 1))
)
$ note "<e'min7 f'maj7 d'sus4 a4'min7>"
# octave 4
# "bassWarsaw"
# gM' 0 1.1 "^81"
# room 0.5 # sz 0.5
# crush (range 16 5.2 "^53")
d4
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 5000) . (|* gain 0.8)))
$ fast 2 $ "~ cp*<1!3 2 2 1 0 2>" # lpf 2000
# gM' 0 0.9 "^83"
live/midi/nova/FFF/Noise.tidal 0 → 100644
module Funk where
funk_noise = superimpose (const -- Bris de vers spatial
$ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>")
$ someCycles (# speed 0.5)
$ stut "[4|2]" 0.9 "[q|h]"
$ stut' 2 "h" ((|* gain 0.9) . (|+ note (slow 4 "<[2|4] [0 -2]>")))
$ "coins"
# octave 2 -- 4=creepy
# gain (slow 16 $ range 0.5 0.8 saw)
# pan perlin
# gain 0.4
)
$ superimpose (const -- Insectes
$ slow 4
$ jux rev $ "insect(<1 3 4 5>,8)"
# n (slow 3 $ "<0 1 2 3>")
# gain (slow 2 $ range 0.6 0.9 perlin)
# pan 0.8
)
$ superimpose (const -- Fond diffus cosmologique
$ slow (slow 4 "<2 4 8>")
$ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
$ s "~ cosmicg:0"
# gain (slow 33 $ range 0.3 0.4 perlin)
# speed (range 0.125 0.95 perlin)
# pan (range 0.4 0.6 perlin)
)
-- bourrasque occassionnelle
$ rarely (# gain 0.5)
$ jux (rev . segment 2)
$ s "space:3"
# speed (slow 2 $ range 0.15 0.5 perlin)
# pan (slow 4 $ range 0.45 0.55 perlin)
# gain 0
d10
-- $ (* gain 0.75)
$ funk_noise
-- effects to add to noise?
-- # hpf (slow 6 $ range 0 1500 sine)
-- # lpf (slow 100 $ range 1500 20000 sine)
live/midi/nova/FFF/grace.tidal 0 → 100644
-- region Touchés par la grace: techno-gospel
-- Tags: Techno, gospel, funk
resetCycles
-- endregion
do
let gG a = (gain ("^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 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
let g = (gDJF)
setcps (120/60/4)
d1 -- Kick regulier degradé
$ whenmod 16 12 (mask "t(1,4)") -- Respire
-- $ whenmod 16 8 ( -- Double degradé
-- sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2))
-- $ whenmod 8 6 (# lpf 200)
$ "k k k <k k*[1|2|3|4]>"
# "[kick:5,house]"
# note 2
# gM' 0 0.9 "^78"
d2 -- Cymbales gravitantes
$ whenmod 16 8 (jux (rev . (hurry "<2!3 0.5>")))
$ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4"
# note ("<0!<3 2> -4 -8 <[-8 -4] -12>>")
# room 0.2 # sz 0.4
# pan (slow 16 $ range 0.8 0.4 sine)
# gM' 0 0.85 "^79"
d3 -- Drumroll ma foi bien classique
$ fast "<4 8 [8 . 4 8] 8 <16 [16 4]>>"
$ "dr"
# pan (slow 16 $ range 0.9 0.4 cosine)
# gM' 0 0.85 "^80"
d4 -- Bassline "maybe mad smirk smirk"
$ loopAt 2
$ slice 8 (
stack [
"0 1 2 3 4 5 6 7*<1 2 4 1>", -- TODO ','' then stack
(degradeBy ("^57") $ "0(3,8)"), -- Megamask!
(degradeBy ("^58") $ "0 0 0 0") -- MULTIMASK!
]
)
$ s "fbass:8"
# gM' 0 0.95 "^81"
# cut 6
# crush (range 16 5 "^53")
d5 -- Chopped choir
$ sometimesBy "^59" (slow 2) -- TODO end: Rarefy
$ slice 8 (
whenmod 16 12 (|> "<0!2 2!2>*8") $
whenmod 16 8 (|> "0*4") $
-- "0 1 2 3" -- Welcome!
-- "0 <1!2 0!2> <2 7 6 3> <3 5>" -- WELCOME
"0 1 <0 2> [3 4]" -- Choeurs fous!
)
$ every' 4 3 (superimpose (# n 1) . (# legato "<1!3 2>"))
$ "pray"
# legato 1
# pan "0.4 0.6"
# gM' 0 0.85 "^82"
d7 -- Claps répartis
$ jux (# lpf 2000)
$ note "<-4!3 -8>" # "clap"
# hpf 2000
# gM' 0 0.85 "^83"
# pan (range 0.3 0.7 perlin)
once $ s "fbass:10" # gain 0.8
live/midi/nova/FFF/mad_fonk.tidal 0 → 100644
once "dr*8"
-- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm
-- Tags: Techno, run, funk, crushade
-- Ready: 9.5/10
resetCycles
-- endregion
do
solo 1 -- Kick
solo 2 -- Snare roll/rush
solo 3 -- Drumroll
solo 4 -- Bassline
solo 5 -- Guitare intro/pompe
unsolo 6 -- Epiano groovy
solo 7 -- Claps from grace
let bpm = 80 -- Que tu crois!
setcps (bpm/60/4)
solo 10 -- NOISES
d10 $ funk_noise
d1
-- $ every' 8 7 (# lpf 200)
-- region Pauses Hip-hop
-- $ whenmod 8 6 (juxBy 0.5 rev)
-- $ "k . k(<3 <5 4>>,8)" -- Le simple
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité
-- region hardkick
-- $ whenmod 32 0 (
-- superimpose (
-- (# "hardkick:4")
-- . (sometimesBy "<0!3 0.5>" (stut 2 0.8 "s"))
-- . (# legato 0.9)
-- -- . (# note (-4))
-- . (|* gain 0.65)
-- )
-- )
-- region INTRO/Run
-- $ slow 2 -- intro
-- $ whenmod 8 6 (# silence)
$ "k k k k k k k <k [~ k]>"
# "[jazz,tech:6]"
# gain 1.1
# pan 0.45
d2
$ slow 2
$ someCycles (hurry 2)
$ juxBy 0.75 (rev . sometimes (mask "t(16,16)" . ply 2))
-- region Manual snare rush
$ "~ s*<1 <2 <4 <8 [8 16]>>>>"
# "snare:3"
# note ("<0 -1 -2 -3>")
# gain 0.9
# pan (slow 8 $ range 0.4 0.8 sine)
d3 -- Drumroll
-- $ slow 8 -- TODO IN/OUTRO
$ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" )
$ ply "2 <4 8>" $ "drum:8"
# gain (slow 4 $ range 1.2 1.3 saw)
# pan (slow 8 $ range 0.2 0.6 cosine)
d4 -- Bassline
$ juxBy 0.5 id
$ slow 2
-- $ whenmod 16 8 (
-- region reverse cowgirl
-- sometimesBy "0 1" rev)
$ slice 8
(
-- iter (slow 2 "<2 4>") $
-- run 8 -- Classique: jumpy groovy
"0*4 <1 2 3> <2 3 1> <1 2 3> 4 5 6 7*2"-- HAVE FUN
-- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel
-- "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>" -- Attente
-- "<0!3 <1 2>>*8" -- COME ON CRUSH
)
$ "fbass:8"
# legato 1
-- # crush (3.5 + "6 <5 4>") -- CRUSH THIS
# gain 1
# pan 0.6
d5 -- Guitare pompe
-- region Guitare pompe
$ slice 8 (cat [
"0*4",
"0 1 2 3",
"0*4 1 3(3,8) 5",
"4 5 6 7",
"0 7 4 7",
"[0 4]*4",
"7 <7 6> <3 5> <7 4>",
"4*4 . 4*<8 16>",
"7 0 7 0",
"0*4"
]) $ n 9
-- region INTRO-guitar
-- $ slice 8 ( -- Intro
-- "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
-- ) $ n 11
# "fguitar"
-- # crush 5.5 -- TODO CRUSH THIS! 12 - 4 - 5
# cut 8
# gain (slow 64 $ range
-- 0.7 0.9
1.2 1.4
cosine)
# pan 0.3
d6 -- Epiano groovy
-- $ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced
$ slow 2
-- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
$ slice 8 (
"0 3 2 1 4 5 6 7*<1 2>" -- regulier
-- "0 3 2 1 0 3 <2 6> 7" -- variant
-- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
-- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
-- "0 1 2 [3*<4 2>]!4 [5 <4 5>]"
-- "2*4 3*4 5(3,8)"
-- "0 3 2 1!5" -- repeat aigu
-- "5!7 7" -- END OF FILE
-- "4!5 5 6 7*<1 2>" -- repeat end
)
$ s "fepiano"
# n (slow 8 "<24 25>")
# gain 0.9 -- 0.99 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
# cut 6
# pan 0.7
d7 $ fast 2 $ s "clap"
# lpf 2000
# gain (slow 16 $ range 0.8 1.1 saw)
# room 0.4
live/midi/nova/FFF/pray.tidal 0 → 100644
setcps 0
-- Pray the Funk: choeurs laudatifs
-- Tags: Breakbeat, gospel, funk
resetCycles
(* 2 (/ 4 8))
once $ fast 4 $ "dr*4"
do
let gG a = (gain ("^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 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
let g = (gDJF)
setcps (60/60/4)
d1 $ g
-- KICK
$ whenmod 8 6 (# silence)
-- $ mask "t(11,12)" . fast "<2!6 4 2>" -- Folie
$ "k([1|2|5],8) . k(<3 5>,8)" -- Le classique
-- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce
# "[reverbkick,jazz]"
# room 0.2
# pan 0.4
# lpf ("<5!3 <2 0.5>>" * 1000)
# gM' 0 0.9 "^78"
d4 $ g -- BREAKBEAT
$ someCyclesBy "^74" -- Intro
(slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy
(slice 8 "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)")
$ someCyclesBy "^76" -- Fulltime!
(slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
$ loopAt 1
$ "break:1"
# gM' 0 0.85 "^79"
# cut 4
d2 $ g -- Snares gretscha
$ someCyclesBy "^44" (
(whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw))
. hurry 2
. (|* gain 1.2)
)
)
$ fast 2
$ n ("6(<4 <3 5>>,8)")
# "gretsch"
# gM' 0 0.8 "^80"
d3 $ g -- Metal drumroll
$ someCyclesBy "^60" (fast "1 . 2 4")
$ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]"
# note ("<-2 -4 -2 0>")
# gM' 0 0.9 "^84"
d5 $ g -- Fragments of Wiley
$ someCyclesBy "^58" (slow 4)
$ "pray" -- TODO INTRO then /4
# lpf (range 10000 200 "^54")
# waveloss (range 65 5 "^34")
-- TODO INTRO WAVELOSS/gain 65 45 25 12.5
# n "<0!4 1!8>"
# cut 5
# gM' 0 0.9 "^82"
d7 $ g
$ fast 2
$ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>"))
$ whenmod 16 8 (every' 4 0 (off "-0.125" id))
$ s "clap"
# gain 0.75
# room 0.5 # size 0.4 # dry 0.95
# gM' 0 0.9 "^83"
resetCycles
-- Good Morning Minneapolis
-- TODO Note default knob values
-- >1A 2A 3A 4A 5A 6A 7A 8A UP DOWN
-- >1B 2B 3B 4B 5B 6B 7B 8B L R
-- `29 30 31 32 33 34 35 36 106 107`
-- >1C 2C 3C 4C 5C 6C 7C 8C
-- `49 50 51 52 53 54 55 56`
-- Dlay XXX XXX XXX XXX XXX XXX freqGuns
-- HPF XXX XXX XXX crBass XXX spdFire spdGuns
-- LPF XXX Stut Pan gSiren XXX stutCP gGuns
-- G Kick Sn DrRoll Bass Piano CP Fire
-- X XXX Stut Wait/Run XXX XXX XXX XXX
once $ "dr" # gain 0.8
-- let g = id
let melody = "<d4'min d4'min <a3'min g4'min e4'min> d4'min>"
let melodyFirst = "<d3 d3 <a3 g3 e3> d3>"
setcps 0.5
d1 $ g
$ s "k . k(<1 <3 5>>,8,<0 4>)" -- Hip beat
-- $ whenmod 16 10 (slow "<4!4 2>") $ s "k k <k!2 ~ k> <k!3 k*2>" -- TECHNO
# "reverbkick"
d2 $ g
$ mask "<f!8 t!8> <f!4 t!4> . t"
$ sometimesBy ("^43") -- Stut
(mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
$ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2"
# s "snare:20"
# gM' 0 0.8 "^79"
# pan 0.3
d3 $ g -- Drumroll opposé hit roll
$ sometimesBy (1 - "^44") (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll
$ sometimesBy ("^44") (fast "<16!3 [16 8]> [8 <8!3 16>]") -- Running roll
$ s "drum:8"
# pan (slow 8 $ range 0.1 0.9 (sine + "^52"))
# gM' 0 1 "^80"
d6 $ g -- Hit roll opposé drumroll
$ every' 4 3 ( -- acceleration + cymbale
fast "2 1" . (# n "0!3 1")
. (|* gain "1!3 <0.65 0.8>")
)
$ s "hh(<3!4 5!4>,8)"
# gM' 0 0 "^80"
# pan 0.7
d4 $ g
-- $ degradeBy "0 0.9!7" -- OUTRO
$ mask "t(<1 2!2 4>,4)"
$ superimpose (
often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>")
. (|+ note 36)
. (# sustain 0.5)
. (|* velocity 1.1)
. (# room 0.2)
. (# sz 0.8)
. (|+ pan 0.15)
)
$ note (melody)
# s "superpiano"
# gM' 0 0.9 "^82"
# velocity 0.55
# sustain 1
# room 0.4 # size 0.2
# pan 0.5
d5 $ g -- Basse + Sirene
$ sometimesBy ("^57") ( -- TECHNOPHILE
chop 4
. often (ply 4)
. (# crush (range 16 3 "^33"))
)
$ superimpose (
slow 4
. (# s "supersiren")
. (-| note 12) -- 24 when crushed
. (# gM' 0 0.8 ((
"^81" -- gain bass
* (range 0.6 0.9 "^53") -- Modulated 5C
)
- (0.125 * "^57") -- When TECHNOPHILE
))
. (# room 0.5)
. (# size 0.8)
)
$ note (
"0*2 0 . 0 <7 5 5 7> ~ 0"
+ melodyFirst
)
# s "supersaw"
# voice 0.02
# crush (range 16 3.5 "^33")
# gM' 0 0.8 "^81"
# pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantome
$ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s")
$ s "~ . cp*<1 1 2 1 1!3 2> ~"
# room 0.2
# sz (range 0.5 0.9 perlin)
# dry 1.05
# gM' 0 0.7 "^83"
# lpf 2000
# pan (slow 8 $ range 0.45 0.65 saw)
live/midi/nova/FFF/readme.md 0 → 100644
# FUTURE FUNK FRAGMENTS
> From the edges of the desert,
> lost broken tapes reveal data
> groovy data
> funky data
> a rythm from old times
## WORKSHEET
### Repeat 0
> 3m next? NO
> 16:30 ok annonce MAD
> 29:50 fin du crush
> 35: Ending fepiano
> 40: EOF
## Pray
Intro waveloss + Break
Puis beat ;)
- Transition 3/5
## Grace
Begin 120BPM
_Freestyle stack de masques!_
**Do not revive Wiley**
End madbass annonciatrice
- Transition solo madbass / downtempo
- IN 2/4/7 cy/bass/claps
- OUT 1/4/7 kick/bass/clap
- CPS 120->80
## Mad Fonk
> Prends ton temps
> profite des pauses hip-hopital
> crushe tranquillement
> Amuse toi avec les snares
> Varie basse et guitare
> Parcimonieux piano
> Kick
### Intro
-- Intro bass-drumroll-snare-BIM KICK
-- Guitare intro, puis pompe commentée
-- Guitare arrive
### CRUSH SCENE
d4 crushee progressivement
d1 qui se fait attendre
d2 qui build-up
d6 interdit
- Transition decrush solo, puis d6
### Mad Piano
### Outro: fepiano
live/midi/nova/computer_riddim.tidal 0 → 100644
-- Computer Riddim!#
-- Following instructions in http://studio.dubroom.org/tutorials-computerdub15.htm
-- Skipped: Chap 18 (Why?)
-- Skipped: Chap 21 (Too complex, rather live synth)
-- TODO: Chap 22 - From reggae to dub
d1
$ note "<a'min e'min>" # "pluck:5" # gain 0.7
do
-- region Nova Utils
let gG a = (gain ("^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 gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 9000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
-- let gDelay = ((# delay "[0 0.5]/2") . (# orbit 1))
-- let gDelay = ("^29")
let novaOn ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
-- endregion Nova Utils
let g = (gDJF)
let gDelayD = (# delay (range 0 0.99 "^13"))
let gDelayFB = (# delayfb (range 0 0.9 "^29"))
let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2) . novaOn "^90" (# silence))
let chords = "<[a5,c5,e5] [e4,g4,b4]>"
setcps (140/60/4) -- keep it between 110-190 BPM. You won't be sorry you did.
-- resetCycles
d1
$ g -- Kick
$ superimpose ((# "kick:5")
. (# crush (range 6 2.5 "^50"))
-- . (# note (-2))
. (|* gain (range 0 1 "^50")))
$ novaOn "^73" (<| "~ ~ k ~") -- 1D
$ novaOn "^74" (<| "k*2") -- 2D
$ novaOn "^75" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ novaOn "^41" (<| "k*4") -- 4F
$ novaOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,tech:5]"
# room 0.05
# gM' 0 1.05 "^78"
d2
$ g -- Snare
$ (|- lpf 1000)
$ (|/ lpf 2)
$ novaOn "^43" (|<| "s*4")
$ "~ <~!7 s> ~ ~ . s"
# "[snare:50,snare:4]"
# orbit 1
# gM' 0.2 0.9 "^79"
d3 $ g -- Hats
$ every' 4 3 (
sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
. sometimesBy "0 . 0 1 0 0" (|* gain 0)
)
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^44") (<|"h*8")
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the second Hi Hat hit
$ s "gretsch:4"
-- # pan "^52"
# cut 3
# orbit 1
# gM' 0.2 1 "^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")
# release 0.95
# orbit 1
# gM' 0.25 1.2 "^81"
d5 $ g $ gDelay -- Skank Piano
$ whenmod 4 3 (sometimesBy "0 1 . 0" (
(# note "[d5,g4,b4]") . (|* gain 0.8)
))
$ "<[~ p*<1 1 1 <1 2>> ~ p*<1 1 2 1>]>"
-- TODO FIX ALIGNMENT CONTRETEMPS DE LA REPETITION
-- $ "<[~ p p] [~ [p <~ p*<1 2>>] . ~ p]>"
# "superpiano"
# note chords
# velocity 0.6
# sustain 0.34
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
$ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
# "superhammond"
# gM' 0 0.6 ("[0 0.25 0 0]" |+ "^82" * (range 0 0.9 "^34"))
# voice 6
# octave 6
# sustain 0.25
d7
$ g $ gDelay -- Skank Guitar
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
d8 -- Trompette lancinante
$ novaOn "^59" (mask "<f!3 t>")
$ slow 2 $ note ("~ <a!7 g> <g d g bf> ~")
# "brass:2" # gM' 0.2 0.55 ("^55")
# cut 8 # room 0.1
d9 -- CP
$ sometimesBy "^59" (fast 2)
$ (# lpf 2000)
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2
$ "~ cp"
# gM' 0 1.1 "^83"
# room 0.2
# dry 0.9
# lpf 2000
-- TODO: BELOW COPIED FROM MINNEAPOLIS
d6 $ g --
$ every' 4 3 ( -- acceleration + cymbale
fast "2 1" . (# n "0!3 1")
. (|* gain "1!3 <0.65 0.8>")
)
$ s "hh(<3!4 5!4>,8)"
# gM' 0 0 "^80"
# pan 0.7
d4 $ g
-- $ degradeBy "0 0.9!7" -- OUTRO
$ mask "t(<1 2!2 4>,4)"
$ superimpose (
often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>")
. (|+ note 36)
. (# sustain 0.5)
. (|* velocity 1.1)
. (# sz 0.8)
. (|+ pan 0.15)
)
$ note (melody)
# s "superpiano"
# gM' 0 1 "^82"
# velocity 0.55
# sustain 1
# room 0.4 # size 0.2
# pan 0.5
d5 $ g -- Basse + Sirene
$ sometimesBy ("^57") ( -- TECHNOPHILE
chop 4
. often (ply 4)
-- . (# crush (range 16 3.5 "^33"))
)
$ superimpose (
slow 4
. (# s "supersiren")
. (-| note 12) -- 24 when crushed
. (# gM' 0 0.8 ((
"^81" -- gain bass
* (range 0.6 0.9 "^53") -- Modulated 5C
)
- (0.125 * "^57") -- When TECHNOPHILE
))
. (# room 0.5)
. (# size 0.8)
)
$ note (
"0*2 0 . 0 <7 5 5 7> ~ 0"
+ melodyFirst
)
# s "supersaw"
# voice 0.02
# crush (range 16 3.5 "^33")
# gM' 0 0.8 "^81"
# pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantomes
$ s "~ . cp*<1 1 2 1 1!3 2> ~"
# room (range 0.2 0.95 "^55")
# sz (range 0.5 0.9 perlin)
# dry 1.05
# gM' 0 1 "^83"
# pan (slow 8 $ range 0.45 0.65 saw)
d8 $ g -- Gunfire
$ sometimesBy "^20" (
superimpose (const -- pistolets
$ sometimes ( -- réplique
off 0.5 (|+ gain 0.1)
. (# room 0.25)
)
$ often (stut 2 0.85 (1/16)) -- écho
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + perlin/4))
# gM' 0 1 ("^56")
# cut 80
# dry 1.02
# pan (range 0.2 0.8 perlin)
)
)
$ s "fire"
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.5 1 ("^35" + perlin/4))
# gM "^84"
# delay 0.3 # delaytime (1/3) # delayfb 0.8
live/midi/nova/dub.tidal 0 → 100644
do
setcps (80/60/4)
-- region Helpers
let gG a = (gain ("^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 gFilter = (# djf "^49")
let gRVB = ((# room 0.125) . (# dry 0.99) . (# sz 0.8))
let gSize = (|* size (range 0 0.25 "^13"))
let g = (gFilter . gSize . gRVB)
-- region Melody
let mel = ("c'min")
let melUB1 = "<cs'maj fs'maj ds'min gs'maj>" -- UB40 Red Red Wine
let melUB2 = "<gs'maj fs'maj gs'maj>" -- UB40 RRW Chorus
let melUB3 = "<gs'maj cs'maj fs'maj cs'maj gs'maj cs'maj fs'maj gs'maj>" -- UB40 RRW Bridge
let melUB = [ melUB1, melUB1, melUB1, melUB1, melUB2, melUB2, melUB2, melUB3, melUB3, melUB3, melUB3, melUB3, melUB3, melUB3, melUB3, melUB1, melUB1, melUB1, melUB1, melUB2, melUB2, melUB2]
let melNWNC = "<c'maj g'maj a'min f'maj c'maj g'maj c'maj g'maj>"
let melTosh = "<e'min d'maj>" -- Peter Tosh
-- let mel = ("d'min g'min d'min <e'maj c'min>")
-- endregion Melody
d1 $ g
$ fast 4
$ "jazz" # gM' 0 1.2 "^78"
d2 $ g
$ fix (
ply "1 <2 [2 1] 2 1>"
. (# gM' 0.35 1 "^79")
)
(n 7) -- Hats fantomes
$ fix (
(# note "<2!3 <4 6>>")
. (# lpq "^32")
. (# lpf (range 200 1000 "^52"))
. (|* gM' 0.5 1.65 "^80")
) (n 12)
$ n (
stack [
"12(3,8)", -- Drums dansants
"7([4 [6!3 <6 12>]],8)"
]
)
# "electro1"
d3 $ g -- BASSLINE
$ mask "t(5,8)"
$ fast 4
$ ply "<1 1 2 1 2 2 1 1 2 2 2 1 2 4 2 1>"
$ note "0 . 0([3 <3 5>],8,[0 6])"
# note (arp "up" $ mel)
# "bass3:2"
# octave 4
# gM' 0 1.2 "^81"
d4 $ g
$ fix (|- gM' 0 0.5 "^54") ("FMRhodes1")
$ fix (|- gM' 0.5 0 "^54") ("FMRhodes2")
$ "~ . p*2"
# "[FMRhodes1,FMRhodes2]"
# delay 0.25
# sz (range 0.4 0.8 "^18")
# room (range 0 0.5 "^18")
# delayfb (range "s" "h" "^34")
-- # note (whenmod 64 32 (>| melNWNC) melTosh)
# note (cat melUB)
# legato 2
# gM' 0 1.1 "^82"
# room 0.5
# orbit 4
do
Bridge: G# major – C# major – F# major – C# major – G# major – C# major – F# major – G# major. Then back to chorus.
4. Gregory Isaacs used this reggae chord progression on Night Nurse. Just two chords like Tosh’s Johnny B. Good.
Chords: A minor – G major. Just play them over and over.
5. Third World used the following reggae chord progression on 96 Degrees In The Shade.
Chords: A minor – G major for the verse. And chorus is C major – G major – A minor, Very, very easy indeed.
6. Jah Cure, T.O.K, Morgan Heritage, Gentleman and many others made this reggae chord progression popular.
Chords: E minor – C major – D major – B minor – C major – A minor – B7 or B minor. Again very popular so learn it!
7. This reggae chord progression was made popular by Tyrone Taylor - Cottage In Negril, very sweet chord progression.
Chords: C# major – G# major – F# major – G# major – F# major – F# major – G# major, for the intro.
Chorus and Verse: C# major – G# major – F# major – D# minor – G# major, this is done twice.
Then C# major – F minor – D# minor – G# major, this is done twice then back to chorus.
8. This reggae chord progression was made popular by Travie McCoy and Bruno Mars -Billionaire.
Chords: A major – C# 7 – F# minor – E major, this is done twice for the intro.
Then D major – E major – F# minor twice,
Then D major – E major – A major – G# minor – F# minor – E major – D major – C# 7
The verse is the same as the intro. Chorus: A major – B minor. Very Easy!
9. This next reggae chord progression was made popular by Bob Marley - Stir It Up.
Chords: A major – D major – E major. Note though, Bob is using the chuck technique here.
10. The last reggae chord progression again, was made popular by Bob Marley - One Love.
Chords: B major – F# major – E major – B major – F# major – B major, for the intro.
Then F# major – E major – B major – F# major – B major – E major – B major – F# major – B major – E major – B major – F# major – B major, for the chorus.
Verse: B major – G# minor – E major. That’s it, have fun! For more on reggae chords. If you like r & b chord progressions take a look.
once--- piano descente en conclusion`
-- $ mask "<f!60 t!4>"
$ "fepiano:7"
# cut 31
live/midi/nova/feu.tidal 0 → 100644
d1
$ note "c" # "supersaw" # gain 0.7
do
-- region Nova Utils
let gG a = (gain ("^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 gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 9000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
-- let gDelay = ((# delay "[0 0.5]/2") . (# orbit 1))
-- let gDelay = ("^29")
let novaOn ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
-- endregion Nova Utils
let g = (gDJF)
let melody = scale "aeolian" (whenmod 16 12 rev "0 2 0 <3 <4 5>>*<2 4>")
let gDelayD = (# delay (range 0 0.99 "^13"))
let gDelayFB = (# delayfb (range 0 0.9 "^29"))
let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2) . novaOn "^90" (# silence))
setcps (140/60/4) -- keep it between 110-190 BPM. You won't be sorry you did.
-- resetCycles
d1
$ g -- Kick
$ novaOn "^73" (<| "~ ~ k ~") -- 1D
$ novaOn "^74" (<| "k*2") -- 2D
$ novaOn "^41" (<| "k*3 k*3 k*3 <k*3 [k ~ <~!3 k>]>") -- TRANSE
$ "k k k k"
# "[jazz]"
-- # room 0.05
# gM' 0 1.05 "^78"
d2 -- Clap contretemps
$ (# lpf 5000)
$ g -- Snare
-- $ (|/ lpf 2)
-- $ (|- lpf 1000)
$ novaOn "^43" (fast 2)
$ superimpose ((# "cp"))
$ "~ c"
# "glitch:2"
-- # "[snare:50,snare:4]"
# orbit 1
# gM' 0.2 1 "^79"
d3 $ g -- Hats
-- $ every' 4 3 (
-- sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
-- . sometimesBy "0 . 0 1 0 0" (|* gain 0)
-- )
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^44") (<|"h*8")
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ s "hh"
# room "^52"
# sz "^32"
# dry (range 0 2 "^16")
# pan (range 0 1 "^15")
# cut 3
# orbit 3
# gM' 0.2 1 "^80"
d4 $ g -- Lead synth
$ novaOn "^57" (mask "t f t")
$ slow 2
$ novaOn "^89" (striate 2)
$ note (iter 4 melody) -- Naif
# "supersaw"
# pan 0.6
# rate (range 0 1 "^18")
# resonance (range 0 0.9 "^34")
# lfo (range 0 1 "^54")
-- # resonance (range 0 0.9 "^54")
# voice (range 0 1 "^33")
# crush (range 16 2 "^53")
# release 0.95
# pan (range 0.5 1 "^18")
# gM' 0.25 0.8 "^81"
# phasr "^19"
# phasdp "^20"
d5
$ note (melody)
# "bassWarsaw"
# crush (range 12 4.2 "^54")
# octave 3
# pan (range 0 0.5 "^18")
# gM' 0 1.2 "^82"
d6 -- continuous laser
$ novaOn "^60" (off 1 (|* gain 0.8) . mask "<t f>")
$ novaOn "^59" (# silence)
$ s "bd"
>| speed (
segment (range 16 128 "^35") $
range
(range 0 127 "^55")
(range 0 127 "^56")
(sine)
)
# gM' 0.5 0.85 "^83"
--- TODO HISTORIQUE
d5 $ g $ gDelay -- Skank Piano
$ whenmod 4 3 (sometimesBy "0 1 . 0" (
(# note "[d5,g4,b4]") . (|* gain 0.8)
))
$ "<[~ p*<1 1 1 <1 2>> ~ p*<1 1 2 1>]>"
-- TODO FIX ALIGNMENT CONTRETEMPS DE LA REPETITION
-- $ "<[~ p p] [~ [p <~ p*<1 2>>] . ~ p]>"
# "superpiano"
# note chords
# velocity 0.6
# sustain 0.34
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
$ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
# "superhammond"
# gM' 0 0.6 ("[0 0.25 0 0]" |+ "^82" * (range 0 0.9 "^34"))
# voice 6
# octave 6
# sustain 0.25
d7
$ g $ gDelay -- Skank Guitar
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
d8 -- Trompette lancinante
$ novaOn "^59" (mask "<f!3 t>")
$ slow 2 $ note ("~ <a!7 g> <g d g bf> ~")
# "brass:2" # gM' 0.2 0.55 ("^55")
# cut 8 # room 0.1
d9 -- CP
$ sometimesBy "^59" (fast 2)
$ (# lpf 2000)
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2
$ "~ cp"
# gM' 0 1.1 "^83"
# room 0.2
# dry 0.9
# lpf 2000
live/midi/nova/minneapolis.tidal 0 → 100644
-- Good Morning Minneapolis
-- TODO Note default knob values
-- >1A 2A 3A 4A 5A 6A 7A 8A UP DOWN
-- >1B 2B 3B 4B 5B 6B 7B 8B L R
-- `29 30 31 32 33 34 35 36 106 107`
-- >1C 2C 3C 4C 5C 6C 7C 8C
-- `49 50 51 52 53 54 55 56`
-- XXX XXX XXX XXX XXX pSust fSpd gunFreq
-- XXX XXX XXX XXX crBass pLVel cpStut gunSpd
-- DJF XXX XXX panDr gSiren pRVel cpSpd gGuns
-- G Kick Sn DrRoll Bass Piano CP Fire
-- X TCHN Stut Wait/Run TCHN XXX XXX XXX
once $ "dr" # gain 0.8
do
-- region Nova Utils
let gG a = (gain ("^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 gDelay = ((# delay 0.125) . (# delayfb (range 0 0.4 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 9000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
let novaOn ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
-- endregion Nova Utils
let g = (gDJF)
-- let g = id
let melody = "<d4'min d4'min <a3'min g4'min e4'min> d4'min>"
let melodyFirst = "<d3 d3 <a3 g3 e3> d3>"
setcps 0.5
d1 $ g
$ novaOn "^41" (superimpose ((# "kick:5") . (|* gain 1.1))) -- TECHNO
$ novaOn "^41" (<| "k <k!4 ~!4> k <k!3 k*2>") -- TECHNO
$ novaOff "^41" (<| "k . k(<1 <3 5>>,8,<0 4>)") -- Hip beat
$ "reverbkick"
# gM' 0 1 "^78"
d2 $ g
$ mask "<f!8 t!8> <f!4 t!4> . t"
$ sometimesBy ("^43") -- Stut
(mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
$ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2"
# s "snare:20"
# gM' 0 0.8 "^79"
# pan 0.3
d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
$ novaOn "^41" ( -- TECHNO bells!
whenmod 4 3 (
sometimesBy "0!15 <0!4 1!4>" (# silence) .
sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) .
fast 2) .
(>| "ho*8")
)
$ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll
$ novaOn "^44" (fast "<16!3 [16 8]> [8 <8!3 16>]") -- Running roll
$ s "drum:8"
# pan (slow 8 $ range 0.1 0.9 (sine + "^52"))
# gM' 0 1 "^80"
# cut 3
d6 $ g -- Hit roll opposé drumroll
$ every' 4 3 ( -- acceleration + cymbale
fast "2 1" . (# n "0!3 1")
. (|* gain "1!3 <0.65 0.8>")
)
$ s "hh(<3!4 5!4>,8)"
# gM' 0 0 "^80"
# pan 0.7
d4 $ g
-- $ degradeBy "0 0.9!7" -- OUTRO
$ mask "t(<1 2!2 4>,4)"
$ superimpose (
often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>")
. (|+ note 36)
. (# velocity (range 0.35 0.75 ("^34" + (fast 4 perlin/8))))
. (|* velocity 1.1)
. (# room 0.2)
. (/ sustain 2)
. (# sz 0.8)
. (|+ pan 0.15)
)
$ note (melody)
# s "superpiano"
# gM' 0 0.9 "^82"
# velocity (range 0.35 0.60 ("^54" + (fast 4 perlin/8)))
# sustain (max 0.45 $ min 1 (2 * range 0.15 1 "^18"))
# room 0.4 # size 0.2
# pan 0.5
d5 $ g -- Basse + Sirene
$ sometimesBy ("^57") ( -- TECHNOPHILE
chop "<4!3 8> <8!3 4>"
-- . often (ply 4)
)
$ superimpose (
slow 4
. (# s "supersiren")
. (-| note 12) -- 24 when crushed
. (# gM' 0.2 0.8 ((
"^81" -- gain bass
* (range 0.6 0.9 "^53") -- Modulated 5C
)
- (0.125 * "^57") -- When TECHNOPHILE
))
. (# crush (range 10 3 "^33"))
. (# room 0.5)
. (# size 0.8)
)
$ note (
"0*2 0 . 0 <7 5 5 7> ~ 0"
+ melodyFirst
)
# s "supersaw"
# voice 0.02
# crush (range 10 2 "^33")
# gM' 0 0.8 ("^81" * (range 0.9 0.4 "^53")) -- Modulated 5C
# pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantome
$ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s")
$ s "~ . cp*<1 1 2 1 1!3 2> ~"
# room 0.2
# sz (range 0.5 0.9 perlin)
# dry 1.05
# speed (range 0.01 1.25 "^35")
# gM' 0 1 "^83"
# lpf 2000
# pan (slow 8 $ range 0.45 0.65 saw)
d8 $ g -- Gunfire
$ sometimesBy "^20" (
superimpose (const -- pistolets
$ sometimes ( -- réplique
off 0.5 (|+ gain 0.1)
. (# room 0.25)
)
$ often (stut 2 0.85 (1/16)) -- écho
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3)))
# gM' 0 1 ("^56")
# cut 80
# dry 1.02
# pan (range 0.2 0.8 perlin)
)
)
$ sometimes (off "h" id)
$ s "fire"
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.5 1 ("^19" + perlin/4))
# gM "^84"
# delay 0.3 # delaytime (1/3) # delayfb 0.8
live/midi/nova/party_hard.tidal 0 → 100644
-- Beat
do
-- region Nova Utils
let maxG = 1.5
let gG a = (gain ("^77" * (min maxG a))) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.9 a) -- gain Modéré doux
let gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 19800 ("^49")))))
let gHPF = (# hpf (max 0 (min 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
setcps (80/60/4)
let g = id
-- endregion Nova Utils
let g = gDJF
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
let chord = "c'maj"
let chordAug = "c'maj'8"
d1
$ g
$ (0.01 <~)
$ sometimesBy ("^73") (fast 2)
$ somecyclesBy "^41" ((<| "k*4") . (|* gain 1.1))
$ somecyclesBy (1 - "^41") (<| "k . k(<3 5>,8)")
$ "[jazz,808bd:1]"
# gM' 0 0.95 "^78"
-- Break
d2
$ g
$ loopAt 1
$ someCyclesBy "^74" -- Leg
(slice 8 "0 ~ 2 ~ 4 ~ <6!3 ~> ~")
$ someCyclesBy "^75" -- Med
(slice 8 "0 ~ 2 3 4 <5 6> 6 4")
$ someCyclesBy "^76" -- Heavy
(slice 8 "0 1 2 3 4 3 6 6*2")
$ "fbreak80:2"
# cut 1
# lpf 5000
# gM' 0 1.4 "^79"
d3 -- Drumroll masked
$ g
$ someCyclesBy "^44" (fast 2)
$ sometimesBy "^52" (mask "t f!6 [t f]")
$ "drum*<8!3 [8 16]>"
# "gretsch:4"
# gM' 0.2 1.2 "^80"
d4
$ sometimesBy "^57" (superimpose (
ply "<2 4 [4 8] 8>" .
mask "t(1,4)"
. arpeggiate
. (# "superpwm")
. (|* gain 0.5)
. (# pan 0.6)
. (# crush 16)
. (# voice 0.2)
. (# octave 5)
))
$ sometimesBy "^89" (chop 8)
$ note (cat blues + chord)
# "bassWarsaw"
# pan 0.75
# room 0.1
# octave 4
# crush (range 11 6 "^53")
# voice 0.8
# room 0.1
# gM' 0.6 1.1 ("^81")
d5 -- Choeurs
$ sometimesBy "^90" (rev)
$ superimpose (
(0.5 ~>)
. superimpose (
sometimesBy "^58" ((euclid (slow 4 "<3 3 3 5>") 8) . (|+ gain 0.1))
. arpeggiate
. (|+ note chordAug)
. (# pan 0.55)
. (|* gain 0.95)
)
. (|+ note 12)
. (|* gain 0.95)
. (# legato 0.5)
. (# pan 0.45)
)
$ note (cat blues)
# "moogBass"
# gM' 0 1.2 "^82"
# octave 3
# room 0.4
# size 0.7
# dry 1.05
d7
$ sometimesBy "^59" (# lpf 2000)
$ g
$ sometimesBy "^91" (fast 2)
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
$ fast 2
$ "~ cp"
# gM' 0 1.1 "^83"
# room 0.2
# dry 0.9
# lpf 2000
once $ "dr" # gain 0.8
gain
once
j
live/midi/nova/superFM.tidal 0 → 100644
-- superfm
-- 6-op FM synth (DX7-like). Works a bit different from the original DX7. Instead of algorithms, you set the amount of modulation every operator receives from other operators and itself (feedback), virtually providing an endless number of possible combinations (algorithms).
-- voice is the preset number: 0 is user-defined; 1-5 are randomly generated presets
-- lfofreq is the overall pitch modulation frequency
-- lfodepth is the overall pitch modulation amplitude
-- Each operator responds to
--
-- amp (operator volume - becomes carrier)
-- ratio (frequency ratio)
-- detune (in Hz)
-- eglevel (1-4) (4 envelope generator levels)
-- egrate (1-4) (4 envelope generator rates)
--
-- The syntax for operator arguments is <argumentName + opIndex>[modulatorIndex | egIndex]. For example:
--
-- amp1 1 (op1 as carrier with full volume)
-- ratio2 2.3 (op2 frequency ratio)
-- mod11 0.5 (op1 feedback)
-- mod12 0.78 (op1 modulation amount by op2)
-- detune1 0.2 (op1 detune)
-- eglevel12 0.1 (op1 EG level2)
-- egrate11 0.01 (op1 EG rate1) – WARNING: higher values go FASTER!
d2 $ "gretsch*4"
once $ "dirac" # # gain 0.9
-- region DRONEDIM
d1
-- $ ply "3 4"
-- $ ply 2
-- $ superimpose (# octave 3)
-- $ slow 2
-- $ up (arpeggiate "<a4 e5>'min7'")
$ "superfm"
# gain 0.9
# room 0.5 # sz 0.5
-- endregion DRONEDIM
live/midi/nova/waves.tidal 0 → 100644
do
setcps (90/60/4)
d1
$ "k*2 ~ . ~" # "jazz" # gain 0.5
d2
$ superimpose (rev . (|+ note 12))
$ stut 4 0.6 "q"
$ "superwavemechanics"
# note "c"
# resonance (slow 32 $ range 0 0.7 saw)
# legato 2
# gain 0.4
# accelerate (slow 16 $ range 0.125 "-0.125" perlin)
--
-- From synthdef.art #wavemechanics
--
-- accelerate (0) for pitch glide
-- detune (0) for pitch randomization
-- voice (0) to color/whiten the noise
-- resonance (0) affects reverberation
live/midi/nova/zelda.tidal 0 → 100644
once $ "space" # gain 0.4
do
-- region Nova Utils
let gG a = (gain ("^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 gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 19800 ("^49")))))
let gHPF = (# hpf (max 0 (min 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
-- let bpm = ("^13")
-- endregion Nova Utils
let g = id
let g = gDJF
setcps (92/60/4)
-- resetCycles
d1 $ "k . <k k(<3 5>,8)>" # "reverbkick"
# lpf 1000
# gM' 0 1.4 "^78"
# cps ((range 1 127 "^13")/60/4)
d2 $ g -- Break slow downtempo
$ someCyclesBy "^74" -- Intro
(slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy
(slice 8 "0 1 4 3")
$ someCyclesBy "^76" -- Fulltime!
(slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
$ splice 8 ("0 1 2 1 3 <5!3 3> 2 <3 1>")
$ "breaks125:4"
# gM' 0 1.4 "^79"
d3 -- Drumroll Zelda
$ g
$ "d*2 . ~ d*<1!3 2> d*2 d*2"
# "[drum:2,tech:13]"
# gM' 0.2 1.4 "^80"
d4
$ note ("<c4 bf3 af3 g3>")
# "supersaw"
# voice 0.1
# gM "^81"
live/noise/decentering.tidal
......@@ -67,7 +67,7 @@ $ note "<0 <3 [3 3]> <0 [3 0]>>"
# hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ 1 - cosine * 0.9)
|- note 24
# gain 0.85
# gain 0.95
d11 -- cymbale
$ whenmod 64 32 (always (# n 3)) -- prolonge
......@@ -80,4 +80,4 @@ $ sometimes (|- gain 0.1)
$ euclid 5 4
$ s "~ cy"
# s "808cy"
# gain (slow 32 $ sine * 0.4 + 0.4)
# gain (slow 32 $ sine * 0.4 + 0.3)
live/techno/funk/naufrage.tidal
......@@ -72,7 +72,7 @@ do
scale "major" "<0 2 4 12>" + (run 4)
) # gain 0.7
once "fpiano"
once $ "fpiano" # gain 0.8 # cut 1
once $ s "fguitar:36"
# gain 0.75 # cut 42
......
notes.md
# HARDWARE
## Novation
-- Controls:
>1A 2A 3A 4A 5A 6A 7A 8A UP DOWN
`13 14 15 16 17 18 19 20 104 105`
>1B 2B 3B 4B 5B 6B 7B 8B L R
`29 30 31 32 33 34 35 36 106 107`
>1C 2C 3C 4C 5C 6C 7C 8C
`49 50 51 52 53 54 55 56`
>1F 2F 3F 4F 5F 6F 7F 8F
`77 78 79 80 81 82 83 84`
>T1 T2 T3 T4 T5 T6 T7 T8
`41 42 43 44 57 58 59 60`
>b1 b2 b3 b4 b5 b6 b7 b8
``
# Pattern add
-- Structure 5:
-- *1*
......
study/chords.md 0 → 100644
# Reggae
1. Bob Marley used this reggae chord progression on No Woman, No Cry and so have other reggae artists.
Chords: C major – G major – A minor – F major – C major – G major C major – G major. This reggae chord progression works for the intro, verse, chorus and bridge.
2. Peter Tosh used this reggae chord progression on Johnny B. Good. Only two chords are used.
Chords: E minor – D major.
This is play over and over. It’s a very, very popular reggae chord progression.
3. UB 40 made this reggae chord progression very popular with Red Red Wine.
Chords: C# major – F# major – D# minor – G# major. This is done 3 times. Then G# major – F# major – G# major, then start over for chorus and verse.
Bridge: G# major – C# major – F# major – C# major – G# major – C# major – F# major – G# major. Then back to chorus.
4. Gregory Isaacs used this reggae chord progression on Night Nurse. Just two chords like Tosh’s Johnny B. Good.
Chords: A minor – G major. Just play them over and over.
5. Third World used the following reggae chord progression on 96 Degrees In The Shade.
Chords: A minor – G major for the verse. And chorus is C major – G major – A minor, Very, very easy indeed.
6. Jah Cure, T.O.K, Morgan Heritage, Gentleman and many others made this reggae chord progression popular.
Chords: E minor – C major – D major – B minor – C major – A minor – B7 or B minor. Again very popular so learn it!
7. This reggae chord progression was made popular by Tyrone Taylor - Cottage In Negril, very sweet chord progression.
Chords: C# major – G# major – F# major – G# major – F# major – F# major – G# major, for the intro.
Chorus and Verse: C# major – G# major – F# major – D# minor – G# major, this is done twice.
Then C# major – F minor – D# minor – G# major, this is done twice then back to chorus.
8. This reggae chord progression was made popular by Travie McCoy and Bruno Mars -Billionaire.
Chords: A major – C# 7 – F# minor – E major, this is done twice for the intro.
Then D major – E major – F# minor twice,
Then D major – E major – A major – G# minor – F# minor – E major – D major – C# 7
The verse is the same as the intro. Chorus: A major – B minor. Very Easy!
9. This next reggae chord progression was made popular by Bob Marley - Stir It Up.
Chords: A major – D major – E major. Note though, Bob is using the chuck technique here.
10. The last reggae chord progression again, was made popular by Bob Marley - One Love.
Chords: B major – F# major – E major – B major – F# major – B major, for the intro.
Then F# major – E major – B major – F# major – B major – E major – B major – F# major – B major – E major – B major – F# major – B major, for the chorus.
Verse: B major – G# minor – E major. That’s it, have fun! For more on reggae chords. If you like r & b chord progressions take a look.
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