From 8e7463a7e0eac4036474961c69f41b3473ceb863 Mon Sep 17 00:00:00 2001
From: RunasSudo <runassudo@yingtongli.me>
Date: Sun, 8 Jan 2023 16:34:25 +1100
Subject: [PATCH] Add more chord shapes

---
 chords_serifjazz.m4.xml | 35 +++++++++++++++++++++++++++++++----
 1 file changed, 31 insertions(+), 4 deletions(-)

diff --git a/chords_serifjazz.m4.xml b/chords_serifjazz.m4.xml
index 2711e40..1b497fa 100644
--- a/chords_serifjazz.m4.xml
+++ b/chords_serifjazz.m4.xml
@@ -1,3 +1,4 @@
+m4_changecom()m4_dnl
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE museScore [
 
@@ -161,7 +162,7 @@
 
   <token>
     <name>*</name> <!-- used to fix kerning for letter "A" -->
-    <render>m:-1.0:0;</render>
+    <render>m:-1.0:0</render>
     </token>
 
   <token>
@@ -364,6 +365,11 @@ m4_ifdef(`CHORD_FORMS', `
     <render>SYM_MI m:0:-&sup; s( SYM_MA s7 s) m:0:&sup;</render>
     </chord>
 
+  <chord>
+    <name>m6maj7</name>
+    <render>SYM_MI m:0:-&sup; s6 s( SYM_MA s7 s) m:0:&sup;</render>
+    </chord>
+
   <chord>
     <name>m9maj7</name>
     <render>SYM_MI m:0:-&sup; s9 s( SYM_MA s7 s) m:0:&sup;</render>
@@ -379,6 +385,11 @@ m4_ifdef(`CHORD_FORMS', `
     <render>+ m:0:-&sup; s9 s( SYM_MA s7 s) m:0:&sup;</render>
     </chord>
 
+  <chord>
+    <name>omaj7</name>
+    <render>m:0:&unsup; degree m:-1.0:-&unsup; m:0:-&sup; s( SYM_MA s7 s) m:0:&sup;</render>
+    </chord>
+
   <chord>
     <name>mb5</name>
     <render>SYM_MI m:0:-&sup; s( sb s5 s) m:0:&sup;</render>
@@ -419,15 +430,26 @@ m4_ifdef(`CHORD_FORMS', `
     <render>m:0:-&sup; s7 s( s# s9 s) m:0:&sup;</render>
     </chord>
 
-m4_define(`LTB2', ``m:1:5.5 :push m:0:-11 st( :pop :push m:0:-5 sm( :pop sb('')
-m4_define(`RTB2', ``:push m:0:-11 st) :pop :push m:0:-5 sm) :pop sb) m:0:-5.5'')
-m4_define(`SUP2', ``:push m:0:-11 $1 :pop'')
+<!-- Stacked extensions -->
+m4_define(`LTB2', ``m:1:5 :push m:0:-10 st( :pop :push m:0:-5 sm( :pop sb('')
+m4_define(`RTB2', ``:push m:0:-10 st) :pop :push m:0:-5 sm) :pop sb) m:0:-5'')
+m4_define(`SUP2', ``:push m:0:-10 $1 :pop'')
+
+  <chord>
+    <name>b9#5</name>
+    <render>m:0:-&sup; LTB2 SUP2(`sb s9') s# s5 RTB2 m:0:&sup;</render>
+    </chord>
 
   <chord>
     <name>7#9b5</name>
     <render>m:0:-&sup; s7 LTB2 SUP2(`s# s9') sb s5 RTB2 m:0:&sup;</render>
     </chord>
 
+  <chord>
+    <name>7b9#5</name>
+    <render>m:0:-&sup; s7 LTB2 SUP2(`sb s9') s# s5 RTB2 m:0:&sup;</render>
+    </chord>
+
   <chord>
     <name>7b9b5</name>
     <render>m:0:-&sup; s7 LTB2 SUP2(`sb s9') sb s5 RTB2 m:0:&sup;</render>
@@ -458,6 +480,11 @@ m4_define(`SUP2', ``:push m:0:-11 $1 :pop'')
     <render>SYM_MI m:0:-&sup; s9 s( s# s1 s1 s) m:0:&sup;</render>
     </chord>
 
+  <chord>
+    <name>7b13b9</name>
+    <render>m:0:-&sup; s7 LTB2 SUP2(`sb s1 s3') m:2:0 sb s9 m:2:0 RTB2 m:0:&sup;</render>
+    </chord>
+
   <chord>
     <name>7#11b9</name>
     <render>m:0:-&sup; s7 LTB2 SUP2(`s# s1 s1') m:2:0 sb s9 m:2:0 RTB2 m:0:&sup;</render>