From 1930a5f7392a7a5de2497891ccb49d34578d6f10 Mon Sep 17 00:00:00 2001
From: Eric Meehan <eric@eom.dev>
Date: Tue, 19 May 2026 23:27:03 -0400
Subject: [PATCH] E phrygian counterpoint exercise

---
 melody_and_harmony.tidal | 117 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 111 insertions(+), 6 deletions(-)

diff --git a/melody_and_harmony.tidal b/melody_and_harmony.tidal
index c5bbd05..c3ffdee 100644
--- a/melody_and_harmony.tidal
+++ b/melody_and_harmony.tidal
@@ -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