Opusmodus 1.3.24844

– New function:

CHORD-PROGRESSION - sorts a sequence of chords and pitches to the lowest or highest chord note.

– Update:
AMBITUS function allows range smaller than 6 semitones.

– Fixed:
Quick Start - Lesson 1 - OMN

– Documentation updates.

CHORD-PROGRESSION

This function will sort a sequence of chords and pitches to the lowest or highest chord note.

Sorting to lowest chord note:

(chord-progression '(g2g3 a2a4 a2a3 g2d4 g2g4 a2e4))
=> (g2g3 g2d4 g2g4 a2a3 a2e4 a2a4)

Sorting to highest chord note:

(chord-progression '(g2g3 a2a4 a2a3 g2d4 g2g4 a2e4) :sort 'high)
=> (g2g3 a2a3 g2d4 a2e4 g2g4 a2a4)

Examples:

(setf omn '((q d4a4g5 fs4eb5bb5 eb4fs5d5 bb4g5a5 fs4eb5d6 bb4a5g6)
            (q g4d4a4 bb4fs4eb4 a4g5d6 eb5bb5fs6 bb4a5g5 eb5d5fs5)))

(chord-progression omn)

(chord-progression omn :sort 'high)

(chord-progression omn :sort '(high low) :reverse '(nil t))

Best wishes,

Janusz