Search the Community

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))