example4

tempo = 300;
song = { m1 (m2 a b c e) } ;

m1 = [
 _5 3 2 1 | (mordent _5 4 1) | _5 3 2 1 | (mordent _6 4 2) |
 _6 4 3 2 | (_7, 3) 5 | 5 5 4 2 | (3, 4) |
 _5 3 2 1 | (_5, 4) | _5 3 2 1 | (_6, 4) |
 _6 4 3 2 | 5 5 (5, 2) | 6 5 4 2 | (1, 4) |
 3 3 (3, 2) | 3 3 (3, 2) | 3 5 1 2 | (3, 4) |
 4 4 (4, 2) | 4 3 (3, 2) | 3 2 2 1 | (2, 2) (5, 2) |
 3 3 (3, 2)| 3 3 (3, 2) | 3 5 1 2 | (3, 4) |
 4 4 (4, 2)| 4 3 (3, 2) | 5 5 4 2 | (1, 2) (chord 1 2) |
] ;

chord p d = {
(p, d)
(+ p 2, d)
(+ p 4, d)
(+ p 7, d) } ;

mordent p d v = [ (p, / d 8) (+ p v, / d 8) (p, * 3 (/ d 4)) ] ;

/*
The following short melodies are used as parameter for the melody m2.
*/

a = [_1 _3 __5 _3 |];
b = [__6 _1 __4 _1 |];
c = [ __7 _2 __5 _2 |];
e = [ __7 _2 _2 _2 |];

/*
The corresponding representation for the above short melodies in staff notation is:


The following melody function takes in four short melodies as its parameters and uses them to build a longer melody.
*/

m2 a b c d = [
a a a b
b c c a
a a a b
b c d 1 (1, / 1 2) (1, / 1 2) 1 1 |
a a a a
b a a e
a a a a
b a e (_1, 2) (1, 2) |
];