;;;
;;; c:\\program files\\acl62\\music27.cl
;;;
(load "c:\\program files\\acl62\\music26.cl")
(defun show-phrases-of-all-keys (lst)
(format t "~%~a" lst)
(format t "~%~a" (m2-up-phrases lst))
(format t "~%~a" (M2-up-phrases lst))
(format t "~%~a" (m3-up-phrases lst))
(format t "~%~a" (M3-up-phrases lst))
(format t "~%~a" (P4-up-phrases lst))
(format t "~%~a" (+4-5-up-phrases lst))
(format t "~%~a" (P5-up-phrases lst))
(format t "~%~a" (m6-up-phrases lst))
(format t "~%~a" (M6-up-phrases lst))
(format t "~%~a" (m7-up-phrases lst))
(format t "~%~a" (M7-up-phrases lst)))
(defun get-phrases-of-all-keys (lst)
(list lst
(m2-up-phrases lst)
(M2-up-phrases lst)
(m3-up-phrases lst)
(M3-up-phrases lst)
(P4-up-phrases lst)
(+4-5-up-phrases lst)
(P5-up-phrases lst)
(m6-up-phrases lst)
(M6-up-phrases lst)
(m7-up-phrases lst)
(M7-up-phrases lst)))
|