Opusmodus 1.2.21967

[opmo]

Added new keyword :type to TONALITY-MAP and TONALITY-SERIES function with three options: prime-form, normal-order and row.

 

Examples:

(setf seq2 (rnd-row :type :pitch :seed 345))
=> (c4 d4 g4 f4 cs4 b4 gs4 e4 fs4 a4 bb4 eb4)

(tonality-map
 '((0 1 11 6 3 2 4 9)
   :map step :type normal-order) seq2)
=> (a4 c4 fs4 eb4 b4 cs5 a5 d4 e4 b5 c5 cs4)

(tonality-map
 '((0 1 11 6 3 2 4 9)
   :map step :type prime-form) seq2)
=> (c4 eb4 a4 fs4 d4 e5 c5 f4 g4 d5 eb5 e4)

(tonality-map
 '((0 1 11 6 3 2 4 9)
   :map step :type row) seq2)
=> (c4 d4 b4 fs4 cs4 eb5 c5 e4 a4 cs5 d5 eb4)

(tonality-map
 '((0 1 11 6 3 2 4 9)
   :map step :type normal-order :rotate 1) seq2)
=> (b4 cs4 a5 e4 c4 d5 b5 eb4 fs4 c5 cs5 d4)

(tonality-map
 '((0 1 11 6 3 2 4 9)
   :map step :type prime-form :rotate 1) seq2)
=> (d4 e4 c5 g4 eb4 f5 d5 fs4 a4 eb5 e5 f4)

(tonality-map
 '((0 1 11 6 3 2 4 9)
   :map step :type row :rotate 1) seq2)
=> (cs4 eb4 c5 a4 d4 e5 cs5 fs4 b4 d5 eb5 e4)

 

Best wishes,

JP