Skip to content

T
Tidal
Unverified Commit 551fd026 by PLN (Algolia)
Options

German wings

parent 2d184582
Showing with 256 additions and 63 deletions
copycat/electric_fever.tidal
......@@ -16,7 +16,6 @@ $ note (
# gain 0.8
d2 -- hit roll
$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
# s "hh"
......@@ -39,6 +38,7 @@ $ s (cat [
# release 0.5
d5
$ someCycles (fast 2)
-- $ whenmod 32 16 (# silence)
$ whenmod 32 4 (# gain 0.8)
$ every 4 (# silence)
......
live/bdmania.tidal
d1 $ sound "bd(<<0 1 5 7> 3>,8)"
d1 -- kick
-- $ euclid "<4 6>" 4
$ euclid "<<0 1 5 7> 3>" 8
$ sound "bd"
d2
d2 -- tic toc
$ someCycles (degrade . fast 2)
$ every 8 (off (1/8) (|+0))
$ every' 16 7 degrade
$ every 16 (# gain 0)
$ s "bd(5,8)"
# note "<50 <55 <60 65>>>"
d3
d3 -- vibration montante!
$ every' 16 12 (# gain 0)
$ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain saw)
$ every' 16 15 (# gain (0.5 + saw / 2))
$ sometimesBy 0.01 (# crush 4)
$ every 4 (rev)
$ sound "bd"
# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed (
-- segment "<80 100 120 80>/16"
segment 100
$ range 1 3 saw
)
# gain 0.5
d4
d4 -- helico
$ every' 4 3 (off 0.125 (|+ 0))
$ every 8 (# gain 0)
$ every' 8 7 (# gain 1.5)
$ every' 8 7 (# gain 1.2)
$ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd"
# gain 1.6
d5 -- cordes guitare pincée
$ someCycles (fast 2 . degrade)
$ someCycles (slow 2 . off 0.125 (|- up 12))
$ off 0.125 (|+ up 12)
$ off 0.125 (|+ up 12)
$ off 0.25 (|- up 12)
$ up "40 47"
# s "bd"
d6 -- clap!
$ stut 2 1.05 0.05
$ s "~ ~ bd ~"
# hpf 400
# lpf 1000
live/chill/bad_bad_guy.tidal
......@@ -9,11 +9,10 @@ d2 -- drums, someroll
$ whenmod 16 8 (# gain 1)
$ whenmod 16 4 (# gain 0.8)
$ whenmod 16 0 (# gain 0.6)
$ fast 2
-- $ fast 2
$ sometimes (# s "dr 808cy:5")
$ s "dr*<2 4> [hh hh?]"
d3 -- bass
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
# s "bass3"
......
live/chill/dub.tidal
setcps 0.6
d1 -- beat: default chill, run tous les 64
$ whenmod 128 64 ( -- run
$ whenmod 128 1000 ( -- run
const $ "[r r?] r r [r r?]" # s "[kick:4,kick:10]"
# release 0.8
# gain 0.8
# gain 0.7
)
$ euclid "<1 2>" 4
$ s "<k k*2 <k*2 k> k>"
# s "kick:4"
# release 0.8
# gain 0.8
# gain 0.7
-- # room 0.5
-- # size 0.5
......@@ -21,44 +21,44 @@ $ whenmod 64 48 (fix (# gain "<0.7,0.025 .. 0.5>") (s "clap"))
$ whenmod 64 32 (fix (# gain "<0.5,0.025 .. 0.7>") (s "clap"))
$ whenmod 64 0 (fix (# gain "0") (s "clap"))
$ fix (# n (wchoose [(0.8,0),(0.2,1)])) (s "clap")
$ s "hh(<4 4 4 2>,4) [~ clap]" # n "8 8 8 <8 8 8 9> 3"
$ s "hh?(<4 4 4 2>,4) [~ clap]" # n "8 8 8 <8 8 8 9> 3"
d4 -- Basse
-- $ rev
$ rev
$ jux degrade
$ note (scale "major"
"<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~"
)
# s "bassWarsaw"
# attack 3
# room 0.3
# size 0.8
|- note 30
d5 -- Reggaeman bloqué dub
$ fast 2
$ sometimes (superimpose (|- note 7))
$ superimpose (|+ note "<3 3 5 5>")
$ note (scale "major" "~ 0")
# s "cheapPiano1"
# s "superpiano"
|- note 7
# gain "<0.75 .. 1 1 .. 0.65>"
# gain "<0.75 .. 0.8 0.8 .. 0.65>"
# room "<0.2 .. 2 2 .. 0.2>"
# size "<0.8 .. 0.2>"
# dry "1,0.2 .. 4 5,0.5 .. 1"
# velocity (0.5 + (rand / 2))
d6 -- lead harpe joyeuse
$ jux rev
$ whenmod 32 16 (off 0.125 (|+ 5))
$ sometimes (fast 2)
$ sometimes (off 0.125 (|+ 5))
$ "h?*8"
# n (scale "aeolian" "0 2 4 <7 9> <0 -3>")
# s "harpsichord2"
# gain "<0.9,0.05 .. 0.7 0.7,0.05 .. 0.9>"
d7 -- lead second
$ sometimes (|+ note 7)
$ sometimes (|- note 7)
$ someCycles (degrade . off 0.5 (|+ 0))
$ s "~ dsynth(<4 3 5>,8)"
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>" - 21
# gain 0.7
# gain 0.5
live/chill/dub/rebond.tidal 0 → 100644
setcps 0.5
d1 -- kick rond, lourd
$ s "kick:7"
d2 -- synthe regulier
$ superimpose (|+ note "<3 5>")
$ n (scale "aeolian" "[0 0] ~ 7 ~")
# s "superpiano"
d3
$ note (scale "aeolian" "0 3")
# s "bass3"
# n "5"
# release (rand / 4)
live/chill/major_nostalgia.tidal
......@@ -20,7 +20,6 @@ $ someCyclesBy 0.2 ((# room 0.2) . (# dry 8))
$ someCycles (# attack 0.2)
$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
# s "bassWarsaw"
# gain 0.9
d4 -- lead piano
$ whenmod 32 16 (someCycles $ degrade)
......@@ -35,7 +34,7 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
# s "superpiano"
# sustain 2
# velocity 0.8
# gain 0.8
# gain 0.9
d5 -- choeur fou
$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
......@@ -48,6 +47,18 @@ $ off 0.25 (|+ 7)
$ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>")
d5 -- choeur fou
-- $ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
-- $ whenmod 64 32 (# gain 0.9)
$ whenmod 8 4 (|- note 7) -- octave inferieure
$ superimpose ((|+ note 5) . degrade) -- variations quinte
$ someCyclesBy 0.2 rev
$ chop "<2 4 6 8>"
$ off 0.25 (|+ 7)
$ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>")
d6 -- final aigu
$ whenmod 64 32 degrade
$ sometimes degrade
......
live/dnb/nass.tidal
......@@ -18,7 +18,7 @@ $ fix (
$ fix (# s "[kick:8,kick:9]") (s "p")
-- $ s "bd ~ s ~ ~ bd s <~ s>"
$ s "p ~ t <~ t ~ ~> ~ p t <~ p>"
# gain 0.7
# gain 0.9
d2 -- bass
......
live/fusion/anthropocene.tidal
setcps 0.5
-- Acte un: l'humain pose son rythme
-- Acte deux: l'humain impose sa matiere
-- Acte trois: tension
......@@ -9,12 +8,12 @@ d1 --beat
-- $ someCyclesBy 0.1 ((# s "beating") . (stut 4 0.5 0.25)) -- 2: tension
$ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft
-- $ fix ((off 0.5 (|+ 0)) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder
-- $ fix (((off 0.125 (|+0) . (>| s "kick:5*<1 2 1 1>")))) (s "k") -- kick hard (heartbeat)
-- $ fix ((someCyclesBy 0.25 (off 0.125 (|+0))) . (>| s "kick:5(<<2 2 4 4 4 4 2 2 3 4 4 3 2 2 0 0> 4>,4)")) (s "k") -- 3: kick hard (heartbeat)
-- $ fix (((off 0.125 (|+0) . (>| s "kick:5*<1 2 1 1>")))) (s "k") -- kick hard (heartbeat)
-- $ s "k(2,4)" -- 1 tranquille
$ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
-- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
-- $ s "k(4,4)" -- 1 final 4 temps
-- $ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
$ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
# gain 0.8
d2 -- 1: batterie tic tac
......@@ -26,7 +25,7 @@ $ n "2 1"
d5 -- basse
$ whenmod 8 4 (|- n 2)
$ someCyclesBy 0.8 (superimpose (# s "subBass2"))
-- $ someCyclesBy 0.8 (superimpose (# s "subBass2"))
-- $ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
$ someCycles (off 0.25 (|- 7))
$ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
......@@ -52,18 +51,19 @@ $ n "3 3 3 4"
d4 $ -- noise guitar tension
s "bsguitar:6*2" # note "<0 0 0 0 1 1 1 1>"
|- note 1
# gain 0.5
# gain 0.65
-- 3 -> 4
d6 -- claps encourageants
-- $ whenmod 64 32 (# silence)
-- $ fast 2
-- $ every' 2 1 ((# release 0.8)) -- deuxieme clap sans echo
$ fix ((# s "clap:2") . (# room 0)) (s "clap") -- claquements de doigts
$ fast 2
$ every' 2 1 ((# release 0.8)) -- deuxieme clap sans echo
-- $ fix ((# s "clap:2") . (# room 0)) (s "clap") -- claquements de doigts
$ s "~ clap"
# room "<<0.2 .. 0.5 0.6 .. 0.2> 0>"
# dry "<0 .. 3 3 .. 0>"
-- Acte quatre: résolution
d4 $ s "bsguitar:4" # cut 1 # begin 0.2
......@@ -71,14 +71,16 @@ d4 $ s "bsguitar:4" # cut 1 # begin 0.2
-- ACTE 4
d4 -- lead guitar pensive
-- $ whenmod 16 8 (# begin 0.5) -- 2: alterne au debut
$ whenmod 16 5 (off 0.125 (|- note 3)) -- TODO: Variations guitare
$ whenmod 16 0 (off 0.125 (|- note 3))
$ s "bsguitar:4" # cut 1
-- # begin "<0 0 0.5 0.5 0.2 0.4 0 0>"
# begin "<0 0 0.5 0.5 0.2 0.4 0 0>"
-- # begin "0.6" -- pont!
-- # begin "0.8" -- pont evanescent!
# up 1
# room 0.8
# size 0.6
# gain 1
# gain 0.6
# size "<0.4,0.05 .. 0 0,0.1 .. 0.4>"
d6 --phazer joyeux, resolution
......@@ -90,4 +92,4 @@ $ jux (degrade . rev . chop "<1 2 4 8>")
$ n (scale "major" "<3 [3,5] [3,7] [3, 5, 7]>")
# s "phazer"
# gain 0.6
|- n "2" -- 3: parfois mineure!
-- |- n "2" -- 3: parfois mineure!
live/fusion/batterie.tidal 0 → 100644
setcps 0.9
d1
$ s "lt <~ ~ lt ~> mt <~ mt>"
# gain 0.7
d2
$ someCyclesBy 1 (# s "sn")
$ s "~ <~ sn:2 [sn:2*2 ~]>"
d3 -- drumroll
$ whenmod 64 32 (const $ s "[dr:3?,dr:4?]*<2 4 8 8>") -- scratch
$ whenmod 32 28 (const $ degrade $ s "dr*16")
$ whenmod 8 7 (degradeBy 0.8)
$ whenmod 8 6 (# n 1)
$ every 4 (degrade)
$ s "dr*8"
d4
$ whenmod 64 32 (rev)
$ whenmod 16 12 (|+ note 10)
$ whenmod 16 8 (|+ note 7)
$ whenmod 16 4 (|- note 3)
$ off 0.125 (|+ 5)
$ superimpose ((|- note 21) . (off 0.25 (|+ 5)))
$ n (scale "major" "<[0,3] [0,5] [0,7]>")
# s "superpiano"
# velocity 0.5
# sustain 0.5
d5 -- bassline
$ whenmod 64 48 (fast 2)
$ degrade
$ n (scale "aeolian" "<0 3 0 5 3 2 0>*8")
# s "bassWarsaw"
# room 0.2
d6 -- synth backup
$ superimpose ((|+ 7) . (# gain 1.1). (|- note "<0 3 5 0>"))
$ n (scale "aeolian" "<0 3 0 5 3 2 0>*8")
# s "defaultB"
# gain 0.9
|- note 7
d7 -- cymbale
-- $ whenmod 16 12 (# gain 1)
$ s "~ ~ co:<0 .. 3> ~"
-- # gain 0
d8 -- beat?
-- $ euclid "<2 2 2 4 2 2 4 4 2 4 4 4 4 4 2 2>" 4
$ euclid 4 4
$ s "kick:2"
# gain 1.25
live/fusion/bogdanerie.tidal 0 → 100644
d1
$ euclid "<2 2 4 2 4 4 4 2 4 2 2 2>" 4
$ s "kick"
# gain 0.7
# n "[2,4]"
d2
$ whenmod 32 20 (# gain 0)
$ whenmod 32 16 (# gain 0.8)
$ s "hh:3?*8"
# room 0.5
# dry 0.3
# gain 0
d3 -- drums
$ whenmod 16 10 ( -- 80s drumroll
const $ every 4 (off 0.25 (# n 2))
$ n "[2 3] . 2 . 3 . 2 2 3 2" # s "electro1"
-- const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1"
)
$ whenmod 32 16 (degrade)
$ whenmod 16 8 (off 0.125 (|+ 0))
$ sometimes (# s "dr")
$ s "hh(<4 4 3 4>,8)"
d7
$ degrade
$ s "~ bogdan/8" # cut 1
# n (irand 10)
# room (rand)
# dry (irand 4)
d4
$ whenmod 32 16 (rev)
$ whenmod 16 15 (# gain 0.5)
$ whenmod 16 12 (# silence)
$ whenmod 16 10 (# release 0.1)
$ whenmod 16 2 (# gain 0.8)
$ whenmod 16 1 (# gain 0.7)
$ whenmod 16 0 (# gain 0.6)
-- [b ] [b b]
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# s "bass3:1"
# note "0 5 [[8 5] [8 <12 5>]] 0 "
live/techno/blade-piano.tidal
......@@ -3,24 +3,26 @@ setcps (-1)
setcps (0.5)
d1
-- $ fast 2
-- $ whenmod 64 32 (# silence)
-- $ whenmod 32 16 (rev)
$ fast 2
$ whenmod 64 32 (# silence)
$ whenmod 32 16 (rev)
$ chop "<1 2> <4 4 1 1>"
$ s "cs80leadMH*2"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>")
# room 0.3
# dry 2
# gain 0.9
d2
-- $ whenmod 64 48 (# silence)
$ whenmod 64 48 (# silence)
-- $ fast 2
-- $ every 4 (off 0.75 (|+ 0))
-- $ off 0.5 (|+ 0)
$ every 4 (off 0.75 (|+ 0))
$ off 0.5 (|+ 0)
$ s "reverbkick(<2 4 4 4 3 4>,4)"
# gain 0.7
d3
-- $ whenmod 64 48 (# gain 0)
$ whenmod 64 48 (# gain 0)
-- $ whenmod 64 8 (# gain 1)
$ fast 2
$ every 2 (off 0.25 (|+ 0))
......@@ -39,16 +41,16 @@ $ whenmod 31 24 (|+ note 0)
$ whenmod 31 16 (|- note 7)
$ whenmod 31 8 (|+ note 0)
$ whenmod 31 0 (|+ note 7)
-- $ someCyclesBy 0.2 (off (1/16) (|+ 0))
-- $ someCycles (off (1/8) (|- 7))
-- $ swing 4
$ someCyclesBy 0.2 (off (1/16) (|+ 0))
$ someCycles (off (1/8) (|- 7))
$ superimpose ((|- note 21) . (# gain 0.7))
$ note (
-- 3 * (-7) +
(scale "major" "[0, 3, 5]") +
"<0 5 7 12>"
)
# s "cheapPiano1"
# gain 0.9
# gain 0.8
d5
$ whenmod 16 14 (# velocity 0.5)
......@@ -60,4 +62,4 @@ $ someCyclesBy 0.2 (# release 0.2)
$ s "superpiano"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7)
# pan 0.8
# velocity 0.9
# velocity 0.8
live/techno/german_wings.tidal
-- Techno - 80s - aerian
setcps 0.5
setcps 0.6
d1
-- $ fast 4 . (off 0.5 (# s "<~ clap>"))
$ (fast 2) . (off 0.5 ((# s "clap:1") . (# room 0.5) . (# dry 1)))
$ s "kick:2"
# gain 0.8
# gain 1
d2 -- batterie, FIXME too loud
$ fix (# s "electro1:0") (n 1)
$ n "3 1 3 [[1 ~ 1?] 1]"
# s "jazz"
# gain 0.8
-- # note (irand 7)
d3 -- drums
......@@ -31,7 +32,7 @@ $ s "[~ electro1:1]*4"
d5
$ whenmod 8 4 (|- note 2)
$ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
-- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
$ superimpose ((# s "bass3:2") . (|+ note 7))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
|- note 14
......@@ -68,7 +69,6 @@ $ s "glitch:2" -- # n (run 8)
# cut 1
# gain 1.2
--- SANDBOX
d6 -- lead synth? too low currently
......
live/techno/major_nostalgia.tidal
......@@ -2,11 +2,11 @@ setcps 0.5
d1 -- batterie
$ whenmod 64 16 (fast 4 . (every 4 (off 0.5 (|+ 0))))
$ s "popkick"
$ s "{popkick,kick:5}"
# gain 0.8
d2 -- drums TODO: too loud on 16/64
$ whenmod 64 16 (sometimes (# s "dr") . (# s "hh:5"))
$ whenmod 64 16 (sometimes (# s "dr") . (# s "hh:5") . (# gain 0.9))
$ whenmod 64 14 (fast 2 . (# s "hh:1"))
$ whenmod 4 3 (sometimes (# n "1"))
$ someCycles (fast 2)
......@@ -15,7 +15,7 @@ $ "hh:12"
d3 -- basse
$ whenmod 8 4 (|- note 5) -- quinte
$ someCyclesBy 0.2 ((# room 0.2) . (# dry 8))
$ someCyclesBy 0.2 ((# room 0.1) . (# dry 8))
$ someCycles (# attack 0.2)
$ note (scale "major" "0(3,8) [<3 3 -6 -6> -2(<1 2 4>, 6)]" - 7)
# s "bassWarsaw"
......@@ -34,7 +34,7 @@ $ note (scale "major" "~ [3,<8 7 5>,10]" - 7)
# s "superpiano"
# sustain 2
# velocity 0.8
# gain 0.8
-- # gain 1
d5 -- choeur fou
$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
......
live/techno/phazer.tidal
......@@ -8,9 +8,11 @@ $ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp
$ whenmod 32 0 (fix (# gain 0) (s "arp"))
$ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
$ s "kick:14 [electro1:2, arp]"
# gain 0.9
# gain 1
d2 $ s "hh*2 clap:3(<2 2 1 1>,4)"
d2 $ s "hh*2 clap(<2 2 1 1>,4)"
# n "0 <2 2 2 3>"
# gain 0.9
d3
$ someCycles (# silence)
......@@ -25,8 +27,8 @@ $ sometimes (off 0.125 (|+ 0))
$ s "~ electro1:2"
d5
$ whenmod 128 100 ((# gain "<0.7 0 0.7 [0 0.7]>") . (# lpq "1"))
-- $ whenmod 128 1 (# gain "<0.8 1 0.8 [0.8 0.8]>")
-- $ whenmod 128 100 ((# gain "<0.7 0 0.7 [0 0.7]>") . (# lpq "1"))
$ whenmod 128 1 (# gain "<0.8 1 0.8 [0.8 0.8]>")
$ whenmod 64 32 ((|- note 7) . chop "2 0")
$ whenmod 64 1 (|+ note 7)
$ someCyclesBy 0.1 (chop 2 . superimpose (rev))
......
live/techno/piano_forte.tidal 0 → 100644
d1
$ s "~ clap:1"
d2
$ euclid "<2 3 4 3>" 4
$ s "kick:5"
# gain 0.8
d3
$ euclid "<3 5 8 3>" 8
$ s "sosHats"
# n "<0 0 0 1 1 1>"
d4 --- lead Piano: TODO Parov's Number one MC
$ superimpose (|- note 5)
$ s "p ~ ~ p ~ p ~ ~"
# note "<3 3 5 3> ~ ~ 5 ~ <8 3 3 8> ~ ~"
# s "superpiano"
# velocity (0.6 + rand /4)
# sustain 0.8
d4
$ rev
$ note "<3 3 5 3> ~ ~ 5 ~ <8 3 3 8> ~ ~"
# s "bass3:5"
once $ s "bogdan:5" # cut 1 -- money
once $ s "bogdan:6"
# cut 1 -- that's right
live/techno/piano_intro.tidal 0 → 100644
-- From Introspective by LAAKE
setcps 0.42
d1 -- kick: encore un peu sec
$ euclid 4 4
$ s "[armora,bassdm:2]"
# release 0.1
# gain 0.8
d2 -- white noise
$ s "~ glitch:2" -- # n (run 8)
# cut 1
d3 $ s ""
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