Feat: new harmony / melodic words and demo

tests/forth/chords.rs

@@ -158,6 +158,68 @@ fn chord_dom7s5() {
     expect_stack("c4 dom7s5", &ints(&[60, 64, 68, 70]));
 }
 
+// Power chord
+
+#[test]
+fn chord_power() {
+    expect_stack("c4 pwr", &ints(&[60, 67]));
+}
+
+// Suspended seventh
+
+#[test]
+fn chord_7sus4() {
+    expect_stack("c4 7sus4", &ints(&[60, 65, 67, 70]));
+}
+
+#[test]
+fn chord_9sus4() {
+    expect_stack("c4 9sus4", &ints(&[60, 65, 67, 70, 74]));
+}
+
+// Augmented major
+
+#[test]
+fn chord_augmaj7() {
+    expect_stack("c4 augmaj7", &ints(&[60, 64, 68, 71]));
+}
+
+// 6/9 chords
+
+#[test]
+fn chord_maj69() {
+    expect_stack("c4 maj69", &ints(&[60, 64, 67, 69, 74]));
+}
+
+#[test]
+fn chord_min69() {
+    expect_stack("c4 min69", &ints(&[60, 63, 67, 69, 74]));
+}
+
+// Extended - major
+
+#[test]
+fn chord_maj11() {
+    expect_stack("c4 maj11", &ints(&[60, 64, 67, 71, 74, 77]));
+}
+
+#[test]
+fn chord_maj13() {
+    expect_stack("c4 maj13", &ints(&[60, 64, 67, 71, 74, 81]));
+}
+
+#[test]
+fn chord_min13() {
+    expect_stack("c4 min13", &ints(&[60, 63, 67, 70, 74, 81]));
+}
+
+// Altered - lydian dominant
+
+#[test]
+fn chord_dom7s11() {
+    expect_stack("c4 dom7s11", &ints(&[60, 64, 67, 70, 78]));
+}
+
 // Different roots
 
 #[test]