Hello everyone,

Is there a way to remove the same repeated notes with rnd-order function?

like 

(setf for4 (rnd-order seq+ry12  :type :pitch))

(filter-repeat 1 for4 :type :pitch)

Thank you it's much better;-)

should i do this ?can i not shorten

(setf seq+ry12 
                (make-omn
                :pitch (omn :pitch seq)
                :length (gen-repeat 24 tr)                                  
                :span :length))

(setf for4 (rnd-order seq+ry12  :type :pitch))

(setf bw-rh1 (omn-to-measure seq+ry12 '(4/4)))

(setf rep (filter-repeat 1 bw-rh1 :type :pitch))

i don't know your datas, but.... perhaps....

 

(omn-to-measure (make-omn
                 :pitch (filter-repeat 1 (rnd-order (omn :pitch seq)))
                 :length (gen-repeat 24 tr)                                  
                 :span :length)
                '(4/4))

 

 

I'm using find -bar now , because I can't find any other solutions...so quite long...

your code seems to work fine

Thank you so much!!!