From 35237b4ac87ba94553df339a39a0988b027bf191 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 28 Sep 2016 22:33:31 +0200
Subject: scales: Add whole-tone and chromatic scales.

---
 scales/scales.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3