efim/cl-patterns-study
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

small refactor of old notes and more arpeggios

Browse Source
This commit is contained in:
efim
2022-09-09 06:10:21 +00:00
parent 788c27c54b
commit 00515cd9df
21 changed files with 364 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
stabler-things/functions.lisp Normal file
View File

@@ -0,0 +1,3 @@
(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 (chord symbol))))