From 8241952413f21e23121d60544c7512cd5bfb0068 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 28 Sep 2016 10:25:56 +0200
Subject: Add script to print example fretboards.

---
 scripts/scales | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 scripts/scales

(limited to 'scripts')

diff --git a/scripts/scales b/scripts/scales
new file mode 100755
index 0000000..8e1529c
--- /dev/null
+++ b/scripts/scales
@@ -0,0 +1,15 @@
+#!/home/rekado/.guix-profile/bin/guile -s
+!#
+
+(use-modules (scales scales)
+             (scales fretboard))
+
+(display "Guitar: E Aeolian\n")
+(print-fretboard (fretboard tuning-guitar (aeolian 'e) 7 5))
+(newline)(newline)
+
+(display "Stick: E Aeolian\n")
+(print-stick
+ (map (lambda (string-group)
+        (fretboard string-group (aeolian 'e) 7 5))
+      tuning-grand-stick-matched-reciprocal-6+6))
-- 
cgit v1.2.3