(load "c:\\program files\\acl62\\music13.cl") 


;;; 
;;; (the-list-is-involved-in-a-scale-2 '(re la) '(C ion))
;;; 
(defun the-list-is-involved-in-a-scale-2 (lst pair) 
　　(sub-set-p (translate-flat-to-sharp-in-a-list lst) 
　　　　　　　 (replace-j-note-with-doremi 
                  (get-tension-note 
                       (first pair) (second pair))))) 


(setf *scales* '(ion dor phr lyd mix aeo loc n h m 
                 all dor-2 loc+2 lyd-7 hmp5 mmp5 alt 
                 comd dim wt mixsus4 mix-6))

;;; 
;;; 
;;; 
(defun get-C-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-C-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-+C-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-+C-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get--D-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get--D-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-D-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-D-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-+D-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-+D-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get--E-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get--E-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-E-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-E-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-F-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-F-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-+F-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-+F-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get--G-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get--G-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-G-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-G-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-+G-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-+G-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get--A-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get--A-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-A-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-A-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-+A-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-+A-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get--B-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get--B-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 


(defun get-B-scales-whitch-involve-the-list-2 (lst) 
　　(do ((l (get-B-scales) (cdr l)) 
　　　　　(w)) 
　　　　　((null l) w) 
　　　　(cond ((the-list-is-involved-in-a-scale-2 
                    lst (car l)) 
　　　　　　　　　(push (car l) w))))) 
;;; 
;;; (get-scales-whitch-involve-the-tension-notes 
;;;                       '(re la))
;;; 
(defun get-scales-whitch-involve-the-tension-notes (lst) 
　　(append (get-C-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-+C-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get--D-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-D-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-+D-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get--E-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-E-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-F-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-+F-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get--G-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-G-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-+G-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get--A-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-A-scales-whitch-involve-the-list-2 lst) 
　　　　　　(get-+A-scales-whitch-involve-the-list-2 lst)
　　　　　　(get--B-scales-whitch-involve-the-list-2 lst)
　　　　　　(get-B-scales-whitch-involve-the-list-2 lst)))