combining chopped and unchopped rthm seq palettes

combining chopped and unchopped rthm-seq-palettes

When chopping rthm-seq-palettes some of you might want to also use the original palette. To do this you'll need to combine two palettes. That, however, could cause ID conflicts, so you'd need to 'parcel up' one of the palettes, creating another level of nesting. Try the following or for more on the chop method see the slippery chicken manual

(let* ((orig-palette (make-rsp 'orig
                   '((1 ((((1 4) - s e s - ))
                     :pitch-seq-palette ((1 2 3))))
                 (2 ((((1 4) - e. s - ))
                     :pitch-seq-palette ((1 2))))
                 (3 ((((1 4) - (e.) s - ))
                     :pitch-seq-palette ((1)))))))
       (chopped-palette (chop orig-palette
                  '((1 4) 
                (1 3) (2 4) 
                (1 2) (2 3) (3 4) 
                (1 1) (2 2) (3 3) (4 4)) ; chop points  
                  's)))                       ; chopping unit
  (setf chopped-palette
    (combine orig-palette (parcel-data chopped-palette 'chopped)))
  (get-data '(1) chopped-palette)
  (get-data '(chopped 3 10) chopped-palette))