music-2010s/haddeo-remix
Archived
1
0
Fork 0
Code Pull Requests Activity

tidy up, improvements to hi nimble

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-10-20 20:09:19 +01:00
parent 176811be0e
commit 46ec56d337
1 changed files with 52 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scratch.tidal
+52 -41
View File
@@ -12,7 +12,6 @@ let swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
swing' = swing 0.14 --0.05 swing' = swing 0.14 --0.05
let d'drum = d1 let d'drum = d1
d'drum2 = d2
d'bass = d3 d'bass = d3
d'wax = d4 d'wax = d4
d'nim = d5 d'nim = d5
@@ -30,30 +29,33 @@ drum + perc
hush hush
d'drum silence d'drum silence
d'drum $ --mt 16 16 $ d'drum $
--within (0.5, 1) (rev) $ -- soften
--mt 16 16 $
swing' $ swing' $
stack [ stack [
--n "1/4" superimpose (0.25 ~>) $
--n "[1*2, 0*8]/8" --n "1/4"
--n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8" --n "[1*2, 0*8]/8"
n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] [0! ~!]]/8" --n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
# s "drum", n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] [0! ~!]]/8"
every' 16 16 (const $ s "kit:3") $ # s "drum",
whenmod 3 2 (density 2) $ --every' 16 16 (const $ s "kit:3") $
(whenmod 11 5 . within (0.5, 1)) (density 2) $ whenmod 3 2 (density 2) $
--n "" (whenmod 11 5 . within (0.5, 1)) (density 2) $
--n "[~ [0 2]/2]" --n ""
n "[[~ 0] [[2!! ~]/4 0]]/2" --n "[~ [0 2]/2]"
# s "kit", n "[[~ 0] [[2!! ~]/4 0]]/2"
--(0.5 <~) $ # s "kit",
--n "" --n ""
--n "[~ [~ 1]]/2" --n "[~ [~ 1]]/2"
n "[~ [~ 0/8 1 0/2]]/2" --n "[~ [~ 0/8 1 0/2]]/2"
--n "[~ [~ 0/4 1 0]]/2" --0.5 <~ n "[~ [~ 0/8 1 0/2]]/2"
--n "[~ [1 0/4 1 0/2]]/2" n "[~ [1 0/8 1/2 0/2]]/2"
# s "sn" --n "[~ [1 0/8 1 0/2]]/2"
# gain "0.8" # s "sn"
] # gain "0.8"
]
{----- {-----
icarus icarus
@@ -74,21 +76,24 @@ hush
d'nim silence d'nim silence
d'nim $ d'nim $
--{-
superimpose ( superimpose (
--iter 4 . --iter 4 .
iter 6 . iter 6 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
(# nudge "0") (# nudge "0")
) $ ) $
{-(whenmod 5 2 $ --}
--{-
(whenmod 5 2 $
slowspread (\x -> within (0.5, 1) x) [ slowspread (\x -> within (0.5, 1) x) [
id, density (5%3), rev, density (4%3), id, rev, (0.5 <~) id, density (5%3), rev, density (4%3), id, rev, (0.5 <~)
]) $-} ]) $
--whenmod 4 2 (const silence) $ --}
whenmod 4 2 (const silence) $
--mt 16 1 $ --mt 16 1 $
slow 16 $ slow 16 $
striate 256 $ n "[0 1]/2" # s "nimble" striate 256 $ n "[0 1]/2" # s "nimble"
-- # cut "4"
-- # shape ((/4) <$> density 1.9 sine1) -- # shape ((/4) <$> density 1.9 sine1)
{--- {---
@@ -97,14 +102,21 @@ bass
hush hush
d'bass silence d'bass silence
d'bass $ let s = striate 16
--whenmod 3 2 (within (0, 0.5) (const silence)) $ in d'bass $
--whenmod 10 8 (within (0.5, 1) (const silence)) $ whenmod 3 2 (within (0, 0.5) (const silence)) $
whenmod 10 8 (within (0.5, 1) (const silence)) $
--{-
within (0, 0.5) (
(# speed "-1") .
smash 4 [(4%3),(5%3)]
) $
--}
slow 8 $ stack [ slow 8 $ stack [
striate 16 $ sound "bass", s $ sound "bass",
striate 16 $ sound "sine" s $ sound "sine"
] ]
-- # gain "0.8" # gain "0.8"
{--------- {---------
alt nimble (wip) alt nimble (wip)
@@ -114,15 +126,14 @@ d'hi silence
d'hi $ d'hi $
swing' $ swing' $
whenmod 4 3 (density 2) $ within (0.5, 1) (density 2) $
-- whenmod 16 8 (0.5 ~>) $ whenmod 16 8 (0.5 <~) $
(0.5 ~>) $ (0.5 ~>) $
-- whenmod 12 8 (0.5 <~) $ (0.5 ~>) $ -- heh
slow 8 $ slow 8 $
slowspread ($) [gap 16, gap 64] $ gap 64 $
n "[0 1]/2" # s "nimble" n "[0 1]/2" # s "nimble"
# speed "[-3 -4]" -- # speed "[-3 -4]"
-- # gain "1.2" # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
-- # vowel "u" -- # vowel "[u a e]/3"
hush hush