Simple part extraction example from piano reduction to string quartet with pitch-demix

Hi,

just a small example here about parts extraction with pitch-demix, from piano part to string quartet.

Not a perfect solution but do the job in many cases and it is always possible to refine a bit the output manually.

S.

(setf base '(#|1|# (z^h. c4e4a4 h.^w fs3 q b4)
             #|2|# (z^h c4e4a4 h^h. fs3 q c5 b4)
             #|3|# (z^h. c4e4a4 h.^w fs3 e g4 a4)
             #|4|# (z^h. c4e4a4 h.^w fs3 q g4)
             #|5|# (z^h. d4f4 h.^w c3gs3 q e4)
             #|6|# (z^q f4 q^h. c3gs3 g4 f4 e4)
             #|7|# (z^h d4e4 h^w c3gs3 tie f4)
             #|8|# (h. c3gs3d4 q e4)
             #|9|# (z^h. cs4fs4 h.^w as2fs3 q gs4)
             #|10|# (z^h. cs4as4 h.^w as2fs3 q c5)
             #|11|# (z^e a2 e^h. e4d5 he^h.. f3 tie q e5)
             #|12|# (z^w f3 h c4e4d5 q c5 b4)
             #|13|# (w f3c4e4a4)))


(setf base-merged (dissolve-voices base))

(setf v1 (pitch-demix 1 base-merged))
(setf v2 (pitch-demix 2 base-merged))
(setf v3 (pitch-demix 3 base-merged))
(setf v4 (pitch-demix 4 base-merged))

(ps 'gm :sq (list v1 v2 v3 v4))