66 lines
1.0 KiB
Plaintext
66 lines
1.0 KiB
Plaintext
----------------------------------------------
|
|
"Für Elise in A Minor" by Ludwig van Beethoven
|
|
WIP implemntation
|
|
----------------------------------------------
|
|
oct 5, bpm 72, len (1/16),
|
|
|
|
subsection1 := (
|
|
sim (a4 en) (a2 e3 a3),
|
|
play (oct 4, c e a),
|
|
|
|
sim (b4 en) (e2 e3 g#3),
|
|
play (oct 4, e g# b),
|
|
|
|
sim (c5 en) (a2 e3 a3),
|
|
play (e4 e5 d#5),
|
|
|
|
play e d# e b4 d c,
|
|
|
|
sim (a4 en) (a2 e3 a3),
|
|
play c4 e4 a4,
|
|
|
|
sim (b4 en) (e2 e3 g#3),
|
|
play d4 c5 b4,
|
|
),
|
|
|
|
section1 := ( n |
|
|
play e d#,
|
|
play e d# e b4 d c,
|
|
|
|
call subsection1,
|
|
|
|
if (n == 1)
|
|
( sim (a4 qn) (a2 e3 a3) )
|
|
( sim (a4 en) (a2 e3 a3)
|
|
, play b4 c5 d5
|
|
)
|
|
),
|
|
|
|
section2 := ( n |
|
|
sim (e5 den) (c3 g3 c4),
|
|
play g4 f e,
|
|
|
|
sim (d5 den) (g2 g3 b4),
|
|
play f4 e d,
|
|
|
|
sim (c5 den) (a2 e3 a3),
|
|
play e4 d c,
|
|
|
|
sim (b4 en) (e2 e3 e4),
|
|
play (e4 e5 e4 e4 e5 e6 d#5 e5 d#5 e5 en),
|
|
|
|
play d# e d# e d#,
|
|
play e d# e b4 d c,
|
|
|
|
call subsection1,
|
|
|
|
if (n == 1)
|
|
( sim (a4 en) (a2 e3 a3)
|
|
, play (b4 c5 d5)
|
|
)
|
|
),
|
|
|
|
section1 1,
|
|
section1 2,
|
|
section2 1,
|