X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmodal-transforms.ly;fp=input%2Fregression%2Fmodal-transforms.ly;h=cc50074660bcda20cbc19c1fb488dd960c64850b;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=0000000000000000000000000000000000000000;hpb=a8c9e8a7ca320ab0df5fd32e717fd62cd7635ce6;p=lilypond.git

diff --git a/input/regression/modal-transforms.ly b/input/regression/modal-transforms.ly
new file mode 100644
index 0000000000..cc50074660
--- /dev/null
+++ b/input/regression/modal-transforms.ly
@@ -0,0 +1,36 @@
+\version "2.14.0"
+\header {
+    texidoc = "\modalTranspose, \retrograde, \inversion and
+\modalInversion work for an octatonic motif."
+}
+
+cOctatonicScale = {
+  c' d' ees' f'
+  ges' aes' a' b'
+}
+motif = {
+  c'8. ees'16 ges'8. a'16
+  b'8. aes'16 f'8. d'16
+}
+
+\score {
+  \new Staff {
+    \time 4/4
+    <<
+      {
+        \motif
+        \modalTranspose c' f' \cOctatonicScale \motif
+        \retrograde \motif
+        \modalInversion aes' b' \cOctatonicScale \motif
+	\inversion aes' b' \motif
+      }
+      {
+        s1-"Octatonic motif" |
+        s1-"motif transposed from c to f" |
+        s1-"motif in retrograde" |
+        s1-"motif inverted around aes to b" |
+	s1-"motif inverted exactly"
+      }
+    >>
+  }
+}