aboutsummaryrefslogtreecommitdiff
path: root/songs
diff options
context:
space:
mode:
authorJoris2024-01-05 10:39:24 +0100
committerJoris2024-01-05 10:39:24 +0100
commit0d97631eb0c8b1459a23e8e003705502754969d1 (patch)
tree79ff0fafe2f82d8342ffb6a3d1c325d76f5ee4b5 /songs
parent8b5a1f5b754d51147236c7a50e573d4b041497ee (diff)
Allow to specify chord multiplier
Diffstat (limited to 'songs')
-rw-r--r--songs/bob-marley/no-woman-no-cry.lisp22
1 files changed, 4 insertions, 18 deletions
diff --git a/songs/bob-marley/no-woman-no-cry.lisp b/songs/bob-marley/no-woman-no-cry.lisp
index deaaa80..80bb213 100644
--- a/songs/bob-marley/no-woman-no-cry.lisp
+++ b/songs/bob-marley/no-woman-no-cry.lisp
@@ -3,37 +3,23 @@
(from "Bob Marley & The Wailers")
(tonality "C")
- ; (chords
- ; (:templates
- ; (A ((C G) (("Am" 1.5) (F 0.5 2)) ((C 2) (F 1.5) (C 0.5)) (C G)))
- ; (B ((C G) (("Am" 1.5) (F 0.5 2)) (C G) (("Am" 1.5) (F 0.5 2))))
- ; (C ((C G) ("Am" F) (C G) ("Am" F))))
-
- ; (intro A)
- ; (chorus A A)
- ; (verse B B)
- ; (bridge C C))
-
(chords
(intro
((C G) (("Am" 1.5) (F 0.5 2)))
(((C 2) (F 1.5) (C 0.5)) (C G)))
(chorus
- ((C G) (("Am" 1.5) (F 0.5 2)))
- (((C 2) (F 1.5) (C 0.5)) (C G))
+ :repeat 2
((C G) (("Am" 1.5) (F 0.5 2)))
(((C 2) (F 1.5) (C 0.5)) (C G)))
(verse
- ((C G) (("Am" 1.5) (F 0.5 2)))
- ((C G) (("Am" 1.5) (F 0.5 2)))
- ((C G) (("Am" 1.5) (F 0.5 2)))
+ :repeat 4
((C G) (("Am" 1.5) (F 0.5 2))))
(bridge
- ((C G) ("Am" F) (C G) ("Am" F))
- ((C G) ("Am" F) (C G) ("Am" F))))
+ :repeat 4
+ ((C G) ("Am" F))))
(lyrics
(intro)