;;;
;;; c:\\progra files\\acl62\\music8.cl
;;;
(load "c:\\program files\\acl62\\music7.cl")
(make-frame-from-list
'(CP-of-Cm (pat1 (value ("Cm" all)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat2 (value ("Cm" all)
("Fm7" dor)
("Cm" all)))
(pat3 (value ("Cm" all)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat4 (value ("Cm" all)
("-AM7" lyd)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat5 (value ("Cm" all)
("Cdim7" dim)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat6 (value ("Cm" all)
("Gdim7" dim)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat7 (value ("Cm" all)
("+Cdim7" dim)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat8 (value ("Cm" all)
("-AM7" lyd)
("D7" mix lyd-7
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat9 (value ("Cm" all)
("Cdim7" dim)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat10 (value ("Cm" all)
("Gaug" ion)
("Cm" all)))
(pat11 (value ("Cm" all)
("Cdim7" dim)
("Cm" all)
("D7" mix lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("Cm" all)))
(pat12 (value ("Cm" all)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat13 (value ("Cm" all)
("Fm7" dor)
("Cm" all)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat14 (value ("Cm" all)
("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("Cm" all)))
(pat15 (value ("Cm" all)
("F7" lyd-7)
("Cm" all)))
(pat16 (value ("Cm" all)
("-B7" mix)
("Cm" all)))
(pat17 (value ("Cm" all)
("Gm7" phr)
("-A7" lyd-7)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat18 (value ("Cm" all)
("-B7" mix)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat19 (value ("Cm" all)
("-A7" lyd-7)
("Fm7" dor)
("-B7" mix)
("-EM7" lyd ion)
("Caug" ion)
("Fm7" dor)))
(pat20 (value ("Cm" all)
("-AM7" lyd)
("+Cdim7" dim)
("G7" lyd-7 hmp5
alt comd wt)))
(pat21 (value ("Cm" all)
("-E7" mix lyd-7
alt comd wt)
("-AM7" lyd)
("Fm7" dor)))
(pat22 (value ("Cm" all)
("-E7"lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat23 (value ("Cm" all)
("-B7" mix)
("-E7" mix lyd-7
alt comd wt)
("-A7" lyd-7)
("Fm7" dor)
("Cm" all)))
(pat24 (value ("Cm" all)
("-EM7" lyd ion)
("-AM7" lyd)
("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)))
(pat25 (value ("Cm" all)
("-AM7" lyd)
("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)))
(pat26 (value ("Cm" all)
("-A7" lyd-7)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat27 (value ("Cm" all)
("Fm7" dor)
("-EM7" lyd ion)
("Fm7" dor)
("Cm" all)))
(pat28 (value ("Cm" all)
("C7" mix lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("Cm" all)))
(pat29 (value ("Cm" all)
("Fm7" dor)
("-E7" mix lyd-7
alt comd wt)
("-A7" lyd-7)
("Cm" all)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmo5
alt comd wt)
("Cm" all)))
(pat30 (value ("Cm" all)
("C7" lyd-7)
("B7" lyd-7)
("-B7" lyd-7)
("A7" mix lyd-7 hmp5
alt comd wt)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat31 (value ("Cm" all)
("-Em7" dor)
("Dm7" dor)
("-D7" lyd-7)
("Cm" all)))
(pat32 (value ("Cm" all)
("-E7" lyd-7)
("D7" lyd-7)
("-D7" lyd-7)
("Cm" all)))
(pat33 (value ("Cm" all)
("-A7" lyd-7)
("Cm" all)
("Cdim7" dim)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat34 (value ("Cm" all)
("Gm7" phr)
("-A7" lyd-7)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat35 (value ("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)))
(pat36 (value ("C7" mix lyd-7 hmp5
alt comd wt)
("Cdim7" dim)
("C7" mix lyd-7 hmp5
alt comd wt)
("D7" mix lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat37 (value ("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat38 (value ("D7" mix lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat39 (value ("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat40 (value ("Fm7" dor)
("-D7" lyd-7)
("Cm" all)))
(pat41 (value ("D7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("-EM7" lyd ion)
("-A7" lyd-7)
("Fm7" dor)
("Cm" all)))
(pat42 (value ("Fm7" dor)
("-AM7" lyd)
("-B7" mix)
("A7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat43 (value ("-EM7" lyd ion)
("-B7" mix)
("-EM7" lyd ion)))
(pat44 (value ("-EM7" lyd ion)
("-B7" mix)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat45 (value ("-EM7" lyd ion)
("-A7" lyd-7)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat46 (value ("-EM7" lyd ion)
("-AM7" lyd)
("Fm7" dor)
("Gaug" ion)
("Cm" all)))
(pat47 (value ("C7" lyd-7 hmp5
alt comd wt)
("-Em7" dor)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat48 (value ("-E7" mix lyd-7 hmp5
alt comd wt)
("-AM7" lyd)
("D7" lyd-7 hmp5
alt comd wt)))
(pat49 (value ("-EM7" lyd ion)
("Fm7" dor)
("-B7" mix)
("-EM7" lyd ion)))
(pat50 (value ("-EM7" lyd ion)
("Cm" all)
("Fm7" dor)
("-B7" mix)))
(pat51 (value ("-EM7" lyd ion)
("-AM7" lyd)
("-B7" mix)
("-EM7" lyd ion)
("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd)
("Cm" all)))
(pat52 (value ("Fm7" dor)
("-B7" mix)
("-AM7" lyd)))
(pat53 (value ("Fm7" dor)
("Cm" all)
("-A7" lyd-7)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat54 (value ("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)
("-EM7" lyd ion)
("Fm7" dor)))
(pat55 (value ("Fm7" dor)
("-E7" mix lyd-7 hmp5
alt comd wt)
("-AM7" lyd)
("Cdim7" dim)
("G7" lyd-7 hmp5
alt comd wt)
("+Cdim7" dim)
("Fm7" dor)))
(pat56 (value ("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)
("Gdim7" dim)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" ion)))
(pat57 (value ("F7" lyd-7)
("Cm" all)
("-A7" lyd-7)
("G7" lyd-7 hmp5
alt comd wt)))
(pat58 (value ("Fm7" dor)
("Cm" all)
("-Em7" dor)
("-AM7" lyd)))
(pat59 (value ("Gm7" phr)
("-AM7" lyd)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)))
(pat60 (value ("Gm7" phr)
("-A7" lyd-7)
("Fm7" dor)))
(pat61 (value ("G7" lyd-7 hmp5
alt comd wt)
("-Edim7" dim)
("G7" lyd-7 hmp5
alt comd wt)
("Gaug" ion)
("Cm" all)))
(pat62 (value ("Gm7" phr)
("C7" lyd-7 hmp5
alt comd wt)
("Gm7" phr)
("C7" lyd-7 hmp5
alt comd wt)))
(pat63 (value ("-AM7" lyd)
("-B7" mix)
("-EM7" lyd ion)
("G7" lyd-7 hmp5
alt comd wt)
("Cm" all)))
(pat64 (value ("-AM7" lyd)
("-EM7" lyd ion)
("Fm7" dor)
("CM7" ion)))
(pat65 (value ("-AM7" lyd)
("-BM7" lyd)
("-Em7" dor)
("-AM7" lyd)
("Cm" all)))
(pat66 (value ("-AM7" lyd)
("-E7" mix lyd-7 hmp5
alt comd wt)
("Gm7" phr)
("-A7" lyd-7)
("G7" lyd-7 hmp5
alt comd wt)))
(pat67 (value ("-AM7" lyd)
("Gaug" ion)
("Cm" all)))
(pat68 (value ("-AM7" lyd)
("G7" lyd-7 hmp5
alt comd wt)
("-EM7" lyd ion)
("-AM7" lyd)))
(pat69 (value ("-AM7" lyd)
("-Bm7" dor)
("-E7" mix lyd-7 hmp5
alt comd wt)
("-AM7" lyd)))
(pat70 (value ("-B7" mix)
("-EM7" lyd ion)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)))
(pat71 (value ("Cm" all)
("Am7-5" loc)
("Dm7-5" loc)
("G7" lyd-7 hmp5
alt comd wt)))
(pat72 (value ("Cm" all)
("-EM7" lyd ion)
("Dm7-5" loc)
("G7" lyd-7 hmp5
alt comd wt)))
(pat73 (value ("Cm" all)
("A7" mix lyd-7 hmp5
alt comd wt)
("D7" mix lyd-7 hmp5
alt comd wt)
("G7" lyd-7 hmp5
alt comd wt)))
(pat74 (value ("Cm" all)
("C7" lyd-7 hmp5
alt comd wt)
("Fm7" dor)
("G7" lyd-7 hmp5
alt comd wt)))
(pat75 (value ("Cm" all)
("-B7" mix)
("-A7" lyd-7)
("G7" lyd-7 hmp5
alt comd wt)))
(pat76 (value ("Cm" all)
("Dm7-5" loc)
("-EM7" lyd ion)
("Dm7-5" loc)))
(pat77 (value ("Cm" all)
("-E7" mix lyd-7 hmp5
alt comd wt)
("-AM7" lyd)
("G7" lyd-7 hmp5
alt comd wt)))
(pat78 (value ("Cm" all)
("Fm7" dor)
("Dm7-5" loc)
("G7" lyd-7 hmp5
alt comd wt)))))
(defun select-patn-of-CP-Cm-at-random ()
(nth (random 78)
'(pat1 pat2 pat3 pat4 pat5
pat6 pat7 pat8 pat9 pat10
pat11 pat12 pat13 pat14 pat15
pat16 pat17 pat18 pat19 pat20
pat21 pat22 pat23 pat24 pat25
pat26 pat27 pat28 pat29 pat30
pat31 pat32 pat33 pat34 pat35
pat36 pat37 pat38 pat39 pat40
pat41 pat42 pat43 pat44 pat45
pat46 pat47 pat48 pat49 pat50
pat51 pat52 pat53 pat54 pat55
pat56 pat57 pat58 pat59 pat60
pat61 pat62 pat63 pat64 pat65
pat66 pat67 pat68 pat69 pat70
pat71 pat72 pat73 pat74 pat75
pat76 pat77 pat78)))
(defun get-CP-Cm-at-random ()
(fget-i 'CP-of-Cm
(select-patn-of-CP-Cm-at-random)))
(defun get-CPm-with-key-at-random (key)
(modulate-key1-to-key2
(get-CP-Cm-at-random)
'C
key))
(defun get-CPm-at-random ()
(get-CPm-with-key-at-random
(select-key-at-random)))
|