From 1528c44edd459f6732e1e7c50d92aed650493d75 Mon Sep 17 00:00:00 2001
From: Hermes Agent <hermes@calcott.com>
Date: Sat, 17 Oct 2026 17:42:08 +0000
Subject: [PATCH] 05_moonlit_mangrove_calypso: minor-key calypso, steel pan +
 skank + walking bass

40 bars, D minor, 104 BPM. Intro / A(16) / B(8) / A'(8) / outro,
loop bars 4-36. Hand-rolled calypso groove (kick 1&3 with the push,
rimshot 2&4, eighths on hat+shaker), offbeat guitar skank, walking
upright bass with chromatic approaches, GM 114 steel-pan lead.
---
 midi/05_moonlit_mangrove_calypso.mid | Bin 0 -> 17843 bytes
 tunes/05_moonlit_mangrove_calypso.py | 203 +++++++++++++++++++++++++++
 2 files changed, 203 insertions(+)
 create mode 100644 midi/05_moonlit_mangrove_calypso.mid
 create mode 100644 tunes/05_moonlit_mangrove_calypso.py

diff --git a/midi/05_moonlit_mangrove_calypso.mid b/midi/05_moonlit_mangrove_calypso.mid
new file mode 100644
index 0000000000000000000000000000000000000000..88aecc50c19c04a2bc1bf59ebbe8db2f90d30d37
GIT binary patch
literal 17843
zcmeHP&2AjW5pJ0_B`QQj2ok`60I>>4idb<eN|x!+STDI;&3I=#D~dmn<-~wUXB1hG
zLJ^V-FoysXc@TIqL7x^m<P{A26d;EnIppLA$W3p;d{x~&+ugIhTrm>t!yXFL+f`j%
zRbN$g&wx^6?W<G>(JxMk_fEZPtUY~%Uw;uteFL>8o9Wkoc>d(6I9l#I^W$H|(cO37
zeP{TLIQsmZqf`G7NBw7$rKQ{VR@bU4YxwocmD?)?nknd+f#k`Pt;PEf9&YZvg1{LT
z4{qJWcrX)|zfY5Bu$hXZt3n!a;lE_W>ht^e9~ZVZHpM@mitkRR;=8l6f7?2!)VFsk
zLL5}_tl}BeUu^9J7}RM{#~`lnt?$HQZ@o1YKv>Fbvq-k6N{gf#EDFSnEiB*0YH<+Z
z842-9ECdE!I;f;$>i0QmNIHw(i&9J4XUNjJQMqq=*_fY~W~TkdoVf>$%dlaf1Ap$I
zo(?+vi_*7rM$PxBy%+I&R`Jd`YtFMwHGSWhe_#1>-k5Xko58w^4u9|<PUkQ;FXNZ_
zSE4wAH|)rpI*V8{(t&^ZAV^0YzUiOVHKt;F$&@8~@LL=-QY}Z%OFIqNm1KC*+~Q8c
zwrU(_*q0>LzK$xsjVI?z=C9skg#8ZEqG^jW9_IK5X~~(_I_P<kWf~c-CQpygD_?9J
z$(Kf|adiDXr+lIO)q14A^~_&AKdADD@YQqfbAas()3PB`+zDYrJ$13|S2)cZvaY^9
z#GZ0j&yOL8+T&VxaHTd7IJi>%hq?OHy6HL3wgzo*lxsDP14@qkEVIwG)UDOwof_L<
z;yTB&QLb)H8)j9lxOHmEbQ(+iq8xta8d;CQG4&Ya>aicakMNpPeNXqF%c@_TxIPVx
z$<9l_UH4eiZap4FKH2pr@z(vc#Br`?{*9>I)%cMfiCeV|ZhRUXTaUWOlCD|grN(QF
z`$d%H>3PPp;q+J8cXVB9zuMKK=IQ4k>#uX4)pI5GFU<Va^JbpvIrrJG^4F}x%PM!<
z;~Ax9O<MZMSHuHnr&Euz|C^XDvLDGY^(gz7#?{&j`_S*Q>U(benX+@L&*^;Cyo<^P
z3rm)5WO!;>*<Y6(9G6k!OId%_vgdY|FyB!30>XMJ^K(Y=^m(G!3@Sg&{#s&NT6wHx
z&1aFZ&-YhT=CbOwE}o{0%-edFx6Gq;jA!iNN#~v2Urk*!miL~jQ>U`FTs%iO2jh<C
zq^sZjO*onun!Mx2RJZOO&s?*3u$*D1=SO!W?sgB7n7h8|HT3l5>afZ=`>c?8<L0cX
zZ&u}!?me0(b9KqdRcW8wbMzW|&TtOK$DAFpaPM&g2P=H$mv>f>7t2{sEvh)>&wgo(
z-E(A5?3|<WZf4y9V7KW5ogLJF>|P`LkG|7s`B7E>CXSk?pCiDgXzWo&UAw(zSk<nL
zpS0D*Pxc)9E;q~Tm)i6kij&=Qv|ajn4l%awZ;;RT7MZVhZ;=?}uvEU7cR0P5e)g+;
z?FPR-mW?}{8Ndtir8}b5PtQy0OtW#MyJXO&9_9Va#8KYm>bbj|xkp*`&ODyzdpOf=
zJSne|WA1JebGIJNJv)uNzq=j(F2ylL92X3l!ToJW{hm~JIKrP~3hEA5Fyv`|NZqBV
zzh=6Ob0M2E`D$E1eYyHvdBWYCn_)}>!%o6ho`ED+P<&Ufw6n_ZNSQwJ32P{4vbnZ)
z201&2fWP+njOr=Bp|#l^Cq71JH@@3;(K|Kysxi_wOP}Mk;MhLIcFA6%Wf!P^+2_Qv
zZ${Oj);+0uUkiVkyY2UgvRLpwSqyCZGaHnh1@<S%*=@;@4BOkV?6qXTFQ~p$P`WjL
zNcEx?R`MK?SivXOZDXb1adj-TE?;hGK0h;iL(AS7^`6^aXC6CSr|f~|+zj$BuZwz6
zJr~a*RTDY}o$NICpm9OH%NBBRl|5DKJfq}fTs3AjCk8dx*Q#B;m&}7GXSe3_Gs`I(
zD@(?)F~_5vX1pWIE?2HVd%?~^Cw&U%y>$rcFN`#hN5jhn?DcX12Le7D%F5x7j^g0X
zEndQ36X_6P$#2BY9nt#0IrI`AI0siBZEQX&Jox(I^NpwCUnAoC)1mnO?AnX1!^%x@
zSOo<)U)<QO2(gPkwi}4usl!SL4k!q7oB$k95ac)sIG`YLIkhEm7=q#@aDd$|&ez?T
z_Nig_5EPRI-Et~e1Bxr|nh<uypa$6{_Yk`c+9zBD2h>>1ad>xd$O3y!4QoJ+n#&13
z5r+{d`2-x~=q_;HO=zD0yGNjeEU-BdIG`lTabQ;jO2{^AO$G8*P(W*Je6V{J6p#fr
z$BROxj5VO3oLkcX2NX1NoR7f)1s~@)F*u+g&T+i^bjX8wU<!)oq0P<%*cF0evd!jH
z!2!k99A_CEP`sSu`1kSWDEtpWF~z{LAVjQVP=hkQ%iIZXV-2WrJGaKK&A*200NSV)
zYzuB-A5h~~j)S_6K@F;HYfZ3<OavvX;8>X$Kt2K`w8rKDn+TK;J~jt2i$Dp*&E|Xx
z4k-CF$3YAtP(l&4*Pu=#P(pQTbG-X>=x@lIDkz}bvFpcQb0^{W>(s9eUbgSbHGf`X
zpAZyNKd^GN20TMhOqkjn;2DBq!qnmf{#e6mPZ#qehaMV%66&KCa<WE|iBzXnCWgq4
z7}TH)u{msUyX^IM|G=N4eoy_K95ok#5~?}Np9<n!1qBpqJFAeRZ?2DaI2RDJDkz}1
z*%tUS(OU~OXp%@ko0TCa;vhq0$INN-XD{%1?fZd0uW?>QpoGpW3%L&c4d+4xO6cxl
zuR(M?UCh6aw^s#qXagnn+&<nlvU=Or0&Mft4|fTyp-y2}mY)OUUi+Lw3}R4&Vr}n(
z9uk8ZbgQvA9kOZxc>szRu*S~B6>vcDN{-__>pS!}++8A2LU$w^?KN;f$y$!%?Qa!-
z&B3-RD4_d}U8jhd=U#=pZht555I5W_<=r<I9qbb_MmY}h&2!)3dl-<Tv))2Z-rc|<
ze{7DwUwd;j@Yft7>bZHJ;QZ-uKk%Nx6<F=*u*lCUD4-m*FztX3axDbKly7!k`#Ya^
zO^0*No1+18z|#|vpAje_Os!g|pifmn`12OW(~AF`1Ey6_Kz-DTPQ`ovbhux0FF?Lg
ztnGX|L5_BaoBzJ^x;a`typE8~fsF9s9UOP`Dkz|Px*ZpPC-7&dpX1jCA3blG{#-{6
zwt1H<?_S57@EoY+N$YdOd;g)&5ua^5e)MqjLE+1dXV1jH3*v{<Ux**hj*4$5ZtpGb
zO^DHNOTWXQgu(S?46b8PT*sh@!4;CZLM)OY)`ukXAqFLqp;gl)GmXIqB=Z3VACb&Q
z7)+7O6b2=dA>kV&a|44pl9{6!lA)Q2-(tY_{2l|g=Pm}c={PMP?<`X!8Mc}9u+5~0
zZ6-Zrb2l=Xsneu~{USZ=7wI9tx{;Y8d)Rl<!@iRq_MP;Q@7>6B<9jzU-T2;(J#WhQ
zZfx#GCbQ?tXNW4}eh&l2on{#KET8={tz0D;#*6eYUNpmaW%=xvY1IYEaQ=`U&L5iL
z{2@KG#k60hRf8nc-mh+KZq?T+^l*LAfa~iH1{A0wRVCLBv3M^Ua12R?>z!oSW@52l
zG+@6-hU=YVIOmDQF{A;<kYp%^<0QkiOstdJGxdh{%DUe)RVDkih5`HaIR@+(naX~V
z4Eseg>=((fUnIkR-9>LDHv2{cjy1_qK*w8hUYQcfU=>uf+WD{O&u4#8+j#uvt!GaP
zj~+f3e?PtcjcAU2C7Q*uXogeU`(r}v7eS%eZWgC8_v`KK_xP7Bx$zEiW9uzBQ{Pw}
z^Gc^V-?iSJofba-Z#=I7r!KMIza~VpYn*!c_v*>$4=2l0(VPx-?-Bdc=to`VYA;W_
z?bE$}`Ud)GFHiM-p?B`LzxU`nkB-w%bB^}%RL8%Ur*A7yMRTHD-k%U<qpxDF#&gZq
zJpglY8@XjE*QyW5-4)I2Ur5>3JBQfEXRGGKy~*a)wF|VLdas}y$NV2B_pb_?ztAit
zlj{A2?hxSpiF94qFNw+KwawoBx7~YR3n%-1u!YO^ehZ8Idt&dNX2<Ph@$B{MUcZ*#
zVcuRnp&$18b+dOLcw6^@H_-?6H-Mk}`+u)r_xg3OU;FRZ0{3mZA2{#D^o_aqof+Rb
RyS-;$!@n`0fZ_i~`5(||=w<)_

literal 0
HcmV?d00001

diff --git a/tunes/05_moonlit_mangrove_calypso.py b/tunes/05_moonlit_mangrove_calypso.py
new file mode 100644
index 0000000..f7eebf2
--- /dev/null
+++ b/tunes/05_moonlit_mangrove_calypso.py
@@ -0,0 +1,203 @@
+#!/usr/bin/env python3
+"""
+"Moonlit Mangrove Calypso" — minor-key Caribbean adventure music
+in the spirit of a certain scrappy young pirate's theme. D minor, 104 BPM.
+Structure: 4-bar intro, A (16), B (8), A' (8), outro (4). Loop: bars 4-36.
+
+The calypso fingerprints:
+  - steel-pan lead (GM 114, labelled "calypso drum" in the MT-32 table —
+    the patch name alone is a time machine)
+  - guitar skank: short chord stabs on the OFFBEATS (the & of every beat)
+  - walking upright bass: root, fifth, octave, chromatic approach
+  - straight-eighth shaker under kick-on-1-and-3, rimshot on 2 and 4
+  - syncopated melody: sixteenth turns, rests on the strong beats,
+    and the harmonic-minor C# leading tone doing its 1990 thing
+No relation to any existing pirate, sword, or grog empire is claimed.
+"""
+import os, sys
+sys.path.insert(0, os.path.join(os.path.dirname(__file__), "..", "lib"))
+from midikit import MidiFile, Track, MPQN, verify, note as N, DRUMS
+from songkit import (bar, melody, vibrato, crash, humanize, parse_score,
+                     QUALITIES, TPQ)
+
+BPM = 104
+OUT = os.path.join(os.path.dirname(__file__), "..", "midi",
+                   "05_moonlit_mangrove_calypso.mid")
+
+# Chord chart, one (root, quality) per bar, 40 bars
+CHORDS = (
+    [("D", "m"), ("G", "m"), ("Bb", ""), ("A", "")] +            # intro
+    [("D", "m"), ("D", "m"), ("G", "m"), ("G", "m"),             # A (16)
+     ("Bb", ""), ("Bb", ""), ("A", ""), ("A", ""),
+     ("D", "m"), ("D", "m"), ("G", "m"), ("A", ""),
+     ("Bb", ""), ("A", ""), ("D", "m"), ("D", "m")] +
+    [("G", "m"), ("G", "m"), ("A", ""), ("A", ""),               # B (8)
+     ("Bb", ""), ("Bb", ""), ("G", "m"), ("A", "")] +
+    [("D", "m"), ("G", "m"), ("Bb", ""), ("A", ""),              # A' (8)
+     ("D", "m"), ("G", "m"), ("A", ""), ("D", "m")] +
+    [("Bb", ""), ("A", ""), ("D", "m"), ("D", "m")]              # outro
+)
+
+# --- melodies (bar grids, every bar lints to 4/4) --------------------------
+MELODY_A = """
+r8 D4-16 F4-16 A4-8 C5-8 D5-4 r4 | C5-8 A4-16 C5-16 A4-8 F4-8 A4-4 r8 D5-16 C#5-16 |
+D5-4 r4 A4-8 C5-8 D5-8 F5-8 | E5-8 D5-16 E5-16 D5-8 C#5-8 A4-4 A4-4 |
+F5-4 E5-8 F5-16 E5-16 D5-8 C5-8 A4-4 | Bb4-8 C5-8 D5-4 r8 D5-8 C5-8 A4-8 |
+Bb4-4 A4-8 Bb4-16 A4-16 G4-8 A4-8 C#5-4 | D5-2 C#5-4 A4-4 |
+r8 D4-16 F4-16 A4-8 C5-8 D5-4 r4 | C5-8 A4-16 C5-16 A4-8 F4-8 A4-4 r8 D5-16 C#5-16 |
+F5-8 E5-8 D5-4 C5-8 Bb4-8 A4-4 | G4-8 A4-8 C#5-4 C#5-8 D5-8 E5-4 |
+F5-4 E5-4 D5-8 E5-8 F5-8 A5-8 | G5-8 F5-16 G5-16 F5-8 E5-8 C5-4 C5-4 |
+D5-4 C5-8 D5-8 A4-4 F4-8 A4-8 | D5-2 r4 r4
+"""
+MELODY_B = """
+r4 A5-8 G5-8 F5-4 E5-8 F5-8 | G5-4 F5-8 G5-8 F5-4 D5-4 |
+r8 Bb5-16 A5-16 G5-8 F5-8 E5-4 D5-4 | C#5-8 D5-8 E5-4 r8 F5-8 E5-8 D5-8 |
+F5-8 G5-8 A5-4 r8 A5-8 G5-8 F5-8 | E5-4 F5-8 E5-8 D5-4 C5-8 Bb4-8 |
+A4-8 Bb4-8 C5-4 C5-8 D5-8 E5-4 | D5-2 C#5-4 D5-4
+"""
+MELODY_A2 = """
+r8 D4-16 F4-16 A4-8 C5-8 D5-4 r4 | C5-8 A4-16 C5-16 A4-8 F4-8 A4-4 r8 D5-16 C#5-16 |
+D5-4 r4 A4-8 C5-8 D5-8 F5-8 | E5-8 D5-16 E5-16 D5-8 C#5-8 A4-4 A4-4 |
+F5-4 E5-8 F5-16 E5-16 D5-8 C5-8 A4-4 | Bb4-8 C5-8 D5-4 r8 D5-8 C5-8 A4-8 |
+Bb4-4 A4-8 Bb4-16 A4-16 G4-8 A4-8 C#5-4 | D5-2 C#5-4 A4-4
+"""
+PREVIEW = """
+r8 D4-16-72 F4-16-72 A4-8-72 C5-8-72 D5-4-72 r4 | C5-8-72 A4-16-72 C5-16-72 A4-8-72 F4-8-72 A4-4-72 r8 D5-16-72 C#5-16-72
+"""
+TAG = """
+r4 A4-8 C5-8 D5-2 | r2 E5-4 D5-4 | r4 A4-4 D5-2 | r1
+"""
+
+
+def skank(track, start_bar, chords, channel=2):
+    """Calypso offbeat chord stabs: short, tight, on the & of every beat."""
+    for i, (root, qual) in enumerate(chords):
+        for k, beat in enumerate((0.5, 1.5, 2.5, 3.5)):
+            vel = humanize(76 if k in (0, 2) else 68, seed=start_bar * 4 + k + i * 17)
+            for iv in QUALITIES[qual][:3]:
+                track.note(bar(start_bar + i, beat), N(root + "4") + iv,
+                           TPQ // 2 - 60, vel, channel)
+    return track
+
+
+def walking_bass(track, start_bar, chords, channel=3):
+    """Root, fifth, octave, chromatic approach to the next root."""
+    for i, (root, qual) in enumerate(chords):
+        nxt = chords[(i + 1) % len(chords)][0] if i + 1 < len(chords) else root
+        r = N(root + "2")
+        approach = N(nxt + "2") - 1 if i + 1 < len(chords) else r + 7
+        for k, p in enumerate((r, r + 7, r + 12, approach)):
+            track.note(bar(start_bar + i, k), p, TPQ - 30,
+                       humanize(88, seed=start_bar * 4 + k), channel)
+    return track
+
+
+def calypso_groove(track, start_bar, bars):
+    """Kick 1 and 3 (+ the & of 3), rimshot 2 and 4, eighths on hat and
+    shaker, open hat now and then. This is the merengue-ish calypso bed."""
+    for b in range(bars):
+        bb = start_bar + b
+        track.note(bar(bb, 0), DRUMS["bass1"], TPQ // 4, 104)
+        track.note(bar(bb, 2), DRUMS["bass1"], TPQ // 4, 96)
+        track.note(bar(bb, 2.5), DRUMS["bass1"], TPQ // 4, 72)   # the push
+        track.note(bar(bb, 1), DRUMS["stick"], TPQ // 4, 98)
+        track.note(bar(bb, 3), DRUMS["stick"], TPQ // 4, 98)
+        for k in range(8):
+            track.note(bar(bb, k * 0.5), DRUMS["hat"], TPQ // 4,
+                       60 if k % 2 == 0 else 46)
+            track.note(bar(bb, k * 0.5), DRUMS["shaker"], TPQ // 4,
+                       44 if k % 2 == 0 else 34)
+        if b % 4 == 3:
+            track.note(bar(bb, 3.5), DRUMS["openhat"], TPQ // 4, 70)
+    return track
+
+
+def calypso_fill(track, bar_no):
+    """Sixteenth roll with a tom tumble down into the next section."""
+    for k in range(8):
+        track.note(bar(bar_no, 2 + k * 0.25), DRUMS["snare"], TPQ // 8,
+                   60 + k * 7)
+    for k, d in enumerate(("hightom", "midtom", "lotom")):
+        track.note(bar(bar_no, 3 + k * 0.333), DRUMS[d], TPQ // 4, 92 - k * 8)
+    return track
+
+
+def build():
+    mf = MidiFile(tpq=TPQ)
+    mf.time_sig = (4, 2)
+    mf.key_sig = (-1, True)                       # D minor
+    mf.tempos = [MPQN.from_bpm(0, BPM)]
+
+    lead = Track("Steel pan", channel=0)
+    lead.program(0, "calypso drum")               # GM 114 = steel drums
+    lead.cc(0, 7, 100); lead.cc(0, 10, 54)
+    sk = Track("Skank guitar", channel=2)
+    sk.program(0, "clean electric")
+    sk.cc(0, 7, 70); sk.cc(0, 10, 84)
+    bass = Track("Walking bass", channel=3)
+    bass.program(0, "acoustic bass")
+    bass.cc(0, 7, 92); bass.cc(0, 10, 30)
+    d = Track("Calypso kit", channel=9)
+    d.cc(0, 7, 96)
+
+    # intro (0-3): groove + skank only, quiet pan preview of the theme in 2-3
+    skank(sk, 0, CHORDS[0:4])
+    walking_bass(bass, 0, CHORDS[0:4])
+    calypso_groove(d, 1, 3)
+    melody(lead, 2, PREVIEW)
+    crash(d, bar(4), vel=96)
+
+    # A (4-19)
+    skank(sk, 4, CHORDS[4:20])
+    walking_bass(bass, 4, CHORDS[4:20])
+    calypso_groove(d, 4, 16)
+    melody(lead, 4, MELODY_A)
+    vibrato(lead, bar(4), bar(20), tempo_bpm=BPM, depth=0.35, rate=6.0)
+    calypso_fill(d, 19)
+    crash(d, bar(20))
+
+    # B (20-27): higher, more wistful — the moon over the mangrove
+    skank(sk, 20, CHORDS[20:28])
+    walking_bass(bass, 20, CHORDS[20:28])
+    calypso_groove(d, 20, 8)
+    melody(lead, 20, MELODY_B)
+    vibrato(lead, bar(20), bar(28), tempo_bpm=BPM, depth=0.4, rate=6.0)
+    calypso_fill(d, 27)
+    crash(d, bar(28))
+
+    # A' (28-35): theme returns, busier hats implied by the open hats
+    skank(sk, 28, CHORDS[28:36])
+    walking_bass(bass, 28, CHORDS[28:36])
+    calypso_groove(d, 28, 8)
+    melody(lead, 28, MELODY_A2)
+    vibrato(lead, bar(28), bar(36), tempo_bpm=BPM, depth=0.45, rate=6.5)
+    calypso_fill(d, 35)
+    crash(d, bar(36))
+
+    # outro (36-39): tag, then the whole band holds one last Dm
+    skank(sk, 36, CHORDS[36:40])
+    walking_bass(bass, 36, CHORDS[36:40])
+    calypso_groove(d, 36, 2)
+    melody(lead, 36, TAG)
+    crash(d, bar(36))
+    for p in ("D3", "A3", "D4", "F4", "A4"):
+        sk.note(bar(38), N(p), TPQ * 8, 72)
+    bass.note(bar(38), N("D2"), TPQ * 8, 84)
+    lead.note(bar(38), N("D6"), TPQ * 8, 78)
+    crash(d, bar(38), vel=100)
+
+    mf.add_track(lead); mf.add_track(sk); mf.add_track(bass); mf.add_track(d)
+    # game loop: intro plays once, then A-B-A' (bars 4-35) repeats
+    mf.set_loop(bar(4), bar(36))
+    return mf
+
+
+if __name__ == "__main__":
+    os.makedirs(os.path.dirname(OUT), exist_ok=True)
+    mf = build()
+    mf.write(OUT)
+    d = verify(OUT, min_sec=60, max_sec=180)
+    print("OK:", OUT)
+    print("   duration:", d["duration_sec"], "s | notes:",
+          sum(len(t["notes"]) for t in d["tracks"]),
+          "| tracks:", len(d["tracks"]))