-
q)progression:"C#D#EF#G#A#B" q)notes:flip progression mod[;12]til[13]+/:progression? q)notes "EADGBE" "EADGBE" "F###CF" "#BEA##" "GCF#DG" "###B##" "ADGCEA" "####F#" "BEAD#B" "CF##GC" "##BE##" "DGCFAD" "######" "EADGBE"
First row is the open strings, and runs as far as the 12th fret, at which point the pattern repeats. Also works for alternative tunings:
q)notes”DADGBE” // Drop D
q)notes”DADGAD” // DADGAD