1\version "2.16.0"
2\header {
3    texidoc = "\modalTranspose, \retrograde, \inversion and
4\modalInversion work for an octatonic motif."
5}
6
7cOctatonicScale = {
8  c' d' ees' f'
9  ges' aes' a' b'
10}
11motif = {
12  c'8. ees'16( ges'8. a'16
13  b'8.) aes'16 f'8. d'16
14}
15
16\score {
17  \new Staff {
18    \time 4/4
19    <<
20      {
21        \motif
22        \modalTranspose c' f' \cOctatonicScale \motif
23        \retrograde \motif
24        \modalInversion aes' b' \cOctatonicScale \motif
25	\inversion aes' b' \motif
26      }
27      {
28        s1-"Octatonic motif" |
29        s1-"motif transposed from c to f" |
30        s1-"motif in retrograde" |
31        s1-"motif inverted around aes to b" |
32	s1-"motif inverted exactly"
33      }
34    >>
35  }
36}
37