Opusmodus 1.2.21935

[opmo]

Changes to TONALITY-MAP function:

 

The map shift name is changed to step.

The sort by default is nil.

 

The function TONALITY-MAP can be used to map tonalities on to a chromatic pitch series. There are two types of map: step and NIL. The step map use the sequence interval steps to map the tonalities on to the sequence. The map NIL use the sequence integers to map the tonalities to the closest integer on to the sequence.

 

In the following example we use the closest type map:

(tonality-map '((0 2 4 7 9 11)) '(c4 cs4 d4 cs4 eb4 f4 e4))
=> (c4 d4 d4 c4 e4 f4 e4)

 

Here we use the step map:

(tonality-map '((0 2 4 7 9 11) :map step) '(c4 cs4 d4 cs4 eb4 f4 e4))
=> (c4 d4 e4 d4 g4 b4 a4)

 

New keywords :extend and :end added to the GEN-DYNAMIC and VELOCITY-TO-DYNAMIC function:

 

GEN-DYNAMIC

Example with optional :end velocity value:

(gen-dynamic '(3 5 4 4 5) '(pp f ff mf f) :end 'p)
=> (pp< < < f< < < < < ff> > > > mf< < < < f> > > > p)

(gen-dynamic '(3 5 4 4 5) '(pp f ff mf f) :end '>)
=> (pp< < < f< < < < < ff> > > > mf< < < < f> > > > >)

(gen-dynamic '(3 5 4 4 5) '(pp f ff mf f) :end '<)
=> (pp< < < f< < < < < ff> > > > mf< < < < f< < < < <)

(gen-dynamic '((3 5) (4 4) (5 3)) '((pp f) (p mf) (f p)) :end 'f)
=> ((pp< < < f> > > > >) (p< < < < mf< < < <) (f> > > > > p< < f))

 

 

Setting the :extend to t will removes intermediate textual dynamic indicators and replace them with extended hairpins:

(gen-dynamic '(3 5 4 4 5) '(pp f ff mf f) :end 'p :extend t)
=> (pp< < < < < < < < ff> > > > mf< < < < f> > > > p)

(gen-dynamic '(3 5 4 4 5) '(pp f ff mf f) :end '< :extend t)
=> (pp< < < < < < < < ff> > > > mf< < < < < < < < <)

(gen-dynamic '((3 5) (4 4) (5 3)) '((pp f) (p mf) (f p)) :end 'f :extend t)
=> ((pp< < < f> > > > >) (p< < < < < < < <) (f> > > > > p< < f))

 

 

VELOCITY-TO-DYNAMIC

(velocity-to-dynamic '(p p mp mp f ff mp mp p f))
=> (p< < mp< < f< ff> mp> > p< f)

(velocity-to-dynamic '(p p mp mp f ff mp mp p f) :extend t)
=> (p< < < < < ff> > > p< f)

(velocity-to-dynamic '(p p mp mp f ff mp mp p f) :end 'pp)
=> (p< < mp< < f< ff> mp> > p> pp)

(velocity-to-dynamic
 '((pppp ppp ppp pp ppp p p mp mf mf) (f ff mf mp p ppp pppp)))
=> ((pppp< ppp< < pp> ppp< p< < mp< mf< <) (f< ff> mf> mp> p> ppp> pppp))

 

Setting the :extend to t will removes intermediate textual dynamic indicators and replace them with extended hairpins:

(velocity-to-dynamic '(p p mp mp f ff mp mp p f) :end 'pp :extend t)
=> (p< < < < < ff> > > > pp)

(velocity-to-dynamic
 '((pppp ppp ppp pp ppp p p mp mf mf) (f ff mf mp p ppp pppp)) :extend t)
=> ((pppp< < < pp> ppp< < < < < <) (f< ff> > > > > pppp))

Please check the documentation for more details.

 

If you used the TONALITY-MAP with :map shift then you need to change the name shift to step.

To make the changes to all of your scores you can use the 'Search Files...' tool.

 

Minor fixes and code optimisation.

 

Best wishes,

JP