Add bass tunings.

1 files changed, 12 insertions, 0 deletions

diff --git a/scales/fretboard.scm b/scales/fretboard.scm
index 92b3de6..446d916 100644
--- a/scales/fretboard.scm
+++ b/scales/fretboard.scm
@@ -24,6 +24,9 @@
   #:use-module (scales utils)
   #:use-module (scales svg)
   #:export (tuning-guitar
+            tuning-bass
+            tuning-bass-5
+            tuning-bass-6
             tuning-grand-stick-matched-reciprocal-6+6
 
             string-frets
@@ -40,6 +43,15 @@
 (define tuning-guitar
   '(e a d g b e))
 
+(define tuning-bass
+  '(e a d g))
+
+(define tuning-bass-5
+  (cons 'b tuning-bass))
+
+(define tuning-bass-6
+  (append tuning-bass-5 '(c)))
+
 (define tuning-grand-stick-matched-reciprocal-6+6
   '((b e a d g c) (b e a d g c)))