david Posted December 1, 2022 Share Posted December 1, 2022 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)) Quote Link to comment Share on other sites More sharing options...
AM Posted December 2, 2022 Share Posted December 2, 2022 (filter-repeat 1 for4 :type :pitch) Quote Link to comment Share on other sites More sharing options...
david Posted December 2, 2022 Author Share Posted December 2, 2022 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)) Quote Link to comment Share on other sites More sharing options...
AM Posted December 2, 2022 Share Posted December 2, 2022 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)) Quote Link to comment Share on other sites More sharing options...
david Posted December 2, 2022 Author Share Posted December 2, 2022 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!!! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.