diff options
| -rwxr-xr-x | scripts/scales | 15 |
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)) |