From 1ac5e832b5ab0f099f25f3087c29cc0bf104dfcc Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Fri, 30 Sep 2016 11:30:35 +0200
Subject: Add bass tunings.

---
 scales/fretboard.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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