-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathSong4.hs
More file actions
17 lines (13 loc) · 8.74 KB
/
Song4.hs
File metadata and controls
17 lines (13 loc) · 8.74 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module Song4 where
import Wave
import Notes
import Sound -- Das Modul mit Ihrer Implementierung
import Instruments
song = (1/6)*sum (map (\notes -> play leadSynth (pattern2Notes speed notes)) noteList)
where speed = 60/127
noteList = [[("c4",1),("g4",0.5),("c5",1),("b4",0.5),("g4",1),("f4",1),("c5",0.5),("f5",1),("e5",0.5),("c5",1),("c4",1.5),("c4",1.5),("c4",1),("g#3",2),("g3",2),("g#3",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",0.5),("g3",1),("g3",0.5),("c4",1.5),("a3",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("c4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("f4",2.5),("d5",2.5),("d#5",0.5),("f5",0.5),("g5",1.5),("g#5",0.5),("f5",1.5),("d#5",0.5),("c5",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("c4",0.5),("",0.5),("c4",0.5),("",1),("f4",0.25),("d#4",0.25),("d4",0.25),("d#4",0.25),("f4",0.5),("c4",0.5),("",0.5),("c4",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("c4",1.5),("c4",2),("c4",2),("a#4",1),("f5",0.5),("d6",1),("c6",0.5),("g#5",1),("g#5",0.5),("a#5",1),("a#4",1),("a5",0.5),("f#5",1),("g#3",2),("g3",2),("g#3",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",1),("g3",1),("g3",0.5),("c4",1.5),("a3",0.5),("a3",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("d4",2.5),("a#3",1.5),("d#4",1.5),("a#3",1),("a#3",2),("a3",2),("g#4",2),("g4",2),("d#4",4),("g#3",2),("g3",2),("g#3",4),("c#4",1),("g#4",0.5),("c#5",1),("c5",0.5),("g#4",1),("g#3",2),("g#3",2),("f#3",1),("c#4",0.5),("f#4",1),("f4",0.5),("c#4",1),("f3",4)],
[("c4",1),("g4",0.5),("c5",1),("b4",0.5),("g4",1),("f4",1),("c5",0.5),("f5",1),("e5",0.5),("c5",1),("d#4",1.5),("d#4",1.5),("d#4",1),("c4",2),("c4",2),("c4",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",0.5),("a#4",1),("a#4",0.5),("c4",1.5),("d4",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("f4",2.5),("d5",2.5),("d#5",0.5),("f5",0.5),("g5",1.5),("g#5",0.5),("f5",1.5),("d#5",0.5),("d#5",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("d#4",0.5),("",0.5),("d#4",0.5),("",1),("f4",0.25),("d#4",0.25),("d4",0.25),("d#4",0.25),("f4",0.5),("d#4",0.5),("",0.5),("d#4",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("d#4",1.5),("d#4",2),("d#4",2),("a#4",1),("f5",0.5),("d6",1),("c6",0.5),("g#5",1),("g#5",0.5),("a#5",1),("a#4",1),("a5",0.5),("f#5",1),("c4",2),("c4",2),("c4",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",1),("a#3",1),("a#3",0.5),("c4",1.5),("d4",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("d4",2.5),("f4",1.5),("d#4",1.5),("a#3",1),("c4",2),("c4",2),("c5",2),("c5",2),("g#4",4),("c4",2),("c4",2),("c4",4),("c#4",1),("g#4",0.5),("c#5",1),("c5",0.5),("g#4",1),("c#4",2),("c4",2),("f#3",1),("c#4",0.5),("f#4",1),("f4",0.5),("c#4",1),("g#3",4)],
[("c4",1),("g4",0.5),("c5",1),("b4",0.5),("g4",1),("f4",1),("c5",0.5),("f5",1),("e5",0.5),("c5",1),("g4",1.5),("a4",1.5),("a#4",1),("f4",2),("d#4",2),("g#3",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",0.5),("g3",1),("g3",0.5),("c4",1.5),("a3",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("c4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("f4",2.5),("d5",2.5),("d#5",0.5),("f5",0.5),("g5",1.5),("g#5",0.5),("f5",1.5),("d#5",0.5),("g5",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("g4",0.5),("",0.5),("g#4",0.5),("",1),("f4",0.25),("d#4",0.25),("d4",0.25),("d#4",0.25),("f4",0.5),("g#4",0.5),("",0.5),("g4",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("g4",1.5),("g4",2),("a4",2),("a#4",1),("f5",0.5),("d6",1),("c6",0.5),("g#5",1),("g#5",0.5),("a#5",1),("a#4",1),("a5",0.5),("f#5",1),("f4",2),("d#4",2),("g#3",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",1),("g3",1),("g3",0.5),("c4",1.5),("a3",0.5),("a3",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("d4",2.5),("a#3",1.5),("d#4",1.5),("a#3",1),("f4",2),("f4",2),("f5",2),("d#5",2),("c5",4),("f4",2),("d#4",2),("g#3",4),("c#4",1),("g#4",0.5),("c#5",1),("c5",0.5),("g#4",1),("f4",2),("d#4",2),("f#3",1),("c#4",0.5),("f#4",1),("f4",0.5),("c#4",1),("c#4",4)],
[("c4",1),("g4",0.5),("c5",1),("b4",0.5),("g4",1),("f4",1),("c5",0.5),("f5",1),("e5",0.5),("c5",1),("c4",1.5),("c4",1.5),("c4",1),("g#3",2),("g3",2),("c4",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",0.5),("a#4",1),("a#4",0.5),("c4",1.5),("d4",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("f4",2.5),("d5",2.5),("d#5",0.5),("f5",0.5),("g5",1.5),("g#5",0.5),("f5",1.5),("d#5",0.5),("c5",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("c4",0.5),("",0.5),("c4",0.5),("",1),("f4",0.25),("d#4",0.25),("d4",0.25),("d#4",0.25),("f4",0.5),("c4",0.5),("",0.5),("c4",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("c4",1.5),("c4",2),("c4",2),("a#4",1),("f5",0.5),("d6",1),("c6",0.5),("g#5",1),("g#5",0.5),("a#5",1),("a#4",1),("a5",0.5),("f#5",1),("g#3",2),("g3",2),("c4",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",1),("a#3",1),("a#3",0.5),("c4",1.5),("d4",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("d4",2.5),("f4",1.5),("d#4",1.5),("a#3",1),("a#3",2),("a3",2),("g#4",2),("g4",2),("d#4",4),("g#3",2),("g3",2),("c4",4),("c#4",1),("g#4",0.5),("c#5",1),("c5",0.5),("g#4",1),("g#3",2),("g#3",2),("f#3",1),("c#4",0.5),("f#4",1),("f4",0.5),("c#4",1),("f3",4)],
[("c4",1),("g4",0.5),("c5",1),("b4",0.5),("g4",1),("f4",1),("c5",0.5),("f5",1),("e5",0.5),("c5",1),("d#4",1.5),("d#4",1.5),("d#4",1),("c4",2),("c4",2),("g#3",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",0.5),("g3",1),("g3",0.5),("c4",1.5),("a3",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("c4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("f4",2.5),("d5",2.5),("d#5",0.5),("f5",0.5),("g5",1.5),("g#5",0.5),("f5",1.5),("d#5",0.5),("d#5",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("d#4",0.5),("",0.5),("d#4",0.5),("",1),("f4",0.25),("d#4",0.25),("d4",0.25),("d#4",0.25),("f4",0.5),("d#4",0.5),("",0.5),("d#4",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("d#4",1.5),("d#4",2),("d#4",2),("a#4",1),("f5",0.5),("d6",1),("c6",0.5),("g#5",1),("g#5",0.5),("a#5",1),("a#4",1),("a5",0.5),("f#5",1),("c4",2),("c4",2),("g#3",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",1),("g3",1),("g3",0.5),("c4",1.5),("a3",0.5),("a3",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("d4",2.5),("a#3",1.5),("d#4",1.5),("a#3",1),("c4",2),("c4",2),("c5",2),("c5",2),("g#4",4),("c4",2),("c4",2),("g#3",4),("c#4",1),("g#4",0.5),("c#5",1),("c5",0.5),("g#4",1),("c#4",2),("c4",2),("f#3",1),("c#4",0.5),("f#4",1),("f4",0.5),("c#4",1),("g#3",4)],
[("c4",1),("g4",0.5),("c5",1),("b4",0.5),("g4",1),("f4",1),("c5",0.5),("f5",1),("e5",0.5),("c5",1),("g4",1.5),("a4",1.5),("a#4",1),("f4",2),("d#4",2),("c4",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",0.5),("a#4",1),("a#4",0.5),("c4",1.5),("d4",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("f4",2.5),("d5",2.5),("d#5",0.5),("f5",0.5),("g5",1.5),("g#5",0.5),("f5",1.5),("d#5",0.5),("g5",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("g4",0.5),("",0.5),("g#4",0.5),("",1),("f4",0.25),("d#4",0.25),("d4",0.25),("d#4",0.25),("f4",0.5),("g#4",0.5),("",0.5),("g4",0.5),("",1),("d#4",0.25),("d4",0.25),("c4",0.25),("d4",0.25),("d#4",0.5),("g4",1.5),("g4",2),("a4",2),("a#4",1),("f5",0.5),("d6",1),("c6",0.5),("g#5",1),("g#5",0.5),("a#5",1),("a#4",1),("a5",0.5),("f#5",1),("f4",2),("d#4",2),("c4",4),("c4",1),("d#4",0.5),("c5",1),("a#4",0.5),("g4",1),("a#3",1),("a#3",0.5),("c4",1.5),("d4",0.5),("c4",0.5),("a#3",1),("d4",0.5),("a#4",1),("a4",0.5),("f4",1),("f4",0.5),("g4",1),("g3",1),("f4",0.5),("d#4",1),("d4",2.5),("a#4",0.5),("c5",0.5),("c5",2),("d4",2.5),("f4",1.5),("d#4",1.5),("a#3",1),("f4",2),("f4",2),("f5",2),("d#5",2),("c5",4),("f4",2),("d#4",2),("c4",4),("c#4",1),("g#4",0.5),("c#5",1),("c5",0.5),("g#4",1),("f4",2),("d#4",2),("f#3",1),("c#4",0.5),("f#4",1),("f4",0.5),("c#4",1),("c#4",4)]]