diff options
| author | rekado <rekado@elephly.net> | 2016-09-28 22:33:31 +0200 |
|---|---|---|
| committer | rekado <rekado@elephly.net> | 2016-09-28 22:33:31 +0200 |
| commit | 35237b4ac87ba94553df339a39a0988b027bf191 (patch) | |
| tree | 67a52467cd2a9643141e4581767876923ace09f5 | |
| parent | 8241952413f21e23121d60544c7512cd5bfb0068 (diff) | |
scales: Add whole-tone and chromatic scales.
| -rw-r--r-- | scales/scales.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/scales/scales.scm b/scales/scales.scm index ec8cf58..7038e22 100644 --- a/scales/scales.scm +++ b/scales/scales.scm @@ -12,7 +12,10 @@ dorian aeolian phrygian - locrian)) + locrian + + whole-tone + chromatic)) ;;; Common scales @@ -51,3 +54,8 @@ root note and returns a list of scale notes." (steps->scale '(1 2 2 2 1 2 2))) (define locrian (steps->scale '(1 2 2 1 2 2 2))) + +(define whole-tone + (steps->scale '(2 2 2 2 2 2))) +(define chromatic + (steps->scale '(1 1 1 1 1 1 1 1 1 1 1))) |