**** ファイル５：music2 *************************************************************

(get-chordscale 'c 'ion)--->(do re mi fa so la si do)

(get-tension-note 'C 'ion)--->(re la)

(get-chord-tone "CM7")--->(do mi so si)

(get-guide-tone "CM7")--->(mi si)

(translate-roman-to-alphabet "II" 'C)--->"D"

(translate-alphabet-to-roman 'D 'C)--->"II"

(get-chord-name-from-roman "IIm7" 'D)--->"Em7"

(instantiate-a-key 'C 'major)--->
(major-key
(tonic
(value ("C" ion) ("C6" ion) ("CM7" ion) ("Em7" phr) ("Am7" aeo)
("-Gm7-5" loc)))
(subdominant
(value ("F" lyd) ("F6" lyd) ("FM7" lyd) ("Dm7" dor) ("F7" lyd-7 bn)
("-BM7" lyd) ("B7" alt) ("-Gm7-5" loc)))
(subdominant-minor
(value ("Fm7" dor) ("Dm7-5" loc+2) ("-A6" lyd) ("-AM7" lyd)
("-B7" lyd-7) ("-DM7" lyd) ("-A7" lyd-7)))
(dominant
(value ("G7" mix lyd-7 hmp5 alt comd wt) ("Bm7-5" loc) ("-D7" lyd-7)
("Bdim7" dim))))

(get-UST "CM7")--->
((all (value "G" "Am" "Em" "D" "Bm"))
(ion (value "G" "Am" "Em" "D" "Bm"))
(lyd (value "G" "Am" "Em" "D" "Bm")))


***** ファイル6：music3 ************************************************************


(get-function-of-chord 'CM7)--->
((ion (value (tonic (C))))
(lyd
(value (tonic-minor (a e)) (subdominant (g D G))
(subdominant-minor (B E b e)))))


***** ファイル7：music4　***********************************************************


(get-related-key 'C)--->
((T-key (value C)) (p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e)) (SD-key (value F)) (D-key (value G))
(p-m (value a)))

(get-related-key 'c)--->
((T-key (value c)) (p-M-key-of-SD-key (value -E)) (SD-key (value f))
(D-key (value g)) (p-M-key-of-SD-key (value -A))
(p-M-key-of-D-key (value -B)))

(get-DC "G7" 1)--->
(("Em7" phr) ("Am7" aeo) ("Em7-5" loc) ("Am7-5" loc) ("-Gm7-5" loc)
("-EM7" lyd) ("-AM7" lyd) ("-DM7" lyd))


***** ファイル８：music5 *****＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊


(get-CP-M-at-random)
(("-EM7" ion) ("Cm7" aeo) ("Fm7" dor) ("-B7" mix lyd-7 alt comd wt)
("-EM7" ion))

(get-CP-m-at-random)
(("-Bm" all) ("-Em7" dor) ("Cm7-5" loc)
("F7" mix lyd-7 hmp5 alt comd wt) ("-Bm" all))

(get-CP-at-random)
(("Am" all) ("Dm7" dor) ("Bm7-5" loc) ("E7" mix lyd-7 hmp5 alt comd wt)
("Am" all))

(get-CN-M-at-random)
(("DM7" lyd) ("E7" mix lyd-7 alt comd wt) ("AM7" ion))

(get-CN-m-at-random)
(("Fm7" dor) ("-B7" mix) ("Cm" all))
cl-user(15): (get-CN-at-random)
(("F7" lyd) ("G7" lyd-7) ("AM7" ion))

(get-CP-M-with-key 'C)--->
(("CM7" ion) ("Dm7" dor) ("Em7" phr) ("Dm7" dor) ("CM7" ion))

(get-CP-m-with-key 'a)--->
(("Am" all) ("-G7" mix lyd-7 hmp5 alt comd wt)
("B7" mix lyd-7 hmp5 alt comd wt) ("E7" mix lyd-7 hmp5 alt comd wt)
("Am" all))

(get-CN-M-with-key 'C)--->
(("FM7" lyd) ("-B7" lyd-7) ("CM7" ion))

(get-CN-m-with-key 'a)--->
(("Dm7" dor) ("Em7" phr) ("Am" all))


***** ファイル9：usic6************************************************************


(get-elements-of-melody '("CM7" ion))
(mi si re la)

(chord-scale '("CM7" ion))
(do re mi fa so la si do)

(chord-tone '("CM7" ion))
(do mi so si)

(guide-tone '("CM7" ion))
(mi si)

(tension-note '("CM7" ion))
(re la)

(UST '("CM7" ion))
((all (value "G" "Am" "Em" "D" "Bm"))
(ion (value "G" "Am" "Em" "D" "Bm"))
(lyd (value "G" "Am" "Em" "D" "Bm")))

(function-of-chord '("CM7" ion))
((ion (value (tonic (C))))
(lyd
(value (tonic-minor (a e)) (subdominant (g D G))
(subdominant-minor (B E b e)))))


;;;cg-user(26): (interpret-a-pair '("CM7" ion "Dm7" dor))
;;;
;;;**********************************************
;;;************* (CM7 ion Dm7 dor) **************
;;; ***** (CM7 ion) *****
;;; chord-scale: (do re mi fa so la si do)
;;; chord-tone: (do mi so si)
;;; tension-notes: (re la)
;;; guide-tone: (mi si)
;;; elements-of-melody: (mi si re la)
;;;
;;; ***** (Dm7 dor) *****
;;; chord-scale: (re mi fa so la si do re)
;;; chord-tone: (re fa la do)
;;; tension-notes: (mi so)
;;; guide-tone: (fa do)
;;; elements-of-melody: (fa do mi so)
;;;
;;;nil

(defun interpret-a-pair (l)
(format t "~%*********************************")
(format t "~%************* ~a **************" l)
(do ((lst l (cddr lst)))
((null lst))
(interpret-a-pair-aux (list (first lst) (second lst)))
(read-sentence)))

;;;cg-user(30): (interpret-pairs '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))
;;;
;;;*********************************
;;;************* (CM7 ion A7 hmp5) **************
;;; ***** (CM7 ion) *****
;;; chord-scale: (do re mi fa so la si do)
;;; chord-tone: (do mi so si)
;;; tension-notes: (re la)
;;; guide-tone: (mi si)
;;; elements-of-melody: (mi si re la)
;;;
;;; ***** (A7 hmp5) *****
;;; chord-scale: (la +la do do re mi fa so la)
;;; chord-tone: (la do mi so)
;;; tension-notes: (+la do fa)
;;; guide-tone: (do so)
;;; elements-of-melody: (do so +la do fa)
;;;
;;;*********************************
;;;************* (Dm7 dor G7 alt) **************
;;; ***** (Dm7 dor) *****
;;; chord-scale: (re mi fa so la si do re)
;;; chord-tone: (re fa la do)
;;; tension-notes: (mi so)
;;; guide-tone: (fa do)
;;; elements-of-melody: (fa do mi so)
;;;
;;; ***** (G7 alt) *****
;;; chord-scale: (so +so +la si do re fa so)
;;; chord-tone: (so si re fa)
;;; tension-notes: (+so +la do re)
;;; guide-tone: (si fa)
;;; elements-of-melody: (si fa +so +la do re)
;;;
;;;*********************************
;;;************* (CM7 ion) **************
;;; ***** (CM7 ion) *****
;;; chord-scale: (do re mi fa so la si do)
;;; chord-tone: (do mi so si)
;;; tension-notes: (re la)
;;; guide-tone: (mi si)
;;; elements-of-melody: (mi si re la)
;;;
;;;nil

(defun interpret-pairs (l)
(do ((lst l (cdr lst)))
((null lst))
(interpret-a-pair (car lst))))





(get-n-elements-of-melody '("CM7" ion) 4)--->(mi la la si)

(get-n-notes-from-UST "CM7" 4)--->(si so si mi)

(replace-UST-with-melody '("CM7" "A7" "Dm7" "G7" "CM7"))--->((so so do si si mi si do) (la la mi mi do) (fa re fa fa do) (so so fa so) (si si do))

(get-position-of-a-note-in-a-scale-aux 'so '("CM7" ion))---> 4

(get-position-of-a-note-in-a-scale 'so '("CM7" ion))---> 4

(rotate-a-scale-left-from-a-note 'so '("CM7" ion))---> (so la si do re mi fa so)

(rotate-a-scale-from-a-note 'so '("CM7" ion) 'left)---> (so la si do re mi fa so)

(get-a-tension-note-at-random '("CM7" ion))---> la

(get-an-element-of-melody-at-random '("CM7" ion))---> si

(rotate-a-scale-from-tension-left-or-right '("CM7" ion))--->;(la si do re mi fa so la)

(rotate-a-scale-from-elm-left-or-right '("CM7" ion))--->(si do re mi fa so la si)

(get-notes-around-a-note-in-a-scale 'so '("CM7" ion))---> (fa so la)

(get-a-note-around-a-note-in-a-scale 're '("CM7" ion))--->do

(rotate-a-scale-from-a-note-left-or-right 're '("CM7" ion))--->(re mi fa so la si do re)

(rotate-a-scale-from-a-note-and-cut 'la '("CM7" ion))--->(la si do re)

(rotate-a-scale-from-tension-and-cut '("CM7" ion))--->(la so fa mi re do si la)

(rotate-a-scale-from-elm-and-cut '("CM7" ion))--->(re mi fa so la)

(make-a-phrase-with-scale-from-tension '("CM7" ion))--->;(la si si la so fa)

(make-a-phrase-with-scale-from-elm '("CM7" ion))--->(si do re mi fa so la)


**** ファイル10：music7 **************************************************


(get-CP-CM-at-random)--->
(("CM7" ion) ("Am7" aeo) ("Dm7" dor) ("G7" mix lyd-7 alt comd wt))

(get-CPM-with-key-at-random 'D)--->
(("DM7" ion) ("Fm7" dor) ("Em7" dor) ("+D7" lyd-7) ("DM7" ion))

(get-CPM-at-random)--->
(("+Dm7" phr) ("+A7" alt) ("+Cm7" dor) ("+F7" mix lyd-7 alt comd wt))


***** ファイル１１：music8 *************************************************


(get-CP-Cm-at-random)--->
(("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))

(get-CPm-with-key-at-random 'a)--->
(("Am" all) ("C7" lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("E7" lyd-7 hmp5 alt comd wt))

(get-CPm-at-random)--->
(("-D7" lyd-7 hmp5 alt comd wt) ("Em7" dor) ("-Gm7" dor)
("-A7" lyd-7 hmp5 alt comd wt))


***** ファイル12：music9 ****************************************************


;;;
;;;(interpret-pairs '(("G7" alt) ("CM7" ion)))
;;;
;;;*********************************
;;;************* (G7 alt) **************
;;; ***** (G7 alt) *****
;;; chord-scale: (so +so +la si do re fa so)
;;; chord-tone: (so si re fa)
;;; tension-notes: (+so +la do re)
;;; guide-tone: (si fa)
;;; elements-of-melody: (si fa +so +la do re)
;;;
;;;*********************************
;;;************* (CM7 ion) **************
;;; ***** (CM7 ion) *****
;;; chord-scale: (do re mi fa so la si do)
;;; chord-tone: (do mi so si)
;;; tension-notes: (re la)
;;; guide-tone: (mi si)
;;; elements-of-melody: (mi si re la)
;;;
;;;nil



(get-all-UST "CM7")--->("G" "Am" "Em" "D" "Bm")

(select-UST-at-random '("CM7" ion))--->"D"

(make-a-phrase-with-UST-at-random '("CM7" ion))--->(la la la)

(get-a-phrase-at-random-aux '("CM7" ion))--->(la la si re)

(get-elements-of-melody-at-random '("CM7" ion))--->(mi mi re)

(make-a-phrase-with-UST-at-random '("CM7" ion))--->(do)

(make-a-phrase-with-scale-from-tension '("CM7" ion))--->(la so fa mi re)

(make-a-phrase-with-scale-from-elm '("CM7" ion))--->(re do si la so)

(get-a-phrase-at-random-2-aux '("CM7" ion))--->(so mi mi mi)

(get-elements-of-melody-at-random-2 '("CM7" ion))--->(la si si re la re si la)

(get-notes-from-UST-at-random-2 '("CM7" ion))--->(si si so so)

(make-a-phrase-with-scale-from-tension-2 '("CM7" ion))--->(re do si la)

(make-a-phrase-with-scale-from-elm-2 '("CM7" ion))--->(mi re do si la so so fa)

(get-elements-of-melody-at-random '("CM7" ion))--->(mi mi re)

(make-a-phrase-with-UST-at-random '("CM7" ion))--->(do)

(make-a-phrase-with-scale-from-tension '("CM7" ion))--->(la so fa mi re)

(make-a-phrase-with-scale-from-elm '("CM7" ion))--->(re do si la so)

(get-a-phrase-at-random-2-aux '("CM7" ion))--->(si la so fa mi re)

(get-elements-of-melody-at-random-2 '("CM7" ion))--->(mi re la re)

(get-notes-from-UST-at-random-2 '("CM7" ion))--->(si si re si si si re +fa)

(make-a-phrase-with-scale-from-tension-2 '("CM7" ion))--->(re do si la so fa fa mi)

(make-a-phrase-with-scale-from-elm-2 '("CM7" ion))--->(mi fa so la si do)

(get-a-phrase-for-ballad-aux '("CM7" ion))--->(mi si)

(get-a-phrase-for-waltz-aux '("CM7" ion))--->(+fa si)

(make-a-phrase-with-scale-from-tension-2 '("CM7" ion))--->(re mi fa so)

(make-a-phrase-with-scale-from-elm-2 '("CM7" ion))--->(mi re do do si la)

(get-elements-of-melody-at-random-2 '("CM7" ion))--->(re la mi si si la mi mi)

(get-notes-from-UST-at-random-2 '("CM7" ion))--->(so so so so si re)

(append-two-phrases-1 4 4 '("G7" alt "CM7" ion))--->(("G7" alt) (fa -re -re fa) ("CM7" ion) (mi la la do))

(append-three-phrases-1 4 4 2 '("Dm7" dor "G7" alt "CM7" ion))--->
(("Dm7" dor) (fa so la si) ("G7" alt) (+re +do si +la) ("CM7" ion) (si so))

(append-four-phrases-1 4 4 4 4 '("A7" hmp5 "Dm7" dor "G7" alt "CM7" ion))--->
(("A7" hmp5) (+la +la fa +la) ("Dm7" dor) (do si la so) ("G7" alt) (+re fa so so) ("CM7" ion) (mi re do si))


***** ファイル13：music10 ****************************************************


(get-a-melody-at-random '("CM7" ion))--->((si re si mi re) (4beat ("3(8pause 8pause 8)" 8pause 8 "3(8pause 8 8)" 4)))

(get-a-melody-at-random-2 '("CM7" ion))--->((mi la mi si la re) (4beat ("3(8 8 8)" 4 4 4)))

(get-a-melody-for-ballad '("CM7" ion))--->((la mi si) (4beat (4 4 2)) (3beat (2 8 8)))

(get-a-melody-for-waltz '("CM7" ion))--->((re do) (3beat (2 4)) (4beat (2.5 4)))





(auto-comp-aux '("CM7" ion))--->
Melody-1
(si re si mi re)
(4beat (3(8pause 8pause 8) 8pause 8 3(8pause 8 8) 4))
Melody-2
(mi la mi si la re)
(4beat (3(8 8 8) 4 4 4))
Melody-3
(la mi si)
(4beat (4 4 2))
(3beat (2 8 8))
Melody-4
(re do)
(3beat (2 4))
(4beat (2.5 4))





(auto-comp-aux-2 '(("CM7" ion "A7" dor) ("Dm7" dor "G7" alt) ("CM7" ion)))

********************************************************************************************
***** (CM7 ion A7 dor) *****
(CM7 ion) *****
chord-scale: (do re mi fa so la si do)
chord-tone: (do mi so si)
tension-notes: (re la)
guide-tone: (mi si)
elements-of-melody: (mi si re la)
UST ((all (value G Am Em D Bm))
(ion (value G Am Em D Bm))
(lyd (value G Am Em D Bm)))
(A7 dor) *****
chord-scale: (la si do re mi +fa so la)
chord-tone: nil
tension-notes: (si re)
guide-tone: nil
elements-of-melody: (si re)
UST ((mix (value Em +Fm)) (lyd-7 (value B Em +Fm))
(alt (value +Am Cm +D F)) (hmp5 (value +Am C F))
(comd (value Cm C +Dm +D +Fm +F))
(all (value C B +D F +F Gm +Am G +Fm +Dm Em Cm)))
***** (CM7 ion A7 dor) *****
(CM7 ion) *****
Melody-1
(re mi fa so la so la)
(4beat (8 8 3(8pause 8 8) 4 3(8pause 8 8)))
Melody-2
(si la so fa)
(4beat (4 8 8 2))
Melody-3
(la la si)
(4beat (2 4.5 8))
(3beat (4.5 8 4))
Melody-4
(+fa)
(3beat (2.5))
(4beat (1))
(A7 dor) *****
Melody-1
(-so -mi -so -so -mi -si -si -si)
(4beat (4 8 8 16 16 16 16 4))
Melody-2
(si la so +fa mi re)
(4beat (4 16pause 16 16 16 4 4))
Melody-3
(-so -so -mi)
(4beat (8 8 2.5))
(3beat (4 4 4))
Melody-4
(so do)
(3beat (2 4))
(4beat (4 2.5))
********************************************************************************************
***** (Dm7 dor G7 alt) *****
(Dm7 dor) *****
chord-scale: (re mi fa so la si do re)
chord-tone: (re fa la do)
tension-notes: (mi so)
guide-tone: (fa do)
elements-of-melody: (fa do mi so)
UST ((dor (value Am C F Em)) (phr (value F +A Gm))
(aeo (value C F Am)) (n (value Am C)) (h (value A))
(all (value Am A +A C F Em)))
(G7 alt) *****
chord-scale: (so +so +la si +do +re fa so)
chord-tone: nil
tension-notes: (+so +la +do +re)
guide-tone: nil
elements-of-melody: (+so +la +do +re)
UST ((mix (value Dm Em)) (lyd-7 (value A Dm Em))
(alt (value +Gm +Am +C +D))
(hmp5 (value +Gm +A +D))
(comd (value +Am +A +Cm +C Em E))
(all (value +A A +C +D E Fm +Gm F Em +Cm Dm +Am)))
***** (Dm7 dor G7 alt) *****
(Dm7 dor) *****
Melody-1
(mi so)
(4beat (2 2))
Melody-2
(fa mi so mi so do fa fa)
(4beat (4 4 16pause 16 16 16 3(8 8 8)))
Melody-3
(mi do mi)
(4beat (2 4 4))
(3beat (2 8 8))
Melody-4
(+do +do la mi)
(3beat (8.5 16 4 4))
(4beat (4 8 8 2))
(G7 alt) *****
Melody-1
(+so so so +so)
(4beat (4.5 8 4 4))
Melody-2
(+la +la +so +do)
(4beat (4 8 8 2))
Melody-3
(+do)
(4beat (1))
(3beat (2.5))
Melody-4
(+so +la si +do)
(3beat (4 3(8pause 8pause 8) 8 8))
(4beat (2 4 8 8))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
chord-scale: (do re mi fa so la si do)
chord-tone: (do mi so si)
tension-notes: (re la)
guide-tone: (mi si)
elements-of-melody: (mi si re la)
UST ((all (value G Am Em D Bm))
(ion (value G Am Em D Bm))
(lyd (value G Am Em D Bm)))
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(si la mi mi mi si si)
(4beat (16 16 16 16 8pause 8 4 4))
Melody-2
(mi mi la si re la)
(4beat (3(8pause 8 8) 8 8 4 4))
Melody-3
(si si)
(4beat (4 2.5))
(3beat (4 2))
Melody-4
(re)
(3beat (2.5))
(4beat (1))






*************************************************************************************************************************
***music10***
(auto-comp *w3*)

Enter an integer!
105

***** Dindi *****
The original key is F.
Enter a key.C

***** The key is C. *****
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(la)
(4beat (1))
Melody-2
(si si si re +fa re +fa re)
(4beat (4 8pause 8 8 16 16 16pause 16 16 16))
Melody-3
(re)
(4beat (1))
(3beat (2.5))
Melody-4
(mi)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(do do)
(4beat (2.5 4))
Melody-2
(so la -si do)
(4beat (4.5 8 4 4))
Melody-3
(fa)
(4beat (1))
(3beat (2.5))
Melody-4
(do)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(so so)
(4beat (2 2))
Melody-2
(so si so so si re re re)
(4beat (3(8pause 8 8) 3(8 8 8) 8pause 8 8 8))
Melody-3
(mi re do)
(4beat (2.5 8 8))
(3beat (4 4 4))
Melody-4
(si si)
(3beat (2 4))
(4beat (2.5 4))
********************************************************************************************
***** (Gm7 dor C7 alt) *****
(Gm7 dor) *****
Melody-1
(la so fa mi re do do)
(4beat (4 16 16 16 16 4 4))
Melody-2
(-mi -mi -mi -si)
(4beat (2 4 8 8))
Melody-3
(-si fa)
(4beat (2 2))
(3beat (2 4))
Melody-4
(do re mi )
(3beat (2 8 8))
(4beat (2 4.5 8))
(C7 alt) *****
Melody-1
(-re -mi mi -so -la -so -la)
(4beat (8 8 3(8pause 8 8) 4 3(8pause 8 8)))
Melody-2
(-mi -re do -si)
(4beat (4 8 8 2))
Melody-3
(-la -la -si)
(4beat (2 4.5 8))
(3beat (4.5 8 4))
Melody-4
(do)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (FM7 lyd) *****
(FM7 lyd) *****
Melody-1
(si so si si so re re re)
(4beat (4 8 8 16 16 16 16 4))
Melody-2
(re do si la so fa)
(4beat (4 16pause 16 16 16 4 4))
Melody-3
(fa fa re)
(4beat (8 8 2.5))
(3beat (4 4 4))
Melody-4
(la re)
(3beat (2 4))
(4beat (4 2.5))
********************************************************************************************
***** (-B7 lyd-7) *****
(-B7 lyd-7) *****
Melody-1
(re -la)
(4beat (2 2))
Melody-2
(mi do do do so mi do -la)
(4beat (4 4 16pause 16 16 16 3(8 8 8)))
Melody-3
(mi do do)
(4beat (2 4 4))
(3beat (2 8 8))
Melody-4
(mi mi do so)
(3beat (8.5 16 4 4))
(4beat (4 8 8 2))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(mi re re mi)
(4beat (4.5 8 4 4))
Melody-2
(si si mi re)
(4beat (4 8 8 2))
Melody-3
(re)
(4beat (1))
(3beat (2.5))
Melody-4
(mi fa so la)
(3beat (4 3(8pause 8pause 8) 8 8))
(4beat (2 4 8 8))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(so la so so mi do la)
(4beat (16 16 16 16 8pause 8 4 4))
Melody-2
(do re mi mi so do)
(4beat (3(8pause 8 8) 8 8 4 4))
Melody-3
(so do)
(4beat (4 2.5))
(3beat (4 2))
Melody-4
(re)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(re mi fa so la)
(4beat (3(8pause 8pause 8) 4 4 8.5 16))
Melody-2
(mi re do re do si la so)
(4beat (4 8pause 8 16 16 16 16 8.5 16))
Melody-3
(re)
(4beat (1))
(3beat (2.5))
Melody-4
(la si do)
(3beat (2 8 8))
(4beat (4 2 4))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(la re do)
(4beat (2.5 8 8))
Melody-2
(re la fa la)
(4beat (2 4 8 8))
Melody-3
(la -si la so)
(4beat (4 2 8 8))
(3beat (4 8.5 16 4))
Melody-4
(so fa mi)
(3beat (4.5 8 4))
(4beat (4 2 4))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(re re mi si mi)
(4beat (8pause 8 3(8pause 8pause 8) 8 8 8pause 8))
Melody-2
(re do si la so fa)
(4beat (4 3(8 8 8) 4 4))
Melody-3
(si la)
(4beat (2 2))
(3beat (2 4))
Melody-4
(re)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (Gm7 dor C7 alt) *****
(Gm7 dor) *****
Melody-1
(do re mi fa so)
(4beat (8.5 16 4 4 4))
Melody-2
(+la +la la so la +la)
(4beat (8.5 16 4 3(8pause 8 8) 4))
Melody-3
(fa)
(4beat (1))
(3beat (2.5))
Melody-4
(re +fa +fa +fa re +fa)
(3beat (3(8pause 8pause 8) 8pause 8 16 16 16 16))
(4beat (4 8pause 8 3(8 8 8) 4))
(C7 alt) *****
Melody-1
(-la -so)
(4beat (4 2.5))
Melody-2
(-si do -re -re do -si)
(4beat (3(8 8 8) 4 4 4))
Melody-3
(-mi -la)
(4beat (2 2))
(3beat (2 4))
Melody-4
(-mi -mi -si)
(3beat (8 8 2))
(4beat (2 4 4))
********************************************************************************************
***** (FM7 lyd) *****
(FM7 lyd) *****
Melody-1
(si la so fa mi re do re)
(4beat (3(8pause 8 8) 4 16 16 16 16 8pause 8))
Melody-2
(so mi la la)
(4beat (8 8 2 4))
Melody-3
(re mi mi mi)
(4beat (4 8 8 2))
(3beat (4 8pause 8 8.5 16))
Melody-4
(fa fa)
(3beat (4 2))
(4beat (2.5 4))
********************************************************************************************
***** (-B7 lyd-7) *****
(-B7 lyd-7) *****
Melody-1
(so)
(4beat (1))
Melody-2
(so so re so so mi)
(4beat (4 4 8 8 8 8))
Melody-3
(so)
(4beat (1))
(3beat (2.5))
Melody-4
(re)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(mi re re mi la re re mi)
(4beat (4 16 16 16 16 8 8 3(8pause 8pause 8)))
Melody-2
(re do si la so fa)
(4beat (3(8pause 8 8) 4 8 8 4))
Melody-3
(re re do si)
(4beat (4 4 4.5 8))
(3beat (8pause 8 4 8.5 16))
Melody-4
(+fa re +fa)
(3beat (8 8 2))
(4beat (2 4.5 8))
********************************************************************************************
***** (-Gm7-5 loc B7 hmp5) *****
(-Gm7-5 loc) *****
Melody-1
(la si)
(4beat (2 2))
Melody-2
(la la la mi)
(4beat (4 4 4 4))
Melody-3
(re)
(4beat (1))
(3beat (2.5))
Melody-4
(mi -so so la)
(3beat (8 8 8pause 8 4))
(4beat (2 8 8 4))
(B7 hmp5) *****
Melody-1
(+re)
(4beat (1))
Melody-2
(do si la si do re)
(4beat (3(8pause 8pause 8) 3(8 8 8) 3(8pause 8pause 8) 4))
Melody-3
(re re la)
(4beat (2.5 8 8))
(3beat (8 8 2))
Melody-4
(re do si)
(3beat (4.5 8 4))
(4beat (4.5 8 2))
********************************************************************************************
***** (Em7 all) *****
(Em7 all) *****
Melody-1
(la)
(4beat (1))
Melody-2
(la re +fa la re re la la)
(4beat (3(8 8 8) 4 16pause 16 16 16 4))
Melody-3
(la si)
(4beat (2 2))
(3beat (2 4))
Melody-4
(+fa)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (B7 hmp5) *****
(B7 hmp5) *****
Melody-1
(so +re)
(4beat (2 2))
Melody-2
(re do si do re do)
(4beat (4 8.5 16 8 8 4))
Melody-3
(+re)
(4beat (1))
(3beat (2.5))
Melody-4
(+re mi +fa so)
(3beat (8 8 4 4))
(4beat (4.5 8 4 4))
********************************************************************************************
***** (Em7 all B7 hmp5) *****
(Em7 all) *****
Melody-1
(la si do +do re +re re)
(4beat (3(8pause 8 8) 16pause 16 16 16 4 4))
Melody-2
(la so +fa mi +re re +do +do)
(4beat (4 8 16 16 3(8pause 8 8) 8 8))
Melody-3
(la si la)
(4beat (4 4 2))
(3beat (4.5 8 4))
Melody-4
(la)
(3beat (2.5))
(4beat (1))
(B7 hmp5) *****
Melody-1
(do si la so)
(4beat (4 2 8 8))
Melody-2
(so do do so so do)
(4beat (4 4 8.5 16 8 8))
Melody-3
(so)
(4beat (1))
(3beat (2.5))
Melody-4
(do re +re mi +fa so)
(3beat (8 8 4 3(8 8 8)))
(4beat (16pause 16 16 16 8pause 8 4 4))
********************************************************************************************
***** (Em7 all A7 alt) *****
(Em7 all) *****
Melody-1
(so so la)
(4beat (4 2 4))
Melody-2
(re +fa +fa re +fa la +fa +fa)
(4beat (4 8 16 16 4 8 16 16))
Melody-3
(+fa +fa mi +re)
(4beat (4 4.5 4 8))
(3beat (8 8 4 4))
Melody-4
(+fa)
(3beat (2.5))
(4beat (1))
(A7 alt) *****
Melody-1
(do)
(4beat (1))
Melody-2
(+re +do so do +re +do)
(4beat (8.5 16 3(8pause 8 8) 8pause 8 4))
Melody-3
(fa fa)
(4beat (4 2.5))
(3beat (2 4))
Melody-4
(+re +re +re)
(3beat (8 8 2))
(4beat (4 2 4))
********************************************************************************************
***** (Dm7 all) *****
(Dm7 all) *****
Melody-1
(fa la la la fa la)
(4beat (8 16 16 4 4 4))
Melody-2
(fa so la +la si +la)
(4beat (4 4 8 8 8.5 16))
Melody-3
(so la so la)
(4beat (4 4.5 4 8))
(3beat (8pause 8 4 8 8))
Melody-4
(do si)
(3beat (2 4))
(4beat (4 2.5))
********************************************************************************************
***** (A7 hmp5) *****
(A7 hmp5) *****
Melody-1
(+la la so fa so fa mi mi)
(4beat (3(8 8 8) 8pause 8 3(8pause 8pause 8) 16pause 16 16 16))
Melody-2
(do mi mi so)
(4beat (4 8 8 2))
Melody-3
(-si so)
(4beat (2.5 4))
(3beat (2 4))
Melody-4
(do +la +do )
(3beat (4 4 4))
(4beat (2 4.5 8))
********************************************************************************************
***** (Dm7 all A7 hmp5) *****
(Dm7 all) *****
Melody-1
(mi mi)
(4beat (2 2))
Melody-2
(so la +la si do +do)
(4beat (4 8pause 8 16pause 16 16 16 4))
Melody-3
(so so do so)
(4beat (4 4 4 4))
(3beat (8pause 8 8.5 16 4))
Melody-4
(so)
(3beat (2.5))
(4beat (1))
(A7 hmp5) *****
Melody-1
(+la so +la fa +do)
(4beat (4 3(8pause 8 8) 4 4))
Melody-2
(fa so la +la)
(4beat (8 8 2 4))
Melody-3
(fa -re)
(4beat (4 2.5))
(3beat (2 4))
Melody-4
(do +la la so)
(3beat (4 4 8 8))
(4beat (4 4 4.5 8))
********************************************************************************************
***** (Dm7 all G7 alt) *****
(Dm7 all) *****
Melody-1
(mi)
(4beat (1))
Melody-2
(mi fa so la +la si +la si)
(4beat (3(8pause 8 8) 4 16 16 16 16 3(8pause 8pause 8)))
Melody-3
(fa so la +la)
(4beat (4 8 8 2))
(3beat (8.5 16 8pause 8 8pause 8))
Melody-4
(mi so so so)
(3beat (4 8.5 16 8pause 8))
(4beat (4.5 8 4 4))
(G7 alt) *****
Melody-1
(la +do)
(4beat (2 2))
Melody-2
(+re +do si +do +re +do si +la)
(4beat (3(8pause 8pause 8) 3(8pause 8 8) 16 16 16 16 8pause 8))
Melody-3
(fa)
(4beat (1))
(3beat (2.5))
Melody-4
(+so)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(la so fa mi)
(4beat (2 4 8 8))
Melody-2
(re mi si la re si la si)
(4beat (3(8pause 8 8) 4 16 16 16 16 4))
Melody-3
(re)
(4beat (1))
(3beat (2.5))
Melody-4
(re re si)
(3beat (8 8 2))
(4beat (2.5 8 8))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(so la)
(4beat (2.5 4))
Melody-2
(so fa mi re do -si)
(4beat (4 4 8 16 16 3(8pause 8pause 8)))
Melody-3
(mi re)
(4beat (2.5 4))
(3beat (4 2))
Melody-4
(re)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(re do si la so)
(4beat (4 4 3(8pause 8 8) 3(8pause 8pause 8)))
Melody-2
(la si do do re mi)
(4beat (3(8pause 8 8) 3(8pause 8 8) 4 4))
Melody-3
(la so fa mi)
(4beat (4 8 8 2))
(3beat (8.5 16 4 4))
Melody-4
(+fa)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (Gm7 dor C7 alt) *****
(Gm7 dor) *****
Melody-1
(la so fa mi re)
(4beat (4 4 8.5 16 4))
Melody-2
(la so fa mi)
(4beat (4.5 8 4 4))
Melody-3
(fa)
(4beat (1))
(3beat (2.5))
Melody-4
(fa re)
(3beat (2 4))
(4beat (2.5 4))
(C7 alt) *****
Melody-1
(mi -mi -re do -re do)
(4beat (4 4 8 16 16 4))
Melody-2
(so +la +la re re re so re)
(4beat (3(8pause 8pause 8) 8 16 16 16pause 16 16 16 8pause 8))
Melody-3
(-so -la -si do)
(4beat (4 4.5 4 8))
(3beat (3(8pause 8 8) 4 4))
Melody-4
(-mi)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (FM7 lyd) *****
(FM7 lyd) *****
Melody-1
(so fa mi mi re do si)
(4beat (4 4 16 16 16 16 4))
Melody-2
(so fa mi re)
(4beat (8 8 2 4))
Melody-3
(mi fa)
(4beat (4 2.5))
(3beat (2 4))
Melody-4
(so so re re re so)
(3beat (8pause 8 3(8pause 8pause 8) 16 16 16 16))
(4beat (4 4 8 8 8 8))
********************************************************************************************
***** (-B7 lyd-7) *****
(-B7 lyd-7) *****
Melody-1
(si si +fa +fa re si)
(4beat (8.5 16 4 4 8 8))
Melody-2
(so -la -si do re mi fa mi)
(4beat (3(8pause 8 8) 16 16 16 16 3(8pause 8pause 8) 4))
Melody-3
(do mi)
(4beat (4 2.5))
(3beat (2 4))
Melody-4
(-la si)
(3beat (2 4))
(4beat (4 2.5))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(re mi fa)
(4beat (2 4.5 8))
Melody-2
(re si si re si la mi si)
(4beat (3(8pause 8 8) 3(8 8 8) 4 8 8))
Melody-3
(la so fa)
(4beat (8 8 2.5))
(3beat (2 8 8))
Melody-4
(la)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(do do la mi la)
(4beat (8 8 4 3(8pause 8pause 8) 8pause 8))
Melody-2
(do -si la so)
(4beat (4 4.5 4 8))
Melody-3
(fa)
(4beat (1))
(3beat (2.5))
Melody-4
(la do la re)
(3beat (4 4 3(8pause 8 8)))
(4beat (2 8 8 4))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(re la re si si mi re re)
(4beat (4 4 16 16 16 16 8.5 16))
Melody-2
(si do re mi)
(4beat (4 8 8 2))
Melody-3
(re mi fa mi)
(4beat (4 4.5 4 8))
(3beat (3(8pause 8 8) 3(8pause 8pause 8) 4))
Melody-4
(la)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(la)
(4beat (1))
Melody-2
(mi la la mi do la)
(4beat (3(8pause 8 8) 8 8 8pause 8 4))
Melody-3
(la do)
(4beat (2.5 4))
(3beat (4 2))
Melody-4
(mi fa so)
(3beat (4.5 8 4))
(4beat (2 4.5 8))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(re mi fa fa so la)
(4beat (8.5 16 4 3(8pause 8 8) 8pause 8))
Melody-2
(la so fa so la si)
(4beat (3(8pause 8 8) 4 8.5 16 4))
Melody-3
(si)
(4beat (1))
(3beat (2.5))
Melody-4
(la la re)
(3beat (4.5 8 4))
(4beat (2.5 8 8))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(la mi mi do)
(4beat (4 8 8 2))
Melody-2
(so so fa mi re do -si la)
(4beat (4 4 16 16 16 16 3(8pause 8 8)))
Melody-3
(do)
(4beat (1))
(3beat (2.5))
Melody-4
(la)
(3beat (2.5))
(4beat (1))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(mi re)
(4beat (2 2))
Melody-2
(re re do si)
(4beat (2 4 8 8))
Melody-3
(re mi fa so)
(4beat (4 4 4.5 8))
(3beat (8 8 4 4))
Melody-4
(la si do re re)
(3beat (8 8 4 3(8pause 8 8)))
(4beat (4 8 8 4 4))
********************************************************************************************
***** (CM7 ion) *****
(CM7 ion) *****
Melody-1
(si so re so si re)
(4beat (3(8pause 8 8) 4 4 8 8))
Melody-2
(mi mi la la do la)
(4beat (8.5 16 4 8 8 4))
Melody-3
(si re re si)
(4beat (4 4 4.5 8))
(3beat (8 8 4 4))
Melody-4
(mi mi si so)
(3beat (3(8pause 8 8) 4 4))
(4beat (4 4.5 4 8))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(do do -si )
(4beat (2 4 4))
Melody-2
(mi mi do do do do so mi)
(4beat (4 3(8pause 8 8) 3(8 8 8) 8.5 16))
Melody-3
(re mi)
(4beat (4 2.5))
(3beat (4 2))
Melody-4
(la la mi la)
(3beat (4 3(8pause 8 8) 4))
(4beat (4 4 4.5 8))
********************************************************************************************
***** (-BM7 lyd) *****
(-BM7 lyd) *****
Melody-1
(la -si)
(4beat (2 2))
Melody-2
(mi fa mi re)
(4beat (8 8 2 4))
Melody-3
(re la)
(4beat (4 2.5))
(3beat (2 4))
Melody-4
(so so fa mi re do)
(3beat (4 3(8pause 8 8) 8 16 16))
(4beat (4 3(8pause 8pause 8) 8.5 16 3(8pause 8 8)))
********************************************************************************************
***** (AM7 ion) *****
(AM7 ion) *****
Melody-1
(+fa)
(4beat (1))
Melody-2
(-la mi mi -re mi -la -re -la)
(4beat (8 16 16 8pause 8 16pause 16 16 16 3(8pause 8pause 8)))
Melody-3
(la)
(4beat (1))
(3beat (2.5))
Melody-4
(+fa mi re +do)
(3beat (3(8pause 8pause 8) 3(8pause 8 8) 3(8pause 8pause 8)))
(4beat (4 4 4 4))
********************************************************************************************
***** (AM7 ion) *****
(AM7 ion) *****
Melody-1
(si mi +so si mi)
(4beat (4 4 4 8.5 16))
Melody-2
(si +do si la)
(4beat (4 2 8 8))
Melody-3
(+do +do +fa)
(4beat (4 4 2))
(3beat (4.5 8 4))
Melody-4
(+fa +fa)
(3beat (4 2))
(4beat (2 2))
********************************************************************************************
***** (AM7 ion) *****
(AM7 ion) *****
Melody-1
(+so +so +so si si +fa +fa)
(4beat (8 8 3(8 8 8) 4 4))
Melody-2
(+fa mi re +do si +do si +do)
(4beat (3(8pause 8pause 8) 16pause 16 16 16 16pause 16 16 16 4))
Melody-3
(+do si)
(4beat (2.5 4))
(3beat (4 2))
Melody-4
(mi +so +so si si)
(3beat (4 4 3(8 8 8)))
(4beat (4 3(8pause 8 8) 4 4))
********************************************************************************************
***** (AM7 ion) *****
(AM7 ion) *****
Melody-1
(+fa mi re)
(4beat (8 8 2.5))
Melody-2
(+fa la la +do +do +fa)
(4beat (4 4 3(8pause 8 8) 8.5 16))
Melody-3
(+do +do)
(4beat (2.5 4))
(3beat (4 2))
Melody-4
(+do +fa si)
(3beat (4 4 4))
(4beat (4.5 8 2))

***** ファイル１5：music11 *****


(the-list-is-involved-in-a-chord '(do re mi) "CM7")--->nil

(the-list-is-involved-in-a-chord '(do mi so) "CM7")--->t

(get-chords-which-involve-the-notes '(+fa +la +do fa))--->("+FM7" "-GM7")

(get-chords-which-involve-the-notes '(do mi so si))--->("CM7")

(get-chords-which-involve-the-notes '(la do mi so))--->("C6" "C69" "Am7")

(get-chords-which-involve-the-notes '(re fa la do))--->("Dm7" "F6" "F69")

(get-chords-which-involve-the-notes '(+fa +la +do))--->
("DaugM7" "+Dm7" "-Em7" "+F" "+F6" "+F69" "+FM7" "-G" "-G6" "-G69" ...)


***** ファイル14：music12 *****


(get-scale-name-aux "G7")--->(lyd-7 alt comd hmp5 mix)

(get-scale-name "G7")--->
(("G7" lyd-7) ("G7" alt) ("G7" comd) ("G7" hmp5) ("G7" mix))

(show-scales "G7")--->
lyd-7 (so la si +do re mi fa so)
alt (so +so +la si +do +re fa so)
comd (so +so +la si +do re mi fa so)
hmp5 (so +so +la si do re +re fa so)
mix (so la si do re mi fa so)

(show-tension-notes "G7")--->
lyd-7 (la +do mi)
alt (+so +la +do +re)
comd (+so +la +do mi)
hmp5 (+so +la +re)
mix (la mi)


[1] cl-user(15): (tell-a-chord "CM7")

*********** CM7 ************
Chord Tone (do mi so si)
Guide Tone (mi si)
UST ((all (value G Am Em D Bm))
(ion (value G Am Em D Bm))
(lyd (value G Am Em D Bm)))
Function of Chord ((ion (value (tonic (C))))
(lyd
(value (tonic-minor (a e)) (subdominant (g D G))
(subdominant-minor (B E b e)))))
Tension Notes
ion (re la)
lyd (re -so la)
Chord Scales
ion (do re mi fa so la si do)
lyd (do re mi -so so la si do)
nil
[1] cl-user(16): (tell-a-chord "Am7")

*********** Am7 ************
Chord Tone (la do mi so)
Guide Tone (do so)
UST ((dor (value Em G C Bm)) (phr (value C F Dm))
(aeo (value G C Em)) (n (value Em G)) (h (value E))
(all (value Em E F G C Bm)))
Function of Chord ((aeo (value (tonic (C))))
(phr (value (tonic (F)) (dominant-minor (d))))
(dor
(value (tonic-minor (a)) (subdominant (G))
(subdominant-minor (E e))))
(dor-2 (value (subdominant (g)))))
Tension Notes
aeo (si re)
phr (re fa)
dor (si re)
dor-2 (re +fa)
Chord Scales
aeo (la si do re mi fa so la)
phr (la +la do re mi fa so la)
dor (la si do re mi +fa so la)
dor-2 (la +la do re mi +fa so la)
nil
cl-user(3): (tell-a-chord "G7")

*********** G7 ************
Chord Tone (so si re fa)
Guide Tone (si fa)
UST ((mix (value Dm Em)) (lyd-7 (value A Dm Em))
(alt (value +Gm +Am +C +D)) (hmp5 (value +Gm +A +D))
(comd (value +Am +A +Cm +C Em E))
(all (value +A A +C +D E Fm +Gm F Em +Cm Dm +Am)))
Function of Chord ((all (value (tonic (G)) (dominant (c C))))
(lyd-7
(value (dominant (+F +f)) (subdominant (D d))
(subdominant-minor (A B b))))
(alt (value (subdominant (+G +g))))
(comd (value (subdominant (+G +g))))
(hmp5 (value (dominant (c))))
(mix (value (subdominant-minor (a)))))
Tension Notes
lyd-7 (la +do mi)
alt (+so +la +do +re)
comd (+so +la +do mi)
hmp5 (+so +la +re)
mix (la mi)
Chord Scales
lyd-7 (so la si +do re mi fa so)
alt (so +so +la si +do +re fa so)
comd (so +so +la si +do re mi fa so)
hmp5 (so +so +la si do re +re fa so)
mix (so la si do re mi fa so)
nil

[1] cl-user(18): (tell-a-chord "Bm7-5")

*********** Bm7-5 ************
Chord Tone (si re fa la)
Guide Tone (re la)
UST ((loc (value G A Dm Em G F Am))
(all (value G A Dm Em G F Am))
(loc+2 (value Em G A)))
Function of Chord ((loc
(value (tonic (F)) (tonic-minor (d))
(subdominant (F)) (subdominant-minor (a))
(dominant (C c))))
(loc+2 (value (subdominant-minor (A)))))
Tension Notes
loc (mi so)
loc+2 (+do mi so)
Chord Scales
loc (si do re mi fa so la si)
loc+2 (si +do re mi fa so la si)
nil
[1] cl-user(19): (tell-a-chord "CmM7")

*********** CmM7 ************
Chord Tone (do -mi so si)
Guide Tone (-mi si)
UST ((m (value Dm F G)) (all (value Dm F G)))
Function of Chord ((h (value (tonic-minor (c))))
(m (value (tonic-minor (c))))
(dor (value (subdominant-minor (-e)))))
Tension Notes
h (re fa)
m (re fa la fa re)
dor (re fa)
Chord Scales
h (do re -mi fa so -la si do)
m (do re -mi fa so la si do do -si -la so fa -mi re do)
dor (do re -mi fa so la -si do)
nil
[1] cl-user(20): (tell-a-chord "Cdim7")

*********** Cdim7 ************
Chord Tone (do -mi -so la)
Guide Tone (-mi la)
UST ((dim (value Dm D Fm F -Am -A Bm B))
(all (value Dm D Fm F -Am -A Bm B)))
Function of Chord nothing
Tension Notes
dim (re fa -la si)
Chord Scales
dim (do re -mi fa -so -la la si do)


***** ファイル16：music13(in e-meigen.html) *****


(the-list-is-involved-in-a-scale '(do re mi fa so la si do) '(C ion))--->t

(the-list-is-involved-in-a-scale '(re mi +fa so la si +do re) '(D ion))--->t

(the-list-is-involved-in-a-scale '(do re mi fa) '(C ion))--->t

(the-list-is-involved-in-a-scale '(do re -mi fa) '(C ion))--->nil

(get-scales-whitch-involve-the-notes '(do re mi fa so la si do))--->
((C ion) (D all) (D m) (D dor) (E hmp5) (E phr) (F lyd) (G mixsus4)
(G mix) (A all) ...)


***** ファイル17：music14 *****


(the-list-is-involved-in-a-scale-2 '(re la) '(C ion))--->t

(get-scales-whitch-involve-the-tension-notes '(re la))--->
((C mixsus4) (C lyd-7) (C m) (C mix) (C lyd) (C ion) (+C alt) (+C hmp5)
(-D alt) (-D hmp5) ...)

(format t "~%~a" (get-scales-whitch-involve-the-tension-notes '(re la)))--->
((C mixsus4) (C lyd-7) (C m) (C mix) (C lyd) (C ion) (+C alt) (+C hmp5)
(-D alt) (-D hmp5) (+F alt) (+F hmp5) (-G alt) (-G hmp5) (+G comd)
(+G alt) (-A comd) (-A alt))


***** ファイル18：work1.cl *****


(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)))


***** ファイル19：music15 *****


(test '(do re mi fa))--->
Tnesion
nil
Scales
((C mix-6) (C mixsus4) (C mmp5) (C mix) (C ion) (D loc+2) (D all) (D m)
(D n) (D aeo) (D dor) (E alt) (E hmp5) (E loc) (E phr) (F all) (F m)
(F lyd) (F ion) (G mixsus4) (G dor-2) (G all) (G m) (G mix) (G dor)
(A hmp5) (A all) (A m) (A h) (A n) (A aeo) (A phr) (+A lyd-7) (+A lyd)
(-B lyd-7) (-B lyd) (B loc))
Chords

(test '(re la))--->
Tnesion
((C mixsus4) (C lyd-7) (C m) (C mix) (C lyd) (C ion) (+C alt) (+C hmp5)
(-D alt) (-D hmp5) (+F alt) (+F hmp5) (-G alt) (-G hmp5) (+G comd)
(+G alt) (-A comd) (-A alt))
Scales
((C mixsus4) (C dim) (C lyd-7) (C all) (C m) (C mix) (C lyd) (C dor)
(C ion) (+C alt) (+C hmp5) (+C loc) (+C phr) (-D alt) (-D hmp5)
(-D loc) (-D phr) (D mix-6) (D mixsus4) (D comd) (D mmp5) (D hmp5)
(D lyd-7) (D dor-2) (D all) (D m) (D h) (D n) (D aeo) (D mix) (D lyd)
(D phr) (D dor) (D ion) (+D dim) (+D lyd) (-E dim) (-E lyd) (E mix-6)
(E mixsus4) (E mmp5) (E hmp5) (E loc+2) (E dor-2) (E all) (E m) (E n)
(E loc) (E aeo) (E mix) (E phr) (E dor) (F mixsus4) (F comd) (F lyd-7)
(F mix) (F lyd) (F ion) (+F dim) (+F alt) (+F hmp5) (+F loc+2)
(+F all) (+F m) (+F h) (+F n) (+F loc) (+F aeo) (+F phr) (-G dim)
(-G alt) (-G hmp5) (-G loc+2) (-G all) (-G m) (-G h) (-G n) (-G loc)
(-G aeo) (-G phr) (G mix-6) (G mixsus4) (G mmp5) (G lyd-7) (G all)
(G m) (G h) (G n) (G aeo) (G mix) (G lyd) (G dor) (G ion) (+G comd)
(+G alt) (+G loc) (-A comd) (-A alt) (-A loc) (A mix-6) (A mixsus4)
(A dim) (A mmp5) (A hmp5) (A loc+2) (A dor-2) (A all) (A m) (A h)
(A n) (A loc) (A aeo) (A mix) (A phr) (A dor) (A ion) (+A lyd)
(+A ion) (-B lyd) (-B ion) (B comd) (B alt) (B hmp5) (B loc+2)
(B dor-2) (B all) (B m) (B n) (B loc) (B aeo) (B phr) (B dor))
Chords
(Cm69 C69 D D6 Dm69 D69 Dm6 Dsus4 D7sus4 Dm7 DmM7 DM7 D7 +DdimM7
-EdimM7 E7sus4 F6 F69 Gm69 G69 Asus4 A7sus4 +AaugM7 +AM7 -BaugM7 -BM7
Bm7-5 Bm7)

(check-a-tension 're)--->
((C mix-6) (C mixsus4) (C wt) (C dim) (C mmp5) (C lyd-7) (C loc+2)
(C all) (C m) (C h) ...)

(format t "~%~a" (check-a-tension 're))--->
((C mix-6) (C mixsus4) (C wt) (C dim) (C mmp5) (C lyd-7) (C loc+2)
(C all) (C m) (C h) (C n) (C aeo) (C mix) (C lyd) (C dor) (C ion)
(+C comd) (+C alt) (+C hmp5) (-D comd) (-D alt) (-D hmp5) (+D dim)
(-E dim) (F mixsus4) (F comd) (F lyd-7) (F dor-2) (F m) (F mix)
(F lyd) (F ion) (+F mix-6) (+F dim) (+F alt) (+F mmp5) (+F hmp5)
(+F loc+2) (+F loc) (+F phr) (-G mix-6) (-G dim) (-G alt) (-G mmp5)
(-G hmp5) (-G loc+2) (-G loc) (-G phr) (+G wt) (+G comd) (+G alt)
(+G lyd-7) (+G lyd) (-A wt) (-A comd) (-A alt) (-A lyd-7) (-A lyd)
(A dim) (A loc+2) (A dor-2) (A all) (A m) (A h) (A n) (A loc) (A aeo)
(A phr) (A dor) (B comd) (B alt) (B hmp5))

(get-chord-name-from-a-pair '(C ion))--->"CM7"

(get-chord-names-with-a-tension 're)--->
("C7" "C7sus4" "Cdim7" "Cm7-5" "Cm7" "CM7" "+C7" "-D7" "+Ddim7"
"-Edim7" ...)

(format t "~%~a" (get-chord-names-with-a-tension 're))--->
(C7 C7sus4 Cdim7 Cm7-5 Cm7 CM7 +C7 -D7 +Ddim7 -Edim7 F7sus4 F7 Fm7 FM7
+F7 +Fdim7 +Fm7-5 +Fm7 -G7 -Gdim7 -Gm7-5 -Gm7 +G7 +GM7 -A7 -AM7 Adim7
Am7-5 Am7 B7)

(get-chord-names-with-a-chord-note 'do)--->
("C" "C6" "Cm69" "C69" "Cm6" "C-5" "Cdim" "Caug" "Caug7" "Cm7-5" ...)

(get-chord-names-with-a-note 'do)--->
("+Cdim7" "-Ddim7" "+D7sus4" "+D7" "+Dm7" "+DM7" "-E7sus4" "-E7" "-Em7"
"-EM7" ...)

(get-chord-names-with-a-note 're)--->
("C7" "C7sus4" "Cdim7" "Cm7-5" "Cm7" "CM7" "+C7" "-D7" "+Ddim7"
"-Edim7" ...)

(get-chord-names-with-notes '(do re mi fa))--->
(("+Cdim7" "-Ddim7" "+D7sus4" "+D7" "+Dm7" "+DM7" "-E7sus4" "-E7"
"-Em7" "-EM7" ...)
("C7" "C7sus4" "Cdim7" "Cm7-5" "Cm7" "CM7" "+C7" "-D7" "+Ddim7"
"-Edim7" ...)
("+C7" "-D7" "D7" "D7sus4" "Ddim7" "Dm7-5" "Dm7" "DM7" "+D7" "-E7"
...)
("Cdim7" "Cm7-5" "Cm7" "D7" "+D7" "+D7sus4" "+Ddim7" "+Dm7-5" "+Dm7"
"+DM7" ...))

***************************************************************
(get-chords '(do re mi fa))--->
(Am7 -A7 +G7 G7sus4 FM7 D7 Dm7 Dm7-5 -BM7 -B7 +AM7 +A7 Gm7 E7)
***************************************************************

(check-chords '(do re mi fa))--->nil

(check-chords '(re la))--->
(Cm69 C69 D D6 Dm69 D69 Dm6 Dsus4 D7sus4 Dm7 DmM7 DM7 D7 +DdimM7
-EdimM7 E7sus4 F6 F69 Gm69 G69 Asus4 A7sus4 +AaugM7 +AM7 -BaugM7 -BM7
Bm7-5 Bm7)

(check-chords '(do mi so si))--->(CM7)

(check-tensions '(re la))--->(C7sus4 C7 Cm7 CM7 +C7 -D7 +F7 -G7 +G7 -A7)

(check-tensions '(do re mi fa))--->nil

(check-scales '(do re mi fa))--->
(C7 C7sus4 CM7 Dm7-5 Dm7 E7 Em7-5 Em7 Fm7 FM7 G7sus4 Gm7 G7 A7 Am7 +A7
+AM7 -B7 -BM7 Bm7-5)

(check-scales '(do -re +fa +so))--->
(C7 Cm7-5 +Cm7 +CM7 -Dm7 -DM7 +Dm7 -Em7 F7 Fm7 +F7 +FM7 -G7 -GM7 +G7
+G7sus4 -A7 -A7sus4 +Am7-5 +Am7 -Bm7-5 -Bm7)

(identify-scales '(do re mi fa))--->
((C mix-6) (C mixsus4) (C mmp5) (C mix) (C ion) (D loc+2) (D all) (D m)
(D n) (D aeo) (D dor) (E alt) (E hmp5) (E loc) (E phr) (F all) (F m)
(F lyd) (F ion) (G mixsus4) (G dor-2) (G all) (G m) (G mix) (G dor)
(A hmp5) (A all) (A m) (A h) (A n) (A aeo) (A phr) (+A lyd-7) (+A lyd)
(-B lyd-7) (-B lyd) (B loc))

(identify-scales '(do re mi fa so la si do))--->
((C ion) (D all) (D m) (D dor) (E hmp5) (E phr) (F lyd) (G mixsus4)
(G mix) (A all) (A m) (A n) (A aeo) (B loc))


***** ファイル20：music16 *****


(drops "CM7")--->
drop2 ((so (do mi si )) (mi (si do so)) (do (so si mi))
(si (mi so do)))
drop3 ((mi (do so si )) (do (si mi so)) (si (so do mi))
(so (mi si do)))
drop2&4 (((do so) (mi si)) ((si mi) (do so)) ((so do) (si mi))
((mi si) (so do)))
drop1&4 (((do si) (mi so)))
Tensions
ion (re la)
lyd (re -so la)

(a-drop "CM7")--->
(so (do mi si ))
Tensions
ion (re la)
lyd (re -so la)

(a-drop "CM7")--->
(so (mi si do))
Tensions
ion (re la)
lyd (re -so la)


***** ファイル２１：music17 *****


(get-triads '("CM7" ion))--->
((do mi so ) (re fa la) (mi so si) (fa la do) (so si re) (la do mi)
(si re fa))

(get-chords-from-scale '("CM7" ion))--->
((do mi so si) (re fa la do) (mi so si re) (fa la do mi) (so si re fa)
(la do mi so) (si re fa la))

(4th-interval-chords '("CM7" ion))--->
((do fa si mi) (re so do fa) (mi la re so) (fa si mi la) (so do fa si)
(la re so do) (si mi la re))

(4th-interval-triads '("CM7" ion))--->
((do fa si ) (re so do) (mi la re) (fa si mi) (so do fa) (la re so)
(si mi la))

(3rd-interval '("CM7" ion))--->(do mi so si re fa la do)

(4th-interval '("CM7" ion))--->(do fa si mi la re so do)

(5th-interval '("CM7" ion))--->(do so re la mi si fa do)

(6th-interval '("CM7" ion))--->(do la fa re si so mi do)

(7th-interval '("CM7" ion))--->(do si la so fa mi re do)


***** ファイル２２：music18 *****


(tell-a-pair-aux '("G7" alt))--->

triad
((so +la +do) (+so si +re) (+la +do fa) (si +re so))
((+do fa +so) (+re so +la) (fa +so si))
7th-chord
((so +la +do fa) (+so si +re so) (+la +do fa +so) (si +re so +la))
((+do fa +so si) (+re so +la +do) (fa +so si +re))
fouth-interval-triad
((so si fa) (+so +do so) (+la +re +so) (si fa +la))
((+do so si) (+re +so +do) (fa +la +re))
fouth-interval
((so si fa +la) (+so +do so si) (+la +re +so +do) (si fa +la +re))
((+do so si fa) (+re +so +do so) (fa +la +re +so))
Scale (so +so +la si +do +re fa so)
3rd-interval (so +la +do fa +so si +re so)
4th-interval (so si fa +la +re +so +do so)
5th-interval (so +do +so +re +la fa si so)
6th-interval (so +re si +so fa +do +la so)
7th-interval (so fa +re +do si +la +so so)
*********** G7 ************
Chord Tone (so si re fa)
Guide Tone (si fa)
UST ((mix (value Dm Em)) (lyd-7 (value A Dm Em))
(alt (value +Gm +Am +C +D)) (hmp5 (value +Gm +A +D))
(comd (value +Am +A +Cm +C Em E))
(all (value +A A +C +D E Fm +Gm F Em +Cm Dm +Am)))
Function of Chord ((all (value (tonic (G)) (dominant (c C))))
(lyd-7
(value (dominant (+F +f)) (subdominant (D d))
(subdominant-minor (A B b))))
(alt (value (subdominant (+G +g))))
(comd (value (subdominant (+G +g))))
(hmp5 (value (dominant (c))))
(mix (value (subdominant-minor (a)))))
Tension Notes
lyd-7 (la +do mi)
alt (+so +la +do +re)
comd (+so +la +do mi)
hmp5 (+so +la +re)
mix (la mi)
Chord Scales
lyd-7 (so la si +do re mi fa so)
alt (so +so +la si +do +re fa so)
comd (so +so +la si +do re mi fa so)
hmp5 (so +so +la si do re +re fa so)
mix (so la si do re mi fa so)
drop2 ((re (so si fa)) (si (fa so re)) (so (re fa si))
(fa (si re so)))
drop3 ((si (so re fa)) (so (fa si re)) (fa (re so si))
(re (si fa so)))
drop2&4 (((so re) (si fa)) ((fa si) (so re)) ((re so) (fa si))
((si fa) (re so)))
drop1&4 (((so fa) (si re)))
Recommended drop (re (so si fa))


***** ファイル２３：work1-2.cl *****


(setf *w8* '((F "Day By Day")
　　　　　　　　("Gm7" dor) ("C7" mix) ("Gm7" dor) ("C7" alt) ("FM7" ion) ("-B7" lyd-7)
　　　　　　　　("Am7" phr) ("D7" alt) ("Gm7" dor) ("A7" alt) ("Dm7" aeo) ("Dm7" aeo)
　　　　　　　　("G7" lyd-7) ("G7" lyd-7) ("Am7-5" loc) ("D7" alt) ("Gm7" dor) ("C7" mix)
　　　　　　　　("Gm7" dor) ("C7" alt) ("FM7" ion) ("-B7" lyd-7) ("Am7-5" loc) ("D7" alt)
　　　　　　　　("Gm7" dor) ("C7" alt) ("Am7" phr) ("D7" alt) ("Gm7" dor) ("C7" alt) ("FM7" ion)
　　　　　　　　("Am7-5" loc "D7" alt) ("Gm7" dor) ("C7" mix) ("Gm7" dor) ("C7" alt) ("FM7" ion)
　　　　　　　　("-B7" lyd-7) ("Am7" phr) ("D7" alt) ("Gm7" dor) ("A7" alt) ("Dm7" aeo) ("Dm7" aeo)
　　　　　　　　("G7" lyd-7) ("G7" lyd-7) ("Am7-5" loc) ("D7" alt) ("Gm7" dor) ("C7" mix)
　　　　　　　　("Gm7" dor) ("C7" alt) ("FM7" ion) ("-B7" lyd-7) ("Am7-5" loc) ("D7" alt)
　　　　　　　　("Gm7" dor) ("C7" alt) ("Am7" phr) ("D7" alt) ("Gm7" dor) ("C7" alt) ("FM7" ion)
　　　　　　　　("Am7-5" loc "D7" alt) ("Gm7" dor) ("C7" alt) ("FM7" ion) ("FM7" ion))

(get-chord-tone-2 '("CM7" ion))--->(do mi so si)

(sharp-a-note 're)--->+re

(flat-a-note 'do)--->si

(sharp-till-chord-tone 're '("CM7" ion))--->(re mi)

(flat-till-chord-tone 're '("CM7" ion))--->(re do)

(generate-a-phrase-aux '("CM7" ion))--->((la so) mi (la si) si mi si mi si)

;;;
;;;(make-a-phrase-1-2-aux '("CM7" ion))
;;;(((("CM7" ion) si la so mi mi)) ***3beat*** (4 8.5 16 8.5 16) ***4beat*** (4 8pause 8 "3(8pause 8 8)" 4))
;;;(make-a-phrase-1-2-aux '("CM7" ion "Dm7" dor))
;;;(((("CM7" ion) mi) (("Dm7" dor) so la so fa do)) ***3beat*** (16 16 16 16 4 4) ***4beat***
;;; ("3(8pause 8pause 8)" "3(8 8 8)" "3(8pause 8pause 8)" 4))
;;;(make-a-phrase-1-2-aux '("CM7" ion "Dm7" dor "G7" alt))
;;;(((("CM7" ion) la si si) (("Dm7" dor) mi fa) (("G7" alt) re)) ***3beat*** (16 16 8 8pause 8 8 8) ***4beat***
;;; (8.5 16 "3(8pause 8 8)" 4 4))
;;;


;;;
;;;(make-a-phrase-1-2-aux-third '("CM7" ion))
;;;(((("CM7" ion) re do la si)) ***3beat*** (8 8 4 4) ***4beat*** (8 8 2 4))
;;;(make-a-phrase-1-2-aux-third '("CM7" ion "Dm7" dor))
;;;(((("CM7" ion) mi mi) (("Dm7" dor) mi re so fa)) ***3beat*** (16 16 8 4 8 8) ***4beat***
;;; ("3(8pause 8 8)" "3(8pause 8pause 8)" 4 "3(8pause 8 8)"))
;;;(make-a-phrase-1-2-aux-third '("CM7" ion "Dm7" dor "G7" alt))
;;;(((("CM7" ion) re mi) (("Dm7" dor) mi re) (("G7" alt) +so so)) ***3beat***
;;; ("3(8pause 8pause 8)" 16 16 16 16 4) ***4beat*** (4 8.5 16 4 "3(8pause 8 8)")
;;;



(make-a-phrase '("CM7" ion "A7" hmp5))--->

*********** On (CM7 ion A7 hmp5) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(re do)
(mi si si mi la so)
(re mi la so mi la si si)
(re mi re do si si)
(si mi si mi)
*********** On (CM7 ion A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(+do so so)
(fa mi fa so +la do +do so +la do +do so)
(+la la +do)
(do +la la fa mi +do do +do +la la so)
(fa mi do +do +la la +la la)




(make-phrases '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))--->

*********** On (CM7 ion A7 hmp5) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi re mi mi mi mi mi)
(re do)
(re mi)
(re do re do si mi si mi)
(mi mi si)
*********** On (CM7 ion A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(+do so +do do +la la)
(do +la la so so so fa mi)
(fa so so +la do +do +do)
(do +la la +do do +la la +la do +do +la do +do do +do)
(so)
*********** On (Dm7 dor G7 alt) ************
*********** On (Dm7 dor) ************
Chord Scale: (re mi fa so la si do re)
(so fa so fa fa mi re)
(fa mi re fa fa mi re)
(mi re mi fa mi re fa)
(fa)
(do)
*********** On (Dm7 dor G7 alt) ************
*********** On (G7 alt) ************
Chord Scale: (so +so +la si +do +re fa so)
(fa +la si +so +la si)
(fa +la si si +la +so so +re re)
(+do si +re fa +do si +do si +re fa si)
(+do re +la si +la si fa +la si)
(+re re +do re +re fa fa +so so +la si)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi mi si la so la so mi)
(mi)
(mi)
(la si la so)
(re do la si mi)


;;;
;;;(make-phrases-1-2 '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))
;;;
;;;***((((CM7 ion) si la si) ((A7 hmp5) fa mi)) ***3beat*** (8.5 16 4 8 8) ***4beat*** (4 8.5 16 4 4))
;;;***((((Dm7 dor) fa) ((G7 alt) si si +so +la si)) ***3beat*** (16 16 16 16 4 8pause 8) ***4beat***
;;; (8 16 16 8pause 8 8pause 8 4))
;;;***((((CM7 ion) la si re mi)) ***3beat*** (4 8.5 16 4) ***4beat*** (4 8 8 2))
;;;nil
;;;


;;;
;;;(make-phrases-1-2-third '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))
;;;
;;;***((((CM7 ion) la si mi) ((A7 hmp5) do do)) ***3beat*** (8 8 4 3(8pause 8 8)) ***4beat***
;;; (4 4 3(8pause 8 8) 4))
;;;***((((Dm7 dor) do) ((G7 alt) +la +so so)) ***3beat*** (3(8pause 8 8) 4 4) ***4beat*** (2 4 8 8))
;;;***((((CM7 ion) si si)) ***3beat*** (2 4) ***4beat*** (4 2.5))
;;;


(auto-comp2 *w3*) etc.

(auto-comp2-second *w3*)

(auto-comp2-third *w3*)



************************************************************************************************************************
***music19***
(auto-comp2 *w3*)

Enter an integer!
505

********** Dindi ************
The original key is F.
Enter a key.C

********* The key is C. **********
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi re do)
(la si la si la si)
(mi si re do)
(la so la so la si)
(mi si si)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(re mi fa la so fa do +la la)
(mi fa mi re mi re re so fa)
(mi re la so la re do +la mi re)
(la la so la re do +la)
(la la re re mi re mi re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(si la si si la so mi la si)
(la si)
(re mi re mi la so la so si re do)
(mi mi si)
(la si mi)
*********** On (Gm7 dor C7 alt) ************
*********** On (Gm7 dor) ************
Chord Scale: (so la +la do re mi fa so)
(la so do +la)
(la so do re la +la la so)
(do +la do re la +la la so do re la so)
(do +la +la )
(do +la +la +la fa)
*********** On (Gm7 dor C7 alt) ************
*********** On (C7 alt) ************
Chord Scale: (do -re -mi mi -so -la -si do)
(+fa mi)
(+fa mi)
(+re +do do +fa so +do do +do do +la +fa so)
(+re +do do +do +re mi +do +re mi +la)
(+re +do do +re +do do +so so +do do)
*********** On (FM7 lyd) ************
*********** On (FM7 lyd) ************
Chord Scale: (fa so la si do re mi fa)
(si la so la re mi)
(re mi la si la re mi re mi si do)
(la so la mi mi si la si la)
(so fa)
(la so fa la re do si do mi)
*********** On (-B7 lyd-7) ************
*********** On (-B7 lyd-7) ************
Chord Scale: (-si do re mi fa so -la -si)
(mi fa)
(re so fa so fa re do re)
(mi re +so)
(re mi re so fa re re)
(do +la mi re re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la so la si re mi la so)
(la so si)
(re do mi la so re do la so la si)
(la si mi re do re do si)
(mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(re la so la la)
(so la)
(la)
(do +la do +la so fa so fa re so la)
(la so fa so la re mi fa do +la)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(re do re do la so mi)
(la so la si)
(si)
(mi)
(la so mi si la so mi re do)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(mi re la)
(la la re do +la re)
(so la)
(re so la)
(re mi fa re la)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(re do mi)
(mi si re mi mi mi la so)
(la si la so si la si si)
(mi la si si re mi la si)
(la so la so)
*********** On (Gm7 dor C7 alt) ************
*********** On (Gm7 dor) ************
Chord Scale: (so la +la do re mi fa so)
(+la la so fa fa)
(la +la fa +la fa +la la so)
(fa fa +la la +la fa)
(fa)
(fa)
*********** On (Gm7 dor C7 alt) ************
*********** On (C7 alt) ************
Chord Scale: (do -re -mi mi -so -la -si do)
(+do do +la +so +la mi)
(+do do mi +re mi)
(+so +la +so so)
(+re +do do +so +la +re mi +so +la +re mi)
(mi)
*********** On (FM7 lyd) ************
*********** On (FM7 lyd) ************
Chord Scale: (fa so la si do re mi fa)
(si do la si do)
(re mi so la mi re mi si do)
(so fa si la la)
(re do re do si la so la)
(re do la si la la re do)
*********** On (-B7 lyd-7) ************
*********** On (-B7 lyd-7) ************
Chord Scale: (-si do re mi fa so -la -si)
(so +so +so mi fa do re)
(do +la)
(+so re do +la mi re re)
(do +la +so so fa +so re re)
(so fa re +so)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi re mi)
(mi si re do mi re mi)
(mi si re do)
(la so si mi mi la so)
(la so re mi re mi si la si)
*********** On (-Gm7-5 loc B7 hmp5) ************
*********** On (-Gm7-5 loc) ************
Chord Scale: (-so so la si do re mi -so)
(re mi re do mi si do)
(re mi re do si do)
(si do si do la)
(mi la re mi mi re do)
(mi si do si do si do mi)
*********** On (-Gm7-5 loc B7 hmp5) ************
*********** On (B7 hmp5) ************
Chord Scale: (si do re +re mi +fa so la si)
(do re +re do re +re la +re so +fa la)
(so +fa re +re)
(re +re so +fa la)
(la la so +fa do si)
(+re so +fa la so la so +fa)
*********** On (Em7 all) ************
*********** On (Em7 all) ************
Chord Scale: (mi +fa so la si do +do re +re mi)
(la so re)
(re so +fa mi so re re)
(re la so +fa mi la so +fa mi)
(+fa mi so)
(la si +fa mi +fa mi +fa so re)
*********** On (B7 hmp5) ************
*********** On (B7 hmp5) ************
Chord Scale: (si do re +re mi +fa so la si)
(do re +re +re la re do si la la)
(la +re)
(la do re +re la)
(+re la re do si so la la la)
(re +re)
*********** On (Em7 all B7 hmp5) ************
*********** On (Em7 all) ************
Chord Scale: (mi +fa so la si do +do re +re mi)
(so +fa so so re la si)
(la si)
(re la si re so +fa mi la so)
(+fa mi)
(+fa so re re la so la so)
*********** On (Em7 all B7 hmp5) ************
*********** On (B7 hmp5) ************
Chord Scale: (si do re +re mi +fa so la si)
(so +fa do re +re)
(so +fa so la +re re +re re +re re +re)
(+re)
(la +re +re re do si)
(re +re)
*********** On (Em7 all A7 alt) ************
*********** On (Em7 all) ************
Chord Scale: (mi +fa so la si do +do re +re mi)
(so +fa mi)
(la si +fa so la si re re)
(re +fa so la si)
(so +fa so so)
(la si)
*********** On (Em7 all A7 alt) ************
*********** On (A7 alt) ************
Chord Scale: (la +la do +do +re fa so la)
(so so so +re +do)
(+la la so fa so +re +do)
(fa mi +re +do fa mi do +do +la la)
(so +re mi fa so so do +la la +la la)
(do +la la +la la +do +do)
*********** On (Dm7 all) ************
*********** On (Dm7 all) ************
Chord Scale: (re mi fa so la +la si do +do re)
(so fa mi re mi fa fa)
(so fa do so fa do)
(do fa so la)
(do mi fa mi fa)
(mi fa do fa so la do mi re)
*********** On (A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(fa mi do +do so)
(fa so)
(fa so do +do +la la)
(do +la la +do fa mi do +do fa mi)
(so fa mi +la do +do)
*********** On (Dm7 all A7 hmp5) ************
*********** On (Dm7 all) ************
Chord Scale: (re mi fa so la +la si do +do re)
(mi fa fa do do so la so fa)
(mi re do do mi fa so fa so la)
(so fa)
(mi re fa)
(so fa)
*********** On (Dm7 all A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(do +la la do +la la +la do +do fa so)
(+do fa so do +do fa mi so so)
(fa so fa mi so so so)
(+do so fa so)
(fa mi +la do +do +do do +la la +la do +do so)
*********** On (Dm7 all G7 alt) ************
*********** On (Dm7 all) ************
Chord Scale: (re mi fa so la +la si do +do re)
(fa so fa do fa so fa mi fa)
(mi fa)
(so fa do mi fa so fa fa)
(do fa do so la so la)
(mi re mi re fa mi fa)
*********** On (Dm7 all G7 alt) ************
*********** On (G7 alt) ************
Chord Scale: (so +so +la si +do +re fa so)
(+la si +so so +so so)
(si)
(si +do si +so so +re re +do re)
(+re re si +so +la si +re fa +so +la si)
(fa si si +so so)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi mi)
(la so)
(si la si mi si mi)
(la si mi si)
(re do re mi re do la so mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(re re do re)
(mi re re re re la re)
(so fa so fa re la la)
(so fa do re so fa)
(so fa so fa)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi)
(re do la so mi si si re do)
(re mi re mi si si)
(la si)
(si si re do re mi si la si)
*********** On (Gm7 dor C7 alt) ************
*********** On (Gm7 dor) ************
Chord Scale: (so la +la do re mi fa so)
(do +la do +la fa +la)
(do +la do +la fa la +la fa fa)
(do +la la so do +la do +la)
(+la fa la so fa)
(la so do +la fa fa fa)
*********** On (Gm7 dor C7 alt) ************
*********** On (C7 alt) ************
Chord Scale: (do -re -mi mi -so -la -si do)
(+re +do do +la)
(+la mi mi +la +so so +fa so)
(mi +fa mi +so so mi mi)
(+do do +fa mi +fa mi +so +la +so so +do +re mi)
(+so so +re +do do +fa mi +so +la +do do)
*********** On (FM7 lyd) ************
*********** On (FM7 lyd) ************
Chord Scale: (fa so la si do re mi fa)
(re do la)
(so fa si la so la so la re mi re mi)
(si la re do)
(si la mi mi)
(so fa si la si la si do so la so la)
*********** On (-B7 lyd-7) ************
*********** On (-B7 lyd-7) ************
Chord Scale: (-si do re mi fa so -la -si)
(do +la)
(do +la +so +so)
(mi re re re mi fa so +so mi re)
(+so mi fa re)
(so +so re mi re mi re +so +so)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi re do si re mi si mi)
(la si la so la so)
(re do la si la si)
(la si re do la so)
(la so mi mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(mi re re re re re re)
(do re)
(la so la so fa)
(do re la re so la)
(mi fa la la do re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(si la si)
(mi la so la so la so re do)
(si re mi mi la so)
(la si mi mi la so)
(si re do re mi mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(la re mi fa do +la)
(do re re so la)
(so la re)
(do re la mi re la)
(do +la la do +la so fa)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(re mi mi la si la si)
(si mi mi la so re do re mi)
(si si si la so)
(re mi si la so re mi)
(mi re mi re mi re mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(la mi fa)
(mi fa mi fa do +la so fa la)
(mi fa la re so la)
(do re mi re re la)
(re so fa so fa so fa la)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi la so re do la so)
(la si mi mi si)
(si)
(mi la so si si)
(la si mi mi mi)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(re do)
(la so re mi la so mi)
(mi mi mi mi la so)
(re mi la so si si mi la si)
(mi si)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(re mi fa so la)
(do re so fa re mi fa)
(mi re la)
(mi fa re)
(mi fa mi fa so fa re)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(so la so fa do re)
(mi fa so la mi fa do +la)
(so fa la la)
(re la)
(re re do re mi fa la)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(si +do si la si +do +so si la)
(+so)
(+fa mi +fa +so)
(+so si la +do)
(+so)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(si la +fa mi +do +do si +do)
(+so +do +fa +so si +do +so si la)
(si la +so si +do +fa mi)
(+fa +so)
(+do +fa +so +so +fa mi +do)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(+fa mi si la si la +so)
(+do +so si +do +do si la +do)
(+so +fa +so)
(si la +do +fa +so +do +do si +do)
(+so +fa mi si la si +do +fa mi +fa mi)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(si la)
(+fa +so)
(si +do +fa mi +fa mi)
(+fa +so)
(+fa +so +fa mi si la +do)



**************************************************:**********************************************************************
***music19***
(auto-comp2-second *w3*)

Enter an integer!
604

********** Dindi ************
The original key is F.
Enter a key.C

********* The key is C. **********
***((((CM7 ion) re mi)) ***3beat*** (4 2) ***4beat*** (2 2))
***((((-BM7 lyd) la so la)) ***3beat*** (2 8 8) ***4beat*** (8 8 2.5))
***((((CM7 ion) re mi la so si la si la so)) ***3beat***
(16 16 16 16 3(8pause 8 8) 3(8 8 8)) ***4beat***
(3(8pause 8pause 8) 3(8 8 8) 4 16 16 16 16))
***((((Gm7 dor) do +la +la +la) ((C7 alt) +do do)) ***3beat***
(8pause 8 16 16 16 16 3(8pause 8pause 8)) ***4beat***
(3(8pause 8pause 8) 4 3(8pause 8 8) 3(8pause 8 8)))
***((((FM7 lyd) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-B7 lyd-7) do re +so)) ***3beat*** (4.5 8 4) ***4beat*** (2 4 4))
***((((CM7 ion) re do mi mi)) ***3beat*** (8 8 4 4) ***4beat***
(4 8 8 2))
***((((-BM7 lyd) la la)) ***3beat*** (4 2) ***4beat*** (2 2))
***((((CM7 ion) re mi mi la si la so re do)) ***3beat***
(16 16 8 16 16 16 16 3(8pause 8 8)) ***4beat***
(16pause 16 16 16 4 3(8pause 8 8) 16pause 16 16 16))
***((((-BM7 lyd) re so fa re)) ***3beat*** (3(8pause 8 8) 4 8pause 8)
***4beat*** (2 8 8 4))
***((((CM7 ion) re mi re mi re do mi re do)) ***3beat***
(16 16 16 16 3(8pause 8pause 8) 16 16 16 16) ***4beat***
(4 16 16 16 16 3(8pause 8pause 8) 16pause 16 16 16))
***((((Gm7 dor) do +la) ((C7 alt) +la +so so +fa so)) ***3beat***
(16 16 8 3(8pause 8pause 8) 3(8 8 8)) ***4beat***
(3(8pause 8 8) 8 8 8 8 4))
***((((FM7 lyd) la so la mi so fa)) ***3beat***
(8pause 8 8pause 8 16 16 16 16) ***4beat***
(8.5 16 8.5 16 4 3(8pause 8pause 8)))
***((((-B7 lyd-7) so fa +so re mi fa mi re)) ***3beat***
(8 8 16 16 16 16 8.5 16) ***4beat***
(16 16 16 16 8pause 8 4 3(8pause 8 8)))
***((((CM7 ion) si re do la si)) ***3beat*** (4 8.5 16 3(8pause 8 8))
***4beat*** (4 4 8 8 4))
***((((-Gm7-5 loc) la) ((B7 hmp5) +re)) ***3beat*** (2 4) ***4beat***
(2 2))
***((((Em7 all) so re +fa so la so la so la si)) ***3beat***
(3(8 8 8) 16 16 16 16 16 16 8) ***4beat***
(4 16 16 16 16 4 16 16 16 16))
***((((B7 hmp5) do re +re do si re +re)) ***3beat***
(16 16 8 3(8 8 8) 8pause 8) ***4beat***
(3(8pause 8pause 8) 16 16 16 16 4 3(8pause 8pause 8)))
***((((Em7 all) la so re) ((B7 hmp5) so la so +fa re +re)) ***3beat***
(16 16 16 16 16 16 16 16 3(8pause 8pause 8)) ***4beat***
(16pause 16 16 16 16pause 16 16 16 3(8pause 8pause 8)
3(8pause 8 8)))
***((((Em7 all) +fa so +fa mi) ((A7 alt) fa mi so +do)) ***3beat***
(16 16 16 16 3(8pause 8pause 8) 16 16 8) ***4beat***
(16pause 16 16 16 8 8 8pause 8 8 8))
***((((Dm7 all) mi fa so fa)) ***3beat***
(3(8pause 8 8) 8pause 8 3(8pause 8pause 8)) ***4beat*** (4 8 8 2))
***((((A7 hmp5) +la do +do so +do so do +la la fa mi)) ***3beat***
(8 16 16 16 16 16 16 16 16 16 16) ***4beat***
(16 16 16 16 16 16 16 16 3(8pause 8 8) 3(8pause 8pause 8)))
***((((Dm7 all) do do fa) ((A7 hmp5) +do do +do +do)) ***3beat***
(8 8 16 16 16 16 4) ***4beat*** (8 8 4 3(8pause 8 8) 3(8pause 8 8)))
***((((Dm7 all) so fa) ((G7 alt) fa +la +so so)) ***3beat***
(8 8 3(8pause 8pause 8) 3(8 8 8)) ***4beat*** (4 3(8 8 8) 4 4))
***((((CM7 ion) mi mi re mi la so re do si)) ***3beat***
(16 16 16 16 16 16 16 16 4) ***4beat***
(3(8pause 8 8) 16 16 16 16 3(8pause 8pause 8) 8 8))
***((((-BM7 lyd) mi re mi re so la do +la re do +la)) ***3beat***
(16 16 16 16 16 16 8 16 16 16 16) ***4beat***
(16 16 16 16 16 16 16 16 3(8pause 8 8) 8pause 8))
***((((CM7 ion) mi mi re do)) ***3beat***
(3(8pause 8pause 8) 3(8pause 8 8) 4) ***4beat*** (4 4.5 4 8))
***((((Gm7 dor) +la) ((C7 alt) +do do +la +la)) ***3beat***
(3(8pause 8pause 8) 4 3(8 8 8)) ***4beat*** (8 8 4 4 4))
***((((FM7 lyd) so fa re do mi si la so fa)) ***3beat***
(16 16 16 16 8 8 8 16 16) ***4beat***
(3(8 8 8) 8.5 16 16pause 16 16 16 4))
***((((-B7 lyd-7) so +so mi fa re re re)) ***3beat***
(4 3(8pause 8 8) 16 16 16 16) ***4beat***
(3(8pause 8pause 8) 8.5 16 8pause 8 3(8 8 8)))
***((((CM7 ion) mi la si re do la si)) ***3beat***
(3(8 8 8) 3(8 8 8) 4) ***4beat*** (8 8 3(8pause 8 8) 4 8 8))
***((((-BM7 lyd) la mi re la re mi fa)) ***3beat***
(4 3(8pause 8 8) 16 16 16 16) ***4beat***
(4 3(8pause 8pause 8) 16 16 16 16 4))
***((((CM7 ion) la so)) ***3beat*** (2 4) ***4beat*** (2.5 4))
***((((-BM7 lyd) mi re la do +la la)) ***3beat***
(3(8pause 8pause 8) 3(8pause 8pause 8) 16 16 16 16) ***4beat***
(3(8pause 8pause 8) 16pause 16 16 16 4 4))
***((((CM7 ion) si mi re do)) ***3beat*** (4 4 8.5 16) ***4beat***
(8 8 2 4))
***((((-BM7 lyd) do +la re do re do re do re mi fa)) ***3beat***
(16 16 16 16 16 16 8 16 16 16 16) ***4beat***
(16 16 16 16 8 16 16 8 8 3(8pause 8 8)))
***((((CM7 ion) la si la so)) ***3beat*** (4 3(8pause 8 8) 8pause 8)
***4beat*** (4 4 4 4))
***((((CM7 ion) si si re do la si si la so)) ***3beat***
(16 16 16 16 16 16 16 16 8pause 8) ***4beat***
(8.5 16 16 16 16 16 4 3(8pause 8 8)))
***((((-BM7 lyd) la so la mi fa so la)) ***3beat***
(16 16 16 16 4 8.5 16) ***4beat***
(16pause 16 16 16 8 8 4 8pause 8))
***((((-BM7 lyd) mi fa so la so fa do re)) ***3beat***
(8 8 8 16 16 8 16 16) ***4beat*** (8.5 16 4 4 16 16 16 16))
***((((AM7 ion) +do +do +so si la)) ***3beat*** (3(8 8 8) 4 4)
***4beat*** (4 4 3(8pause 8pause 8) 8 8))
***((((AM7 ion) +so si +do +so si +do)) ***3beat***
(16 16 16 16 4 3(8pause 8pause 8)) ***4beat***
(8.5 16 4 8.5 16 8pause 8))
***((((AM7 ion) +fa mi +so +so +fa mi si la +do)) ***3beat***
(3(8 8 8) 3(8 8 8) 3(8 8 8)) ***4beat*** (16 16 16 16 3(8 8 8) 4 4))
***((((AM7 ion) si la +so si la +so)) ***3beat*** (16 16 8 8.5 16 4)
***4beat*** (8 8 3(8pause 8 8) 8pause 8 4))




************************************************************************************************************************
***music19***
(auto-comp2-third *w3*)--->

Enter an integer!
805

********** Dindi ************
The original key is F.
Enter a key.C

********* The key is C. **********
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) la)) ***3beat*** (2.5) ***4beat*** (1))
***((((CM7 ion) la so)) ***3beat*** (2 4) ***4beat*** (2.5 4))
***((((Gm7 dor) fa) ((C7 alt) mi +so so)) ***3beat***
(4 3(8pause 8 8) 4) ***4beat*** (2 8 8 4))
***((((FM7 lyd) so la)) ***3beat*** (4 2) ***4beat*** (2.5 4))
***((((-B7 lyd-7) do re +so mi fa)) ***3beat*** (4 8 8 3(8pause 8 8))
***4beat*** (4 8.5 16 4 4))
***((((CM7 ion) si)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) so la mi re)) ***3beat*** (4 8.5 16 8pause 8)
***4beat*** (4 8 8 2))
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) re)) ***3beat*** (2.5) ***4beat*** (1))
***((((CM7 ion) si)) ***3beat*** (2.5) ***4beat*** (1))
***((((Gm7 dor) fa do re) ((C7 alt) +do +re mi)) ***3beat***
(8 8 4 16 16 8) ***4beat***
(16pause 16 16 16 4 3(8pause 8pause 8) 4))
***((((FM7 lyd) la)) ***3beat*** (2.5) ***4beat*** (1))
***((((-B7 lyd-7) do +la mi fa mi fa)) ***3beat*** (16 16 16 16 4 4)
***4beat*** (8pause 8 4 3(8 8 8) 3(8pause 8pause 8)))
***((((CM7 ion) la so la so re mi)) ***3beat*** (4 4 16 16 16 16)
***4beat*** (3(8pause 8 8) 4 4 8.5 16))
***((((-Gm7-5 loc) re do la) ((B7 hmp5) so la la)) ***3beat***
(4 8pause 8 16 16 16 16) ***4beat*** (4 4 4 16pause 16 16 16))
***((((Em7 all) re la so)) ***3beat*** (2 8 8) ***4beat*** (2.5 8 8))
***((((B7 hmp5) la so la la)) ***3beat*** (8 8 4 3(8pause 8pause 8))
***4beat*** (4 2 8 8))
***((((Em7 all) +fa so re) ((B7 hmp5) +re so la)) ***3beat***
(16 16 16 16 4 8pause 8) ***4beat*** (4 3(8pause 8 8) 4 8.5 16))
***((((Em7 all) +fa so so) ((A7 alt) fa mi)) ***3beat*** (4 8 16 16 4)
***4beat*** (3(8pause 8pause 8) 4 8.5 16 4))
***((((Dm7 all) so fa so fa)) ***3beat*** (4 3(8pause 8 8) 4)
***4beat*** (4 2 8 8))
***((((A7 hmp5) do +la la)) ***3beat*** (8 8 2) ***4beat*** (4.5 8 2))
***((((Dm7 all) so la so la) ((A7 hmp5) +do do +la la)) ***3beat***
(8 16 16 16 16 16 16 8pause 8) ***4beat***
(3(8 8 8) 3(8 8 8) 4 3(8pause 8pause 8)))
***((((Dm7 all) fa) ((G7 alt) fa fa)) ***3beat*** (8 8 2) ***4beat***
(2 4 4))
***((((CM7 ion) si mi)) ***3beat*** (4 2) ***4beat*** (2.5 4))
***((((-BM7 lyd) re)) ***3beat*** (2.5) ***4beat*** (1))
***((((CM7 ion) si la so la si)) ***3beat*** (8 16 16 4 4) ***4beat***
(3(8pause 8pause 8) 8.5 16 8pause 8 4))
***((((Gm7 dor) la +la do re) ((C7 alt) mi)) ***3beat*** (8 8 4 8.5 16)
***4beat*** (4 8 8 8pause 8 4))
***((((FM7 lyd) la la)) ***3beat*** (2 4) ***4beat*** (4 2.5))
***((((-B7 lyd-7) mi re re do +la)) ***3beat*** (4 16 16 8 4)
***4beat*** (4 8 8 4 4))
***((((CM7 ion) si)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) do +la re)) ***3beat*** (4.5 8 4) ***4beat***
(2.5 8 8))
***((((CM7 ion) re mi la so re do)) ***3beat*** (8pause 8 8 8 8 16 16)
***4beat*** (4 8 8 8 8 4))
***((((-BM7 lyd) so la do +la mi re)) ***3beat***
(4 16 16 8 3(8pause 8 8)) ***4beat*** (4 4 3(8 8 8) 4))
***((((CM7 ion) re do mi)) ***3beat*** (4 4 4) ***4beat*** (2 4.5 8))
***((((-BM7 lyd) re mi fa mi re)) ***3beat*** (4 8pause 8 8 16 16)
***4beat*** (8 8 3(8pause 8pause 8) 8pause 8 4))
***((((CM7 ion) mi la si)) ***3beat*** (2 8 8) ***4beat*** (8 8 2.5))
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) do +la do +la)) ***3beat*** (4 8 8 4) ***4beat***
(4.5 8 4 4))
***((((-BM7 lyd) la)) ***3beat*** (2.5) ***4beat*** (1))
***((((AM7 ion) +so +do si la)) ***3beat***
(3(8pause 8pause 8) 8 8 8pause 8) ***4beat*** (4 4 4 4))
***((((AM7 ion) +so)) ***3beat*** (2.5) ***4beat*** (1))
***((((AM7 ion) +fa +so si la)) ***3beat*** (4 4 8.5 16) ***4beat***
(4.5 8 4 4))
***((((AM7 ion) +so si +do si la)) ***3beat*** (8 8 3(8pause 8 8) 4)
***4beat*** (4 8.5 16 4 4))
nil


***** ファイル25：music20 *****


(sharp-till-chord-tone-2 're '("CM7" ion))--->(re +re mi)

(flat-till-chord-tone-2 're '("CM7" ion))--->(re +do do)

(generate-a-phrase-aux-2 '("CM7" ion))--->((la +la si) mi mi (re do) si si (la +so so) mi)




(make-phrases-2 '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))--->

*********** On (CM7 ion A7 hmp5) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la +la si re +do do mi)
(la si si re +do do si mi)
(si si mi)
(la so re +re mi la +so so mi re do)
(la +so so si)
*********** On (CM7 ion A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(+la si do +do do +la la fa mi +la do +do so)
(+la la)
(do +do do +la la do +la la +do fa mi)
(do +la la so fa +fa so +do +la la do +la la)
(so so fa so +do +la la)
*********** On (Dm7 dor G7 alt) ************
*********** On (Dm7 dor) ************
Chord Scale: (re mi fa so la si do re)
(do do fa do mi re mi re)
(do do so +fa fa fa)
(do so +so la mi re fa mi fa so +so la)
(mi fa mi fa so fa so +fa fa do mi +re re)
(fa fa do)
*********** On (Dm7 dor G7 alt) ************
*********** On (G7 alt) ************
Chord Scale: (so +so +la si +do +re fa so)
(+la si +do re)
(si fa +so so)
(+so la +la si +la la +so so fa +so so +so so)
(fa +do re fa si +re re +so la +la si)
(fa +la la +so so +do si +do re +do re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la +la si mi mi mi)
(re +do do re +re mi re +re mi mi si la so)
(si mi)
(si si)
(mi mi re mi)



(auto-comp3 *w3*) etc.

(auto-comp3-2 *w3*)

(auto-comp3-3 *w3*)

************************************************************************************************************************
***music20***
(auto-comp3 *w3*)

Enter an integer!
408

********** Dindi ************
The original key is F.
Enter a key.C

********* The key is C. **********
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(si)
(si re do)
(mi)
(mi la si mi re do)
(la so)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(re la do +la)
(re re la do +do re)
(do +la so +fa fa la so +so la)
(so fa)
(mi +re re re re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la so re mi re +re mi re do)
(la si)
(re +do do)
(re mi re do si)
(si si re do)
*********** On (Gm7 dor C7 alt) ************
*********** On (Gm7 dor) ************
Chord Scale: (so la +la do re mi fa so)
(+la)
(do +la)
(la +la)
(do +do re fa la so do re)
(+la +la la +la)
*********** On (Gm7 dor C7 alt) ************
*********** On (C7 alt) ************
Chord Scale: (do -re -mi mi -so -la -si do)
(+re +do do)
(+fa so mi +la)
(mi +so so +do do +la)
(+so so mi +re mi +fa so)
(+re mi)
*********** On (FM7 lyd) ************
*********** On (FM7 lyd) ************
Chord Scale: (fa so la si do re mi fa)
(so +so la si la)
(la si la)
(re mi si do re +re mi)
(mi)
(re do)
*********** On (-B7 lyd-7) ************
*********** On (-B7 lyd-7) ************
Chord Scale: (-si do re mi fa so -la -si)
(re)
(+so +so +so do si +la)
(do +do re )
(+so +so so +so +so)
(do re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi mi)
(mi mi si mi)
(mi re +do do re +do do)
(re +re mi)
(si mi la si la so)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(mi +re re so la)
(re mi +re re so fa)
(so la so fa la re)
(so fa do +do re so la re)
(la do +do re re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi mi mi re do)
(mi la si si la +so so)
(si si)
(si re +do do)
(la so re mi mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(re la)
(so la so +fa fa)
(mi +re re mi +re re)
(so fa do si +la)
(so fa so +fa fa la la)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la si si re mi)
(la +la si la so)
(si re do)
(la si re +re mi re +re mi mi)
(mi mi)
*********** On (Gm7 dor C7 alt) ************
*********** On (Gm7 dor) ************
Chord Scale: (so la +la do re mi fa so)
(la +la)
(+la)
(+la)
(do +do re +la la +la)
(la +la +la)
*********** On (Gm7 dor C7 alt) ************
*********** On (C7 alt) ************
Chord Scale: (do -re -mi mi -so -la -si do)
(+do re +re mi +so la +la +la)
(mi)
(+re +do do +so so mi)
(+fa so +do re +re mi)
(+do +re mi +fa so +la)
*********** On (FM7 lyd) ************
*********** On (FM7 lyd) ************
Chord Scale: (fa so la si do re mi fa)
(mi si do)
(si +la la so +so la re +do do)
(la so fa)
(re +do do si do si do)
(mi so +so la)
*********** On (-B7 lyd-7) ************
*********** On (-B7 lyd-7) ************
Chord Scale: (-si do re mi fa so -la -si)
(mi +re re re)
(+so do +la)
(+so mi fa)
(+so)
(re do re so +so +so)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la si si la +la si)
(la si mi la si re +re mi)
(la +la si re +do do)
(mi mi mi si)
(la si)
*********** On (-Gm7-5 loc B7 hmp5) ************
*********** On (-Gm7-5 loc) ************
Chord Scale: (-so so la si do re mi -so)
(re do si la)
(la re mi)
(mi)
(re mi la si la mi)
(la mi mi)
*********** On (-Gm7-5 loc B7 hmp5) ************
*********** On (B7 hmp5) ************
Chord Scale: (si do re +re mi +fa so la si)
(la +re so +so la +re)
(+re +re)
(re +do do si)
(so +fa la la +re)
(so +so la +re)
*********** On (Em7 all) ************
*********** On (Em7 all) ************
Chord Scale: (mi +fa so la si do +do re +re mi)
(la so la si re so)
(+fa so)
(+fa so re so +fa fa mi)
(so re re +fa so)
(so +fa mi so so)
*********** On (B7 hmp5) ************
*********** On (B7 hmp5) ************
Chord Scale: (si do re +re mi +fa so la si)
(la so la)
(la do re +re do si do +do re +re)
(so +fa)
(do si so la la do re +re)
(re +re la re +do do si do +do re +re)
*********** On (Em7 all B7 hmp5) ************
*********** On (Em7 all) ************
Chord Scale: (mi +fa so la si do +do re +re mi)
(la +so so)
(so re)
(la +la si +fa fa mi la +so so +fa so)
(so)
(+fa mi)
*********** On (Em7 all B7 hmp5) ************
*********** On (B7 hmp5) ************
Chord Scale: (si do re +re mi +fa so la si)
(do si do re +re la)
(+re +re so +so la re +do do si)
(+re so +fa do re +re)
(re +re re +re +re do +do re +re)
(so +fa la so +fa +re)
*********** On (Em7 all A7 alt) ************
*********** On (Em7 all) ************
Chord Scale: (mi +fa so la si do +do re +re mi)
(re so +fa mi re)
(so la so so)
(la si la si)
(la so +fa fa mi so)
(la +la si)
*********** On (Em7 all A7 alt) ************
*********** On (A7 alt) ************
Chord Scale: (la +la do +do +re fa so la)
(so)
(so)
(do +do fa so)
(fa so)
(+la do +do +do)
*********** On (Dm7 all) ************
*********** On (Dm7 all) ************
Chord Scale: (re mi fa so la +la si do +do re)
(so +fa fa fa fa)
(mi fa mi re fa)
(fa do so +fa fa do)
(mi +re re fa do so fa)
(do do fa do)
*********** On (A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(fa mi fa +fa so)
(+la la +la la do +do fa mi)
(do si +la la fa so so do +do)
(+la si do +do do +la la fa so fa +fa so)
(+la si do +do)
*********** On (Dm7 all A7 hmp5) ************
*********** On (Dm7 all) ************
Chord Scale: (re mi fa so la +la si do +do re)
(mi re)
(mi +re re)
(do so +fa fa so +fa fa)
(fa so fa so fa fa)
(do)
*********** On (Dm7 all A7 hmp5) ************
*********** On (A7 hmp5) ************
Chord Scale: (la +la do +do re mi fa so la)
(fa so so fa mi do si +la la)
(+do do +do do +la la +do)
(+la la +la la +do fa mi)
(+la la)
(+la do +do +la la +la la +do)
*********** On (Dm7 all G7 alt) ************
*********** On (Dm7 all) ************
Chord Scale: (re mi fa so la +la si do +do re)
(mi re)
(do fa mi +re re)
(fa do)
(mi re mi fa so +fa fa do)
(do mi fa mi fa)
*********** On (Dm7 all G7 alt) ************
*********** On (G7 alt) ************
Chord Scale: (so +so +la si +do +re fa so)
(+re fa +re mi fa fa)
(+re re si fa)
(+do re +la la +so so +la si fa)
(+do si)
(+la +so so)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi si si)
(la so si)
(re mi)
(si)
(la +la si mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(do re so fa re mi fa)
(la do +do re)
(re mi fa re)
(la la so fa re)
(la so +so la so fa)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(si)
(la +so so si)
(la so mi si)
(la si mi re do)
(si la so)
*********** On (Gm7 dor C7 alt) ************
*********** On (Gm7 dor) ************
Chord Scale: (so la +la do re mi fa so)
(fa la +so so)
(la so fa)
(+la la +so so +la do re)
(+la la +so so)
(fa)
*********** On (Gm7 dor C7 alt) ************
*********** On (C7 alt) ************
Chord Scale: (do -re -mi mi -so -la -si do)
(+fa so +so la +la +fa so)
(+la +la +la)
(mi +la +so so +so so)
(+re re +do do)
(+do re +re mi mi +fa mi +do do)
*********** On (FM7 lyd) ************
*********** On (FM7 lyd) ************
Chord Scale: (fa so la si do re mi fa)
(mi)
(re +re mi mi si +la la)
(si do)
(si do la so la mi)
(so la mi si la)
*********** On (-B7 lyd-7) ************
*********** On (-B7 lyd-7) ************
Chord Scale: (-si do re mi fa so -la -si)
(mi +re re +so so +so re)
(do si +la mi fa)
(re re do re)
(mi fa re do +la)
(+so re)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(mi si)
(re mi la si si la so)
(si)
(si)
(la +la si re do mi mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(so +so la do re)
(re mi +re re la do +do re)
(mi +re re re)
(so fa so +so la)
(la)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la +la si mi)
(re do la +la si)
(re do si mi mi)
(mi si mi la +la si)
(la so mi la so)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(do re la do re so fa)
(so la do si +la)
(do re mi +re re mi fa la)
(so la re so +so la)
(so +so la so la)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(la +so so re +do do)
(mi)
(re +do do mi)
(la +la si)
(la so mi)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(la)
(mi fa do +la mi +re re re)
(so +so la re)
(re la)
(mi fa)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(si)
(la so mi re do la +so so)
(mi la +so so)
(si mi)
(la si)
*********** On (CM7 ion) ************
*********** On (CM7 ion) ************
Chord Scale: (do re mi fa so la si do)
(si si)
(la so mi mi la +la si)
(la si la +la si la +la si mi)
(mi re mi la +la si si)
(la si re mi re mi si)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(so la mi +re re)
(do +do re )
(so la mi re)
(do +do re re mi +re re re)
(re mi +re re re)
*********** On (-BM7 lyd) ************
*********** On (-BM7 lyd) ************
Chord Scale: (-si do re mi fa so la -si)
(so fa so +so la re)
(so la so fa)
(mi +re re do si +la)
(re)
(la)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(+fa fa mi +fa mi si do +do)
(+do +do)
(si do +do +so +do +fa +so)
(+so)
(+so +fa +so)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(+do si la +fa fa mi +fa fa mi)
(+do +so)
(+do +fa +so +do)
(si +la la si +do)
(+so si do +do +do si la)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(si do +do +so)
(+fa fa mi +do +do +do)
(+so +fa +so)
(si +la la)
(+do)
*********** On (AM7 ion) ************
*********** On (AM7 ion) ************
Chord Scale: (la si +do re mi +fa +so la)
(+so)
(+fa mi +so +fa fa mi)
(+so)
(+do)
(+fa so +so +so +so)



*************************************************************************************************************************
***music20***
(auto-comp3-2 *w3*)

Enter an integer!
907

********** Dindi ************
The original key is F.
Enter a key.C

********* The key is C. **********
***((((CM7 ion) mi si mi mi)) ***3beat*** (8.5 16 4 4) ***4beat***
(2 4 8 8))
***((((-BM7 lyd) do +la)) ***3beat*** (4 2) ***4beat*** (4 2.5))
***((((CM7 ion) si si mi)) ***3beat*** (8 8 2) ***4beat*** (4.5 8 2))
***((((Gm7 dor) fa +la +la) ((C7 alt) +do do +re mi +do do))
***3beat*** (16 16 16 16 16 16 16 16 3(8pause 8pause 8))
***4beat*** (16 16 16 16 8 8 8pause 8 3(8pause 8 8)))
***((((FM7 lyd) so fa so +so la la)) ***3beat***
(3(8pause 8pause 8) 16 16 16 16 8pause 8) ***4beat*** (4 4 8 8 8 8))
***((((-B7 lyd-7) mi fa mi +re re +so)) ***3beat***
(4 3(8 8 8) 3(8pause 8 8)) ***4beat*** (8 16 16 8pause 8 4 4))
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) re la do +do re)) ***3beat*** (4 3(8 8 8) 8pause 8)
***4beat*** (8pause 8 8 8 4 8pause 8))
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) la so fa so fa)) ***3beat*** (16 16 8 4 4) ***4beat***
(8.5 16 4 4 4))
***((((CM7 ion) mi mi la +so so)) ***3beat*** (3(8pause 8 8) 8.5 16 4)
***4beat*** (3(8pause 8 8) 4 4 4))
***((((Gm7 dor) fa) ((C7 alt) mi +do do +la)) ***3beat***
(8pause 8 4 8 16 16) ***4beat*** (4 8pause 8 8.5 16 4))
***((((FM7 lyd) so la si +la la re mi)) ***3beat*** (16 16 16 16 8 8 4)
***4beat***
(3(8pause 8pause 8) 3(8pause 8pause 8) 8pause 8 16 16 16 16))
***((((-B7 lyd-7) mi fa +so do +la re)) ***3beat***
(8.5 16 8 16 16 3(8pause 8pause 8)) ***4beat***
(3(8pause 8 8) 3(8pause 8pause 8) 4 8 8))
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((-Gm7-5 loc) mi mi re do) ((B7 hmp5) la)) ***3beat***
(8.5 16 4 8.5 16) ***4beat*** (4 4 4 8 8))
***((((Em7 all) so re)) ***3beat*** (2 4) ***4beat*** (4 2.5))
***((((B7 hmp5) re +re +re +re +re)) ***3beat*** (8 16 16 4 4)
***4beat*** (4 4 8pause 8 3(8pause 8 8)))
***((((Em7 all) so so re) ((B7 hmp5) la)) ***3beat*** (8pause 8 8 8 4)
***4beat*** (4 8 8 2))
***((((Em7 all) re so so) ((A7 alt) fa so so fa so)) ***3beat***
(8 16 16 4 16 16 16 16) ***4beat***
(8 8 3(8 8 8) 3(8pause 8 8) 3(8pause 8pause 8)))
***((((Dm7 all) do)) ***3beat*** (2.5) ***4beat*** (1))
***((((A7 hmp5) so +la la)) ***3beat*** (4 4.5 8) ***4beat*** (2.5 8 8))
***((((Dm7 all) fa do) ((A7 hmp5) fa so)) ***3beat*** (4 8 8 8pause 8)
***4beat*** (4 4.5 4 8))
***((((Dm7 all) do) ((G7 alt) +do re si)) ***3beat***
(4 3(8pause 8pause 8) 3(8pause 8 8)) ***4beat*** (4.5 8 4 4))
***((((CM7 ion) re do la si)) ***3beat***
(3(8pause 8 8) 3(8pause 8pause 8) 4) ***4beat*** (4 4 4.5 8))
***((((-BM7 lyd) mi +re re)) ***3beat*** (4 4.5 8) ***4beat*** (4 2 4))
***((((CM7 ion) mi)) ***3beat*** (2.5) ***4beat*** (1))
***((((Gm7 dor) +la do re) ((C7 alt) +do +re mi +do do +so so))
***3beat*** (16 16 16 16 16 16 16 16 3(8pause 8 8)) ***4beat***
(4 16 16 16 16 3(8 8 8) 8 8))
***((((FM7 lyd) la)) ***3beat*** (2.5) ***4beat*** (1))
***((((-B7 lyd-7) so +so re)) ***3beat*** (4.5 8 4) ***4beat***
(2.5 8 8))
***((((CM7 ion) mi mi mi)) ***3beat*** (8 8 2) ***4beat*** (2.5 8 8))
***((((-BM7 lyd) so +so la mi re)) ***3beat***
(3(8pause 8pause 8) 4 16 16 8) ***4beat***
(3(8pause 8pause 8) 3(8pause 8 8) 8pause 8 3(8pause 8pause 8)))
***((((CM7 ion) la +la si si)) ***3beat*** (3(8pause 8 8) 4 8pause 8)
***4beat*** (4 8 8 2))
***((((-BM7 lyd) re re mi fa)) ***3beat***
(8.5 16 3(8pause 8pause 8) 3(8pause 8pause 8)) ***4beat***
(2 4 8 8))
***((((CM7 ion) la +la si mi la so mi)) ***3beat***
(16 16 8 8pause 8 16 16 8) ***4beat***
(8pause 8 3(8pause 8pause 8) 16 16 16 16 3(8pause 8pause 8)))
***((((-BM7 lyd) re)) ***3beat*** (2.5) ***4beat*** (1))
***((((CM7 ion) si re mi mi la +la si)) ***3beat***
(3(8pause 8 8) 8.5 16 16 16 8) ***4beat*** (3(8 8 8) 4 8.5 16 4))
***((((CM7 ion) la +la si si mi la +so so)) ***3beat***
(3(8pause 8 8) 8 8 16 16 16 16) ***4beat***
(8.5 16 16 16 16 16 4 4))
***((((-BM7 lyd) mi re la)) ***3beat*** (4.5 8 4) ***4beat*** (2 4.5 8))
***((((-BM7 lyd) mi fa)) ***3beat*** (2 4) ***4beat*** (2 2))
***((((AM7 ion) si la)) ***3beat*** (2 4) ***4beat*** (4 2.5))
***((((AM7 ion) +fa mi si do +do +fa fa mi +fa +so)) ***3beat***
(3(8 8 8) 8 16 16 16 16 16 16) ***4beat***
(16pause 16 16 16 16pause 16 16 16 8pause 8 16pause 16 16 16))
***((((AM7 ion) +do +do +do +do)) ***3beat*** (4 8.5 16 4) ***4beat***
(2 8 8 4))
***((((AM7 ion) +so si do +do +do +do)) ***3beat***
(4 16 16 16 16 8pause 8) ***4beat*** (4 4 16pause 16 16 16 4))



************************************************************************************************************************
***music20***
(auto-comp3-3 *w3*)

Enter an integer!
300

********** Dindi ************
The original key is F.
Enter a key.C

********* The key is C. **********
***((((CM7 ion) la so mi)) ***3beat*** (4 4 4) ***4beat*** (8 8 2.5))
***((((-BM7 lyd) so fa do +la mi fa)) ***3beat*** (16 16 16 16 4 4)
***4beat*** (4 4 16pause 16 16 16 4))
***((((CM7 ion) si)) ***3beat*** (2.5) ***4beat*** (1))
***((((Gm7 dor) do re fa) ((C7 alt) +so so)) ***3beat***
(4 3(8pause 8pause 8) 3(8 8 8)) ***4beat***
(8pause 8 3(8pause 8pause 8) 8pause 8 8 8))
***((((FM7 lyd) re mi)) ***3beat*** (4 2) ***4beat*** (2 2))
***((((-B7 lyd-7) mi re +so)) ***3beat*** (4.5 8 4) ***4beat***
(4.5 8 2))
***((((CM7 ion) la so si si)) ***3beat*** (4 8 8 4) ***4beat***
(2 8 8 4))
***((((-BM7 lyd) do +la la)) ***3beat*** (4.5 8 4) ***4beat*** (2 4 4))
***((((CM7 ion) si re mi mi)) ***3beat*** (8 8 4 3(8pause 8pause 8))
***4beat*** (4 4 4 4))
***((((-BM7 lyd) mi re re do +la)) ***3beat*** (4 16 16 8 8pause 8)
***4beat*** (4 4 8pause 8 8 8))
***((((CM7 ion) si)) ***3beat*** (2.5) ***4beat*** (1))
***((((Gm7 dor) do re) ((C7 alt) +fa mi +la)) ***3beat***
(8pause 8 8.5 16 3(8pause 8 8)) ***4beat***
(8pause 8 4 8 8 8pause 8))
***((((FM7 lyd) mi la)) ***3beat*** (4 2) ***4beat*** (4 2.5))
***((((-B7 lyd-7) re)) ***3beat*** (2.5) ***4beat*** (1))
***((((CM7 ion) la so)) ***3beat*** (2 4) ***4beat*** (2 2))
***((((-Gm7-5 loc) re mi) ((B7 hmp5) so +fa do si)) ***3beat***
(16 16 8 4 3(8pause 8 8)) ***4beat*** (16pause 16 16 16 4 4 4))
***((((Em7 all) la so la so re)) ***3beat*** (4 3(8 8 8) 4) ***4beat***
(8.5 16 4 4 3(8pause 8pause 8)))
***((((B7 hmp5) do re +re la do si)) ***3beat***
(8pause 8 4 16 16 16 16) ***4beat*** (4 4 4 3(8 8 8)))
***((((Em7 all) re so) ((B7 hmp5) +re so la)) ***3beat***
(4 4 3(8 8 8)) ***4beat*** (4 4 8 8 8pause 8))
***((((Em7 all) re +fa so) ((A7 alt) +do +re mi)) ***3beat***
(3(8pause 8pause 8) 16 16 16 16 4) ***4beat*** (8 16 16 4 4 4))
***((((Dm7 all) fa do so fa)) ***3beat***
(8pause 8 3(8pause 8 8) 3(8pause 8pause 8)) ***4beat*** (8 8 2 4))
***((((A7 hmp5) +la la so)) ***3beat*** (4 4.5 8) ***4beat*** (2.5 8 8))
***((((Dm7 all) so fa so la) ((A7 hmp5) +do +la do +do)) ***3beat***
(8.5 16 16 16 8 3(8 8 8)) ***4beat***
(8 16 16 8.5 16 4 3(8pause 8 8)))
***((((Dm7 all) do) ((G7 alt) +do re +do re)) ***3beat*** (16 16 8 4 4)
***4beat*** (8 8 4 4 4))
***((((CM7 ion) si la so si)) ***3beat*** (4 8.5 16 4) ***4beat***
(4 8 8 2))
***((((-BM7 lyd) re do +la la)) ***3beat*** (4 8pause 8 3(8pause 8 8))
***4beat*** (4 8 8 2))
***((((CM7 ion) la si re mi)) ***3beat*** (8 8 4 4) ***4beat***
(2 8 8 4))
***((((Gm7 dor) +la) ((C7 alt) +do do +so so)) ***3beat***
(4 8.5 16 8.5 16) ***4beat*** (4 4 8.5 16 4))
***((((FM7 lyd) so fa)) ***3beat*** (4 2) ***4beat*** (4 2.5))
***((((-B7 lyd-7) re)) ***3beat*** (2.5) ***4beat*** (1))
***((((CM7 ion) si la so)) ***3beat*** (4 4 4) ***4beat*** (4 4 2))
***((((-BM7 lyd) re la re)) ***3beat*** (4 4 4) ***4beat*** (2 4.5 8))
***((((CM7 ion) si)) ***3beat*** (2.5) ***4beat*** (1))
***((((-BM7 lyd) la re)) ***3beat*** (2 4) ***4beat*** (2 2))
***((((CM7 ion) re mi re do)) ***3beat*** (4 4 3(8pause 8 8))
***4beat*** (4 4 4.5 8))
***((((-BM7 lyd) do re)) ***3beat*** (2 4) ***4beat*** (2.5 4))
***((((CM7 ion) mi re do)) ***3beat*** (4 4 4) ***4beat*** (4 2 4))
***((((CM7 ion) re do)) ***3beat*** (2 4) ***4beat*** (2 2))
***((((-BM7 lyd) re so la so fa)) ***3beat***
(8.5 16 8.5 16 3(8pause 8pause 8)) ***4beat*** (4 4 8 8 4))
***((((-BM7 lyd) so fa)) ***3beat*** (4 2) ***4beat*** (2.5 4))
***((((AM7 ion) +so +do +so)) ***3beat*** (2 8 8) ***4beat*** (2.5 8 8))
***((((AM7 ion) +do +do)) ***3beat*** (2 4) ***4beat*** (4 2.5))
***((((AM7 ion) si +do +fa mi +so)) ***3beat*** (8 8 8 8 4) ***4beat***
(3(8pause 8pause 8) 3(8pause 8 8) 4 4))
***((((AM7 ion) si la)) ***3beat*** (4 2) ***4beat*** (4 2.5))


***** ファイル26：music21 *****


(make-a-phrase-1-2 '("CM7" ion "Em7" phr))--->(("CM7" ion) si ("Em7" phr) so re do)

(make-a-phrase-2-2 '("CM7" ion "Em7" phr))--->(("CM7" ion) re do re ("Em7" phr) do)

(make-a-phrase-for-waltz '("CM7" ion "Em7" phr))--->
(***ex1*** ((("CM7" ion) si la ("Em7" phr) re so) (3beat (8.5 16 4 4))) ***ex2***
((("CM7" ion) si ("Em7" phr) la si) (3beat (4 4 4))))

(make-phrases-for-waltz '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))--->
;;;
;;;*********** (CM7 ion A7 hmp5) *************
;;;(***ex1*** (((CM7 ion) mi re (A7 hmp5) do do) (3beat (4 8.5 16 4))) ***ex2***
;;; (((CM7 ion) si mi mi (A7 hmp5) fa mi do) (3beat (8.5 16 3(8 8 8) 4))))
;;;*********** (Dm7 dor G7 alt) *************
;;;(***ex1*** (((Dm7 dor) fa fa so (G7 alt) si) (3beat (8 8 4 4))) ***ex2***
;;; (((Dm7 dor) so (G7 alt) do) (3beat (4 2))))
;;;*********** (CM7 ion) *************
;;;(***ex1*** (((CM7 ion) mi mi re do) (3beat (4 8pause 8 8.5 16))) ***ex2***
;;; (((CM7 ion) si si la +la si) (3beat (8.5 16 4 3(8pause 8 8)))))



(make-waltz *w3*)

(make-waltz-2 *w3*)


************************************************************************************************************************
***music21***
(make-waltz *w3*)--->

Enter an integer!
900

************ Dindi ************
The original key is F.
Enter a key.C

*********** The key is C. ***********
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi mi la) (3beat (8 8 4 4))) ***ex2***
(((CM7 ion) mi re +re) (3beat (4.5 8 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do re re do re) (3beat (4 8 16 16 4)))
***ex2***
(((-BM7 lyd) mi fa do re)
(3beat (3(8pause 8pause 8) 3(8pause 8 8) 8pause 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la) (3beat (2.5))) ***ex2***
(((CM7 ion) mi la si re) (3beat (4 8 8 8pause 8))))
*********** (Gm7 dor C7 alt) *************
(***ex1***
(((Gm7 dor) +la +la (C7 alt) +do do mi)
(3beat (8.5 16 3(8pause 8 8) 4)))
***ex2*** (((Gm7 dor) +la (C7 alt) +so so) (3beat (4 4.5 8))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) mi) (3beat (2.5))) ***ex2***
(((FM7 lyd) so) (3beat (2.5))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) +so re) (3beat (4 2))) ***ex2***
(((-B7 lyd-7) mi fa) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi) (3beat (4 2))) ***ex2***
(((CM7 ion) re +do do) (3beat (4.5 8 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do) (3beat (2.5))) ***ex2***
(((-BM7 lyd) re la so +fa fa) (3beat (8 16 16 8pause 8 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si mi re mi mi mi) (3beat (16 16 16 16 4 4)))
***ex2*** (((CM7 ion) si re) (3beat (2 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do +la so fa) (3beat (4 3(8pause 8 8) 4)))
***ex2*** (((-BM7 lyd) la la la) (3beat (4 4.5 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si si si) (3beat (8 8 4 4))) ***ex2***
(((CM7 ion) re) (3beat (2.5))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) la (C7 alt) +la +re +do) (3beat (8.5 16 4 4)))
***ex2*** (((Gm7 dor) la +so so (C7 alt) mi) (3beat (4 8 8 8pause 8))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) si la mi si la) (3beat (8.5 16 4 8 8)))
***ex2*** (((FM7 lyd) so +so la) (3beat (4.5 8 4))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) re) (3beat (2.5))) ***ex2***
(((-B7 lyd-7) so fa mi fa so fa)
(3beat (3(8pause 8pause 8) 4 16 16 16 16))))
*********** (CM7 ion) *************
(***ex1***
(((CM7 ion) mi mi re mi si si) (3beat (3(8pause 8 8) 3(8 8 8) 4)))
***ex2*** (((CM7 ion) re +do do) (3beat (2 8 8))))
*********** (-Gm7-5 loc B7 hmp5) *************
(***ex1*** (((-Gm7-5 loc) la (B7 hmp5) la so) (3beat (8 8 2)))
***ex2*** (((-Gm7-5 loc) re (B7 hmp5) la do) (3beat (8 8 2))))
*********** (Em7 all) *************
(***ex1***
(((Em7 all) re +fa so so re)
(3beat (3(8pause 8 8) 3(8pause 8 8) 8pause 8)))
***ex2*** (((Em7 all) re so la +so so +fa) (3beat (4 8 8 8 16 16))))
*********** (B7 hmp5) *************
(***ex1***
(((B7 hmp5) so +fa so +fa do re) (3beat (4 16 16 16 16 8pause 8)))
***ex2*** (((B7 hmp5) so la +re) (3beat (4.5 8 4))))
*********** (Em7 all B7 hmp5) *************
(***ex1*** (((Em7 all) la (B7 hmp5) do) (3beat (2 4))) ***ex2***
(((Em7 all) so la so (B7 hmp5) re) (3beat (4 4 8 8))))
*********** (Em7 all A7 alt) *************
(***ex1***
(((Em7 all) re re +fa (A7 alt) +do)
(3beat (8pause 8 3(8pause 8 8) 3(8pause 8pause 8))))
***ex2***
(((Em7 all) la so (A7 alt) +la la) (3beat (3(8pause 8 8) 4 4))))
*********** (Dm7 all) *************
(***ex1*** (((Dm7 all) do) (3beat (2.5))) ***ex2***
(((Dm7 all) do so la fa do) (3beat (4 3(8pause 8pause 8) 3(8 8 8)))))
*********** (A7 hmp5) *************
(***ex1*** (((A7 hmp5) do +la la) (3beat (4.5 8 4))) ***ex2***
(((A7 hmp5) +la si do +do fa) (3beat (16 16 8 4 4))))
*********** (Dm7 all A7 hmp5) *************
(***ex1***
(((Dm7 all) do mi re (A7 hmp5) +do so)
(3beat (4 3(8pause 8pause 8) 16 16 8)))
***ex2***
(((Dm7 all) fa so (A7 hmp5) do si +la) (3beat (3(8pause 8 8) 4 8 8))))
*********** (Dm7 all G7 alt) *************
(***ex1***
(((Dm7 all) fa so la (G7 alt) +so +la si) (3beat (8 16 16 8.5 16 4)))
***ex2***
(((Dm7 all) do (G7 alt) fa +re re)
(3beat (3(8pause 8pause 8) 4 3(8pause 8 8)))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi la si) (3beat (8pause 8 4 8 8))) ***ex2***
(((CM7 ion) mi la +so so re mi) (3beat (8 8 4 8 16 16))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la so) (3beat (4 2))) ***ex2***
(((-BM7 lyd) mi fa so) (3beat (2 8 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi mi) (3beat (4 2))) ***ex2***
(((CM7 ion) re +re mi mi) (3beat (3(8pause 8pause 8) 8 8 4))))
*********** (Gm7 dor C7 alt) *************
(***ex1***
(((Gm7 dor) la so (C7 alt) +la +so +la) (3beat (4 8 8 8.5 16)))
***ex2*** (((Gm7 dor) la +so (C7 alt) +la) (3beat (2 8 8))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) re mi re mi) (3beat (8 8 4 3(8pause 8pause 8))))
***ex2*** (((FM7 lyd) la so fa) (3beat (4 4.5 8))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) so fa +so do re so) (3beat (16 16 16 16 4 4)))
***ex2*** (((-B7 lyd-7) so fa) (3beat (2 4))))
*********** (CM7 ion) *************
(***ex1***
(((CM7 ion) la si la si si) (3beat (8pause 8 8.5 16 8.5 16)))
***ex2*** (((CM7 ion) mi) (3beat (2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) re) (3beat (2.5))) ***ex2***
(((-BM7 lyd) re mi) (3beat (2 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re) (3beat (2.5))) ***ex2***
(((CM7 ion) si) (3beat (2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la re re so la) (3beat (16 16 8 4 4)))
***ex2*** (((-BM7 lyd) so +fa fa) (3beat (4.5 8 4))))
*********** (CM7 ion) *************
(***ex1***
(((CM7 ion) mi re do si mi)
(3beat (3(8pause 8pause 8) 3(8pause 8pause 8) 8 16 16)))
***ex2*** (((CM7 ion) re do mi si) (3beat (4 4 8 8))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) mi re) (3beat (4 2))) ***ex2***
(((-BM7 lyd) la la so) (3beat (4.5 8 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si) (3beat (4 2))) ***ex2***
(((CM7 ion) la si) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si la si mi si) (3beat (8 8 4 8 8))) ***ex2***
(((CM7 ion) mi mi) (3beat (2 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la do +la so la) (3beat (8 8 4 8 8))) ***ex2***
(((-BM7 lyd) so) (3beat (2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la so) (3beat (2 4))) ***ex2***
(((-BM7 lyd) re re) (3beat (4 2))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +fa mi +fa) (3beat (4 4 4))) ***ex2***
(((AM7 ion) si do +do) (3beat (4.5 8 4))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +do +do) (3beat (4 2))) ***ex2***
(((AM7 ion) +do si +do) (3beat (4.5 8 4))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +do) (3beat (2.5))) ***ex2***
(((AM7 ion) +fa fa) (3beat (2 4))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +fa mi +do +fa +so +so) (3beat (4 8 8 8 16 16)))
***ex2*** (((AM7 ion) +do +fa +so) (3beat (4.5 8 4))))




************************************************************************************************************************
***music21***
(make-waltz-2 *w3*)

Enter an integer!
450

************ Dindi ************
The original key is F.
Enter a key.C

*********** The key is C. ***********
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si) (3beat (4 2))) ***ex2***
(((CM7 ion) la) (3beat (2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do re) (3beat (2 4))) ***ex2***
(((-BM7 lyd) mi fa) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi si) (3beat (8 8 2))) ***ex2***
(((CM7 ion) re) (3beat (2.5))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) do re (C7 alt) +la) (3beat (4 4.5 8))) ***ex2***
(((Gm7 dor) la +la (C7 alt) +so) (3beat (4.5 8 4))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) mi mi) (3beat (4 2))) ***ex2***
(((FM7 lyd) re mi) (3beat (2 4))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) +so) (3beat (2.5))) ***ex2***
(((-B7 lyd-7) +so mi re) (3beat (4.5 8 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi re) (3beat (4 2))) ***ex2***
(((CM7 ion) mi) (3beat (2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) mi fa) (3beat (2 4))) ***ex2***
(((-BM7 lyd) la do +la) (3beat (8 8 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si) (3beat (2 4))) ***ex2***
(((CM7 ion) la so) (3beat (4 2))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la) (3beat (2.5))) ***ex2***
(((-BM7 lyd) so la) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi mi) (3beat (4 2))) ***ex2***
(((CM7 ion) la si) (3beat (4 2))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) fa (C7 alt) +la) (3beat (2 4))) ***ex2***
(((Gm7 dor) +la +la (C7 alt) +la) (3beat (4 4.5 8))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) so) (3beat (2.5))) ***ex2***
(((FM7 lyd) re mi) (3beat (2 4))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) +so do) (3beat (4 2))) ***ex2***
(((-B7 lyd-7) mi re so) (3beat (8 8 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si) (3beat (4 2))) ***ex2***
(((CM7 ion) re do la) (3beat (8 8 2))))
*********** (-Gm7-5 loc B7 hmp5) *************
(***ex1*** (((-Gm7-5 loc) re (B7 hmp5) re do) (3beat (2 8 8)))
***ex2*** (((-Gm7-5 loc) la (B7 hmp5) do) (3beat (4 2))))
*********** (Em7 all) *************
(***ex1*** (((Em7 all) so) (3beat (2.5))) ***ex2***
(((Em7 all) so) (3beat (2.5))))
*********** (B7 hmp5) *************
(***ex1*** (((B7 hmp5) do re +re) (3beat (8 8 2))) ***ex2***
(((B7 hmp5) re +re) (3beat (4 2))))
*********** (Em7 all B7 hmp5) *************
(***ex1*** (((Em7 all) so so (B7 hmp5) so) (3beat (2 8 8))) ***ex2***
(((Em7 all) so so (B7 hmp5) so +fa) (3beat (4 8 8 4))))
*********** (Em7 all A7 alt) *************
(***ex1*** (((Em7 all) +fa (A7 alt) +re mi) (3beat (4.5 8 4)))
***ex2*** (((Em7 all) re (A7 alt) +re mi) (3beat (4.5 8 4))))
*********** (Dm7 all) *************
(***ex1*** (((Dm7 all) do) (3beat (2.5))) ***ex2***
(((Dm7 all) mi) (3beat (2.5))))
*********** (A7 hmp5) *************
(***ex1*** (((A7 hmp5) do) (3beat (2.5))) ***ex2***
(((A7 hmp5) +do) (3beat (2.5))))
*********** (Dm7 all A7 hmp5) *************
(***ex1***
(((Dm7 all) mi re (A7 hmp5) fa mi) (3beat (3(8pause 8 8) 4 4)))
***ex2*** (((Dm7 all) fa (A7 hmp5) so) (3beat (2 4))))
*********** (Dm7 all G7 alt) *************
(***ex1***
(((Dm7 all) fa do (G7 alt) +re fa) (3beat (4 4 3(8pause 8 8))))
***ex2*** (((Dm7 all) mi (G7 alt) +la) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re do) (3beat (4 2))) ***ex2***
(((CM7 ion) re do) (3beat (4 2))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do +la re) (3beat (8 8 2))) ***ex2***
(((-BM7 lyd) la la) (3beat (2 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la so) (3beat (2 4))) ***ex2***
(((CM7 ion) si) (3beat (2.5))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) la (C7 alt) mi +do) (3beat (4 4.5 8))) ***ex2***
(((Gm7 dor) do +la (C7 alt) +re) (3beat (2 8 8))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) la) (3beat (2.5))) ***ex2***
(((FM7 lyd) si) (3beat (2.5))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) +so so fa) (3beat (8 8 2))) ***ex2***
(((-B7 lyd-7) re) (3beat (2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la so) (3beat (4 2))) ***ex2***
(((CM7 ion) re) (3beat (2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do +la) (3beat (4 2))) ***ex2***
(((-BM7 lyd) la) (3beat (2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi si) (3beat (2 4))) ***ex2***
(((CM7 ion) mi si) (3beat (4 2))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) so fa mi) (3beat (8 8 2))) ***ex2***
(((-BM7 lyd) re mi) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si) (3beat (2.5))) ***ex2***
(((CM7 ion) mi re do) (3beat (8 8 2))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la) (3beat (2.5))) ***ex2***
(((-BM7 lyd) do +la) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la so) (3beat (2 4))) ***ex2***
(((CM7 ion) re mi) (3beat (4 2))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi) (3beat (2 4))) ***ex2***
(((CM7 ion) la si) (3beat (4 2))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) mi re) (3beat (4 2))) ***ex2***
(((-BM7 lyd) re so la) (3beat (4.5 8 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la re) (3beat (2 4))) ***ex2***
(((-BM7 lyd) la) (3beat (2.5))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +so +do) (3beat (4 2))) ***ex2***
(((AM7 ion) +so +fa +so) (3beat (4.5 8 4))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +do) (3beat (2.5))) ***ex2***
(((AM7 ion) +so) (3beat (2.5))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +fa mi si) (3beat (4 4 4))) ***ex2***
(((AM7 ion) +so) (3beat (2.5))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +so +fa +so) (3beat (8 8 2))) ***ex2***
(((AM7 ion) +so) (3beat (2.5))))



**** ファイル27：music22 *****


(make-a-phrase-1-3 '("CM7" ion "Em7" phr))--->(("CM7" ion) si ("Em7" phr) so)

(make-a-phrase-2-3 '("CM7" ion "Em7" phr))--->(("CM7" ion) mi ("Em7" phr) la so re)

(make-a-phrase-for-ballad '("CM7" ion "Dm7" dor))--->
(***ex1*** ((("CM7" ion) re ("Dm7" dor) mi) (4beat (2 2))) ***ex2***
((("CM7" ion) la +la si ("Dm7" dor) mi +re) (4beat ("3(8pause 8pause 8)" 8.5 16 4 4))))

(make-phrases-for-ballad '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))--->
*********** (CM7 ion A7 hmp5) *************
(***ex1*** (((CM7 ion) re (A7 hmp5) fa so) (4beat (2.5 8 8))) ***ex2***
(((CM7 ion) mi mi la so (A7 hmp5) fa mi +la) (4beat (16 16 16 16 8pause 8 8pause 8 8pause 8))))
*********** (Dm7 dor G7 alt) *************
(***ex1*** (((Dm7 dor) mi (G7 alt) fa) (4beat (2.5 4))) ***ex2***
(((Dm7 dor) mi (G7 alt) si) (4beat (2.5 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la so mi) (4beat (4 4 2))) ***ex2*** (((CM7 ion) si mi si) (4beat (2.5 8 8))))



(make-ballad *w3*)

(make-ballad-2 *w3*)



************************************************************************************************************************
***music22***
(make-ballad *w3*)--->

Enter an integer!
501

************ Dindi ************
The original key is F.
Enter a key.C

*********** The key is C. ***********
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi mi) (4beat (2 4.5 8))) ***ex2***
(((CM7 ion) mi mi la si) (4beat (4 4.5 4 8))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do re re la) (4beat (2 8 8 4))) ***ex2***
(((-BM7 lyd) la) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si si mi si) (4beat (8 8 8pause 8 4 4)))
***ex2***
(((CM7 ion) re +do do si mi re)
(4beat (3(8pause 8pause 8) 3(8pause 8pause 8) 4 3(8 8 8)))))
*********** (Gm7 dor C7 alt) *************
(***ex1***
(((Gm7 dor) la +la fa +la (C7 alt) +la +re mi +la)
(4beat (16pause 16 16 16 8pause 8 3(8pause 8pause 8) 8 16 16)))
***ex2***
(((Gm7 dor) do +la do +do (C7 alt) +do do +so)
(4beat (4 4 8 16 16 3(8pause 8 8)))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) re mi la) (4beat (2.5 8 8))) ***ex2***
(((FM7 lyd) la mi) (4beat (2.5 4))))
*********** (-B7 lyd-7) *************
(***ex1***
(((-B7 lyd-7) do +la mi fa so fa so fa)
(4beat (8pause 8 4 16pause 16 16 16 3(8 8 8))))
***ex2*** (((-B7 lyd-7) mi +re) (4beat (4 2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi mi mi re) (4beat (4.5 8 4 4))) ***ex2***
(((CM7 ion) si mi mi re) (4beat (8 8 2 4))))
*********** (-BM7 lyd) *************
(***ex1***
(((-BM7 lyd) re mi re re la so fa)
(4beat (8.5 16 4 8.5 16 3(8pause 8 8))))
***ex2*** (((-BM7 lyd) mi) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re do) (4beat (2.5 4))) ***ex2***
(((CM7 ion) si) (4beat (1))))
*********** (-BM7 lyd) *************
(***ex1***
(((-BM7 lyd) mi fa do +la do +la la)
(4beat (4 4 3(8pause 8 8) 16pause 16 16 16)))
***ex2*** (((-BM7 lyd) mi fa do re) (4beat (4 2 8 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi mi) (4beat (2.5 4))) ***ex2***
(((CM7 ion) si si la +la si re +do)
(4beat (8.5 16 3(8pause 8 8) 3(8pause 8 8) 4))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) fa (C7 alt) +la mi) (4beat (2 4.5 8))) ***ex2***
(((Gm7 dor) fa do (C7 alt) +la) (4beat (8 8 2.5))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) so la so la re mi) (4beat (8 16 16 4 4 4)))
***ex2*** (((FM7 lyd) mi) (4beat (1))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) do) (4beat (1))) ***ex2***
(((-B7 lyd-7) re) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si mi re do si) (4beat (4 8 8 4 4))) ***ex2***
(((CM7 ion) mi si mi) (4beat (2.5 8 8))))
*********** (-Gm7-5 loc B7 hmp5) *************
(***ex1***
(((-Gm7-5 loc) si do si la (B7 hmp5) do si) (4beat (4 4 4 8 16 16)))
***ex2***
(((-Gm7-5 loc) si +la la mi (B7 hmp5) +re)
(4beat (3(8pause 8 8) 4 4 8pause 8))))
*********** (Em7 all) *************
(***ex1*** (((Em7 all) +fa) (4beat (1))) ***ex2***
(((Em7 all) so re so) (4beat (4 2 4))))
*********** (B7 hmp5) *************
(***ex1***
(((B7 hmp5) do re +re +re +re do)
(4beat (3(8pause 8pause 8) 16pause 16 16 16 4 8pause 8)))
***ex2*** (((B7 hmp5) so +so) (4beat (4 2.5))))
*********** (Em7 all B7 hmp5) *************
(***ex1***
(((Em7 all) +fa (B7 hmp5) so la re do)
(4beat (3(8pause 8 8) 4 4 3(8pause 8pause 8))))
***ex2***
(((Em7 all) re so re (B7 hmp5) do +do re) (4beat (8 8 4 4 8.5 16))))
*********** (Em7 all A7 alt) *************
(***ex1***
(((Em7 all) so so so (A7 alt) +do fa) (4beat (8.5 16 4 8pause 8 4)))
***ex2***
(((Em7 all) la +so so (A7 alt) +la la) (4beat (3(8pause 8 8) 4 4 4))))
*********** (Dm7 all) *************
(***ex1*** (((Dm7 all) so la) (4beat (2 2))) ***ex2***
(((Dm7 all) fa mi +re re so +so) (4beat (4 3(8pause 8 8) 4 8.5 16))))
*********** (A7 hmp5) *************
(***ex1***
(((A7 hmp5) so do +do +la la) (4beat (3(8pause 8pause 8) 8.5 16 4 4)))
***ex2*** (((A7 hmp5) +do +la do) (4beat (4 2 4))))
*********** (Dm7 all A7 hmp5) *************
(***ex1***
(((Dm7 all) fa mi (A7 hmp5) so +la do)
(4beat (4 4 3(8pause 8 8) 8pause 8)))
***ex2*** (((Dm7 all) so (A7 hmp5) so) (4beat (2.5 4))))
*********** (Dm7 all G7 alt) *************
(***ex1***
(((Dm7 all) mi re (G7 alt) si +re fa)
(4beat (4 3(8pause 8 8) 3(8pause 8pause 8) 4)))
***ex2*** (((Dm7 all) so (G7 alt) +la la +so) (4beat (2 4 8 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la si) (4beat (4 2.5))) ***ex2***
(((CM7 ion) re mi) (4beat (2.5 4))))
*********** (-BM7 lyd) *************
(***ex1***
(((-BM7 lyd) so fa re do +la mi re)
(4beat (3(8 8 8) 4 3(8pause 8 8) 4)))
***ex2***
(((-BM7 lyd) re mi fa so +so la do)
(4beat (4 3(8pause 8 8) 3(8pause 8pause 8) 3(8 8 8)))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la) (4beat (1))) ***ex2***
(((CM7 ion) re +re mi) (4beat (2 4.5 8))))
*********** (Gm7 dor C7 alt) *************
(***ex1***
(((Gm7 dor) do re la (C7 alt) +re +do do)
(4beat (8 8 8pause 8 4 8.5 16)))
***ex2*** (((Gm7 dor) fa (C7 alt) +do) (4beat (4 2.5))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) la si do so la) (4beat (4 3(8pause 8 8) 4 4)))
***ex2***
(((FM7 lyd) so +so la so +so la si) (4beat (4 16 16 16 16 4 4))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) do) (4beat (1))) ***ex2***
(((-B7 lyd-7) mi fa) (4beat (2.5 4))))
*********** (CM7 ion) *************
(***ex1***
(((CM7 ion) si mi re mi la so si) (4beat (4 16 16 16 16 4 4)))
***ex2***
(((CM7 ion) la +la si re +re)
(4beat (8pause 8 8.5 16 8pause 8 3(8pause 8pause 8)))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) so fa) (4beat (4 2.5))) ***ex2***
(((-BM7 lyd) so fa do +do) (4beat (4 4 4.5 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re mi mi mi) (4beat (4 4 4 4))) ***ex2***
(((CM7 ion) re do la +so so mi mi)
(4beat (3(8pause 8 8) 4 3(8 8 8) 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) so fa) (4beat (4 2.5))) ***ex2***
(((-BM7 lyd) do +la re re mi fa re) (4beat (4 16 16 16 16 4 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si) (4beat (1))) ***ex2***
(((CM7 ion) mi mi) (4beat (2.5 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la re) (4beat (2.5 4))) ***ex2***
(((-BM7 lyd) do re) (4beat (4 2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si si si) (4beat (2 4.5 8))) ***ex2***
(((CM7 ion) la) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la so si si si) (4beat (4 4 3(8pause 8 8) 4)))
***ex2*** (((CM7 ion) re do mi) (4beat (8 8 2.5))))
*********** (-BM7 lyd) *************
(***ex1***
(((-BM7 lyd) la mi re so fa re la mi)
(4beat (4 8 16 16 3(8pause 8 8) 8 8)))
***ex2***
(((-BM7 lyd) la mi fa mi re mi)
(4beat (4 3(8pause 8 8) 3(8pause 8 8) 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la la re) (4beat (4 4 2))) ***ex2***
(((-BM7 lyd) la so) (4beat (2.5 4))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +so) (4beat (1))) ***ex2***
(((AM7 ion) +so) (4beat (1))))
*********** (AM7 ion) *************
(***ex1***
(((AM7 ion) +so +do si +do si la) (4beat (3(8pause 8 8) 4 8.5 16 4)))
***ex2*** (((AM7 ion) +do +fa so +so +fa) (4beat (4 8 8 8pause 8 4))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +fa mi) (4beat (2 2))) ***ex2***
(((AM7 ion) +do +fa +so) (4beat (2.5 8 8))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +do +do si +do) (4beat (4.5 8 4 4))) ***ex2***
(((AM7 ion) +do) (4beat (1))))



************************************************************************************************************************
***music22***
(make-ballad-2 *w3*)

Enter an integer!
210

************ Dindi ************
The original key is F.
Enter a key.C

*********** The key is C. ***********
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si) (4beat (1))) ***ex2***
(((CM7 ion) si si si) (4beat (4 2 4))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) re re la) (4beat (4.5 8 2))) ***ex2***
(((-BM7 lyd) mi re la) (4beat (2.5 8 8))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la) (4beat (1))) ***ex2***
(((CM7 ion) si si) (4beat (4 2.5))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) fa (C7 alt) +so so) (4beat (2 4 4))) ***ex2***
(((Gm7 dor) la (C7 alt) +fa) (4beat (4 2.5))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) mi si do) (4beat (4 4 2))) ***ex2***
(((FM7 lyd) re mi so) (4beat (4.5 8 2))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) mi fa) (4beat (2.5 4))) ***ex2***
(((-B7 lyd-7) do +la) (4beat (4 2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re) (4beat (1))) ***ex2***
(((CM7 ion) la so) (4beat (2 2))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) mi re la) (4beat (4 4 2))) ***ex2***
(((-BM7 lyd) so fa) (4beat (2.5 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la) (4beat (1))) ***ex2***
(((CM7 ion) la so) (4beat (4 2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do re) (4beat (2 2))) ***ex2***
(((-BM7 lyd) la) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi la) (4beat (2 2))) ***ex2***
(((CM7 ion) mi) (4beat (1))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) +la (C7 alt) +re) (4beat (2.5 4))) ***ex2***
(((Gm7 dor) la (C7 alt) +fa mi) (4beat (2 4.5 8))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) si do) (4beat (2.5 4))) ***ex2***
(((FM7 lyd) si la) (4beat (2 2))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) mi re re) (4beat (4.5 8 2))) ***ex2***
(((-B7 lyd-7) do +la) (4beat (4 2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re) (4beat (1))) ***ex2***
(((CM7 ion) si mi la) (4beat (2 4 4))))
*********** (-Gm7-5 loc B7 hmp5) *************
(***ex1*** (((-Gm7-5 loc) si (B7 hmp5) +re) (4beat (4 2.5))) ***ex2***
(((-Gm7-5 loc) re (B7 hmp5) do si) (4beat (4.5 8 2))))
*********** (Em7 all) *************
(***ex1*** (((Em7 all) la) (4beat (1))) ***ex2***
(((Em7 all) la so) (4beat (2.5 4))))
*********** (B7 hmp5) *************
(***ex1*** (((B7 hmp5) +re so) (4beat (2 2))) ***ex2***
(((B7 hmp5) so la) (4beat (2.5 4))))
*********** (Em7 all B7 hmp5) *************
(***ex1*** (((Em7 all) +fa so (B7 hmp5) +re do) (4beat (2 4 8 8)))
***ex2*** (((Em7 all) la si (B7 hmp5) do si) (4beat (4 8 8 2))))
*********** (Em7 all A7 alt) *************
(***ex1*** (((Em7 all) so re (A7 alt) fa so) (4beat (4 4 4 4)))
***ex2*** (((Em7 all) la (A7 alt) +do) (4beat (2 2))))
*********** (Dm7 all) *************
(***ex1*** (((Dm7 all) do) (4beat (1))) ***ex2***
(((Dm7 all) so fa) (4beat (2 2))))
*********** (A7 hmp5) *************
(***ex1*** (((A7 hmp5) +la do) (4beat (4 2.5))) ***ex2***
(((A7 hmp5) so) (4beat (1))))
*********** (Dm7 all A7 hmp5) *************
(***ex1*** (((Dm7 all) mi (A7 hmp5) fa) (4beat (4 2.5))) ***ex2***
(((Dm7 all) do mi (A7 hmp5) +la) (4beat (2 4 4))))
*********** (Dm7 all G7 alt) *************
(***ex1*** (((Dm7 all) fa mi (G7 alt) +so +la) (4beat (2 4 8 8)))
***ex2*** (((Dm7 all) mi (G7 alt) +re) (4beat (4 2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re) (4beat (1))) ***ex2***
(((CM7 ion) la si mi) (4beat (8 8 2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) re) (4beat (1))) ***ex2***
(((-BM7 lyd) re) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) re) (4beat (1))) ***ex2***
(((CM7 ion) mi) (4beat (1))))
*********** (Gm7 dor C7 alt) *************
(***ex1*** (((Gm7 dor) la (C7 alt) +do +re) (4beat (2 4.5 8)))
***ex2*** (((Gm7 dor) la (C7 alt) +la) (4beat (2.5 4))))
*********** (FM7 lyd) *************
(***ex1*** (((FM7 lyd) re mi) (4beat (2.5 4))) ***ex2***
(((FM7 lyd) so) (4beat (1))))
*********** (-B7 lyd-7) *************
(***ex1*** (((-B7 lyd-7) +so) (4beat (1))) ***ex2***
(((-B7 lyd-7) do re so) (4beat (2 4 4))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) si) (4beat (1))) ***ex2***
(((CM7 ion) re do) (4beat (4 2.5))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) do re) (4beat (4 2.5))) ***ex2***
(((-BM7 lyd) so fa) (4beat (4 2.5))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi la si) (4beat (2 4.5 8))) ***ex2***
(((CM7 ion) mi) (4beat (1))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la) (4beat (1))) ***ex2***
(((-BM7 lyd) la) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) la so) (4beat (4 2.5))) ***ex2***
(((CM7 ion) la) (4beat (1))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) so) (4beat (1))) ***ex2***
(((-BM7 lyd) la) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi) (4beat (1))) ***ex2***
(((CM7 ion) si) (4beat (1))))
*********** (CM7 ion) *************
(***ex1*** (((CM7 ion) mi) (4beat (1))) ***ex2***
(((CM7 ion) mi) (4beat (1))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) re) (4beat (1))) ***ex2***
(((-BM7 lyd) mi) (4beat (1))))
*********** (-BM7 lyd) *************
(***ex1*** (((-BM7 lyd) la so) (4beat (2 2))) ***ex2***
(((-BM7 lyd) la) (4beat (1))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +do) (4beat (1))) ***ex2***
(((AM7 ion) +do) (4beat (1))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) +so +do +fa) (4beat (4.5 8 2))) ***ex2***
(((AM7 ion) +so +do) (4beat (2 2))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) si) (4beat (1))) ***ex2***
(((AM7 ion) +so) (4beat (1))))
*********** (AM7 ion) *************
(***ex1*** (((AM7 ion) si) (4beat (1))) ***ex2***
(((AM7 ion) +so +fa +so) (4beat (2.5 8 8))))


**** ファイル２８：music23 *****


(make-a-phrase-for-waltz-2 '("CM7" ion "Dm7" dor))--->(("CM7" ion) la re ("Dm7" dor) mi)

(make-a-phrase-for-ballad-2 '("CM7" ion "Dm7" dor))--->(("CM7" ion) re re ("Dm7" dor) fa mi)

(make-a-phrase-for-song '("CM7" ion "Dm7" dor))--->
(***waltz*** ((("CM7" ion) la la re ("Dm7" dor) do fa) (3beat ("3(8pause 8 8)" "3(8pause 8 8)" 4)))
***ballad*** ((("CM7" ion) la si re ("Dm7" dor) fa) (4beat (4 8 8 2))))

(make-phrases-for-song '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))--->
*********** (CM7 ion A7 hmp5) ***********
(***waltz*** (((CM7 ion) la re mi (A7 hmp5) so fa do) (3beat (16 16 8 4 8 8))) ***ballad***
(((CM7 ion) re mi re (A7 hmp5) +la do do so) (4beat (4 4 16 16 16 16 4))))
*********** (Dm7 dor G7 alt) ***********
(***waltz*** (((Dm7 dor) fa (G7 alt) +so +so re) (3beat (8.5 16 4 3(8pause 8pause 8)))) ***ballad***
(((Dm7 dor) fa mi (G7 alt) +la +la +so) (4beat (3(8pause 8 8) 4 4 4))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) la) (3beat (2.5))) ***ballad***
(((CM7 ion) re la la mi la si la la)
(4beat (8 16 16 3(8pause 8pause 8) 16pause 16 16 16 3(8pause 8pause 8)))))



************************************************************************************************************************
***music23***
(make-song *w3*)--->

Enter an integer!
501

************ Dindi *************
The original key is F.
Enter a key.C

*********** The key is C. *************
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) la re) (3beat (2 4))) ***ballad***
(((CM7 ion) la la la la la la si)
(4beat (16 16 16 16 8pause 8 4 3(8pause 8pause 8)))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) do la) (3beat (2 4))) ***ballad***
(((-BM7 lyd) re mi do mi do do) (4beat (4 4 4 3(8 8 8)))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi mi) (3beat (2 4))) ***ballad***
(((CM7 ion) mi la si) (4beat (2.5 8 8))))
*********** (Gm7 dor C7 alt) ***********
(***waltz*** (((Gm7 dor) do la (C7 alt) +so) (3beat (4 4.5 8)))
***ballad***
(((Gm7 dor) fa la (C7 alt) +so +do +re mi)
(4beat (4 3(8pause 8pause 8) 16pause 16 16 16 3(8pause 8pause 8)))))
*********** (FM7 lyd) ***********
(***waltz*** (((FM7 lyd) re mi si) (3beat (4 4.5 8))) ***ballad***
(((FM7 lyd) mi mi si so mi si) (4beat (8.5 16 4 4 3(8pause 8 8)))))
*********** (-B7 lyd-7) ***********
(***waltz***
(((-B7 lyd-7) do mi +so so +so do) (3beat (16 16 16 16 4 4)))
***ballad*** (((-B7 lyd-7) +so +so so) (4beat (2.5 8 8))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi re si la) (3beat (8pause 8 4 8.5 16)))
***ballad*** (((CM7 ion) re) (4beat (1))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) do la) (3beat (2 4))) ***ballad***
(((-BM7 lyd) la do mi do mi do mi)
(4beat (4 3(8pause 8 8) 4 16pause 16 16 16))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi) (3beat (2.5))) ***ballad***
(((CM7 ion) re la) (4beat (2 2))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) la la la) (3beat (2 8 8))) ***ballad***
(((-BM7 lyd) mi la) (4beat (2 2))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) la la re) (3beat (4 4.5 8))) ***ballad***
(((CM7 ion) mi la) (4beat (2.5 4))))
*********** (Gm7 dor C7 alt) ***********
(***waltz***
(((Gm7 dor) +la la fa (C7 alt) +la) (3beat (8.5 16 4 8pause 8)))
***ballad*** (((Gm7 dor) +la (C7 alt) +do +re +so) (4beat (2 8 8 4))))
*********** (FM7 lyd) ***********
(***waltz*** (((FM7 lyd) re) (3beat (2.5))) ***ballad***
(((FM7 lyd) re re la si) (4beat (4 2 8 8))))
*********** (-B7 lyd-7) ***********
(***waltz*** (((-B7 lyd-7) so do mi re) (3beat (8.5 16 4 8pause 8)))
***ballad***
(((-B7 lyd-7) mi mi re re re re) (4beat (4 4 4 16pause 16 16 16))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi) (3beat (2.5))) ***ballad***
(((CM7 ion) la mi la re la mi re)
(4beat (16 16 16 16 8pause 8 8pause 8 3(8pause 8pause 8)))))
*********** (-Gm7-5 loc B7 hmp5) ***********
(***waltz***
(((-Gm7-5 loc) mi re re (B7 hmp5) re +re)
(3beat (8 16 16 8pause 8 3(8pause 8pause 8))))
***ballad***
(((-Gm7-5 loc) si re re (B7 hmp5) so la do do)
(4beat (8 16 16 4 8.5 16 3(8pause 8pause 8)))))
*********** (Em7 all) ***********
(***waltz*** (((Em7 all) re la so) (3beat (4 4 4))) ***ballad***
(((Em7 all) +fa so) (4beat (2 2))))
*********** (B7 hmp5) ***********
(***waltz***
(((B7 hmp5) +re la la so do so) (3beat (3(8 8 8) 4 3(8pause 8 8))))
***ballad*** (((B7 hmp5) +re +re re) (4beat (4 4 2))))
*********** (Em7 all B7 hmp5) ***********
(***waltz*** (((Em7 all) +fa +fa la (B7 hmp5) re) (3beat (8 8 4 4)))
***ballad***
(((Em7 all) la +fa +fa la (B7 hmp5) +re do +re +re)
(4beat (8 16 16 8 16 16 4 4))))
*********** (Em7 all A7 alt) ***********
(***waltz***
(((Em7 all) so la (A7 alt) do so fa)
(3beat (3(8pause 8pause 8) 3(8pause 8 8) 3(8pause 8 8))))
***ballad*** (((Em7 all) +fa re so (A7 alt) +do) (4beat (2 4 8 8))))
*********** (Dm7 all) ***********
(***waltz***
(((Dm7 all) mi fa do so fa fa)
(3beat (8pause 8 16 16 16 16 8pause 8)))
***ballad***
(((Dm7 all) so so mi fa mi) (4beat (3(8pause 8 8) 4 4 4))))
*********** (A7 hmp5) ***********
(***waltz*** (((A7 hmp5) fa so) (3beat (4 2))) ***ballad***
(((A7 hmp5) do +la fa +do) (4beat (4 8 8 2))))
*********** (Dm7 all A7 hmp5) ***********
(***waltz***
(((Dm7 all) fa mi so (A7 hmp5) +do do so)
(3beat (8.5 16 8 16 16 3(8pause 8pause 8))))
***ballad*** (((Dm7 all) mi so (A7 hmp5) +la) (4beat (2.5 8 8))))
*********** (Dm7 all G7 alt) ***********
(***waltz***
(((Dm7 all) fa do (G7 alt) si si si) (3beat (16 16 8 4 4)))
***ballad*** (((Dm7 all) do (G7 alt) +do si) (4beat (2.5 8 8))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi mi re) (3beat (4 4.5 8))) ***ballad***
(((CM7 ion) si mi la re la) (4beat (8 8 4 4 4))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) do so re) (3beat (4.5 8 4))) ***ballad***
(((-BM7 lyd) do re la so mi so)
(4beat (8.5 16 3(8pause 8pause 8) 8 8 4))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) re) (3beat (2.5))) ***ballad***
(((CM7 ion) mi re re la si si si si) (4beat (4 8 16 16 8 16 16 4))))
*********** (Gm7 dor C7 alt) ***********
(***waltz***
(((Gm7 dor) do (C7 alt) +so +fa +fa)
(3beat (3(8pause 8pause 8) 4 8 8)))
***ballad***
(((Gm7 dor) fa fa do +la (C7 alt) +re +la)
(4beat (4 4 3(8pause 8pause 8) 3(8 8 8)))))
*********** (FM7 lyd) ***********
(***waltz*** (((FM7 lyd) mi la mi) (3beat (4 4 4))) ***ballad***
(((FM7 lyd) so mi re mi) (4beat (8 8 2 4))))
*********** (-B7 lyd-7) ***********
(***waltz*** (((-B7 lyd-7) mi re) (3beat (2 4))) ***ballad***
(((-B7 lyd-7) so mi mi +so so) (4beat (4 4 4 8 8))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) si si) (3beat (4 2))) ***ballad***
(((CM7 ion) re) (4beat (1))))
*********** (-BM7 lyd) ***********
(***waltz***
(((-BM7 lyd) mi la re do do) (3beat (4 3(8pause 8 8) 3(8pause 8 8))))
***ballad***
(((-BM7 lyd) mi so re so do mi)
(4beat (3(8pause 8 8) 4 4 3(8pause 8 8)))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) la la re re) (3beat (8 8 4 4))) ***ballad***
(((CM7 ion) mi re si) (4beat (8 8 2.5))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) re do mi) (3beat (4 4.5 8))) ***ballad***
(((-BM7 lyd) so la do do re) (4beat (4 3(8pause 8 8) 4 4))))
*********** (CM7 ion) ***********
(***waltz***
(((CM7 ion) si la la mi si re)
(3beat (8pause 8 16 16 16 16 3(8pause 8pause 8))))
***ballad***
(((CM7 ion) mi re mi re mi re mi)
(4beat (3(8pause 8pause 8) 8 8 3(8pause 8 8) 3(8pause 8 8)))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) la mi do do do) (3beat (8 8 4 8.5 16)))
***ballad*** (((-BM7 lyd) la) (4beat (1))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi re si) (3beat (2 8 8))) ***ballad***
(((CM7 ion) la si re si) (4beat (4.5 8 4 4))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi si la la si re) (3beat (4 16 16 16 16 4)))
***ballad*** (((CM7 ion) si si) (4beat (2 2))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) mi so so mi do) (3beat (4 4 3(8 8 8))))
***ballad*** (((-BM7 lyd) do re la re) (4beat (4 2 8 8))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) la) (3beat (2.5))) ***ballad***
(((-BM7 lyd) re mi re) (4beat (4 2 4))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) +do +so) (3beat (4 2))) ***ballad***
(((AM7 ion) +so +do) (4beat (4 2.5))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) +so +fa) (3beat (2 4))) ***ballad***
(((AM7 ion) +do +fa +fa +fa +so si) (4beat (16pause 16 16 16 4 4 4))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) +so +fa +do +fa) (3beat (3(8pause 8 8) 4 4)))
***ballad*** (((AM7 ion) +so +so si) (4beat (2 4 4))))
*********** (AM7 ion) ***********
(***waltz***
(((AM7 ion) +do si +so si si) (3beat (4 16 16 8 3(8pause 8pause 8))))
***ballad*** (((AM7 ion) si +do +fa) (4beat (4.5 8 2))))



************************************************************************************************************************
***music23***
(make-song-2 *w3*)

Enter an integer!
150

************ Dindi *************
The original key is F.
Enter a key.C

*********** The key is C. *************
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi re la) (3beat (8 8 2))) ***ballad***
(((CM7 ion) mi re si) (4beat (2 4.5 8))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) mi) (3beat (2.5))) ***ballad***
(((-BM7 lyd) re la re) (4beat (4 4 2))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi si) (3beat (4 2))) ***ballad***
(((CM7 ion) la la) (4beat (4 2.5))))
*********** (Gm7 dor C7 alt) ***********
(***waltz*** (((Gm7 dor) do (C7 alt) +fa +fa) (3beat (4.5 8 4)))
***ballad*** (((Gm7 dor) do fa (C7 alt) +la +so) (4beat (4 8 8 2))))
*********** (FM7 lyd) ***********
(***waltz*** (((FM7 lyd) so mi si) (3beat (4 4.5 8))) ***ballad***
(((FM7 lyd) re) (4beat (1))))
*********** (-B7 lyd-7) ***********
(***waltz*** (((-B7 lyd-7) re mi) (3beat (4 2))) ***ballad***
(((-B7 lyd-7) do +so do) (4beat (2 4.5 8))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) si) (3beat (2.5))) ***ballad***
(((CM7 ion) mi) (4beat (1))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) so) (3beat (2.5))) ***ballad***
(((-BM7 lyd) so) (4beat (1))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) re) (3beat (2.5))) ***ballad***
(((CM7 ion) si si) (4beat (4 2.5))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) re la so) (3beat (2 8 8))) ***ballad***
(((-BM7 lyd) do) (4beat (1))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) si la) (3beat (4 2))) ***ballad***
(((CM7 ion) la mi la) (4beat (2 4.5 8))))
*********** (Gm7 dor C7 alt) ***********
(***waltz***
(((Gm7 dor) +la +la (C7 alt) +so +re) (3beat (8pause 8 4 8 8)))
***ballad*** (((Gm7 dor) +la (C7 alt) +la) (4beat (4 2.5))))
*********** (FM7 lyd) ***********
(***waltz*** (((FM7 lyd) mi) (3beat (2.5))) ***ballad***
(((FM7 lyd) si la) (4beat (4 2.5))))
*********** (-B7 lyd-7) ***********
(***waltz*** (((-B7 lyd-7) so) (3beat (2.5))) ***ballad***
(((-B7 lyd-7) so re so) (4beat (4 4 2))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi) (3beat (2.5))) ***ballad***
(((CM7 ion) si mi re) (4beat (4.5 8 2))))
*********** (-Gm7-5 loc B7 hmp5) ***********
(***waltz*** (((-Gm7-5 loc) mi (B7 hmp5) la) (3beat (2 4)))
***ballad*** (((-Gm7-5 loc) si (B7 hmp5) do) (4beat (2 2))))
*********** (Em7 all) ***********
(***waltz*** (((Em7 all) re re la) (3beat (4 4.5 8))) ***ballad***
(((Em7 all) la +fa) (4beat (2.5 4))))
*********** (B7 hmp5) ***********
(***waltz*** (((B7 hmp5) +re +re do) (3beat (4 4.5 8))) ***ballad***
(((B7 hmp5) re +re so) (4beat (4 4 2))))
*********** (Em7 all B7 hmp5) ***********
(***waltz*** (((Em7 all) re (B7 hmp5) so) (3beat (4 2))) ***ballad***
(((Em7 all) la re (B7 hmp5) +re) (4beat (4.5 8 2))))
*********** (Em7 all A7 alt) ***********
(***waltz*** (((Em7 all) +fa so (A7 alt) do) (3beat (2 8 8)))
***ballad*** (((Em7 all) re (A7 alt) +la +la) (4beat (4.5 8 2))))
*********** (Dm7 all) ***********
(***waltz*** (((Dm7 all) do) (3beat (2.5))) ***ballad***
(((Dm7 all) so) (4beat (1))))
*********** (A7 hmp5) ***********
(***waltz*** (((A7 hmp5) do do) (3beat (2 4))) ***ballad***
(((A7 hmp5) +do fa) (4beat (2 2))))
*********** (Dm7 all A7 hmp5) ***********
(***waltz*** (((Dm7 all) so do (A7 hmp5) fa) (3beat (2 8 8)))
***ballad*** (((Dm7 all) fa (A7 hmp5) +do +la) (4beat (2 4 4))))
*********** (Dm7 all G7 alt) ***********
(***waltz*** (((Dm7 all) mi do (G7 alt) +re) (3beat (4.5 8 4)))
***ballad*** (((Dm7 all) do (G7 alt) +do +la) (4beat (4.5 8 2))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi si) (3beat (2 4))) ***ballad***
(((CM7 ion) mi re) (4beat (4 2.5))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) do so) (3beat (2 4))) ***ballad***
(((-BM7 lyd) re) (4beat (1))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) re la re) (3beat (8 8 2))) ***ballad***
(((CM7 ion) mi si) (4beat (2 2))))
*********** (Gm7 dor C7 alt) ***********
(***waltz*** (((Gm7 dor) do (C7 alt) +fa mi) (3beat (2 8 8)))
***ballad*** (((Gm7 dor) la (C7 alt) +so +so) (4beat (4 2 4))))
*********** (FM7 lyd) ***********
(***waltz*** (((FM7 lyd) si) (3beat (2.5))) ***ballad***
(((FM7 lyd) si si si) (4beat (2 4.5 8))))
*********** (-B7 lyd-7) ***********
(***waltz*** (((-B7 lyd-7) so mi re) (3beat (4 4 4))) ***ballad***
(((-B7 lyd-7) do re) (4beat (2 2))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) si) (3beat (2.5))) ***ballad***
(((CM7 ion) la) (4beat (1))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) re do) (3beat (4 2))) ***ballad***
(((-BM7 lyd) re do mi) (4beat (4 4 2))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) re si) (3beat (4 2))) ***ballad***
(((CM7 ion) la) (4beat (1))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) re so) (3beat (4 2))) ***ballad***
(((-BM7 lyd) re) (4beat (1))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) re si la) (3beat (8 8 2))) ***ballad***
(((CM7 ion) la si la) (4beat (4 4 2))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) so do la) (3beat (8 8 2))) ***ballad***
(((-BM7 lyd) do so) (4beat (2.5 4))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) la mi re) (3beat (4 4 4))) ***ballad***
(((CM7 ion) si la) (4beat (4 2.5))))
*********** (CM7 ion) ***********
(***waltz*** (((CM7 ion) mi re) (3beat (4 2))) ***ballad***
(((CM7 ion) re la) (4beat (2.5 4))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) la mi mi) (3beat (4.5 8 4))) ***ballad***
(((-BM7 lyd) re) (4beat (1))))
*********** (-BM7 lyd) ***********
(***waltz*** (((-BM7 lyd) mi mi) (3beat (2 4))) ***ballad***
(((-BM7 lyd) mi mi so) (4beat (4 4 2))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) +do +fa +so) (3beat (8 8 2))) ***ballad***
(((AM7 ion) +do) (4beat (1))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) si +so +so) (3beat (2 8 8))) ***ballad***
(((AM7 ion) +do) (4beat (1))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) +do +so) (3beat (4 2))) ***ballad***
(((AM7 ion) si) (4beat (1))))
*********** (AM7 ion) ***********
(***waltz*** (((AM7 ion) si +so) (3beat (2 4))) ***ballad***
(((AM7 ion) +do +so) (4beat (2 2))))


**** ファイル２９：music24 ***


(get-CPM-or-CPm 'C)--->
((C Major)
(("CM7" ion) ("-A7" lyd-7) ("G7" mix lyd-7 alt comd wt) ("CM7" ion))
((T-key (value C)) (p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e)) (SD-key (value F)) (D-key (value G))
(p-m (value a))))

(get-CPM-or-CPm 'c)--->
((c Minor)
(("Cm" all) ("-B7" mix) ("-E7" mix lyd-7 alt comd wt) ("-A7" lyd-7)
("Fm7" dor) ("Cm" all))
((T-key (value c)) (p-M-key-of-SD-key (value -E)) (SD-key (value f))
(D-key (value g)) (p-M-key-of-SD-key (value -A))
(p-M-key-of-D-key (value -B))))

(get-CPM-or-CPm 'a)--->
((a Minor) (("Am" all) ("E7" lyd-7 hmp5 alt comd wt) ("Am" all))
((T-key (value a)) (p-M-key-of-SD-key (value C)) (SD-key (value d))
(D-key (value e)) (p-M-key-of-SD-key (value F))
(p-M-key-of-D-key (value G))))



*************************************************************************************************************************
***music24***
(build-CP)--->

Enter an integer!
540

The chord progression is nil.
The length of the chord progression is 0.
So far is it OK ? (y or n)y

Enter a key!
C

The chord progression is (((C Major)
((CM7 ion) (C7 lyd-7 alt comd wt) (FM7 lyd)
(-Gdim7 dim) (CM7 ion))
((T-key (value C))
(p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e))
(SD-key (value F)) (D-key (value G))
(p-m (value a))))).
The length of the chord progression is 1.
So far is it OK ? (y or n)y

Enter a key!
C

The chord progression is (((C Major)
((CM7 ion) (C7 lyd-7 alt comd wt) (FM7 lyd)
(-Gdim7 dim) (CM7 ion))
((T-key (value C))
(p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e))
(SD-key (value F)) (D-key (value G))
(p-m (value a))))
((C Major)
((CM7 ion) (FM7 lyd) (Em7 phr) (Dm7 dor)
(CM7 ion))
((T-key (value C))
(p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e))
(SD-key (value F)) (D-key (value G))
(p-m (value a))))).
The length of the chord progression is 2.
So far is it OK ? (y or n)y

Enter a key!
C

The chord progression is (((C Major)
((CM7 ion) (C7 lyd-7 alt comd wt) (FM7 lyd)
(-Gdim7 dim) (CM7 ion))
((T-key (value C))
(p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e))
(SD-key (value F)) (D-key (value G))
(p-m (value a))))
((C Major)
((CM7 ion) (FM7 lyd) (Em7 phr) (Dm7 dor)
(CM7 ion))
((T-key (value C))
(p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e))
(SD-key (value F)) (D-key (value G))
(p-m (value a))))
((C Major)
((CM7 ion) (A7 lyd-7 hmp5 alt comd wt)
(Dm7 dor) (G7 mix lyd-7 alt comd wt))
((T-key (value C))
(p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e))
(SD-key (value F)) (D-key (value G))
(p-m (value a))))).
The length of the chord progression is 3.
So far is it OK ? (y or n)end

So far is it OK ? (y or n)y

Enter a key!
end
(((C Major)
(("CM7" ion) ("C7" lyd-7 alt comd wt) ("FM7" lyd) ("-Gdim7" dim)
("CM7" ion))
((T-key (value C)) (p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e)) (SD-key (value F)) (D-key (value G))
(p-m (value a))))
((C Major)
(("CM7" ion) ("FM7" lyd) ("Em7" phr) ("Dm7" dor) ("CM7" ion))
((T-key (value C)) (p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e)) (SD-key (value F)) (D-key (value G))
(p-m (value a))))
((C Major)
(("CM7" ion) ("A7" lyd-7 hmp5 alt comd wt) ("Dm7" dor)
("G7" mix lyd-7 alt comd wt))
((T-key (value C)) (p-m-key-of-SD-key (value d))
(p-m-key-of-D-key (value e)) (SD-key (value F)) (D-key (value G))
(p-m (value a)))))


***** ファイル30：music25 *****


(up-a-note 'do 0.5)--->+do

(up-a-note 'do 1.0)--->re

(down-a-note 'do 0.5)--->si

(down-a-note 'do 1.0)--->+la



(m2-up '(do re mi))--->(+do +re fa)

(M2-up '(do re mi))--->(re mi +fa)

(m3-up '(do re mi))--->(+re fa so)

(M3-up '(do re mi))--->(mi +fa +so)

(P4-up '(do re mi))--->(fa so la)

(+4-5-up '(do re mi))--->(+fa +so +la)

(P5-up '(do re mi))--->(so la si)

(m6-up '(do re mi))--->(+so +la do)

(M6-up '(do re mi))--->(la si +do)

(m7-up '(do re mi))--->(+la do re)

(M7-up '(do re mi))--->(si +do +re)

(m2-down '(do re mi))---.(si +do +re)

(M2-down '(do re mi))--->(+la do re)

(m3-down '(do re mi))--->(la si +do)

(M3-down '(do re mi))--->(+so +la do)

(P4-down '(do re mi))--->(so la si)

(+4-5-down '(do re mi))--->(+fa +so +la)

(P5-down '(do re mi))--->(fa so la)

(m6-down '(do re mi))--->(mi +fa +so)

(M6-down '(do re mi))--->(+re fa so)

(m7-down '(do re mi))--->(re mi +fa)

(M7-down '(do re mi))--->(+do +re fa)


***** ファイル３１：music26 *****


(divide-a-chord "CM7")--->("C" "M7")

(change-a-chord-by-n "CM7" 0.5)--->"+CM7"

(m2-up-a-chord "CM7")--->"+CM7"

(m2-up-a-phrase '("CM7" (re do si la)))--->("+CM7" (+re +do do +la))

(m2-up-phrases '(("CM7" (do re mi)) ("Dm7" (so fa mi))))--->(("+CM7" (+do +re fa)) ("+Dm7" (+so +fa fa)))


***** ファイル３２：music27 *********************************************************


(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)))



;;;
;;;(show-phrases-of-all-keys '(("CM7" (do re mi))))
;;;
;;;((CM7 (do re mi )))
;;;((+CM7 (+do +re fa)))
;;;((DM7 (re mi +fa)))
;;;((+DM7 (+re fa so)))
;;;((EM7 (mi +fa +so)))
;;;((FM7 (fa so la)))
;;;((+FM7 (+fa +so +la)))
;;;((GM7 (so la si)))
;;;((+GM7 (+so +la do)))
;;;((AM7 (la si +do)))
;;;((+AM7 (+la do re)))
;;;((BM7 (si +do +re)))
;;;nil
;;;
;;;(show-phrases-of-all-keys '(("CM7" (do re mi)) ("Dm7" (re mi so))))
;;;
;;;((CM7 (do re mi )) (Dm7 (re mi so)))
;;;((+CM7 (+do +re fa)) (+Dm7 (+re fa +so)))
;;;((DM7 (re mi +fa)) (Em7 (mi +fa la)))
;;;((+DM7 (+re fa so)) (Fm7 (fa so +la)))
;;;((EM7 (mi +fa +so)) (+Fm7 (+fa +so si)))
;;;((FM7 (fa so la)) (Gm7 (so la do)))
;;;((+FM7 (+fa +so +la)) (+Gm7 (+so +la +do)))
;;;((GM7 (so la si)) (Am7 (la si re)))
;;;((+GM7 (+so +la do)) (+Am7 (+la do +re)))
;;;((AM7 (la si +do)) (Bm7 (si +do mi)))
;;;((+AM7 (+la do re)) (Cm7 (do re fa )))
;;;((BM7 (si +do +re)) (+Cm7 (+do +re +fa)))





;;;
;;;(get-phrases-of-all-keys '(("CM7" (do re mi)) ("Dm7" (re mi so))))
;;;
;;;((("CM7" (do re mi )) ("Dm7" (re mi so))) (("+CM7" (+do +re fa)) ("+Dm7" (+re fa +so)))
;;; (("DM7" (re mi +fa)) ("Em7" (mi +fa la))) (("+DM7" (+re fa so)) ("Fm7" (fa so +la)))
;;; (("EM7" (mi +fa +so)) ("+Fm7" (+fa +so si))) (("FM7" (fa so la)) ("Gm7" (so la do)))
;;; (("+FM7" (+fa +so +la)) ("+Gm7" (+so +la +do))) (("GM7" (so la si)) ("Am7" (la si re)))
;;; (("+GM7" (+so +la do)) ("+Am7" (+la do +re))) (("AM7" (la si +do)) ("Bm7" (si +do mi))) ...)
;;;