Hi,

I would like to do for example

(setf ry1 '((e)))
(setf c7 (make-scale 'c4 24 :alt '(9 2 -9 9 1 -8 8 2 -9 9 2 -9 9 1 -8 8 2 -8 8 2 -9 9 2))) 
(setf rc7 (gen-retrograde c7))
(setf ass3 (assemble-seq c7 rc7))
(setf omn3 (pitch-transpose '(0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 -2 -2 -1 -1 11 11) 
                             (gen-repeat 12 ass3)))
(setf six+deux (omn-to-measure
                (make-omn 
                 :pitch omn3 
                 :length ry1
                 :span :pitch)
                '(3/8)))

(chordize six+deux)

> Error: OMN Parse Error: fail
> While executing: omn-to-ast, in process Listener-1(7).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.

 

I would think about the chords before applying the make-omn function.

(setf chords (chordize (gen-divide 3 (flatten omn3))))
(setf six+deux (omn-to-measure
                (make-omn 
                 :pitch chords
                 :length ry1
                 :span :pitch)
                '(3/8)))

 

ok i anderstand.

Thank you very much