;;;
;;; (load "c:\\program files\\acl62\\music62.cl")
;;;
(load "c:\\program files\\acl62\\music61.cl")
;;;
;;;(rotate-list-from-elment-and-cut 'c '(a b c d e f g))--->(c d e) in music59.cl
;;;
(defun get-an-element-in-a-list (l)
(nth (random (length l)) l))
(defun connect-lists-for-phrase (l)
(let* ((ll (rotate-list-from-elment-and-cut (get-an-element-in-a-list
l) l))
(l1 (rotate-list-from-elment-and-cut (car (last ll)) l))
(l2 (rotate-list-from-elment-and-cut (car (last l1)) l))
(l3 (rotate-list-from-elment-and-cut (car (last l2)) l))
(l4 (rotate-list-from-elment-and-cut (car (last l3)) l))
(l5 (rotate-list-from-elment-and-cut (car (last l4)) l))
(l6 (rotate-list-from-elment-and-cut (car (last l5)) l))
(l7 (rotate-list-from-elment-and-cut (car (last l6)) l))
(l8 (rotate-list-from-elment-and-cut (car (last l7)) l))
(l9 (rotate-list-from-elment-and-cut (car (last l8)) l))
(l10 (rotate-list-from-elment-and-cut (car (last l9)) l))
(l11 (rotate-list-from-elment-and-cut (car (last l10)) l))
(l12 (rotate-list-from-elment-and-cut (car (last l11)) l))
(l13 (rotate-list-from-elment-and-cut (car (last l12)) l))
(l14 (rotate-list-from-elment-and-cut (car (last l13)) l))
(l15 (rotate-list-from-elment-and-cut (car (last l14)) l))
(l16 (rotate-list-from-elment-and-cut (car (last l15)) l))
(l17 (rotate-list-from-elment-and-cut (car (last l16)) l))
(l18 (rotate-list-from-elment-and-cut (car (last l17)) l))
(l19 (rotate-list-from-elment-and-cut (car (last l18)) l))
(l20 (rotate-list-from-elment-and-cut (car (last l19)) l)))
(append (butlast ll) (butlast l1) (butlast l2) (butlast l3) (butlast
l4) (butlast l5)
(butlast l6) (butlast l7) (butlast l8) (butlast l9) (butlast l10)
(butlast l11)
(butlast l12) (butlast l13) (butlast l14) (butlast l15) (butlast
l16) (butlast l17)
(butlast l18) (butlast l19) (butlast l20))))
(defun connect-lists-for-phrase-by-a-pair (pair)
(let ((lst (butlast (chord-scale pair))))
(remove (car (avoid-note pair)) (connect-lists-for-phrase lst))))
(defun get-a-phrase-1-aux (pair)
(cut-list-at-length (+ (random 2) 1) (connect-lists-for-phrase-by-a-pair
pair)))
(defun get-a-phrase-2-aux (pair)
(cut-list-at-length (+ (random 4) 1) (connect-lists-for-phrase-by-a-pair
pair)))
(defun get-a-phrase-3-aux (pair)
(cut-list-at-length (+ (random 6) 1) (connect-lists-for-phrase-by-a-pair
pair)))
(defun get-a-phrase-4-aux (pair)
(cut-list-at-length (+ (random 8) 1) (connect-lists-for-phrase-by-a-pair
pair)))
;;;
;;;(get-a-phrase-one-aux '("CM7" ion))
;;;((("CM7" ion) so mi re))
;;;(get-a-phrase-one-aux '("CM7" ion "Dm7" dor))
;;;((("CM7" ion) so la si do si la) (("Dm7" dor) so fa mi re do la))
;;;(get-a-phrase-one-aux '("CM7" ion "Dm7" dor "G7" alt))
;;;((("CM7" ion) do) (("Dm7" dor) do re do la) (("G7" alt) +do +re))
;;;(get-a-phrase-two-aux '("CM7" ion))
;;;((("CM7" ion) si la si do))
;;;(get-a-phrase-two-aux '("CM7" ion "Dm7" dor))
;;;((("CM7" ion) mi re do si) (("Dm7" dor) la so la do))
;;;(get-a-phrase-two-aux '("CM7" ion "Dm7" dor "G7" alt))
;;;((("CM7" ion) do) (("Dm7" dor) la so) (("G7" alt) +la))
;;;
(defun get-a-phrase-one-aux (l)
(cond ((equal (length l) 2)
(do ((lst l (cddr lst))
(w))
((null lst) (reverse w))
(let ((l1 (cons (list (first lst) (second lst))
(get-a-phrase-4-aux (list (first lst) (second lst))))))
(push l1 w))))
((equal (length l) 4)
(do ((lst l (cddr lst))
(w))
((null lst) (reverse w))
(let ((l2 (cons (list (first lst) (second lst))
(get-a-phrase-3-aux (list (first lst) (second lst))))))
(push l2 w))))
((equal (length l) 6)
(do ((lst l (cddr lst))
(w))
((null lst) (reverse w))
(let ((l3 (cons (list (first lst) (second lst))
(get-a-phrase-2-aux (list (first lst) (second lst))))))
(push l3 w))))))
(defun get-a-phrase-two-aux (l)
(cond ((equal (length l) 2)
(do ((lst l (cddr lst))
(w))
((null lst) (reverse w))
(let ((l1 (cons (list (first lst) (second lst))
(get-a-phrase-3-aux (list (first lst) (second lst))))))
(push l1 w))))
((equal (length l) 4)
(do ((lst l (cddr lst))
(w))
((null lst) (reverse w))
(let ((l2 (cons (list (first lst) (second lst))
(get-a-phrase-2-aux (list (first lst) (second lst))))))
(push l2 w))))
((equal (length l) 6)
(do ((lst l (cddr lst))
(w))
((null lst) (reverse w))
(let ((l3 (cons (list (first lst) (second lst))
(get-a-phrase-1-aux (list (first lst) (second lst))))))
(push l3 w))))))
;;;(defun number-of-notes (l)
;;; (cond ((equal (length l) 1)
;;; (- (length (first l)) 1))
;;; ((equal (length l) 2)
;;; (- (+ (length (first l)) (length (second l))) 2))
;;; ((equal (length l) 3)
;;; (- (+ (length (first l)) (length (second l)) (length (third
l))) 3))))
;;;
;;;(get-a-phrase-one-2-aux '("CM7" ion))
;;;(((("CM7" ion) si la so mi so la si do)) ***4beat*** (8pause 8 16pause 16 16 16 8pause 8 16pause 16 ...)
;;; ***3beat*** (8.5 16 8.5 16 16 16 16 16))
;;;(get-a-phrase-one-2-aux '("CM7" ion "Dm7" dor))
;;;(((("CM7" ion) re do si) (("Dm7" dor) do)) ***4beat*** (4 8 8 2) ***3beat*** ("3(8pause 8pause 8)" 8 8 4))
;;;(get-a-phrase-one-2-aux '("CM7" ion "Dm7" dor "G7" alt))
;;;(((("CM7" ion) so mi re) (("Dm7" dor) la do) (("G7" alt) fa +re +do)) ***4beat***
;;; (4 8pause 8 8 8 16 16 16 16) ***3beat*** (16 16 16 16 8 8 8.5 16))
;;;(get-a-phrase-two-2-aux '("CM7" ion))
;;;(((("CM7" ion) la so mi re do)) ***4beat*** (8 8 4 4 4) ***3beat*** ("3(8pause 8pause 8)" 16 16 8 4))
;;;(get-a-phrase-two-2-aux '("CM7" ion "Dm7" dor))
;;;(((("CM7" ion) la so mi) (("Dm7" dor) do re)) ***4beat*** (4 8.5 16 4 8pause 8) ***3beat*** ("3(8 8 8)" 4 4))
;;;(get-a-phrase-two-2-aux '("CM7" ion "Dm7" dor "G7" alt))
;;;(((("CM7" ion) do) (("Dm7" dor) so fa) (("G7" alt) si +do)) ***4beat*** (4 "3(8pause 8 8)" 4 4) ***3beat***
;;; (4 "3(8 8 8)" "3(8pause 8pause 8)"))
;;;
(defun get-a-phrase-one-2-aux (pair)
(let ((l (get-a-phrase-one-aux pair))
(n))
(setf n (number-of-notes l))
(list l '***4beat*** (get-rythm-of-4beat n) '***3beat*** (get-rythm-of-3beat
n))))
(defun get-a-phrase-two-2-aux (pair)
(let ((l (get-a-phrase-two-aux pair))
(n))
(setf n (number-of-notes l))
(list l '***4beat*** (get-rythm-of-4beat n) '***3beat*** (get-rythm-of-3beat
n))))
;;;
;;;(get-phrases-one '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))
;;;((((("CM7" ion) re) (("A7" hmp5) fa so la +la do do)) ***4beat*** (4 "3(8pause 8 8)" "3(8pause 8 8)" 8.5 16)
;;; ***3beat*** (8 16 16 4 16 16 8))
;;; (((("Dm7" dor) do re mi fa so) (("G7" alt) +re fa so +so)) ***4beat*** (4 16 16 16 16 8 8 "3(8pause 8 8)")
;;; ***3beat*** (16 16 16 16 16 16 16 16 8pause 8))
;;; (((("CM7" ion) la)) ***4beat*** (1) ***3beat*** (2.5)))
;;;
;;;(get-phrases-two '(("CM7" ion "A7" hmp5) ("Dm7" dor "G7" alt) ("CM7" ion)))
;;;((((("CM7" ion) so la) (("A7" hmp5) so)) ***4beat*** (4 4 2) ***3beat*** (4 4.5 8))
;;; (((("Dm7" dor) re) (("G7" alt) +re +do si)) ***4beat*** (4 2 8 8) ***3beat*** (4 8 8 8pause 8))
;;; (((("CM7" ion) mi)) ***4beat*** (1) ***3beat*** (2.5)))
;;;
(defun get-phrases-one (l)
(do ((lst l (cdr lst))
(w))
((null lst) (reverse w))
(let ((ll (get-a-phrase-one-2-aux (car lst))))
(format t "~%~a" ll)
(push ll w))))
(defun get-phrases-two (l)
(do ((lst l (cdr lst))
(w))
((null lst) (reverse w))
(let ((ll (get-a-phrase-two-2-aux (car lst))))
(format t "~%~a" ll)
(push ll w))))
;;;
;;;
;;;
(defun auto-comp-one-original (wn)
(tagbody
(my-randomize)
(format t "~%********** ~a ************" (second (first wn)))
(format t "~%The original key is ~a." (first (first wn)))
(format t "~%Enter a key.")
loop1
(setf l1 (read-sentence))
(if (not (key-p (car l1)))
(go loop1))
(if (equal (car l1) (first (first wn)))
(setf l2 (cdr wn))
(setf l2 (modulate-key1-to-key2 (cdr wn) (first (first wn)) (car l1))))
(format t "~%********* The key is ~a. **********" (car l1))
;(print l2)
(get-phrases-one l2)))
(defun auto-comp-two-original (wn)
(tagbody
(my-randomize)
(format t "~%********** ~a ************" (second (first wn)))
(format t "~%The original key is ~a." (first (first wn)))
(format t "~%Enter a key.")
loop1
(setf l1 (read-sentence))
(if (not (key-p (car l1)))
(go loop1))
(if (equal (car l1) (first (first wn)))
(setf l2 (cdr wn))
(setf l2 (modulate-key1-to-key2 (cdr wn) (first (first wn)) (car l1))))
(format t "~%********* The key is ~a. **********" (car l1))
(get-phrases-two l2)))
;;;
;;;
;;;
;;;(auto-comp-one-original *w3*)
;;;
;;; Enter an integer!
;;;32
;;;
;;;********** Dindi ************
;;;The original key is F.
;;;Enter a key.C
;;;
;;;********* The key is C. **********
;;;((((CM7 ion) si do re)) ***4beat*** (2 4.5 8) ***3beat*** (4.5 8 4))
;;;((((-BM7 lyd) la so)) ***4beat*** (2 2) ***3beat*** (4 2))
;;;((((CM7 ion) do si la so mi re do)) ***4beat*** (3(8pause 8pause 8) 8 16 16 3(8pause 8 8) 4) ***3beat***
;;; (4 8.5 16 16 16 16 16))
;;;((((Gm7 dor) +la la so) ((C7 alt) -so -la -si do -re do)) ***4beat*** (4 8 16 16 4 16 16 16 16) ***3beat***
;;; (16 16 16 16 16 16 16 16 4))
;;;((((FM7 lyd) do re mi fa so la si)) ***4beat*** (8.5 16 4 16pause 16 16 16 4) ***3beat***
;;; (8 16 16 3(8 8 8) 4))
;;;((((-B7 lyd-7) -si -la so fa)) ***4beat*** (4.5 8 4 4) ***3beat*** (4 8 8 4))
;;;((((CM7 ion) si do re mi re do)) ***4beat*** (4 16pause 16 16 16 4 4) ***3beat*** (8pause 8 8 8 16 16 8))
;;;((((-BM7 lyd) re mi fa so la -si la)) ***4beat*** (3(8 8 8) 4 4 8 8) ***3beat*** (16 16 8 3(8 8 8) 4))
;;;((((CM7 ion) do si)) ***4beat*** (2.5 4) ***3beat*** (2 4))
;;;((((-BM7 lyd) fa mi re)) ***4beat*** (8 8 2.5) ***3beat*** (4 4 4))
;;;((((CM7 ion) re do si)) ***4beat*** (4.5 8 2) ***3beat*** (4 4.5 8))
;;;((((Gm7 dor) fa) ((C7 alt) -mi -re do -si)) ***4beat*** (8pause 8 8pause 8 8pause 8 8 8) ***3beat***
;;; (8.5 16 8 8 4))
;;;((((FM7 lyd) si do re mi fa)) ***4beat*** (8pause 8 4 3(8pause 8pause 8) 3(8pause 8 8)) ***3beat***
;;; (8 8 3(8pause 8pause 8) 8 8))
;;;((((-B7 lyd-7) fa mi)) ***4beat*** (2 2) ***3beat*** (2 4))
;;;((((CM7 ion) re mi mi re do si)) ***4beat*** (8.5 16 3(8pause 8pause 8) 8.5 16 8pause 8) ***3beat***
;;; (3(8pause 8pause 8) 8 8 8 16 16))
;;;((((-Gm7-5 loc) do) ((B7 hmp5) +fa mi)) ***4beat*** (2 4.5 8) ***3beat*** (4.5 8 4))
;;;((((Em7 all) re +do do si la)) ***4beat*** (3(8pause 8pause 8) 8pause 8 8pause 8 8.5 16) ***3beat***
;;; (8.5 16 3(8pause 8pause 8) 3(8pause 8 8)))
;;;((((B7 hmp5) si)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((Em7 all) +do do si la so) ((B7 hmp5) la so +fa mi +fa)) ***4beat***
;;; (16pause 16 16 16 8.5 16 3(8pause 8 8) 8 16 16) ***3beat*** (16 16 16 16 8 8 16 16 16 16))
;;;((((Em7 all) +do do) ((A7 alt) do +do +re fa so)) ***4beat*** (3(8pause 8pause 8) 8 8 4 16pause 16 16 16)
;;; ***3beat*** (8 8 16 16 16 16 4))
;;;((((Dm7 all) re mi fa)) ***4beat*** (4.5 8 2) ***3beat*** (4 4.5 8))
;;;((((A7 hmp5) la so fa mi re)) ***4beat*** (4 8.5 16 4 4) ***3beat*** (4 3(8 8 8) 8pause 8))
;;;((((Dm7 all) do +do re) ((A7 hmp5) la so)) ***4beat*** (8pause 8 3(8pause 8pause 8) 3(8pause 8 8) 4)
;;; ***3beat*** (4 8 16 16 4))
;;;((((Dm7 all) +do re) ((G7 alt) +re fa so)) ***4beat*** (4 8.5 16 8pause 8 4) ***3beat***
;;; (4 8pause 8 8 16 16))
;;;((((CM7 ion) la)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((-BM7 lyd) re do -si la -si)) ***4beat*** (8 8 4 4 4) ***3beat*** (4 16 16 8 4))
;;;((((CM7 ion) so la)) ***4beat*** (2 2) ***3beat*** (2 4))
;;;((((Gm7 dor) do re) ((C7 alt) mi -so -la -si -la)) ***4beat*** (8 8 8.5 16 8 8 4) ***3beat***
;;; (3(8pause 8pause 8) 3(8 8 8) 16 16 8))
;;;((((FM7 lyd) fa mi re do si la so fa)) ***4beat*** (3(8pause 8 8) 16 16 16 16 8pause 8 3(8pause 8pause 8))
;;; ***3beat*** (8 16 16 16 16 16 16 4))
;;;((((-B7 lyd-7) -la)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((CM7 ion) so mi re)) ***4beat*** (2.5 8 8) ***3beat*** (4 4 4))
;;;((((-BM7 lyd) -si do re mi re mi fa so)) ***4beat*** (3(8pause 8 8) 8pause 8 16 16 16 16 4) ***3beat***
;;; (3(8 8 8) 16 16 8 8 8))
;;;((((CM7 ion) so mi re do)) ***4beat*** (2 8 8 4) ***3beat*** (4 8.5 16 3(8pause 8pause 8)))
;;;((((-BM7 lyd) mi re do -si la so)) ***4beat*** (4 3(8 8 8) 8pause 8 4) ***3beat*** (16 16 8 4 8 8))
;;;((((CM7 ion) so)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((-BM7 lyd) fa so la so fa mi re do)) ***4beat*** (3(8 8 8) 4 3(8pause 8pause 8) 8 16 16) ***3beat***
;;; (3(8pause 8pause 8) 16 16 8 16 16 16 16))
;;;((((CM7 ion) do re mi mi re do)) ***4beat*** (3(8pause 8 8) 4 4 3(8pause 8 8)) ***3beat*** (4 16 16 16 16 4))
;;;((((CM7 ion) mi so la si la so so la)) ***4beat*** (4 8 16 16 16pause 16 16 16 4) ***3beat***
;;; (16 16 16 16 3(8 8 8) 8pause 8))
;;;((((-BM7 lyd) -si la so fa mi)) ***4beat*** (8pause 8 3(8pause 8 8) 4 4) ***3beat*** (4 8 8 8 8))
;;;((((-BM7 lyd) mi re do -si la so fa)) ***4beat*** (3(8pause 8pause 8) 16pause 16 16 16 8.5 16 4) ***3beat***
;;; (4 8.5 16 16 16 16 16))
;;;((((AM7 ion) la si la +so +fa mi +do)) ***4beat*** (3(8pause 8pause 8) 3(8 8 8) 8 8 3(8pause 8pause 8))
;;; ***3beat*** (8 16 16 3(8 8 8) 8pause 8))
;;;((((AM7 ion) +fa mi +do)) ***4beat*** (4 2 4) ***3beat*** (2 8 8))
;;;((((AM7 ion) mi +do si)) ***4beat*** (2.5 8 8) ***3beat*** (4 4 4))
;;;((((AM7 ion) si)) ***4beat*** (1) ***3beat*** (2.5))
;;;nil
;;;
;;;(auto-comp-two-original *w3*)
;;;
;;; Enter an integer!
;;;6754
;;;
;;;********** Dindi ************
;;;The original key is F.
;;;Enter a key.C
;;;
;;;********* The key is C. **********
;;;((((CM7 ion) si do re do)) ***4beat*** (4 2 8 8) ***3beat*** (3(8pause 8pause 8) 3(8pause 8 8) 4))
;;;((((-BM7 lyd) fa)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((CM7 ion) si do)) ***4beat*** (2 2) ***3beat*** (4 2))
;;;((((Gm7 dor) re fa so la) ((C7 alt) -so -la)) ***4beat*** (16pause 16 16 16 4 4 4) ***3beat***
;;; (16 16 16 16 4 4))
;;;((((FM7 lyd) so fa mi re)) ***4beat*** (4 4 4.5 8) ***3beat*** (3(8pause 8pause 8) 8 8 8pause 8))
;;;((((-B7 lyd-7) re)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((CM7 ion) so)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((-BM7 lyd) -si do re mi fa mi)) ***4beat*** (3(8pause 8pause 8) 3(8pause 8pause 8) 4 3(8 8 8))
;;; ***3beat*** (4 16 16 16 16 4))
;;;((((CM7 ion) so la)) ***4beat*** (4 2.5) ***3beat*** (4 2))
;;;((((-BM7 lyd) re mi fa so la)) ***4beat*** (8pause 8 8pause 8 8 8 8pause 8) ***3beat*** (4 8.5 16 8 8))
;;;((((CM7 ion) so la so mi re mi)) ***4beat*** (3(8pause 8pause 8) 3(8pause 8pause 8) 4 8 16 16) ***3beat***
;;; (3(8 8 8) 8pause 8 3(8pause 8 8)))
;;;((((Gm7 dor) fa) ((C7 alt) -si do -re)) ***4beat*** (2 4 8 8) ***3beat***
;;; (8.5 16 3(8pause 8pause 8) 3(8pause 8pause 8)))
;;;((((FM7 lyd) so la si do si la)) ***4beat*** (8 8 4 4 3(8pause 8 8)) ***3beat*** (16 16 8 8pause 8 8 8))
;;;((((-B7 lyd-7) fa)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((CM7 ion) re mi)) ***4beat*** (2.5 4) ***3beat*** (4 2))
;;;((((-Gm7-5 loc) la si do) ((B7 hmp5) mi)) ***4beat*** (4 8 8 2) ***3beat*** (4 8.5 16 8pause 8))
;;;((((Em7 all) so la si do +do re)) ***4beat*** (4 3(8pause 8 8) 3(8pause 8 8) 8pause 8) ***3beat***
;;; (8 8 16 16 8 4))
;;;((((B7 hmp5) so la si do)) ***4beat*** (2 4 8 8) ***3beat*** (4 3(8pause 8 8) 8pause 8))
;;;((((Em7 all) mi +re re) ((B7 hmp5) la so +fa)) ***4beat*** (8pause 8 4 8 16 16 8pause 8) ***3beat***
;;; (16 16 8 3(8pause 8 8) 8pause 8))
;;;((((Em7 all) +re mi +fa so) ((A7 alt) la so fa)) ***4beat*** (4 8 16 16 3(8pause 8 8) 8pause 8) ***3beat***
;;; (4 16 16 16 16 8.5 16))
;;;((((Dm7 all) si +la)) ***4beat*** (2 2) ***3beat*** (2 4))
;;;((((A7 hmp5) mi re)) ***4beat*** (2 2) ***3beat*** (2 4))
;;;((((Dm7 all) fa so la) ((A7 hmp5) la +la do)) ***4beat*** (4 4 4 8 16 16) ***3beat*** (16 16 16 16 4 4))
;;;((((Dm7 all) mi re +do) ((G7 alt) +do +re)) ***4beat*** (3(8pause 8 8) 4 8pause 8 4) ***3beat***
;;; (8pause 8 4 3(8 8 8)))
;;;((((CM7 ion) so so)) ***4beat*** (4 2.5) ***3beat*** (4 2))
;;;((((-BM7 lyd) do -si la so fa mi)) ***4beat*** (4 4 4 16pause 16 16 16) ***3beat***
;;; (4 16 16 16 16 3(8pause 8pause 8)))
;;;((((CM7 ion) mi so la si)) ***4beat*** (4 4.5 4 8) ***3beat*** (4 3(8pause 8 8) 3(8pause 8pause 8)))
;;;((((Gm7 dor) fa so la) ((C7 alt) -so -la -si do)) ***4beat*** (4 4 4 16 16 16 16) ***3beat***
;;; (4 16 16 8 3(8 8 8)))
;;;((((FM7 lyd) fa so la si do re)) ***4beat*** (8.5 16 8pause 8 3(8pause 8 8) 4) ***3beat***
;;; (16 16 16 16 4 3(8pause 8pause 8)))
;;;((((-B7 lyd-7) fa mi re do -si -la)) ***4beat*** (4 8 8 8.5 16 4) ***3beat***
;;; (16 16 8 3(8pause 8 8) 3(8pause 8pause 8)))
;;;((((CM7 ion) so la si la so mi)) ***4beat*** (4 3(8pause 8pause 8) 8 16 16 4) ***3beat***
;;; (4 3(8pause 8 8) 16 16 8))
;;;((((-BM7 lyd) so fa)) ***4beat*** (2.5 4) ***3beat*** (2 4))
;;;((((CM7 ion) si la so mi re)) ***4beat*** (4 4 3(8pause 8pause 8) 8 8) ***3beat***
;;; (16 16 8 3(8pause 8pause 8) 4))
;;;((((-BM7 lyd) fa so la -si do -si)) ***4beat*** (8.5 16 3(8pause 8pause 8) 8 8 4) ***3beat***
;;; (4 3(8pause 8 8) 3(8 8 8)))
;;;((((CM7 ion) do re mi so)) ***4beat*** (2 8 8 4) ***3beat*** (3(8pause 8 8) 4 3(8pause 8pause 8)))
;;;((((-BM7 lyd) -si la so fa mi re)) ***4beat*** (8.5 16 4 4 3(8pause 8 8)) ***3beat***
;;; (16 16 16 16 8pause 8 3(8pause 8pause 8)))
;;;((((CM7 ion) so)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((CM7 ion) do re)) ***4beat*** (2.5 4) ***3beat*** (4 2))
;;;((((-BM7 lyd) fa)) ***4beat*** (1) ***3beat*** (2.5))
;;;((((-BM7 lyd) la so fa mi re do)) ***4beat*** (3(8pause 8 8) 4 8.5 16 4) ***3beat***
;;; (16 16 16 16 4 3(8pause 8pause 8)))
;;;((((AM7 ion) +do si)) ***4beat*** (4 2.5) ***3beat*** (4 2))
;;;((((AM7 ion) +so +fa mi +do si)) ***4beat*** (3(8pause 8 8) 4 4 4) ***3beat*** (3(8 8 8) 4 4))
;;;((((AM7 ion) la +so +fa +so)) ***4beat*** (2 4 8 8) ***3beat*** (3(8pause 8 8) 4 4))
;;;((((AM7 ion) la si la)) ***4beat*** (2.5 8 8) ***3beat*** (4 4 4))
;;;nil
;;;