attempting to get chord arpegios

2022-09-07 06:41:38 +00:00
parent 6a9b9a88c4
commit 12f0c80af7
4 changed files with 196 additions and 3 deletions
--- a/2022-09-04-more-synths-and-chord-progressions.lisp
+++ b/2022-09-04-more-synths-and-chord-progressions.lisp
@@ -252,7 +252,7 @@

 (defun nchord (symbol &optional (base 0))
  "Return list of notes for chord names by SYMBOL over the BASE."
-  (mapcar (lambda (note) (+ base note)) (chord-notes symbol)))
+  (mapcar (lambda (note) (+ base note)) (chord-notes (chord symbol))))

 (nchord :major 3)