(setf newscale (make-scale 'c4 7 :alt '(3 1 3 4)))
(setf rndnewscale (rnd-order newscale :prob 0.7 :seed 32))
(setf lastscale (pitch-transpose-start 'c5 rndnewscale))

;; This one doesn't work with rotation list
(setf rotatedlist (pitch-rotate '(1 2 3 4 5 ) lastscale)

Thank you

Patrick

(setf rotatedlist (pitch-rotate '(1 2 3 4 5 ) (gen-repeat 5 (list lastscale))))

Super je vous remercie

Salutations. Patrick