up "0*2 ~ [2 3] 5!2"
Solo of Cannonball Adderley on All Blues
d1 $ stack [
up "<a'min7 d'min7 g'dom7 c'maj7>" # sound "superpiano" # legato 2,
up ((scale "<aeolian dorian mixolydian ionian>"
$ cat ["[0 1]*2",
struct "t*8" $ run 6])
|+ "<a d g c>")
# sound "superpiano"
]
d1 $ stack [
up "<a'min7 d'min7 g'dom7 c'maj7>" # sound "superpiano" # legato 2,
up ((scale "<aeolian dorian mixolydian ionian>"
$ cat ["[0 1]*2",
struct "t*8" $ run 6])
|+ "<a d g c>"
|+ "0 1 0!6")
# sound "superpiano"
]
chromatise "[0 3] 5"
tidal> "[[0 1 2] [3 4]] 5"
smooth :: Fractional a => Pattern a -> Pattern a
chromatise 2 "[0 3] 5"
tidal> "[[0 1 2] [3 4 5]] [5 6 7]"
scaleMod :: Fractional a =>
Pattern String -> ([a] -> [a]) -> Pattern Int -> Pattern a
scaleMods :: Fractional a =>
Pattern String -> ([[a] -> [a]]) -> Pattern Int -> Pattern a
scaleMod "major" (insert 6) $ run 8
tidal> 0 2 4 5 6 7 9 11
scaleMods "major" [id, insert 6] $ run 8
tidal> 0 2 4 5 7 9 11 12
0 2 4 5 6 7 9 11
scaleMod "major" (insert 8) $ run 8
raiseDegree :: Fractional a => Int -> [a] -> [a]
scaleMods "minor" [id, raiseDegree 6] $ run 8
> 0 2 3 5 7 8 10 12
0 2 3 5 7 8 11 12
scaleMods "minor" [id, raiseDegrees 5 6] $ run 8
> 0 2 3 5 7 9 10 12
0 2 3 5 7 8 11 12
chromatise
and scaleMod
to TidalCycles
that make it easier to:
chromatise
smooth
to chromatic interpolation