-- | Tom Johnson. \"Tiling in my Music\".
-- /The Experimental Music Yearbook/, 1, 2009.
module Music.Theory.Tiling.Johnson_2009 where

import Music.Theory.Tiling.Canon

-- | Tilework for Clarinet, p.3
--
-- >>> v_print 36 (rr_voices p3)
-- >
-- > *.*..*............*.*..*............
-- > .*.*..*............*.*..*...........
-- > ........*.*..*............*.*..*....
-- > ....*..*.*............*..*.*........
-- > ...........*..*.*............*..*.*.
-- > ............*..*.*............*..*.*
p3 :: [R]
p3 :: [R]
p3 = [(Int
18,[Int
0,Int
2,Int
5],[Int
1,Int
1,Int
1],[Int
0,Int
1,Int
8])
     ,(Int
18,[Int
0,Int
3,Int
5],[Int
1,Int
1,Int
1],[Int
4,Int
11,Int
12])]

-- | Tilework for String Quartet, p.5
--
-- >>> mapM_ (v_print 24 . r_voices) p5
-- >
-- > ******......******......
-- > ......******......******
-- >
-- > *.****.*....*.****.*....
-- > ......*.****.*....*.****
-- >
-- > **.***..*...**.***..*...
-- > ......**.***..*...**.***
-- >
-- > *..***.**...*..***.**...
-- > ......*..***.**...*..***
p5 :: [R]
p5 :: [R]
p5 = [(Int
12,[Int
0..Int
5],[Int
1,Int
1],[Int
0,Int
6])
     ,(Int
12,[Int
0,Int
2,Int
3,Int
4,Int
5,Int
7],[Int
1,Int
1],[Int
0,Int
6])
     ,(Int
12,[Int
0,Int
1,Int
3,Int
4,Int
5,Int
8],[Int
1,Int
1],[Int
0,Int
6])
     ,(Int
12,[Int
0,Int
3,Int
4,Int
5,Int
7,Int
8],[Int
1,Int
1],[Int
0,Int
6])]

-- | Extra Perfect (p.7)
--
-- >>> v_print_m_from 18 6 6 (r_voices p7)
-- >
-- > **.*..|......|......|......|......|......
-- > ......|.*.*..|.*....|......|......|......
-- > ......|......|......|......|.*..*.|....*.
-- > ......|......|...*..|.*....|...*..|......
-- > ......|......|....*.|...*..|......|.*....
-- > ......|*.....|*.....|......|*.....|......
-- > ....*.|......|......|*.....|......|...*..
-- > ......|......|......|....*.|......|*.....
p7 :: R
p7 :: R
p7 = (Int
36,[Int
0,Int
1,Int
3],[Int
1,Int
2,Int
3,Int
4,Int
5,Int
6,Int
7,Int
8],[Int
0,Int
7,Int
25,Int
51,Int
52,Int
78,Int
105,Int
130])

-- | Tilework for Log Drums (2005), p.10
--
-- >>> v_print 18 (r_voices p10)
-- >
-- > *.*.*.............
-- > .*...*...*........
-- > ...*...*...*......
-- > ......*...*...*...
-- > ........*...*...*.
-- > .............*.*.*
p10 :: R
p10 :: R
p10 = (Int
18,[Int
0,Int
1,Int
2],[Int
2,Int
4,Int
4,Int
4,Int
4,Int
2],[Int
0,Int
1,Int
3,Int
6,Int
8,Int
13])

-- | Self-Similar Melodies (1996), p.11
--
-- >>> v_print_m 20 5 (r_voices p11)
-- >
-- > *.....*.....*..*..*.|....*.....*.....*...|..*..*..*.....*.....|*.....*.....*..*..*.|....*.....*.....*...
-- > ....................|*.....*.....*..*..*.|....*.....*.....*...|..*..*..*.....*.....|*.....*.....*..*..*.
-- > ....................|....................|*.....*.....*..*..*.|....*.....*.....*...|..*..*..*.....*.....
p11 :: R
p11 :: R
p11 = (Int
30,[Int
0,Int
6,Int
12,Int
15,Int
18,Int
24,Int
30,Int
36,Int
42,Int
45,Int
48,Int
54],[Int
1,Int
1,Int
1],[Int
0,Int
20,Int
40])

-- Local Variables:
-- truncate-lines:t
-- End: