自動作曲システム作品紹介

自動作曲作品集
自動作曲作品1（クリックしてみて下さい）

自動作曲作品１をクリックすればMIDIファイルをダウンロードでき聞くことができます。

以上の曲は自動作曲システムで作りました。自動作曲システムのソースコードの一部を紹介します。これで全てという訳ではありません。Lispという言語で記述しました。

(defun make-a-phrase-1-3 (l)
　　(let ((num (length l)))
　　　　(case num
　　　　　　(2 (do ((lst l (cddr lst))
　　　　　　　　　　　(w))
　　　　　　　　　　((null lst) w)
　　　　　　　　　(setf w (cut-list-at-length
　　　　　　　　　　　　　　　(1+ (random 8))
　　　　　　　　　　　　　　　(squash (generate-a-phrase-at-random (list (first lst) (second lst))))))))
　　　　　　(4 (do ((lst l (cddr lst))
　　　　　　　　　　　(w))
　　　　　　　　　　　((null lst) w)
　　　　　　　　　(setf w (append w
　　　　　　　　　　　　　　　　　　　　(cut-list-at-length
　　　　　　　　　　　　　　　　　　　　(1+ (random 4))
　　　　　　　　　　　　　　　　　　　　(squash (generate-a-phrase-at-random (list (first lst) (second lst)))))))))
　　　　　　(6 (do ((lst l (cddr lst))
　　　　　　　　　　　(w))
　　　　　　　　　　　((null lst) w)
　 　　　　　　　(setf w (append w
　　　　　　　　　　　　　　　　　　　(cut-list-at-length
　　　　　　　　　　　　　　　　　　　(1+ (random 3))
　　　　　　　　　　　　　　　　　　　(squash (generate-a-phrase-at-random (list (first lst) (second lst))))))))))))

(defun make-a-phrase-2-3 (l)
　　(let ((num (length l)))
　　　　(case num
　　　　　　(2 (do ((lst l (cddr lst))
　　　　　　　　　　　(w))
　　　　　　　　　　　((null lst) w)
　　　　　　　　　(setf w (cut-list-at-length
　　　　　　　　　　　　　　　(1+ (random 8))
　　　　　　　　　　　　　　　(squash (generate-a-phrase-at-random-2 (list (car lst) (cadr lst))))))))
　　　　　　(4 (do ((lst l (cddr lst))
　　　　　　　　　　　(w))
　　　　　　　　　　　((null lst) w)
　　　　　　　　　(setf w (append w
　　　　　　　　　　　　　　　　　　　　(cut-list-at-length
　　　　　　　　　　　　　　　　　　　　(1+ (random 4))
　　　　　　　　　　　　　　　　　　　　(squash (generate-a-phrase-at-random-2 (list (car lst) (cadr lst)))))))))
　　　　　　(6 (do ((lst l (cddr lst))
　　　　　　　　　　　(w))
　　　　　　　　　　　((null lst) w)
　　　　　　　　　(setf w (append w
　　　　　　　　　　　　　　　　　　　　(cut-list-at-length
　　　　　　　　　　　　　　　　　　　　(1+ (random 3))
　　　　　　　　　　　　　　　　　　　　(squash (generate-a-phrase-at-random-2 (list (car lst) (cadr lst))))))))))))

(defun make-a-phrase-for-ballad (l)
　　(let* ((l1 (make-a-phrase-1-3 l))
　　　　　　(l2 (make-a-phrase-2-3 l))
　　　　　　(n1 (length l1))
　　　　　　(n2 (length l2))
　　　　　　(r1 (get-rythm-of-4beat n1))
　　　　　　(r2 (get-rythm-of-4beat n2)))
　　　　(list (list l1 r1) (list l2 r2))))

(defun make-phrases-for-ballad (l)
　　(do ((lst l (cdr lst)))
　　　　　((null lst))
　　　　(format t "~%*********** ~a *************" (car lst))
　　　　(format t "~%~a" (make-a-phrase-for-ballad (car lst)))))

;;;
;;; (make-ballad *w3*)
;;;
(defun make-ballad (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))
　　　　(make-phrases-for-ballad l2)))

(setf *w3* '((F "Dindi")
　　　　　　　　("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("Cm7" dor "F7" alt) ("-BM7" lyd)
　　　　　　　　("-E7" lyd-7) ("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("-EM7" lyd) ("FM7" ion)
　　　　　　　　("Cm7" dor "F7" alt) ("-BM7" lyd) ("-E7" lyd-7) ("FM7" ion) ("Bm7-5" loc "E7" hmp5)
　　　　　　　　("Am7" all) ("E7" hmp5) ("Am7" all "E7" hmp5) ("Am7" all "D7" alt)
　　　　　　　　("Gm7" all) ("D7" hmp5) ("Gm7" all "D7" hmp5) ("Gm7" all "C7" alt)
　　　　　　　　("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("Cm7" dor "F7" alt) ("-BM7" lyd) ("-E7" lyd-7)
　　　　　　　　（"FM7" ion) ("-EM7" lyd) ("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("-EM7" lyd)
　　　　　　　　("FM7" ion) ("FM7" ion) ("-EM7" lyd) ("-EM7" lyd) ("DM7" ion)
　　　　　　　　("DM7" ion) ("DM7" ion) ("DM7" ion)))

 

 

 

 

荒井公康