Skip to content

Instantly share code, notes, and snippets.

@nbqx

nbqx/coltrane-matrix.scm

Created June 13, 2011 04:52
Show Gist options
  • Save nbqx/1022326 to your computer and use it in GitHub Desktop.
Save nbqx/1022326 to your computer and use it in GitHub Desktop.
Download ZIP
generate coltrane-matrix in impromptu
Raw
coltrane-matrix.scm
;;require pc-class
(define create-basic-coltrane-matrix
(lambda (n)
(let ((ns (map (lambda (i) (pc:chord i '^)) '(0 8 4))))
(map (lambda (i) (map (lambda (j) (+ j n)) i)) ns))))
(create-basic-coltrane-matrix 60) ;; => ((60 64 67) (68 60 63) (64 68 71))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment