:nokey2

[Kilian Sprotte]

Hi,

fomus has experimental support for a second enharmonic spelling
algorithm that
basically tries do the same as the first, but is powered by a
different solver --
in this case: adaptive search (fomus/ads.lisp)

This is the form I used for testing:

(fomus
:output '( (:data))
:verbose 1 :quartertones nil
:ensemble-type :orchestra
:auto-accs-mod :nokey2
:global (list (make-timesig :off 0 :time '(5 8) :div '(3/2 1)))
:parts
(list
(make-part
:name "Piano"
:instr '(:piano :simultlim 1)
:events
(loop
with x = 0
for off from 0 to 10 by 1/2
collect (make-note :off off
:dur (if (< off 10) 1/2 1)
:note (+ 48 (random 25)))))))

Cheers,
Kilian

PS: David, could you replace

http://common-lisp.net/project/fomus/index.html
by
http://common-lisp.net/project/fomus/ksindex.html

if you like my change ?
(or maybe put that link somewhere else?)