diff options
| -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))) |