;;;
;;; c:\\program files\\acl62\\work1.cl
;;;
;;;
;;; (auto-comp *w1*) etc.
;;;
(setf *w1*
'((-E "When I Fall In Love")
("-EM7" ion "C7" alt)
("Fm7"dor "-B7" mix)
("-EM7" ion "C7" alt)
("Fm7" dor "-B7" mix)
("-EM7" ion) ("C7" alt)
("F7" lyd-7) ("-B7" mix)
("-EM7" ion)
("Fm7" dor "-B7" mix)
("-EM7" ion "-D7" lyd-7)
("Gm7" phr "C7" alt)
("Fm7" dor) ("C7" alt)
("Fm7" dor) ("-B7" mix)
("-EM7" ion "C7" alt)
("Fm7" dor "-B7" mix)
("-EM7" ion "C7" alt)
("Fm7" dor "-B7" mix)
("-EM7" ion) ("C7" alt)
("F7" lyd-7) ("-B7" mix)
("-EM7" ion)
("Am7-5" loc "D7" alt)
("Gm7" phr "C7" alt)
("Fm7" dor "-D7" lyd-7)
("Gm7" phr "C7" alt)
("Fm7" dor "-B7" mix)
("-EM7" ion "Edim7" dim)
("Fm7" dor "-B7" mix)))
(setf *w2*
'((C "Laura")
("Am7" dor) ("D7" alt)
("GM7" ion) ("GM7" ion)
("Gm7" dor) ("C7" alt)
("FM7" ion) ("FM7" ion)
("Fm7" dor) ("-B7" alt)
("-EM7" ion) ("-EM7" ion)
("Am7-5" loc) ("D7" alt)
("GM7" ion)
("Bm7" phr "E7" alt)
("Am7" dor) ("D7" alt)
("GM7" ion) ("GM7" ion)
("Gm7" dor) ("C7" alt)
("FM7" ion) ("FM7" ion)
("Fm7" dor)
("Dm7-5" loc "G7" alt)
("CM7" ion) ("Am7" aeo)
("D7" lyd-7)
("Dm7-5" loc "G7" alt)
("-DM7" ion) ("CM7" ion)))
(setf *w3*
'((F "Dindi")
("FM7" ion) ("-EM7" lyd)
("FM7" ion)
("Cm7" dor "F7" alt)
("-BM7" lyd) ("-E7" lyd-7)
("FM7" ion) ("-EM7" lyd)
("FM7" ion) ("-EM7" lyd)
("FM7" ion)
("Cm7" dor "F7" alt)
("-BM7" lyd) ("-E7" lyd-7)
("FM7" ion)
("Bm7-5" loc "E7" hmp5)
("Am7" all) ("E7" hmp5)
("Am7" all "E7" hmp5)
("Am7" all "D7" alt)
("Gm7" all) ("D7" hmp5)
("Gm7" all "D7" hmp5)
("Gm7" all "C7" alt)
("FM7" ion) ("-EM7" lyd)
("FM7" ion)
("Cm7" dor "F7" alt)
("-BM7" lyd) ("-E7" lyd-7)
("FM7" ion) ("-EM7" lyd)
("FM7" ion) ("-EM7" lyd)
("FM7" ion) ("-EM7" lyd)
("FM7" ion) ("FM7" ion)
("-EM7" lyd) ("-EM7" lyd)
("DM7" ion) ("DM7" ion)
("DM7" ion) ("DM7" ion)))
(setf *w4*
'((G "Love")
("GM7" ion) ("GM7" ion)
("Am7" dor) ("D7" mix)
("D7" mix) ("D7" mix)
("GM7" ion) ("GM7" ion)
("GM7" ion) ("G7" mix)
("CM7" lyd) ("CM7" lyd)
("A7" lyd-7) ("A7" lyd-7)
("Am7" dor) ("D7" mix)
("GM7" ion) ("GM7" ion)
("Am7" dor) ("D7" mix)
("D7" mix) ("D7" mix)
("GM7" ion) ("GM7" ion)
("GM7" ion) ("G7" mix)
("CM7" lyd) ("+Cdim7" dim)
("GM7" ion) ("D7" mix)
("GM7" ion "+Gdim7" dim)
("Am7" dor "D7" mix)
("GM7" ion) ("GM7" ion)
("GM7" ion) ("GM7" ion)))
(setf *w5*
'((c "Yesterdays")
("Cm" all)
("Dm7-5" loc "G7" alt)
("Cm" all)
("Dm7-5" loc "G7" alt)
("Cm" all) ("Cm7" all)
("Am7-5" loc) ("D7" alt)
("G7" alt) ("C7" alt)
("F7" alt) ("-B7" lyd-7)
("-E7" alt)
("-AM7" ion "G7" alt)
("Cm" all)
("Dm7-5" loc "G7" alt)
("Cm" all)
("Dm7-5" loc "G7" alt)
("Cm" all)
("Dm7-5" loc "G7" alt)
("Cm" all) ("Cm7" all)
("Am7-5" loc) ("D7" alt)
("G7" alt) ("C7" alt)
("F7" alt) ("-B7" lyd-7)
("-E7" alt)
("-AM7" ion "G7" alt)
("Cm" all)
("Dm7-5" loc "G7" alt)
("Cm" all "Am7-5" loc)
("Dm7-5" loc "G7" alt)
("Cm" all "Am7-5" loc)
("Dm7-5" loc "G7" alt)
("Cm" all "Am7-5" loc)
("Dm7-5" loc "G7" alt)
("Cm" all) ("Cm" all)
("Cm" all) ("Cm" all)))
(setf *w6*
'((F "I'm Getting Sentimental
Over You")
("FM7" ion) ("E7" alt)
("Am7-5" loc) ("D7" alt)
("G7" lyd-7) ("C7" mix)
("Am7" phr "D7" alt)
("Gm7" dor "C7" mix)
("FM7" ion) ("E7" alt)
("Am7-5"loc) ("D7" alt)
("G7" lyd-7) ("C7" mix)
("FM7" ion)
("Bm7-5" loc "E7" alt)
("Am" aeo) ("Am7" aeo)
("B7" alt) ("Dm7" dor)
("E7" alt) ("E7" alt)
("Am7" aeo "D7" alt)
("Gm7" dor "C7" mix)
("FM7" ion) ("E7" alt)
("Am7-5" loc) ("D7" alt)
("G7" lyd-7) ("C7" mix)
("Am7" aeo) ("D7" alt)
("G7" lyd-7) ("C7" mix)
("FM7" ion "+Fdim7" dim)
("Gm7" dor "C7" mix)
("FM7" ion) ("FM7" ion)
("FM7" ion) ("FM7" ion)))
|