opmo Posted November 22, 2016 Share Posted November 22, 2016 Addition to harmonic-progression function :base (harmonic-progression '(0 3 4 4) '(c major)) => (c4e4g4 f4a4c5 g4b4d5 g4b4d5) (harmonic-progression '(1 4 5 5) '(c major) :base 1) => (c4e4g4 f4a4c5 g4b4d5 g4b4d5) New System Library 'MATHS' (will expand with time). Link to comment Share on other sites More sharing options...
Recommended Posts