gac/sg1.scm

(require)

'(define-module (gac sg1)
  #:use-module (srfi srfi-1)

  #:export (%monad
            %dyads
            %trichords
            %tetrachords
            %pentachords
            %hexachords
            %septachords
            %octachords
            %nonachords
            %decachords
            %undecachord
            %dodecachord))

(define %monad '(0))

(define %dyads '((0 1) (0 2) (0 3) (0 4) (0 5) (0 6)))

(define %trichords '((0 1 2) (0 1 3) (0 2 3) (0 1 4)
                     (0 3 4) (0 1 5) (0 4 5) (0 1 6)
                     (0 5 6) (0 2 4) (0 2 5) (0 3 5)
                     (0 2 6) (0 4 6) (0 2 7) (0 3 6)
                     (0 3 7) (0 4 7) (0 4 8)))

(define %tetrachords '((0 1 2 3) (0 1 2 4) (0 2 3 4)
                       (0 1 3 4) (0 1 2 5) (0 3 4 5)
                       (0 1 2 6) (0 4 5 6) (0 1 2 7)
                       (0 1 4 5) (0 1 5 6) (0 1 6 7)
                       (0 2 3 5) (0 1 3 5) (0 2 4 5)
                       (0 2 3 6) (0 3 4 6) (0 1 3 6)
                       (0 3 5 6) (0 2 3 7) (0 4 5 7)
                       (0 1 4 6) (0 2 5 6) (0 1 5 7)
                       (0 2 6 7) (0 3 4 7) (0 1 4 7)
                       (0 3 6 7) (0 1 4 8) (0 3 4 8)
                       (0 1 5 8) (0 2 4 6) (0 2 4 7)
                       (0 3 5 7) (0 2 5 7) (0 2 4 8)
                       (0 2 6 8) (0 3 5 8) (0 2 5 8)
                       (0 3 6 8) (0 3 6 9) (0 1 3 7)
                       (0 4 6 7)))

(define %pentachords '((0 1 2 3 4) (0 1 2 3 5) (0 2 3 4 5)
                       (0 1 2 4 5) (0 1 3 4 5) (0 1 2 3 6)
                       (0 3 4 5 6) (0 1 2 3 7) (0 4 5 6 7)
                       (0 1 2 5 6) (0 1 4 5 6) (0 1 2 6 7)
                       (0 1 5 6 7) (0 2 3 4 6) (0 1 2 4 6)
                       (0 2 4 5 6) (0 1 3 4 6) (0 2 3 5 6)
                       (0 2 3 4 7) (0 3 4 5 7) (0 1 3 5 6)
                       (0 1 2 4 8) (0 2 3 4 8) (0 1 2 5 7)
                       (0 2 5 6 7) (0 1 2 6 8) (0 1 3 4 7)
                       (0 3 4 6 7) (0 1 3 4 8) (0 1 4 5 7)
                       (0 2 3 6 7) (0 1 3 6 7) (0 1 4 6 7)
                       (0 1 5 6 8) (0 2 3 7 8) (0 1 4 5 8)
                       (0 3 4 7 8) (0 1 4 7 8) (0 2 3 5 7)
                       (0 2 4 5 7) (0 1 3 5 7) (0 2 4 6 7)
                       (0 2 3 5 8) (0 3 5 6 8) (0 2 4 5 8)
                       (0 3 4 6 8) (0 1 3 5 8) (0 3 5 7 8)
                       (0 2 3 6 8) (0 2 5 6 8) (0 1 3 6 8)
                       (0 2 5 7 8) (0 1 4 6 8) (0 2 4 7 8)
                       (0 1 3 6 9) (0 2 3 6 9) (0 1 4 6 9)
                       (0 3 5 8 9) (0 2 4 6 8) (0 2 4 6 9)
                       (0 2 4 7 9) (0 1 2 4 7) (0 3 5 6 7)
                       (0 3 4 5 8) (0 1 2 5 8) (0 3 6 7 8)))

(define %hexachords '((0 1 2 3 4 5) (0 1 2 3 4 6) (0 2 3 4 5 6)
                      (0 1 2 3 5 6) (0 1 3 4 5 6) (0 1 2 4 5 6)
                      (0 1 2 3 6 7) (0 1 4 5 6 7) (0 1 2 5 6 7)
                      (0 1 2 6 7 8) (0 2 3 4 5 7) (0 1 2 3 5 7)
                      (0 2 4 5 6 7) (0 1 3 4 5 7) (0 2 3 4 6 7)
                      (0 1 2 4 5 7) (0 2 3 5 6 7) (0 1 2 4 6 7)
                      (0 1 3 5 6 7) (0 1 3 4 6 7) (0 1 3 4 5 8)
                      (0 3 4 5 7 8) (0 1 2 4 5 8) (0 3 4 6 7 8)
                      (0 1 4 5 6 8) (0 2 3 4 7 8) (0 1 2 4 7 8)
                      (0 1 4 6 7 8) (0 1 2 5 7 8) (0 1 3 6 7 8)
                      (0 1 3 4 7 8) (0 1 4 5 7 8) (0 1 4 5 8 9)
                      (0 2 3 4 6 8) (0 2 4 5 6 8) (0 1 2 4 6 8)
                      (0 2 4 6 7 8) (0 2 3 5 6 8) (0 1 3 4 6 8)
                      (0 2 4 5 7 8) (0 1 3 5 6 8) (0 2 3 5 7 8)
                      (0 1 3 5 7 8) (0 1 3 4 6 9) (0 3 5 6 8 9)
                      (0 1 3 5 6 9) (0 2 3 6 7 9) (0 1 3 6 7 9)
                      (0 2 3 6 8 9) (0 1 4 5 7 9) (0 2 4 5 8 9)
                      (0 2 4 5 7 9) (0 2 3 5 7 9) (0 2 4 6 7 9)
                      (0 1 3 5 7 9) (0 2 4 6 8 9) (0 2 4 6 8 10)
                      (0 3 4 5 6 7) (0 1 2 3 4 7) (0 1 2 3 4 8)
                      (0 1 2 3 7 8) (0 3 4 5 6 8) (0 2 3 4 5 8)
                      (0 3 5 6 7 8) (0 1 2 3 5 8) (0 2 5 6 7 8)
                      (0 1 2 3 6 8) (0 1 2 3 6 9) (0 2 3 6 7 8)
                      (0 1 2 5 6 8) (0 3 4 7 8 9) (0 1 2 5 6 9)
                      (0 2 3 4 6 9) (0 3 5 7 8 9) (0 1 2 4 6 9)
                      (0 2 5 7 8 9) (0 1 2 4 7 9) (0 1 2 5 7 9)
                      (0 1 3 4 7 9) (0 1 4 6 7 9)))

(define %septachords '((0 1 2 3 4 5 6) (0 2 3 4 5 6 7) (0 1 2 3 4 5 7)
                       (0 3 4 5 6 7 8) (0 1 2 3 4 5 8) (0 1 3 4 5 6 7)
                       (0 1 2 3 4 6 7) (0 1 2 4 5 6 7) (0 1 2 3 5 6 7)
                       (0 1 4 5 6 7 8) (0 1 2 3 4 7 8) (0 1 2 5 6 7 8)
                       (0 1 2 3 6 7 8) (0 2 3 4 5 6 8) (0 2 4 5 6 7 8)
                       (0 1 2 3 4 6 8) (0 2 3 4 5 6 9) (0 1 2 3 4 6 9)
                       (0 2 3 4 5 7 8) (0 1 3 4 5 6 8) (0 1 2 3 4 7 9)
                       (0 2 3 4 6 7 8) (0 1 2 4 5 6 8) (0 1 3 5 6 7 8)
                       (0 1 2 3 5 7 8) (0 1 2 4 6 7 8) (0 1 3 4 5 6 9)
                       (0 1 2 3 5 6 9) (0 1 2 4 5 6 9) (0 1 4 5 6 7 9)
                       (0 1 4 6 7 8 9) (0 1 2 3 6 8 9) (0 1 2 3 6 7 9)
                       (0 1 2 5 7 8 9) (0 1 2 5 6 7 9) (0 1 3 4 5 8 9)
                       (0 1 2 4 5 8 9) (0 1 2 5 6 8 9) (0 2 4 5 6 7 9)
                       (0 2 3 4 5 7 9) (0 2 4 6 7 8 9) (0 1 2 3 5 7 9)
                       (0 2 3 5 6 7 9) (0 2 3 4 6 7 9) (0 1 3 4 5 7 9)
                       (0 2 4 5 6 8 9) (0 2 4 5 7 8 9) (0 1 2 4 5 7 9)
                       (0 1 3 5 6 7 9) (0 2 3 4 6 8 9) (0 2 3 5 7 8 9)
                       (0 1 2 4 6 7 9) (0 1 3 5 7 8 9) (0 1 2 4 6 8 9)
                       (0 1 3 4 6 7 9) (0 2 3 5 6 8 9) (0 1 3 5 6 8 9)
                       (0 1 3 4 6 8 9) (0 1 2 4 6 8 10) (0 1 3 4 6 8 10)
                       (0 1 3 5 6 8 10) (0 2 3 5 6 7 8) (0 1 2 3 5 6 8)
                       (0 1 3 4 5 7 8) (0 1 3 4 6 7 8) (0 1 2 4 5 7 8)))

(define %octachords '((0 1 2 3 4 5 6 7) (0 2 3 4 5 6 7 8) (0 1 2 3 4 5 6 8)
                      (0 1 2 3 4 5 6 9) (0 1 3 4 5 6 7 8) (0 1 2 3 4 5 7 8)
                      (0 1 2 4 5 6 7 8) (0 1 2 3 4 6 7 8) (0 1 2 3 5 6 7 8)
                      (0 1 2 3 4 5 8 9) (0 1 2 3 4 7 8 9) (0 1 2 3 6 7 8 9)
                      (0 2 3 4 5 6 7 9) (0 2 4 5 6 7 8 9) (0 1 2 3 4 5 7 9)
                      (0 1 3 4 5 6 7 9) (0 2 3 4 5 6 8 9) (0 2 3 5 6 7 8 9)
                      (0 1 2 3 4 6 7 9) (0 1 2 4 5 6 7 9) (0 2 3 4 5 7 8 9)
                      (0 1 3 5 6 7 8 9) (0 1 2 3 4 6 8 9) (0 1 2 4 6 7 8 9)
                      (0 1 2 3 5 7 8 9) (0 1 3 4 5 6 8 9) (0 1 3 4 6 7 8 9)
                      (0 1 2 3 5 6 8 9) (0 1 3 4 5 7 8 9) (0 1 2 4 5 6 8 9)
                      (0 1 2 4 5 7 8 9) (0 1 2 3 4 6 8 10) (0 1 2 3 5 7 9 10)
                      (0 1 2 3 5 6 8 10) (0 1 2 3 5 7 8 10) (0 1 2 4 5 6 8 10)
                      (0 1 2 4 6 7 8 10) (0 1 3 4 5 7 8 10) (0 1 2 4 6 7 9 10)
                      (0 1 2 4 5 7 8 10) (0 1 3 4 6 7 9 10) (0 2 3 4 6 7 8 9)
                      (0 1 2 3 5 6 7 9)))

(define %nonachords '((0 1 2 3 4 5 6 7 8) (0 1 2 3 4 5 6 7 9) (0 2 3 4 5 6 7 8 9)
                      (0 1 3 4 5 6 7 8 9) (0 1 2 3 4 5 6 8 9) (0 1 2 4 5 6 7 8 9)
                      (0 1 2 3 4 5 7 8 9) (0 1 2 3 5 6 7 8 9) (0 1 2 3 4 6 7 8 9)
                      (0 1 2 3 4 5 6 8 10) (0 1 2 3 4 5 7 9 10) (0 1 2 3 4 5 7 8 10)
                      (0 1 2 3 4 6 8 9 10) (0 1 2 3 4 6 7 8 10) (0 1 2 3 5 6 7 8 10)
                      (0 1 2 3 4 6 7 9 10) (0 1 2 3 5 6 8 9 10) (0 1 2 3 5 6 7 9 10)
                      (0 1 2 4 5 6 8 9 10)))

(define %decachords '((0 1 2 3 4 5 6 7 8 9)
                      (0 1 2 3 4 5 6 7 8 10)
                      (0 1 2 3 4 5 6 7 9 10)
                      (0 1 2 3 4 5 6 8 9 10)
                      (0 1 2 3 4 5 7 8 9 10)
                      (0 1 2 3 4 6 7 8 9 10)))

(define %undecachord '(0 1 2 3 4 5 6 7 8 9 10))

(define %dodecachord '(0 1 2 3 4 5 6 7 8 9 10 11))