Chord variations (chordal rotation)

[opmo]

PITCH-ROTATE

(flatten-sublist
 (gen-loop 12
           (pitch-rotate
            (rnd-sample 12 (gen-integer -6 6))
            '((d4fs4a4 a4e5c5a4))) :seed 245))

=> ((d3fs3a3 e4c4a3a4)
    (d5fs5a5 a4a5e6c6)
    (e4c4a3a4 fs3a3d4)
    (a3d4fs4 a3a4e5c5)
    (e4c4a3a4 fs3a3d4)
    (e4c4a3a4 fs3a3d4)
    (d5fs5a5 a4a5e6c6)
    (c5a4a5e6 d5fs5a5)
    (d3fs3a3 e4c4a3a4)
    (a4e5c5a4 fs4a4d5)
    (a3a4e5c5 d4fs4a4)
    (e4c4a3a4 fs3a3d4))

 

 

GEN-CHORD2

(gen-chord2 12 '(4 3)
            '(c4 cs4 e4 eb4 b4 fs4 gs4 a4 bb4 d4 f4 g4)
            :offset '(2 3 -2)
            :transpose '(0 6 1 13)
            :rnd-octaves t
            :seed 83523)

=> (e5eb5b4fs4 c4d4eb4
    e4c4g4a4 g5a4bb4
    bb6d7f7g6 d6eb6e6
    b3eb4fs3gs3 gs4cs4d4
    d2f2g1c2 cs6fs5g5
    f1e1c1g1 cs7d7f6)

 

 

CHORD-VARIATION

(gen-loop 12 (chord-variation '(d4fs4a4 a4e5c5a4)) :seed 3145)

=> ((d4bb3g3 a4d4fs4a4)
    (e5c5a4 a4d4fs4a4)
    (bb4fs4eb4 b5e5gs5b5)
    (d4bb3g3 a4d4fs4a4)
    (d4bb3g3 eb5gs4c5eb5)
    (bb4fs4eb4 eb5gs4c5eb5)
    (d4bb3g3 eb5gs4c5eb5)
    (bb4fs4eb4 a4d4fs4a4)
    (d4bb3g3 a4d4fs4a4)
    (e5c5a4 b5e5gs5b5)
    (bb4fs4eb4 a4d4fs4a4)
    (d4bb3g3 a4d4fs4a4))