Music/th3-f4k3-r3p0
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

E phrygian counterpoint exercise

Browse Source
This commit is contained in:
Eric Meehan
2026-05-19 23:27:03 -04:00
parent ffcc6ca9a7
commit 1930a5f739
1 changed files with 111 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

117
melody_and_harmony.tidal
View File

@@ -1,10 +1,115 @@
d1 $ qtrigger $ seqP [
(0, 18, note "d3 f3 e3 d3 g3 f3 a3 g3 f3 e3 d3" # sound "supersaw" # amp 0.1),
(4, 18, sound "hh hh hh hh hh hh hh hh hh hh hh" # amp 0.1),
(6, 18, note "a4 a4 g4 f4 e4 d4 c4 d4 a4 g4 a4" # sound "supermandolin" # amp 0.1),
(8, 18, sound "bd ~ ~ ~ ~ ~ ~ ~ ~ ~ ~" # amp 0.5),
(12, 18, sound "~ ~ ~ ~ ~ ~ ~ ~ ~ <bd ~> bd" # amp 0.5),
(14, 18, note "d3'min ~ ~ ~ ~ ~ ~ ~ ~ <e3'dim ~> a3'min" # sound "superpiano" # amp 0.1)
(0, 20, note "d3 f3 e3 d3 g3 f3 a3 g3 f3 e3 d3" # sound "supersaw" # amp 0.1),
(4, 20, sound "hh hh hh hh hh hh hh hh hh hh hh" # amp 0.1),
(6, 20, note "a4 a4 g4 f4 e4 d4 c4 d4 a4 g4 a4" # sound "supermandolin" # amp 0.1),
(8, 20, sound "bd ~ ~ ~ ~ ~ ~ ~ ~ ~ ~" # amp 0.5),
(11, 20, sound "~ ~ ~ ~ ~ ~ ~ ~ ~ <~ bd> bd" # amp 0.5),
(13, 20, note "d3'min'o ~ ~ ~ ~ ~ ~ ~ ~ <~ e3'dim'o> a3'min" # sound "superpiano" # amp 0.1)
]
d2 $ qtrigger $ seqP [
(0, 9, note(arp "<up down diverge>" "<a'm9'8 e'7sus4'8>")
# sound "superpiano"
# amp 0.2
# pan "0 0.5 1 0.5"
),
(4, 32, sound "hh hh hh hh hh hh hh hh"
# amp 0.25
),
(7, 32, sound "bd <~ bd> ~ ~ ~ ~ ~ ~"
# amp 0.33
),
(9, 32, note(arp "<up down diverge>" "<a'm9'8 e'min7'8 c'maj9'8 g'dom7'8>")
# sound "superpiano"
# amp 0.2
# pan "0 0.5 1 0.5"
),
(9, 32, jux rev
$ chunk 4 (fast 2 . (|- n 12)) $ off 0.25 (|+ 7)
$ struct (iter 4 "t(5,8)")
$ n (scale "major" "0 .. 7")
# sound "superpiano"
# amp 0.1
)
]
d3 $ qtrigger $ seqP [
(0, 36, sound "hh hh hh hh hh hh hh hh"
# amp 0.25
),
(2, 24, sound "~ ~ ~ <~ cp>"
# amp 0.25
),
(4, 36, sound "bd sd bd sd"
# amp 0.25
),
(4, 24, note("-24 -22 -20 -25")
# sound "supersaw"
# amp 0.20
# pan "-1 0 1 0"
),
(6, 36, sound "superchip*8"
# note(quantise 1 $ range (-10) (10) $ slow 8 $ cosine)
# release (quantise 5 $ slow 8 $ sine + 0.1)
# amp 0.25
),
(30, 36, note("-24 -22 -20 -25")
# sound "supersaw"
# amp 0.20
# pan "-1 0 1 0"
)
]
d4 $ qtrigger $ seqP [
(0, 12, sound "hh hh hh hh hh"
# amp 0.25
),
(1, 32, note("e3 c3 d3 c3 a2 a3 g3 e3 f3 e3")
# sound "supersaw"
# amp 0.25
),
(8, 32, sound "bd bd bd bd bd bd bd bd bd bd"
# amp 0.25
),
(12, 32, sound "hh hh hh hh hh hh hh hh hh hh"
# amp 0.25
),
(18, 32, note "g'maj'o c'maj'o f'maj'o a'min'o e'min'o"
# sound "superpiano"
# amp 0.2
),
(24, 32, note("e4 f4 g4 a4 f4 g4 a4 b4 c5 b4 a4 g4 b4 a4 g4 f4 d4 b4 c4 d4")
# sound "superpiano"
# amp 0.25
),
(24, 32, sound "~ ~ ~ ~ cp"
# amp 0.25
)
]
hush
hush