Question

我想将Overtone纯粹用于向midi乐器发送数据。是否有快速加载Overtone而没有SuperCollider支持的方法？我发现可以使用overtone.studio.midi将midi支持添加到程序中，但我也有兴趣加载所有帮助处理代表音乐的数据的助手。确定要加载哪些文件以及要排除哪些文件是一项耗时的任务，因此存在问题。

Answer 1

不，所有的Overtone都依赖Supercollider，你可以做一些黑客攻击，但这将是一个非常痛苦的。我建议查看Steven Yi的Pink，他已经用Clojure实现了java声音，你可以通过javasound将clojure连接到midi设备。

https://github.com/kunstmusik/pink

Answer 2

您可以使用泛音。并获得很多工作室功能，而无需实际连接到服务器。您无法进行definst或defsynth或任何会触发任何OSC与SC服务器通信的内容，但您可以完全访问Overtone自己的OSC设施。您可以制作听众和处理程序。您还可以访问MIDI子系统和事件系统。

你应该能够用overtone.core做你想做的一切。以下所有代码都可以在不运行（connect-external-server）或任何其他相关功能的情况下运行：

(ns beatboxchad-live.midi
 [:require [overtone.core :refer :all]
  [beatboxchad-live.sooperlooper]
  ]
 )

(def fcb (midi-mk-full-device-key (midi-find-connected-device "mio")))
(def overtone-osc (osc-server 9960 "osc-overtone"))  
(defn loop-setting [loop-index setting value]
(osc-send engine 
        (format "/sl/%s/set" loop-index) 
        setting
        value
        )
    )

(def loop-ops
  {0 {:action "record"    :hit false}
   1 {:action "overdub"   :hit false}
   2 {:action "trigger"   :hit true}
   3 {:action "pause"     :hit true}
   4 {:action "reverse"   :hit true}
   }
  )


(on-event (conj fcb :note-on)
          (fn [e]
            (let [note (:note e)]
              (let [loop-index (int (/ note 10))
                    cmd (mod note 10)
                    loop-op (if (:hit (get loop-ops cmd))
                              "hit"
                              "down")
                    ]
                (beatboxchad-live.sooperlooper/loop-op 
                  loop-index
                  (:action (get loop-ops cmd))
                  loop-op


                  )
                )
              )
            )
          ::fcb-note-on
          )

(on-event (conj fcb :note-off)
          (fn [e]
            (let [note (:note e)]
              (let [loop-index (int (/ note 10))
                    cmd (mod note 10)
                    ]
                (if-not (:hit (get loop-ops cmd))
                  (beatboxchad-live.sooperlooper/loop-op 
                    loop-index
                    (:action (get loop-ops cmd))
                    "up"

                    )
                  )

                )
              )
            )
          ::fcb-note-off
          )

此代码基于来自Behringer FCB1010的MIDI控制Sooperlooper而不是OSC。将MIDI事件发送到设备也非常简单。请参阅：https://github.com/overtone/overtone/wiki/MIDI#sending-midi-messages

没有SuperCollider的泛音

2 个答案: