Hi,

in my example I only use one mode

is it possible to use multiple modes, exemple Dorian II, mixolydian-v and Ionian I ??

 

(setf patterns (pitch-transpose 6
                            (make-omn
                            :pitch (rnd-order
                            (expand-chord-name (library 'modes 'mixolydian-v nil :random 1) :type :pitch))
                            :length (gen-repeat 1 ry12) 
                             )))

(setf modes
      (expand-chord-name
       (list
        (library 'modes 'Dorian-II nil :random 1)
        (library 'modes 'Ionian-I nil :random 1)
        (library 'modes 'mixolydian-v nil :random 1))
       :type :pitch))

(setf transp (pitch-transpose 6 modes))

(setf patterns (make-omn
                :pitch (rnd-order transp)
                :length (gen-repeat 1 ry12) 
                ))

 

Thank you Janusz!

I am speaking to saxophonist that you are;-)

I assume to you understand what I am trying to do.
to generate II V I VI with eight notes except dominant-diminished?

 

(setf ry12 '((e e e e e e e e)(e e e e e e e e)(e e e e e e e e)(e e e e e e e e)))

(setf modes
      (expand-chord-name
       (list
       (library 'modes 'Dorian-II 'dorian)
       (library 'modes 'altered 'altered-dominant)
       (library 'modes 'major 'major)
       (library 'modes 'dominant 'dominant-diminished))
        :type :pitch))

(setf transp (pitch-transpose-start
 '(2 7 0 -3 )  modes ))

(setf patterns (omn-to-measure (make-omn
                :pitch (pitch-transpose 12 (rnd-order transp))
                :length (gen-repeat 1 ry12) 
                :span :length)              
                     '(4/4)))