Hi,

I have a small suggestion concerning MAKE-SCALE:

It would be a nice extension, if one can use lists in :alt would be an easy way to construct symmetric scales and more complex sieves.

 

simple example:

(make-scale 'c3 8 :alt '(1 2))
=> (c3 cs3 eb3 e3 fs3 g3 a3 bb3)

 

same as:

(flatten (list (gen-mix (make-scale 'c3 4 :alt 3)
                        (make-scale 'cs3 4 :alt 3))))
=> (c3 cs3 eb3 e3 fs3 g3 a3 bb3)

 

Happy New Y(ear)(s)!

 

ole

Good idea, I will add this to the next update.

Alternatively you could use GEN-INTEGER-STEP function:

(gen-integer-step 0 12 '(1 2))
=> (0 1 3 4 6 7 9 10 12 13 15 16)

ah, great, thanks!