opusmodus 1.2.20164

[opmo]

New keyword :exclude in GEN-PAUSE:

(gen-pause '((-1/8 1/8) (1/4 1/8) (1/2 1/8)
             (1/8 1/4) (-1/8 1/2 -1/8)) :section '(0 2 4))
=> ((-1/4) (1/4 1/8) (-5/8) (1/8 1/4) (-3/4))

(gen-pause '((-1/8 1/8) (1/4 1/8) (1/2 1/8)
             (1/8 1/4) (-1/8 1/2 -1/8)) :exclude '(0 2 4))
=> ((-1/8 1/8) (-3/8) (1/2 1/8) (-3/8) (-1/8 1/2 -1/8))

With time I will add :exclude to all function with :section keyword.

 

New keyword :symmetrical in GEN-PALINDROME:

(gen-palindrome '(1 2 3 4 5 6))
=> (1 2 3 4 5 6 5 4 3 2 1)
(gen-palindrome '(1 2 3 4 5 6) :symmetrical nil)
=> (1 2 3 4 5 6 6 5 4 3 2 1)