;;;
;;; c:\\program files\\acl62\\music7.cl
;;;
(load "c:\\program files\\acl62\\music6.cl")
(make-frame-from-list
'(CP-of-CM (pat1 (value ("CM7" ion) ("G7" mix lyd-7
alt comd wt) ("CM7" ion)))
(pat2 (value ("CM7" ion) ("FM7" lyd) ("CM7" ion)))
(pat3 (value ("CM7" ion) ("FM7"
lyd)
("G7" mix lyd-7 alt comd
wt) ("CM" ion)))
(pat4 (value ("CM7" ion) ("Am7" aeo) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat5 (value ("CM7" ion) ("Cdim7"
dim) ("G7" mix lyd-7 alt comd wt)))
(pat6 (value ("CM7" ion) ("Gdim7" dim)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat7 (value ("CM7" ion) ("+Cdim7"
dim) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat8 (value ("CM7" ion) ("Am7"
aeo) ("D7" mix lyd-7 alt comd wt)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat9 (value ("CM7" ion) ("Cdim7" dim) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat10 (value ("CM7" ion) ("BM7"
ion) ("CM7" ion)))
(pat11 (value ("CM7" ion) ("Gaug7" mix) ("CM7" ion)))
(pat12 (value ("CM7" ion) ("Cdim7"
dim) ("CM7" ion)
("D7" mix lyd-7 alt comd
wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat13 (value ("CM7" ion) ("A7"
mix lyd-7 alt comd wt)
("D7" mix lyd-7 alt comd
wt)
("G7" mix lyd-7 alt comd wt) ("CM7" ion)))
(pat14 (value ("CM7" ion) ("D7"
mix lyd-7 alt comd wt)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat15 (value ("CM7" ion) ("FM7" lyd) ("CM7" ion)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat16 (value ("CM7" ion) ("C7"
mix lyd-7 alt comd wt)
("FM7" lyd) ("Fm7" dor) ("CM7" ion)))
(pat17 (value ("CM7" ion) ("Fm7"
dor) ("G7" mix lyd-7 alt comd wt)
("CM7" ion)))
(pat18 (value ("CM7" ion) ("F7" lyd-7) ("CM7" ion)))
(pat19 (value ("CM7" ion) ("-B7"
lyd-7) ("CM7" ion)))
(pat20 (value ("CM7" ion) ("Gm7"
dor) ("A7" mix lyd-7 alt comd wt)
("D7" mix lyd-7 alt comd wt) ("G7" mix lyd-7 alt comd wt)
("CM7" ion)))
(pat21 (value ("CM7" ion) ("B7"
alt) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat22 (value ("CM7" ion) ("A7"
lyd-7 hmp5 alt comd wt)
("Dm7" dor) ("B7"
alt) ("Em7" phr)
("C7" mix lyd-7 alt comd wt) ("FM7" lyd)))
(pat23 (value ("CM7" ion) ("C7" mix lyd-7 hmp5 alt comd wt)
("Am7" aeo) ("+Cdim7"
dim)
("G7" mix lyd-7 alt comd
wt)))
(pat24 (value ("CM7" ion) ("E7" mix lyd-7 alt comd wt)
("A7" mix lyd-7 alt comd
wt) ("Dm7" dor)))
(pat25 (value ("CM7" ion) ("-E7"
lyd-7) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat26 (value ("CM7" ion) ("B7"
alt) ("E7" mix lyd-7 alt comd wt)
("A7" lyd-7 hmp5 alt comd
wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat27 (value ("CM7" ion) ("Em7"
phr) ("Am7" aeo)
("C7" lyd-7 hmp5 alt comd
wt) ("Fm7" dor)))
(pat28 (value ("CM7" ion) ("Caug7" ion) ("Am7" aeo)
("C7" lyd-7 hmp5 alt comd
wt) ("Fm7" dor)))
(pat29 (value ("CM7" ion) ("Am7"
aeo) ("-A7" lyd-7)
("G7" mix lyd-7 alt comd wt) ("CM7" ion)))
(pat30 (value ("CM7" ion) ("Dm7"
dor) ("Em7" phr)
("Dm7" dor) ("CM7"
ion)))
(pat31 (value ("CM7" ion) ("C7" mix lyd-7 alt comd wt) ("F7" lyd-7)
("CM7" ion) ("-AM7"
lyd)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat32 (value ("CM7" ion) ("Dm7" dor) ("E7" mix lyd-7 alt comd wt)
("A7" mix lyd-7 alt comd
wt) ("Cm" all)
("D7" mix lyd-7 alt comd
wt) ("G7" mix lyd-7 alt comd wt)))
(pat33 (value ("CM7" ion) ("C7" lyd-7) ("B7" lyd-7) ("-B7" lyd-7)
("A7" mix lyd-7 alt comd
wt) ("D7" mix lyd-7 alt comd wt)
("G7" mix lyd-7 alt comd
wt)))
(pat34 (value ("CM7" ion) ("-Em7" dor) ("Dm7" dor)
("-D7" lyd-7) ("CM7"
ion)))
(pat35 (value ("CM7" ion) ("-E7"
lyd-7) ("D7" lyd-7) ("-D7" lyd-7)
("CM7" ion)))
(pat36 (value ("CM7" ion) ("-A7"
lyd-7) ("G7" mix lyd-7 alt comd wt)
("CM7" ion)))
(pat37 (value ("CM7" ion) ("Em7" phr) ("Am7" aeo) ("+Cdim7" dim)
("Dm7" dor) ("G7"
mix lyd-7 alt comd wt)))
(pat38 (value ("CM7" ion) ("-A7"
lyd-7) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat39 (value ("CM7" ion) ("-A7"
lyd-7) ("CM7" ion) ("Cdim7" dim)
("Dm7" dor) ("G7"
mix lyd-7 alt comd wt)))
(pat40 (value ("CM7" ion) ("Cm" all) ("Gm7" phr)
("A7" lyd-7 hmp5 alt comd
wt) ("Fm7" dor)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat41 (value ("C7" mix lyd-7 alt comd wt) ("FM7" lyd)
("D7" mix lyd-7 alt comd
wt) ("G7" mix lyd-7 alt comd wt)))
(pat42 (value ("C7" lyd-7 hmp5 alt comd wt)
("Cdim7" dim)
("C7" lyd-7 hmp5 alt comd wt) ("D7" mix lyd-7 alt comd wt)
("Fm7" dor) ("G7"
mix lyd-7 alt comd wt)))
(pat43 (value ("C7" mix lyd-7 alt comd wt)
("FM7" lyd) ("Fm7" dor)
("G7" mix lyd-7 alt comd wt) ("CM7" ion)))
(pat44 (value ("D7" mix lyd-7 alt comd wt)
("Fm7" dor)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat45 (value ("Dm7" dor) ("G7" mix lyd-7 alt comd wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat46 (value ("Dm7" dor) ("-D7"
lyd-7) ("CM7" ion)))
(pat47 (value ("D7" mix lyd-7 alt comd wt) ("Fm7" dor)
("Em7" phr) ("A7"
lyd-7 hmp5 alt comd wt)
("Dm7" dor) ("G7"
mix lyd-7 alt comd wt)))
(pat48 (value ("Dm7" dor) ("A7" lyd-7 hmp5 alt comd wt)
("-B7" lyd-7) ("A7"
lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("Fm7" dor) ("G7"
mix lyd-7 alt comd wt)))
(pat49 (value ("Em7" phr) ("B7" alt) ("Em7" phr)
("G7" mix lyd-7 alt comd
wt)))
(pat50 (value ("Em7" phr) ("B7"
alt) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat51 (value ("Em7" phr) ("A7" mix lyd-7 alt comd wt)
("D7" mix lyd-7 alt comd
wt) ("G7" mix lyd-7 alt comd wt)
("CM7" ion)))
(pat52 (value ("Em7" phr) ("Am7" aeo) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat53 (value ("Em7" phr) ("-Em7"
dor) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat54 (value ("E7" mix lyd-7 alt comd wt)
("A7" mix lyd-7 alt comd wt)
("D7" mix lyd-7 alt comd
wt) ("G7" mix lyd-7 alt comd wt)
("CM7" ion)))
(pat55 (value ("E7" lyd-7 hmp5 alt comd wt)
("Am7" aeo)
("D7" mix lyd-7 alt comd
wt) ("G7" mix lyd-7 alt comd wt)))
(pat56 (value ("E7" lyd-7) ("-E7" lyd-7) ("D7" mix lyd-7 alt comd wt)
("G7" mix lyd-7 alt comd
wt)))
(pat57 (value ("EM7" ion) ("+Fm7"
dor) ("B7" alt) ("EM7" ion)))
(pat58 (value ("FM7" lyd) ("E7"
lyd-7 hmp5 alt comd wt) ("Am7" aeo)))
(pat59 (value ("FM7" lyd) ("B7" alt) ("CM7" ion)
("A7" lyd-7 hmp5 alt comd
wt) ("Fm7" dor)
("G7" mix lyd-7 alt comd
wt) ("CM7" ion)))
(pat60 (value ("FM7" lyd) ("Fm7" dor) ("CM7" ion) ("Am7" aeo)
("D7" mix lyd-7 alt comd
wt) ("G7" mix lyd-7 alt comd wt)))
(pat61 (value ("FM7" lyd) ("Fm7"
dor) ("CM7" ion)
("A7" lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat62 (value ("Fm7" dor) ("G7"
mix lyd-7 alt comd wt) ("Em7" phr)
("Am7" aeo)))
(pat63 (value ("FM7" lyd) ("E7"
lyd-7 hmp5 alt comd wt) ("Am7" aeo)
("Cdim7" dim) ("G7"
mix lyd-7 alt comd wt)
("+Cdim7" dim) ("Dm7" dor)))
(pat64 (value ("Fm7" dor) ("G7"
mix lyd-7 alt comd wt)
("Gdim7" dim) ("G7"
mix lyd-7 alt comd wt) ("CM7" ion)))
(pat65 (value ("F7" lyd-7) ("CM7" ion) ("-A7" lyd-7)
("G7" mix lyd-7 alt comd
wt)))
(pat66 (value ("Fm7" dor) ("CM7"
ion) ("Em7" phr) ("Am7" aeo)))
(pat67 (value ("GM7" ion) ("Am7" aeo) ("D7" mix lyd-7 alt comd wt)
("G7" mix lyd-7 alt comd
wt)))
(pat68 (value ("Gm7" phr) ("A7"
lyd-7 alt comd wt) ("Fm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat69 (value ("G7" mix lyd-7 alt comd wt)
("-Edim7" dim)
("G7" mix lyd-7 alt comd
wt) ("GM7" ion) ("CM7" ion)))
(pat70 (value ("Gm7" dor) ("C7" mix lyd-7 hmp5 alt comd wt)
("Gm7" dor) ("C7"
mix lyd-7 hmp7 alt comd wt)))
(pat71 (value ("Am7" aeo) ("B7"
alt) ("EM7" ion)
("G7" mix lyd-7 alt comd wt) ("CM7" ion)))
(pat72 (value ("Am7" aeo) ("Em7"
phr) ("Dm7" dor) ("CM7" ion)))
(pat73 (value ("Am7" aeo) ("B7"
alt) ("Em7" phr)
("A7" lyd-7 hmp5 alt comd wt) ("Dm7" dor)))
(pat74 (value ("Am7" aeo) ("E7"
mix lyd-7 alt comd wt) ("Gm7" phr)
("A7" lyd-7 hmp5 alt comd
wt) ("Fm7" dor)
("G7" mix lyd-7 alt comd wt) ("CM7" ion)))
(pat75 (value ("Am7" aeo) ("Caug"
ion) ("CM7" ion)))
(pat76 (value ("-AM7" lyd) ("G7"
mix lyd-7 hmp5 alt comd wt) ("Em7" phr)
("Am7" aeo)))
(pat77 (value ("-AM7" lyd) ("-Bm7"
dor) ("-E7" mix lyd-7 alt comd wt)
("-AM7" lyd) ("G7"
mix lyd-7 alt comd wt) ("CM7" ion)))
(pat78 (value ("B7" alt) ("Em7" phr) ("D7" mix lyd-7 alt comd wt)
("G7" mix lyd-7 alt comd
wt)))
(pat79 (value ("CM7" ion) ("A7"
lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt)))
(pat80 (value ("CM7" ion) ("C7"
mix lyd-7 alt comd wt) ("FM7" lyd)
("Fm7" dor)))
(pat81 (value ("CM7" ion) ("C7" lyd-7 hmp5 alt comd wt) ("Fm7" dor)
("-B7" lyd-7) ("CM7"
ion)))
(pat82 (value ("CM7" ion) ("C7"
lyd-7 alt comd wt) ("FM7" lyd) ("+Fdim7" dim)
("CM7" ion)))
(pat83 (value ("CM7" ion) ("FM7"
lyd) ("Fm7" dor) ("-B7" lyd-7) ("CM7" ion)))
(pat84 (value ("CM7" ion) ("FM7"
lyd) ("Em7" phr)
("A7" lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat85 (value ("CM7" ion) ("F7"
lyd-7) ("Em7" phr)
("A7" lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd
wt)))
(pat86 (value ("CM7" ion) ("FM7"
lyd) ("Em7" phr) ("-E7" lyd-7)
("Dm7" dor) ("G7" mix lyd-7 alt comd wt)))
(pat87 (value ("CM7" ion) ("F7"
lyd-7) ("Em7" phr) ("-E7" lyd-7)
("Dm7" dor) ("G7"
mix lyd-7 alt comd wt)))
(pat88 (value ("CM7" ion) ("Dm7" dor) ("Em7" phr) ("Dm7" dor) ("CM7" ion)))
(pat89 (value ("CM7" ion) ("FM7"
lyd) ("Em7" phr) ("Dm7" dor) ("CM7" ion)))
(pat90 (value ("CM7" ion) ("Dm7"
dor) ("Em7" phr) ("FM7" lyd) ("Em7" phr)
("Dm7" dor) ("CM7" ion)))
(pat91 (value ("CM7" ion) ("-E7"
mix lyd-7 alt comd wt) ("-AM7" lyd)
("-DM7" lyd) ("CM7"
ion)))
(pat92 (value ("CM7" ion) ("GM7" mix) ("FM7" lyd) ("GM7" mix)
("CM7" ion)))))
(defun select-patn-of-CP-CM-at-random ()
(nth (random 92)
'(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 pat79 pat80
pat81 pat82 pat83 pat84 pat85 pat86 pat87 pat88 pat89 pat90
pat91 pat92)))
(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)))
;;;
;;;
;;;
(defun my-randomize ()
(tagbody
loop
(format t "~% Enter an integer! ~%")
(setf *seed* (read))
(if (numberp *seed*)
(go exit)
(go loop))
exit
(setf *seed* (floor (abs *seed*) 1.0))
(do ((i *seed* (1- i)))
((<= i 0))
(random 10))))