Add script to print example fretboards.

1 files changed, 15 insertions, 0 deletions

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