はい、こんにちは。

今回はOvertoneについて書くといいましたが、それだけだとつまらないので、「Clojure」で「Clojureならではの」音楽をつくることを主眼に書きます。

あんまり、Overtoneについて書かないかもしれません。
ぶっちゃけこれ読んでくだたい。
http://overtone.github.io/

また、今回はあんまりポップな音楽については書きません。

「Clojureならでは」の音楽

1.音楽とは?

そもそも、音と音楽の違いってなに？
車の音は音楽？
リズム、メロディーがあれば音楽？

とか、音楽とはなんなのか、とかいったらこの記事だと延々と終らないので、ここでは単純に

音
その組みあわせの構造
組あわせをさらに組織

と考えます。一つ一つの音が折り重ねの結果が音楽というわけです。
基本的に音楽は「音そのもの」よりも、「その組みあわせの構造」が大事だと僕は思います。ちょっと抽象的に「なんのこっちゃ」という人がいるでしょうから、ある名曲を参考にしましょう。

2.ベートーヴェン交響曲第5番「運命」とはなぜ名曲か?

さて、だれもが聞いたことはあるでしょう。「運命」についてです。「運命」とはなぜ名曲(個人的な主観評価は置いておいて)、といわれるのでしょうか?

その理由の一つに「一つのモチーフが見事に組織されてできているから」だと僕は思います。され楽譜を見せましょう。(読めなくて良いです。)

*モチーフ

さてこれは口で言うと「たたたターン!」というフレーズです。この「たたたターン!」というフレーズがモチーフとなって楽曲上に至るところに表われています。それは、このままの形で表われるのではなく、

ひっくり変えしたり
組み合わさったり

スコア全体を見せたいですが、ベートーベンは良く「たたた*たーん」を組みあわせて音楽を作っているのがわかります。

このように「 一つのモチーフが見事に組織されてできている 」ことがわかるかと思います。

3. 音楽構造をプログラミングする。

良く音楽プログラミングをすると、音をプログラミングする人が結構います。けれども、それは大半は楽器にしかならず、音楽になっていかない、ってのを良くみかけます。

さて、僕は思ったのです、「 音楽構造をプログラミング 」してないからだと!。

それはなぜ音楽にならないのかというと、楽曲の構造をつくってないからです。音楽とは「構造」なのです。

4. Clojureで音楽構造を付くる。

さて、云々解説するよりやってみたほうが良いでしょう。
早速音楽構造をプログラミングしていきます。構造を定義していきましょう。

単旋律構造

まず簡単なモチーフを作りましょう。

(def phrase-a '(1 2 3 4 5))

といあえず、こんなリストでいいです。このリストが、まず、モチーフとなります。これを音に関連付けるのですが、それは後でいいでしょう,
さてこれをこんな風に組みあわせていきます。

;;単純につなげる構造
(def phrase-b 
 (concat 
     phrase-a phrase-a (reverse phrase-a)))

さて、簡単にちょっとした構造ができました。さてこれを音に割りあてて演奏する関数をつくりましょう。
ここでovertoneをつかいます。(overtoneについては解説しません。)

(use 'overtone.live)

;; 音の定義 
;; 今回はなんとなく鋸派でつくる(ここは好きにしていいお!)
(definst saw-wave [freq 1 attack 0.01 sustain 0.4 release 0.1 vol 0.4] 
  (* (env-gen (lin-env attack sustain release) 1 1 0 1 FREE)
     (saw (* freq 100))
     vol))

;; 演奏する関数
(defn play-lst [lst tone time delta-time]
    (let [elt (first lst)]
      (if (nil? elt)
          nil
        (do (at time (tone elt))
        (play-lst (rest lst) tone (+ time delta-time) delta-time)))))

さて、それでは、音を鳴らしましょう

(play-lst  phrase-b tone (now) 100)

ちょっと短い単旋律が流れましたね。

ポリフォニックな構造

さて単純な旋律をつくりました。さらに音楽らしくするには、今度な同時間的な構造を定義していきましょう。

単純に上に移調したフレーズをつくります。

(def phrase-c (map #(+ % 2) phrase-b))

さて、ポリフォニックにするために、play-lsts 関数をつくりましょう

(defn play-lsts [phrase-lst tone time delta-time]
    (map #(play-lst % tone time delta-time) phrase-lst))

さて鳴らしてみましょう。

(play-lsts (list phrase-b phrase-c) saw-wave (now) 200)

ちょっとポリフォニックになりました。
これはどうでしょうか?

(play-lsts (list phrase-b (reverse phrase-c)) saw-wave (now) 200)

さて、これで、どんどん複雑に構造化していくと、より音楽的になります。

5.まとめ

さて、Clojureで僕が実際にどうやって音楽構造を作り、それをOvertoneに演奏させるかをみてきました。
これはあくまでも、構造化の一例にしかすぎません。いろいろな音楽組織、構造、が考えられます。

また、その構造をどう演奏命令に変換させるかも、様々なやりかたがあります。いろいろ、ためしてみればいかがでしょうか?

「音楽プログラミング」をすると大抵の人が「音プログラミング」に走ってしまいます。物理的な「音」をどう再現するか?に走ってしまい、その結果、単純な楽器にしかならない自体になってしまします。

あくまでも、音楽に大切なのはその音そのものよりも、その「構造化」にあると思います。その構造化が大事だとおもいます。

また、僕は音楽をプログラミングで作曲するときは、「音楽プログラミングならでは!」「Clojureの音楽ならでは!」を目指すべきだと思います。従来の五線楽譜の音楽ではなく、「プログラミング」でやるのだから、「プログラミング」の音楽を目指すべきだと思います。そこに「音楽プログラミング」による作曲の意義があるのではないでしょうか?

Clojureで音楽組織プログラミングについて