playing
This commit is contained in:
parent
2d26b86dd9
commit
b3dec4fd84
2 changed files with 146 additions and 13 deletions
44
2020-05-20.tidal
Normal file
44
2020-05-20.tidal
Normal file
|
@ -0,0 +1,44 @@
|
|||
-- sounds
|
||||
-- ======
|
||||
|
||||
-- # Bass
|
||||
-- bass2, ht
|
||||
-- clubkick
|
||||
-- kicklinn
|
||||
-- popkick
|
||||
-- reverbkick
|
||||
-- rs,sd,sn,stomp,ul,ulgab
|
||||
-- # aigus
|
||||
-- co, cp (clap), cr (cimbales), dr, dr2
|
||||
-- hc, ho
|
||||
-- # sons
|
||||
-- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
|
||||
-- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
|
||||
-- rave2, sine, stab
|
||||
-- # templates
|
||||
-- hardcore, hardkick
|
||||
|
||||
-- Inspiration https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
|
||||
|
||||
import qualified Sound.Tidal.Chords as Chords
|
||||
|
||||
do
|
||||
let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
|
||||
arp2 = "[7 0 2 4]*2"
|
||||
pat = "<0 2 5 4>"
|
||||
oct = -2
|
||||
d1 $ stack [
|
||||
n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
|
||||
n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
|
||||
n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
|
||||
] # orbit 1 # room 0.1 # size 0.93
|
||||
d2 $ s "clubkick*4"
|
||||
# orbit 2 # room 0.5
|
||||
d3 $ s "[~ cp:2]*4"
|
||||
# orbit 2
|
||||
|
||||
solo 4
|
||||
|
||||
unsolo 4
|
||||
|
||||
hush
|
115
test.tidal
115
test.tidal
|
@ -1,33 +1,60 @@
|
|||
setcps (120/60/4)
|
||||
setcps (132/60/4)
|
||||
|
||||
hush
|
||||
|
||||
d1
|
||||
$ fast 4 (sound "bd")
|
||||
# speed 0.7
|
||||
# freq 320
|
||||
d1 $ fast 4 (sound "bd")
|
||||
# freq 250
|
||||
# overgain 0.4
|
||||
# room 0.9
|
||||
# room 4
|
||||
# orbit 0
|
||||
|
||||
d2 $ sound "[~ ho]*4"
|
||||
# resonance 0.5
|
||||
# gain 0.7
|
||||
# orbit 1
|
||||
|
||||
d3 $ sound "~ ~ ~ [bd bd]"
|
||||
d3 $ sound "bd ~ ~ <~ [bd bd]>"
|
||||
# shape 0.7
|
||||
# crush 4
|
||||
# overgain 0.7
|
||||
# gain 0.5
|
||||
|
||||
d4 $ s "[~ arpy] [~ arpy] [~ arpy] [~ [arpy arpy]]"
|
||||
# note "c2 c3 c3 [~ [f4 c3]]"
|
||||
# crush 3
|
||||
# room 0.9
|
||||
# gain 0.89
|
||||
# gain (slow 4 (((+0.5) . (/20)) (run 10)))
|
||||
|
||||
d5 $ up (run 12) # sound "arpy"
|
||||
|
||||
-- sounds
|
||||
-- ======
|
||||
|
||||
-- # Bass
|
||||
-- bass2, ht
|
||||
-- clubkick
|
||||
-- kicklinn
|
||||
-- popkick
|
||||
-- reverbkick
|
||||
-- rs,sd,sn,stomp,ul,ulgab
|
||||
-- # aigus
|
||||
-- co, cp (clap), cr (cimbales), dr, dr2
|
||||
-- hc, ho
|
||||
-- # sons
|
||||
-- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
|
||||
-- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
|
||||
-- rave2, sine, stab
|
||||
-- # templates
|
||||
-- hardcore, hardkick
|
||||
|
||||
d1 $ fast 4 (s "bass2")
|
||||
# overgain 0.4
|
||||
# gain 0.7
|
||||
|
||||
d1 $ fast 4 (s "bass2")
|
||||
# freq 320
|
||||
# overgain 0.4
|
||||
# gain 0.5
|
||||
|
||||
-- https://www.youtube.com/watch?v=54opUoqQLWQ&feature=youtu.be
|
||||
|
||||
let pat = [ ["a", note "c4 e4" # c 1 # sus 2]
|
||||
|
@ -198,8 +225,70 @@ xfade 2 $ sound "bd*4"
|
|||
|
||||
xfade 2 $ sound "metal*4"
|
||||
|
||||
-- sounds
|
||||
-- Chiptune-like
|
||||
-- https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
|
||||
|
||||
forM_ ["808" "808bd"] $ \sample -> do
|
||||
d1 $ s ( (sample ++ "*4"))
|
||||
# n "<0 1 2 3 4 5 6>"
|
||||
|
||||
import qualified Sound.Tidal.Chords as Chords
|
||||
|
||||
let mute = const silence
|
||||
|
||||
do
|
||||
let arp = "[0 0 2 4]*2"
|
||||
pat = "<0 2 5 4>"
|
||||
oct = -2
|
||||
d1 $ fast 2 $ stack [
|
||||
n (toScale Chords.aug (arp + pat)) # s "superchip" # release 0.075,
|
||||
mute $ n ("0*8" + (slow 4 pat) - 14) # s "superchip" # release 0.3 # cut 2
|
||||
] # orbit 1 # room 0.1 # size 0.93 # gain 0.9
|
||||
|
||||
d2 $ fast 2 $ stack [
|
||||
mute $ "bd:10(3,8)",
|
||||
s "~ sn" # n 3,
|
||||
s "[~ cp:1]*2"
|
||||
] # orbit 2 # room 0.05 # size 0.2
|
||||
|
||||
hush
|
||||
|
||||
import qualified Sound.Tidal.Chords as Chords
|
||||
|
||||
do
|
||||
let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
|
||||
arp2 = "[7 0 2 4]*2"
|
||||
pat = "<0 2 5 4>"
|
||||
oct = -2
|
||||
d1 $ stack [
|
||||
n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
|
||||
n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
|
||||
n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
|
||||
] # orbit 1 # room 0.1 # size 0.93
|
||||
d2 $ s "clubkick*4"
|
||||
# room 0.5
|
||||
d3 $ "[~ co:2]*4"
|
||||
|
||||
solo 1
|
||||
|
||||
unsolo 1
|
||||
|
||||
|
||||
do
|
||||
setcps (160/60/4)
|
||||
d1 $
|
||||
s "[bd:1(3,8?) , [~ cp]*4? , hh*16?]"
|
||||
|
||||
|
||||
d1 $ stut' 3 (1/12) (|+ note "<5 7>") $ s "superpiano"
|
||||
|
||||
d1 $ slow 2 $ n (scale "bhairav" "0 .. 7") # "superpiano"
|
||||
|
||||
d1 $ slow 2 $ n (scale "minor" "0 .. 7") # "superpiano"
|
||||
|
||||
d1 $ slow 2 $ n (scale "major" "0 .. 7") # "superpiano"
|
||||
|
||||
|
||||
-- Accords
|
||||
mychords = inhabit [("hola", "[0,4,2]" :: Pattern Double),
|
||||
("hello", "[0,5,7,12]")
|
||||
]
|
||||
|
||||
d1 $ n (mychords "hello hola") # s "superpiano"
|
||||
|
|
Loading…
Reference in a new issue